39 lines
744 B
COBOL
39 lines
744 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. subr01.
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
*
|
|
WORKING-STORAGE SECTION.
|
|
|
|
LINKAGE SECTION.
|
|
01 VAR PIC X(10).
|
|
|
|
PROCEDURE DIVISION USING VAR.
|
|
DISPLAY "IN subr01, received: " VAR.
|
|
EXIT PROGRAM.
|
|
END PROGRAM subr01.
|
|
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. subr02.
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
*
|
|
WORKING-STORAGE SECTION.
|
|
01 CMDLINE-PARMS PIC X(50).
|
|
|
|
* LINKAGE SECTION.
|
|
* 01 VAR PIC X(10).
|
|
|
|
* PROCEDURE DIVISION USING VAR.
|
|
PROCEDURE DIVISION.
|
|
* DISPLAY "IN subr02, received: " VAR.
|
|
DISPLAY "IN subr02".
|
|
ACCEPT CMDLINE-PARMS FROM COMMAND-LINE.
|
|
DISPLAY "IN subr02, COMMAND-LINE=" CMDLINE-PARMS.
|
|
MOVE 2 TO RETURN-CODE.
|
|
EXIT PROGRAM.
|
|
END PROGRAM subr02.
|
|
|