Eingabe:
SAM-Datei PERS.TA auf Band
Ausgabe:
ISAM-Datei PERS.TAB
Der ISAM-Satzschlüssel wird mit dem Satzzähler aufgebaut.
Die Ausgabesätze werden umstrukturiert.Ausgabe auf SYSLST
Für die Druckausgabe werden alle Sätze ausgewählt, in denen in Spalte 29 beginnend, C’MUENCHEN’ steht.
Ablaufprotokoll:
/EXPORT-FILE FILE=*NAME(FILE-NAME=PERS.TA) /IMPORT-FILE - &* ————————————————————————————————————————————————————————— (1) / SUPPORT=*TAPE(FILE-NAME=PERS.TA,- / VOLUME=FK0090,DEVICE-TYPE=TAPE-C4) /ADD-FILE-LINK - / FILE-NAME=PERS.TA,- / SUPPORT=*TAPE,- / LINK-NAME=IN /CREATE-FILE FILE-NAME=PERS.TAB &* ———————————————————————————————————————— (2) /ADD-FILE-LINK - / FILE-NAME=PERS.TAB,- / RECORD-FORMAT=*FIXED,RECORD-SIZE=82,- / SUPPORT=*DISK,- / LINK-NAME=OUT1 /START-PERCON &* —————————————————————————————————————————————————————————— (3) //ASSIGN-INPUT-FILE - &* —————————————————————————————————————————————————— (4) // FILE=*TAPE-FILE(NAME=PERS.TA),- // LINK-NAME=IN //ASSIGN-OUTPUT-FILE - &*—————————————————————————————————————————————————— (5) // FILE=*DISK-FILE(NAME=PERS.TAB),- // LINK-NAME=OUT1 //ASSIGN-OUTPUT-FILE - &* ————————————————————————————————————————————————— (6) // FILE=*SYSLST,- // LINK-NAME=OUT2
(1) | Die nichtkatalogisierte Banddatei PERS.TA wird mit ihren Dateieigenschaften zugewiesen. |
(2) | Die Ausgabedatei PERS.TAB wird mit ihren Dateieigenschaften zugewiesen. |
(3) | PERCON wird aufgerufen. |
(4) | Die nichtkatalogisierte Banddatei PERS.TA wird zugewiesen. |
(5) | Die Ausgabedatei PERS.TAB wird mit dem Dateikettungsnamen OUT1 zugewiesen. |
(6) | Die Druckausgabedatei wird mit dem Dateikettungsnamen OUT2 zugewiesen. |
//SET-RECORD-MAPPING - // OUTPUT-LINK-NAME=OUT1,- &* ——————————————————————————————————————————— (7) // OUTPUT-FIELDS=(- // *RECORD-COUNTER(- // LINK-NAME=OUT1,- // OUTPUT-POSITION=1,- // OUTPUT-LENGTH=8,- // OUTPUT-FORMAT=*ZONED-DECIMAL),- // '|' (OUTPUT-POSITION=10),- // *FIELD(INPUT-POSITION=5,- // INPUT-LENGTH=10,- // OUTPUT-POSITION=12),- // '|'(OUTPUT-POSITION=24),- // *FIELD(INPUT-POSITION=17,- // INPUT-LENGTH=10,- // OUTPUT-POSITION=26),- // '|'(OUTPUT-POSITION=37),- // *FIELD(INPUT-POSITION=29,- // INPUT-LENGTH=10,- // OUTPUT-POSITION=39),- // '|'(OUTPUT-POSITION=51),- // *FIELD(INPUT-POSITION=44,- // INPUT-LENGTH=20,- // OUTPUT-POSITION=53),- // '|'(OUTPUT-POSITION=75),- // *FIELD(INPUT-POSITION=69,- // INPUT-LENGTH=4,- // OUTPUT-POSITION=77),- // '|'(OUTPUT-POSITION=82)) //SELECT-INPUT-RECORDS - &* —————————————————————————————————————————————— (8) // OUTPUT-LINK-NAME=OUT2,- // CONDITION=((29,8)=C'MUENCHEN') //END &* ————————————————————————————————————————————————————————————————— (9) % DMS0DE3 TAPE WITH VSN FK0090 FOR FILE :catid:$userid.PERS.TA IS ———— (10) MOUNTED ON DEVICE AF % DMS0DE7 SAM FILE CLOSED: FILE NAME=:catid:$userid.PERS.TA, LINKNAME=IN, BLOCK COUNT=000001 ———————————————————————————————————————————— (11)
(7) | Mit der SET-RECORD-MAPPING-Anweisung werden der Satzzähler und bestimmte Felder des Eingabesatzes in den Ausgabesatz übertragen. |
(8) | Die SELECT-INPUT-RECORDS-Anweisung wählt alle Sätze aus, die ab Spalte 29 C’MUENCHEN’ enthalten. Die Sätze werden in die Druckdatei mit dem Dateikettungsnamen OUT2 übernommen. |
(9) | Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON. |
(10) | DVS-Meldung: Das Band mit der Archivnummer FK0090, auf dem die Eingabedatei steht, ist montiert. |
(11) | DVS-Meldung: Die SAM-Datei PERS.TA wurde geschlossen. |
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=IN (FILE=PERS.TA): 12 (12) % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=OUT1 (FILE=PERS.TAB): 12 % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=OUT2 : 7 % PER0031 PERCON TERMINATED NORMALLY ————————————————————————————————— (13)
(12) | PERCON-Meldungen: Die Anzahl der pro Datei übertragenen Sätze wird ausgegeben. Die Dateien werden mit dem Dateikettungsnamen und dem Dateinamen aufgeführt. |
(13) | PERCON wurde normal beendet. |
00000000 | BACH | JOHANN | MUENCHEN | BRUNNENSTR.4 | AB 1 | 00000001 | BERGER | NORBERT | MUENCHEN | TORWEG 10 | AB 2 | 00000002 | FINK | SUSANNE | NUERNBERG | RINGSTR. 11 | AB 2 | 00000003 | GROEBL | WOLFGANG | BASEL | SONNENLAENG 7 | AB 1 | 00000004 | KOLL | MONIKA | FRANKFURT | IN DER BREITE 61 | AB 3 | 00000005 | LIEDL | ERIKA | MUENCHEN | BAUMALLEE 8 | AB 1 | 00000006 | PRIES | ALFONS | MUENCHEN | TAL 4 | AB 1 | 00000007 | WAGNER | RICHARD | MUENCHEN | AM TEICH 24 | AB 3 | 00000008 | BAUER | FRANK | HAMBURG | WALDWEG 29 | AB 4 | 00000009 | HOERMANN | MORITZ | MUENCHEN | SONNENSTR. 149 | AB 4 | 00000010 | RAVEL | ROBERT | MUENCHEN | LEOPOLDSTR. 74 | AB 4 | 00000011 | SONNTAG | ELLEN | KOELN | WILHELM-BUSCH-STR. 8 | AB 4 |
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 HOERMANN MORITZ MUENCHEN SONNENSTR. 149 AB 4 RAVEL ROBERT MUENCHEN LEOPOLDSTR. 74 AB 4