例題
[P2397.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2397. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL 000008 FILE STATUS IS WFS1 WFS2. 000009 I-O-CONTROL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD SQFILE1. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 WFS1 PIC X(2). 000017 01 WFS2 PIC X(2). 000018 PROCEDURE DIVISION. 000019 END PROGRAM P2397.
P2397.cob 8: JMN2397I-S FILE STATUS句の詳細情報を示すデータ名は,表示ファイル(編成GS),FORMAT句指定の印刷ファイル,順ファイル(編成ASまたはVS),相対ファイルまたは索引ファイルにのみ指定することができます.
詳細な説明
FILE STATUS句の2個めで指定するデータ名が,詳細情報を示すデータ名です.所定のファイルでだけ,詳細情報となるデータ項目を同句で指定できます.
なお,編成ASまたはVSの順ファイルは,OSIV系システム固有の機能です.