引数の説明
STD |
CALL |
例
000001 @OPTIONS FLAGSW(STDI) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9006. 000004 ENVIRONMENT DIVISION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 REC01. 000008 02 REC-1 PIC 9(4). 000009 02 REC-2 PIC 9(4). 000010 02 REC-3 PIC 9(4). 000011 01 PGMNM PIC X(8). 000012 PROCEDURE DIVISION. 000013 P-START. 000014 CALL PGMNM USING REC01. 000015 STOP RUN.
C9006.cob (14) : JMN9006I-W (STD)CALL文中の一意名は共通範囲外です.処理を続行します.