引数の説明
PASSWORD. |
例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2871.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT IN-F ASSIGN INFILE
000007 ORGANIZATION IS INDEXED
000008 RECORD KEY IS K1 PASSWORD IS P1.
000009 DATA DIVISION.
000010 BASED-STORAGE SECTION.
000011 01 P1 PIC X(4).
000012 FILE SECTION.
000013 FD IN-F.
000014 01 REC1.
000015 02 IN-R PIC X(80).
000016 02 K1 PIC X(4).
000017 END PROGRAM P2871.
P2871.cob (8) : JMN2871I-S PASSWORD句のデータ名は,作業場所節,局所記憶節,連絡節または定数節に定義されていなければなりません.
P2871.cob (8) : JMN1477I-I このシステムでは,'PASSWORD'は注釈扱いです. GIVING指定は,OSIV系システムの固有機能です.