埋め込みの説明
@1@ : USING.
例題
[P2912.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2912. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IXFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS WRKY1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IXFILE1. 000012 01 IXF1REC. 000013 02 WRKY1 PIC X(2). 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 WDAT PIC X(2). 000017 PROCEDURE DIVISION. 000018 START IXFILE1 000019 USING KEY EQUAL WRKY1 000020 END PROGRAM P2912.
P2912.cob 19: JMN2912I-S START文のUSING指定は,インデックスつき編成ファイル以外に指定できません.
詳細な説明
インデックスつき編成ファイル(ASSIGN句のファイル識別名がI-名前)は,OSIV系システムの固有機能です.