[¿¹Á¦]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Main-program
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
DATA |
DIVISION. |
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
WORKING-STORAGE |
SECTION. |
|
77 |
A1 |
PIC |
9(3). |
|
|
|
77 |
A2 |
PIC |
X(15). |
|
|
|
01 |
B1 |
PIC |
X(10). |
|
|
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
PROCEDURE |
DIVISION. |
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
|
CALL "SUBPRO" |
|
|
|
|
|
USING A1, A2,
B1. |
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
|
STOP RUN. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Sub-program
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
DATA |
DIVISION. |
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
LINKAGE |
SECTION. |
|
77 |
A1 |
PIC |
9(3). |
|
|
|
77 |
A2 |
PIC |
X(15). |
|
|
|
01 |
B1 |
PIC |
X(10). |
|
|
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
PROCEDURE |
DIVISION |
|
|
|
|
|
USING A1, A2,
B1. |
|
|
: |
|
|
|
|
|
|
|
|
|
|
|
OUT-RTN. |
|
|
|
|
|
|
|
EXIT PROGRAM. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|