例題
[P2840.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2840. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IXFILE1 ASSIGN TO I-SYS001 000007 RECORD KEY IS RKEY1 RKEY2 000008 NOMINAL KEY IS AKEY 000009 . 000010 I-O-CONTROL. 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IXFILE1. 000014 01 IXF1REC. 000015 02 RKEY1 PIC X(8). 000016 02 RKEY2 PIC X(8). 000017 02 PIC X(80). 000018 WORKING-STORAGE SECTION. 000019 01 AKEY PIC X(8). 000020 PROCEDURE DIVISION. 000021 END PROGRAM P2840.
P2840.cob 6: JMN1481I-E 'インデックスつき編成ファイル'はMSPまたはXSPシステムの固有機能です.
P2840.cob 7: JMN2840I-S インデックスつき編成ファイルのRECORD KEY句には,データ名を二つ以上指定できません.最初のデータ名以外は,無効になります.
P2840.cob 8: JMN1481I-E 'NOMINAL KEY'はMSPまたはXSPシステムの固有機能です.
詳細な説明
インデックスつき編成ファイル(ASSIGN句のファイル識別名がI-名前)は,OSIV系システムの固有機能です.