000001************************************************************************** 000002* キー(二次キー)を指定し順読み出し 000003************************************************************************** 000004 IDENTIFICATION DIVISION. 000005 PROGRAM-ID. testEX5. 000006* 000007 ENVIRONMENT DIVISION. 000008 INPUT-OUTPUT SECTION. 000009 FILE-CONTROL. 000010 SELECT AAFILE ASSIGN "SSA1001b.dat" 000011 ORGANIZATION INDEXED 000012 ACCESS MODE DYNAMIC 000013 RECORD KEY A01 000014 ALTERNATE RECORD KEY A08 WITH DUPLICATES. 000015* 000016 DATA DIVISION. 000017 FILE SECTION. 000018 FD AAFILE LABEL RECORD STANDARD. 000019 01 A1REC. 000020 02 A01 PIC X(08). 000021 02 A02 PIC X(13). 000022 02 A03 PIC 9(02). 000023 02 A04 PIC 9(06). 000024 02 A05 PIC X(08). 000025 02 A06 PIC 9(02). 000026 02 A07 PIC X(13). 000027 02 A08 PIC X(06). 000028 02 A09 PIC X(04). 000029 02 A10 PIC 9(06). 000030 02 A11 PIC 9(06). 000031 02 A12 PIC S9(06)V9. 000032 02 A13 PIC S9(06)V9. 000033 02 A14 PIC S9(08)V9. 000034 02 A15 PIC S9(11). 000035 02 FILLER PIC X(20). 000036 WORKING-STORAGE SECTION. 000037* 000038 PROCEDURE DIVISION. 000039 MAIN SECTION. 000040 IP0. 000041 OPEN INPUT AAFILE. 000042 IP2. 000043 DISPLAY "KEY INPIT " WITH NO ADVANCING. 000044 ACCEPT A08. 000045 IF A08 = 0 GO TO OWARI. 000046 READ AAFILE KEY IS A08 000047 INVALID DISPLAY "ERR " 000048 NOT INVALID DISPLAY A01 NO ADVANCING 000049 DISPLAY " " NO ADVANCING 000050 DISPLAY A08 000051 END-READ. 000052 GO TO IP2. 000053 OWARI. 000054 CLOSE AAFILE. 000055 STOP RUN. 000056