例
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)，相対ファイルまたは索引ファイル以外に指定できません．