例題
[C1363.cob] 000001 @OPTIONS FLAGSW(GSS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1363. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IN-F ASSIGN SYS000-PTR-S1-SP-NAME. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD IN-F. 000011 01 IN-R PIC X(80). 000012 END PROGRAM C1363.
C1363.cob 7: JMN1363I-W ファイル識別名の装置クラスがPTRまたはPTPの場合，編成は'S'でなければなりません．装置クラスは無効になります．
