引数の説明
ファイル名 |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C3130.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 CHANNEL-01 IS CHN-1.
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009 SELECT FILE-1 ASSIGN TO S-SYS001.
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD FILE-1 LINAGE IS 50 LINES.
000013 01 REC-1 PIC X(121).
000014 PROCEDURE DIVISION.
000015 WRITE REC-1 AFTER ADVANCING CHN-1.
000016 STOP RUN.
C3130.cob (15) : JMN3130I-S LINAGE句指定のあるファイル'FILE-1'のWRITE文に,呼び名句指定のADVANCING指定を記述することはできません.BEFORE ADVANCING 1とみなされます.