COBOL2002 言語 拡張仕様編

[目次][索引][前へ][次へ]

22.9.2 COBOLプログラム間の連携

呼び出し元プログラム
        IDENTIFICATION DIVISION .
        PROGRAM-ID. MAINPROG.
        ENVIRONMENT DIVISION.
          CONFIGURATION SECTION.
            SPECIAL-NAMES.
             DYNAMIC LENGTH STRUCTURE C-STRING IS C-STATIC-STRUCTURE .
        DATA  DIVISION.
          WORKING-STORAGE SECTION.
            01  DYNADATA  PIC  X  DYNAMIC LENGTH C-STRING  LIMIT  30 .
        PROCEDURE DIVISION  .
          MOVE 'abcde'  TO DYNADATA.   *> DYNADATAには'abcde'+終端文字(X'00')が格納される
          CALL  'SUBPROG'    USING  DYNADATA.

呼び出し先プログラム
        IDENTIFICATION DIVISION .
        PROGRAM-ID. SUBPROG.
        ENVIRONMENT DIVISION.
          CONFIGURATION SECTION.
            SPECIAL-NAMES.
             DYNAMIC LENGTH STRUCTURE C-STRING IS C-STATIC-STRUCTURE .
        DATA  DIVISION.
          LINKAGE SECTION.
            01  DYNADATA2  PIC  X  DYNAMIC LENGTH  C-STRING  LIMIT  30 .
        PROCEDURE DIVISION USING DYNADATA2 .
          DISPLAY   DYNADATA2.     *>  'abcde'を表示する

注意事項
呼び出し元プログラムと呼び出し先プログラムで,LIMITの値を一致させること。