例題
[C3182.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3182. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD FILE-1 LINAGE IS 50 LINES. 000010 01 REC-1 PIC X(80). 000011 PROCEDURE DIVISION. 000012 WRITE REC-1 AFTER ADVANCING PAGE AT EOP GO TO L1. 000013 L1. STOP RUN.
C3182.cob 12: JMN3182I-W 一つのWRITE文に，ADVANCING PAGE指定とEND-OF-PAGE指定の両方は記述できません．そのまま受け入れられます．
