例
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系システム固有の機能です.