Sorting an ISAM file

Input:

SAM file PERS.FILE

Output:

ISAM file PERS.LIST

Printout of the input file PERS.FILE

FINN        SUSANNA     NORWICH        ROSE STREET 11           DPT2 
BELL        JOHN        MANCHESTER     BOLSOVER STREET 4        DPT1 
GREENE      WALTER      BURY           SINCLAIR CRESCENT 7      DPT1 
LAKER       ERICA       MANCHESTER     BANK DRIVE 8             DPT1 
WILSON      RICHARD     MANCHESTER     ACACIA AVENUE 24         DPT3 
BOTHAM      NORMAN      MANCHESTER     TOWER AVENUE 10          DPT2 
PRICE       ALFRED      MANCHESTER     THAMES ROAD 4            DPT1 
KING        MONICA      FALMOUTH       INMAN SQUARE 61          DPT3 

Tracer listing:

/CREATE-FILE FILE-NAME=PERS.LIST &* ———————————————————————————————————————  (1)
/ADD-FILE-LINK -
/   LINK-NAME=PCOUT,-
/   FILE-NAME=PERS.LIST,-
/   ACCESS-METHOD=*ISAM,-
/   SUPPORT=*DISK(ISAM-ATTRIBUTES=(KEY-POSITION=5,KEY-LENGTH=25)),-
/   OPEN-MODE=*OUTIN
/START-PERCON &* ——————————————————————————————————————————————————————————  (2)
%  PER0000 PERCON STARTED, VERSION V03.0A00
//ASSIGN-INPUT-FILE - &* ——————————————————————————————————————————————————  (3)
//   FILE=*DISK-FILE(NAME=PERS.FILE)
//ASSIGN-OUTPUT-FILE - &* —————————————————————————————————————————————————  (4)
//   FILE=*DISK-FILE(OVERWRITE=*YES),-
//   LINK-NAME=PCOUT
//END &* ——————————————————————————————————————————————————————————————————  (5)
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=PCIN (FILE=PERS.FILE): 8     (6)
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=PCOUT (FILE=PERS.LIST): 8
%  PER0031 PERCON TERMINATED NORMALLY —————————————————————————————————————  (7) 

(1)	The output file PERS.LIST is created via a CREATE-FILE command and assigned with its file attributes by means of a ADD-FILE-LINK command.
(2)	PERCON is called.
(3)	The input file PERS.FILE is assigned.
(4)	The output file PERS.LIST is assigned with its file attributes.
(5)	The END statement starts the transfer operation and terminates PERCON.
(6)	PERCON messages: the number of records transferred per file is output. The files are listed with their link and file names.
(7)	PERCON was terminated normally.

Printout of the output file PERS.LIST

BELL         JOHN       MANCHESTER    BOLSOVER STREET 4      DPT1 
BOTHAM       NORMAN     MANCHESTER    TOWER AVENUE 10        DPT2 
FINN         SUSANNA    NORWICH       ROSE STREET 11         DPT2 
GREENE       WALTER     BURY          SINCLAIR CRESCENT 7    DPT1 
KING         MONICA     FALMOUTH      INMAN SQUARE 61        DPT3 
LAKER        ERICA      MANCHESTER    BANK DRIVE 8           DPT1 
PRICE        ALFRED     MANCHESTER    THAMES ROAD 4          DPT1 
WILSON       RICHARD    MANCHESTER    ACACIA AVENUE 24       DPT3