引数の説明
STD |
RANDOM,DYNAMIC |
例
000001 @OPTIONS FLAGSW(STDM)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID. P9391.
000004 ENVIRONMENT DIVISION.
000005 INPUT-OUTPUT SECTION.
000006 FILE-CONTROL.
000007 SELECT INFILE
000008 ASSIGN TO IND
000009 ORGANIZATION IS INDEXED
000010 RECORD KEY IS REC01
000011 ACCESS MODE IS RANDOM.
000012 DATA DIVISION.
000013 FILE SECTION.
000014 FD INFILE.
000015 01 REC01 PIC 9(5).
000016 01 REC02 PIC 9(5).
000017 PROCEDURE DIVISION.
000018 P-START.
000019 OPEN INPUT INFILE.
000020 CLOSE INFILE.
000021 STOP RUN.
P9391.cob (14) : JMN9391I-W (STD)ACCESS MODE句中のRANDOMは共通範囲外です.処理を続行します.