引数の説明
STD |
例
000001 @OPTIONS FLAGSW(STDI)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. P9332.
000004 ENVIRONMENT DIVISION.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 REC01 PIC 9(4).
000008 01 REC02 PIC 9(4).
000009 PROCEDURE DIVISION.
000010 P-START.
000011 CALL "Z9332".
000012 STOP RUN.
000013*
000014 IDENTIFICATION DIVISION.
000015 PROGRAM-ID. Z9332.
000016 DATA DIVISION.
000017 WORKING-STORAGE SECTION.
000018 PROCEDURE DIVISION.
000019 P-START.
000020 END PROGRAM Z9332.
000021 END PROGRAM P9332.
P9332.cob (15) : JMN9332I-W (STD)入れ子のプログラムは共通範囲外です.処理を続行します.