引数の説明
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文中の一意名は共通範囲外です.処理を続行します.