例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2136.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO VS-SYS001
000007 RESERVE NO AREA.
000008 I-O-CONTROL.
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD SQFILE1.
000012 01 SQF1REC.
000013 02 PIC X(80).
000014 WORKING-STORAGE SECTION.
000015 PROCEDURE DIVISION.
000016 END PROGRAM P2136.
P2136.cob (7) : JMN2136I-W 順ファイル(編成VSまたはAS),相対ファイルまたは索引ファイルに対してRESERVE句を指定した場合,RESERVE整数指定でなければなりません.RESERVE句は,無効になります.
詳細な説明
RESERVE AREA句は,OSIV系システムの固有機能です.