例題
[C3291.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3291. 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 RECORD IS VARYING IN SIZE 000011 FROM 80 TO 120 CHARACTERS 000012 DEPENDING ON DEP-1. 000013 01 REC-1 PIC X(120). 000014 WORKING-STORAGE SECTION. 000015 01 A PIC N(50) CHARACTER TYPE IS MODE-1. 000016 01 DEP-1 PIC 999. 000017 PROCEDURE DIVISION. 000018 WRITE REC-1 FROM A. 000019 END PROGRAM C3291.
C3291.cob 18: JMN3291I-S DEPENDING ON指定を含むRECORD句が指定されたレコードをWRITE文に指定する場合，CHARACTER TYPE句またはPRINTING POSITION句を含む項目は，FROM指定に記述できません．
