000001************************************************************************** 000002* SORT方法 順ファイルからソート 000003************************************************************************** 000004 IDENTIFICATION DIVISION. 000005 PROGRAM-ID. testEX9. 000006* 000007 ENVIRONMENT DIVISION. 000008 INPUT-OUTPUT SECTION. 000009 FILE-CONTROL. 000010 SELECT AAFILE ASSIGN "SSA1001e.dat". 000011 SELECT BBFILE ASSIGN "SSA1001f.dat". 000012 SELECT SSFILE ASSIGN "SORT.WRK". 000013* 000014 DATA DIVISION. 000015 FILE SECTION. 000016 FD AAFILE LABEL RECORD STANDARD. 000017 01 A1REC. 000018 02 A01 PIC X(08). 000019 02 A02 PIC X(13). 000020 02 A03 PIC 9(02). 000021 02 A04 PIC 9(06). 000022 02 A05 PIC X(08). 000023 02 A06 PIC 9(02). 000024 02 A07 PIC X(13). 000025 02 A08 PIC X(06). 000026 02 A09 PIC X(04). 000027 02 A10 PIC 9(06). 000028 02 A11 PIC 9(06). 000029 02 A12 PIC S9(06)V9. 000030 02 A13 PIC S9(06)V9. 000031 02 A14 PIC S9(08)V9. 000032 02 A15 PIC S9(11). 000033 02 FILLER PIC X(20). 000034 FD BBFILE LABEL RECORD STANDARD. 000035 01 B1REC. 000036 02 B01 PIC X(08). 000037 02 B02 PIC X(13). 000038 02 B03 PIC 9(02). 000039 02 B04 PIC 9(06). 000040 02 B05 PIC X(08). 000041 02 B06 PIC 9(02). 000042 02 B07 PIC X(13). 000043 02 B08 PIC X(06). 000044 02 B09 PIC X(04). 000045 02 B10 PIC 9(06). 000046 02 B11 PIC 9(06). 000047 02 B12 PIC S9(06)V9. 000048 02 B13 PIC S9(06)V9. 000049 02 B14 PIC S9(08)V9. 000050 02 B15 PIC S9(11). 000051 02 FILLER PIC X(20). 000052 SD SSFILE. 000053 01 S1REC. 000054 02 S01 PIC X(08). 000055 02 S02 PIC X(13). 000056 02 S03 PIC 9(02). 000057 02 S04 PIC 9(06). 000058 02 S05 PIC X(08). 000059 02 S06 PIC 9(02). 000060 02 S07 PIC X(13). 000061 02 S08 PIC X(06). 000062 02 S09 PIC X(04). 000063 02 S10 PIC 9(06). 000064 02 S11 PIC 9(06). 000065 02 S12 PIC S9(06)V9. 000066 02 S13 PIC S9(06)V9. 000067 02 S14 PIC S9(08)V9. 000068 02 S15 PIC S9(11). 000069 02 FILLER PIC X(20). 000070 WORKING-STORAGE SECTION. 000071* 000072 PROCEDURE DIVISION. 000073 MAIN SECTION. 000074 IP0. 000075 SORT SSFILE 000076 ASCENDING S08 000077 USING AAFILE 000078 GIVING BBFILE. 000079 IP1. 000080 OPEN INPUT BBFILE. 000081 IP2. 000082 READ BBFILE AT END GO TO OWARI. 000083 DISPLAY B01 NO ADVANCING. 000084 DISPLAY " " NO ADVANCING. 000085 DISPLAY B08. 000086 GO TO IP2. 000087 OWARI. 000088 CLOSE BBFILE. 000089 STOP RUN. 000090