Ausgeben von Sätzen in eine Restdatei

Aus einer Datei sind alle Sätze mit den Orts-Angaben „MUENCHEN“ in die Datei PERS.MUENCHEN und „NUERNBERG“ in die Datei PERS.NUERNBERG zu übernehmen. Die restlichen Sätze sind in die Datei REST-DER-WELT zu bringen. Als Eingabedatei wird die Datei PERS.DPT.1 verwendet.

Ablaufprotokoll:

/CREATE-FILE FILE-NAME=PERS.MUENCHEN &*——————————————————————————————————  (1)
/ADD-FILE-LINK -
/   FILE-NAME=PERS.MUENCHEN,SUPPORT=*DISK,-
/   LINK-NAME=OUT1,ACCESS-METHOD=*SAM
/CREATE-FILE FILE-NAME=PERS.NUERNBERG
/ADD-FILE-LINK -
/   FILE-NAME=PERS.NUERNBERG,SUPPORT=*DISK,-
/   LINK-NAME=OUT2,ACCESS-METHOD=*SAM
/CREATE-FILE FILE-NAME=REST-DER-WELT
/ADD-FILE-LINK -
/   FILE-NAME=REST-DER-WELT,SUPPORT=*DISK,-
/   LINK-NAME=OUT3,ACCESS-METHOD=*SAM
/START-PERCON &*—————————————————————————————————————————————————————————  (2)
%  PER0000 PERCON STARTED, VERSION V03.0A00
//ASSIGN-INPUT-FILE - &*—————————————————————————————————————————————————  (3)
//   FILE=*DISK-FILE(NAME=PERS.DPT.1),- 
//   LINK-NAME=IN1
//ASSIGN-OUTPUT-FILE - &*————————————————————————————————————————————————  (4)
//   FILE=*DISK-FILE(NAME=PERS.MUENCHEN),-
//   LINK-NAME=OUT1
//ASSIGN-OUTPUT-FILE - &*————————————————————————————————————————————————  (5)
//   FILE=*DISK-FILE(NAME=PERS.NUERNBERG),- 
//   LINK-NAME=OUT2
//ASSIGN-OUTPUT-FILE - &*————————————————————————————————————————————————  (6)
//   FILE=*DISK-FILE(NAME=REST-DER-WELT),-
//   LINK-NAME=OUT3
//SELECT-INPUT-RECORDS - &*——————————————————————————————————————————————  (7)
//   OUTPUT-LINK-NAME=OUT1,-
//   CONDITION=((29,9)='MUENCHEN ') 

(1)	Die drei Ausgabedateien werden  angelegt und ihren Datei-Eigenschaften mittels Kommando /ADD-FILE-LINK vereinbart.
(2)	PERCON wird aufgerufen.
(3)	Die Eingabedatei PERS.DPT.1 wird mit dem Dateikettungsnamen IN1 zugewiesen.
(4)	Die Ausgabedatei PERS.MUENCHEN wird mit dem Dateikettungsnamen OUT1 zugewiesen.
(5)	Die Ausgabedatei PERS.NUERNBERG wird mit dem Dateikettungsnamen OUT2 zugewiesen.
(6)	Die Ausgabedatei REST-DER-WELT wird mit dem Dateikettungsnamen OUT3 zugewiesen.
(7)	Die Anweisung SELECT-INPUT-RECORDS wählt alle Sätze aus, die ab Spalte 29 die Angabe C'MUENCHEN ' enthalten. Die Sätze werden in die Ausgabedatei mit dem Dateikettungsnamen OUT1 übernommen.

//SELECT-INPUT-RECORDS - &*——————————————————————————————————————————————  (8)
//   OUTPUT-LINK-NAME=OUT2,-
//   CONDITION=((29,9)='NUERNBERG')
//SELECT-INPUT-RECORDS - &*——————————————————————————————————————————————  (9)
//   OUTPUT-LINK-NAME=OUT3,-
//   CONDITION=*REMAINING-RECORDS
//END &* ———————————————————————————————————————————————————————————————— (10)
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='IN1'                     (11)
           (FILE=:2OS6:$WKST.PERS.DPT.1):                   8
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT1' 
           (FILE=:2OS6:$WKST.PERS.MUENCHEN):                   5
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT2' 
           (FILE=:2OS6:$WKST.PERS.NUERNBERG):                   1
%  PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT3' 
           (FILE=:2OS6:$WKST.REST-DER-WELT):                   2
%  PER0031 PERCON TERMINATED NORMALLY ——————————————————————————————————— (12)

(8)	Die Anweisung SELECT-INPUT-RECORDS wählt alle Sätze aus, die ab Spalte 29 die Angabe C'NUERNBERG' enthalten. Die Sätze werden in die Ausgabedatei mit dem Dateikettungsnamen OUT2 übernommen.
(9)	Die Anweisung SELECT-INPUT-RECORDS bestimmt die Datei mit dem Dateikettungsnamen OUT3 als Restdatei, d.h. in diese Datei werden alle Eingabesätze übernommen, die ab Spalte 29 weder die Angabe C'MUENCHEN ' noch C'NUERNBERG' enthalten.
(10)	Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON. Dabei werden die Sätze, die in keine der beiden Ausgabedateien mit den Dateikettungsnamen OUT1 und OUT2 ausgegeben werden, in die Ausgabedatei mit dem Dateikettungsnamen OUT3 übernommen.
(11)	PERCON-Meldungen: Die Anzahl der pro Datei übertragenen Sätze wird ausgegeben.
(12)	PERCON wurde normal beendet.

Ausdruck der Datei PERS.MUENCHEN

BACH        JOHANN      MUENCHEN       BRUNNENSTR.4             AB 1
BERGER      NORBERT     MUENCHEN       TORWEG 10                AB 2
LIEDL       ERIKA       MUENCHEN       BAUMALLEE 8              AB 1
PRIES       ALFONS      MUENCHEN       TAL 4                    AB 1
WAGNER      RICHARD     MUENCHEN       AM TEICH 24              AB 3

Ausdruck der Datei PERS.NUERNBERG

FINK        SUSANNE     NUERNBERG      RINGSTR. 11              AB 2 

Ausdruck der Datei REST-DER-WELT

GROEBL      WOLFGANG    BASEL          SONNENLAENG 7            AB 1
KOLL        MONIKA      FRANKFURT      IN DER BREITE 61         AB 3