Sortieren einer ISAM-Datei

Eingabe:

SAM-Datei PERS.FILE

Ausgabe:

ISAM-Datei PERS.LIST

Ausdruck der Eingabedatei PERS.FILE

FINK        SUSANNE     NUERNBERG      RINGSTR.11               AB 2 
BACH        JOHANN      MUENCHEN       BRUNNENSTR.4             AB 1 
GROEBL      WOLFGANG    BASEL          SONNENLAENG 7            AB 1 
LIEDL       ERIKA       MUENCHEN       BAUMALLEE 8              AB 1 
WAGNER      RICHARD     MUENCHEN       AM TEICH 24              AB 3 
BERGER      NORBERT     MUENCHEN       TORWEG 10                AB 2 
PRIES       ALFONS      MUENCHEN       TAL 4                    AB 1 
KOLL        MONIKA      FRANKFURT      IN DER BREITE 61         AB 3 

Ablaufprotokoll:

/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)	Die Ausgabedatei PERS.LIST wird mit einem CREATE-FILE-Kommando eingerichtet und mit ihren Dateieigenschaften über ein ADD-FILE-LINK-Kommando zugewiesen.
(2)	PERCON wird aufgerufen.
(3)	Die Eingabedatei PERS.FILE wird zugewiesen.
(4)	Die Ausgabedatei PERS.LIST wird mit ihren Dateieigenschaften zugewiesen.
(5)	Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON.
(6)	PERCON-Meldungen: Die Anzahl der pro Datei übertragenen Sätze wird ausgegeben. Die Dateien werden mit dem Dateikettungsnamen und dem Dateinamen aufgeführt.
(7)	PERCON wurde normal beendet.

Ausdruck der Ausgabedatei PERS.LIST

BACH        JOHANN      MUENCHEN       BRUNNENSTR.4             AB 1 
BERGER      NORBERT     MUENCHEN       TORWEG 10                AB 2 
FINK        SUSANNE     NUERNBERG      RINGSTR.11               AB 2 
GROEBL      WOLFGANG    BASEL          SONNENLAENG 7            AB 1 
KOLL        MONIKA      FRANKFURT      IN DER BREITE 61         AB 3 
LIEDL       ERIKA       MUENCHEN       BAUMALLEE 8              AB 1 
PRIES       ALFONS      MUENCHEN       TAL 4                    AB 1 
WAGNER      RICHARD     MUENCHEN       AM TEICH 24              AB 3