引数の説明
編成種別 |
ファイル名 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3196.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT FILE001 ASSIGN SYS010-DA-OUTFILE
000007 ORGANIZATION IS RELATIVE
000008 ACCESS MODE IS SEQUENTIAL.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD FILE001 LABEL RECORD STANDARD.
000012 01 LINE-REC PIC X(77).
000013 01 CTL-REC PIC X(61).
000014 PROCEDURE DIVISION.
000015 OPEN OUTPUT FILE001.
000016 CALL "EXTPROG" USING BY CONTENT FILE001.
000017 CLOSE FILE001.
000018 END PROGRAM C3196.
C3196.cob (16) : JMN3196I-S 相対ファイル'FILE001'は,CALL文のUSING指定に記述できません.