* 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.