hangshuo652
32 lines
1.0 KiB
COBOL
32 lines
1.0 KiB
COBOL
* HINA025 - サブプログラムCALL
|
|
>>SOURCE FORMAT IS FREE
|
|
* CALL文によるサブプログラム呼び出し
|
|
* 期待: CALL文, LINKAGE SECTION, 2段落
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. HINA025.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-A PIC 9(05) VALUE 100.
|
|
01 WS-B PIC 9(05) VALUE 200.
|
|
01 WS-RESULT PIC 9(06).
|
|
PROCEDURE DIVISION.
|
|
0000-MAIN.
|
|
CALL 'HINA025SUB' USING WS-A WS-B WS-RESULT.
|
|
DISPLAY "RESULT=" WS-RESULT.
|
|
CALL 'HINA025SUB' USING WS-B WS-A WS-RESULT.
|
|
DISPLAY "RESULT2=" WS-RESULT.
|
|
STOP RUN.
|
|
* サブプログラム(インライン)
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. HINA025SUB.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-TEMP PIC 9(06).
|
|
LINKAGE SECTION.
|
|
01 X PIC 9(05).
|
|
01 Y PIC 9(05).
|
|
01 Z PIC 9(06).
|
|
PROCEDURE DIVISION USING X Y Z.
|
|
ADD X TO Y GIVING Z.
|
|
GOBACK.
|