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の値を一致させること。