例
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指定に記述できません．