例題
[P2864.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2864. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO R-SYS001 000007 RELATIVE KEY IS RKEY 000008 ACCESS MODE IS RANDOM. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1 000012 RECORD VARYING IN SIZE 000013 DEPENDING ON LRECL. 000014 01 SQF1REC. 000015 02 PIC X(80). 000016 WORKING-STORAGE SECTION. 000017 01 RKEY PIC 9(8) BINARY. 000018 01 LRECL PIC 9(8) BINARY. 000019 PROCEDURE DIVISION. 000020 END PROGRAM P2864.
P2864.cob 12: JMN2864I-S VARYING指定のRECORD句は,相対編成ファイルに指定できません.
詳細な説明
相対編成ファイル(ASSIGN句のファイル識別名がR-名前)は,OSIV系システムの固有機能です.