例題
[C3136.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3136. 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. 000010 01 REC-1 PIC X(121). 000011 PROCEDURE DIVISION. 000012 WRITE REC-1 AFTER ADVANCING 40000. 000013 STOP RUN.
C3136.cob 12: JMN3136I-S WRITE文のADVANCING指定の整数は，0以上32767以下でなければなりません．1行送りとみなされます．
