COBOL2002 ユーザーズガイド


17.1.2 使用例

CALL文のUSING指定による引数の受け渡しの例を次に示します。

呼び出し元プログラム(MAIN1)
CALL 'SAMPLE1'
     USING {BY REFERENCE|BY CONTENT|BY VALUE} A1 B1 C1.
呼び出し先プログラム(SAMPLE1)
PROCEDURE DIVISION
     USING {BY REFERENCE|BY VALUE} A2 B2 C2.

プログラムMAIN1のA1,B1,C1がプログラムSAMPLE1に渡すデータ項目です。また,プログラムSAMPLE1のA2,B2,C2がプログラムMAIN1から渡された情報を受け取るデータ項目です。データ項目A1,B1,C1はそれぞれデータ項目A2,B2,C2に対応します。