例題
[C1540.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1540. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE 000007 ORGANIZATION IS SEQUENTIAL 000008 PASSWORD IS PSWD1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 PSWD1 PIC X(8) VALUE "COMP1234". 000015 END PROGRAM C1540.
C1540.cob 8: JMN1540I-S PASSWORD句は順ファイル(編成ASまたはVS)，相対ファイルまたは索引ファイル以外に指定できません．
