Eingabe:
SAM-Datei PERS.DPT.1 auf Platte
SAM-Datei PERS.DPT.2 auf Platte
Ausgabe:
ISAM-Datei PERS.DPT,RECORD-FORMAT=*FIXED,RECORD-SIZE=100 auf Platte
SAM-Datei PERS.TA,RECORD-FORMAT=*VARIABLE auf Band
Ablaufprotokoll:
/CREATE-FILE FILE-NAME=PERS.DPT &* ——————————————————————————————————————— (1) /ADD-FILE-LINK - / FILE-NAME=PERS.DPT,- / RECORD-FORMAT=*FIXED,- / RECORD-SIZE=100,- / SUPPORT=*DISK,- / LINK-NAME=OUT1,- / ACCESS-METHOD=*ISAM /CREATE-FILE - &* ———————————————————————————————————————————————————————— (2) / FILE-NAME=PERS.TA,- / SUPPORT=*TAPE(VOLUME=FK0090,DEVICE-TYPE=TAPE-C4) /ADD-FILE-LINK - / FILE-NAME=PERS.TA,- / SUPPORT=*TAPE,- / LINK-NAME=OUT2,- / ACCESS-METHOD=*SAM /START-PERCON &* ————————————————————————————————————————————————————————— (3) % PER0000 PERCON STARTED, VERSION V03.0A00 //ASSIGN-INPUT-FILE - &* ————————————————————————————————————————————————— (4) // FILE=*DISK-FILE(NAME=PERS.DPT.1),- // LINK-NAME=IN1 //ASSIGN-INPUT-FILE - &* ————————————————————————————————————————————————— (5) // FILE=*DISK-FILE(NAME=PERS.DPT.2),- // LINK-NAME=IN2 //ASSIGN-OUTPUT-FILE - &* ———————————————————————————————————————————————— (6) // FILE=*DISK-FILE(NAME=PERS.DPT),- // LINK-NAME=OUT1
(1) | Die Plattendatei PERS.DPT wird mit ihren Dateieigenschaften zugewiesen. |
(2) | Die Banddatei PERS.TA wird mit ihren Dateieigenschaften zugewiesen. |
(3) | PERCON wird aufgerufen. |
(4) | Die Eingabedatei PERS.DPT.1 wird mit dem Dateikettungsnamen IN1 zugewiesen. |
(5) | Die Eingabedatei PERS.DPT.2 wird mit dem Dateikettungsnamen IN2 zugewiesen. |
(6) | Die Ausgabedatei PERS.DPT wird mit dem Dateikettungsnamen OUT1 zugewiesen. |
//ASSIGN-OUTPUT-FILE - &* ———————————————————————————————————————————————— (7) // FILE=*TAPE-FILE(NAME=PERS.TA),- // LINK-NAME=OUT2 //SET-RECORD-MAPPING - &* ———————————————————————————————————————————————— (8) // OUTPUT-LINK-NAME=OUT1,- // OUTPUT-FIELDS=(- // *RECORD-COUNTER(- // LINK-NAME=OUT1,- // OUTPUT-POSITION=1,- // OUTPUT-LENGTH=8,- // OUTPUT-FORMAT=*ZONED-DECIMAL),- // *FIELD(- // INPUT-POSITION=5,- // INPUT-LENGTH=68,- // OUTPUT-POSITION=14,- // OUTPUT-LENGTH=68)) //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=OUT2, BLOCK COUNT=000001 ———————————————————————————————————————————— (11) % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='IN1' (FILE=:cati:$userid.PERS.DPT.1): 8 (12) % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='IN2' (FILE=:cati:$userid.PERS.DPT.2): 4 % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT1' (FILE=:cati:$userid.PERS.DPT): 12 % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT2' (FILE=:cati:$userid.PERS.TA): 12 % PER0031 PERCON TERMINATED NORMALLY ———————————————————————————————————— (13)
(7) | Die Ausgabedatei PERS.TA wird mit dem Dateikettungsnamen OUT2 zugewiesen. |
(8) | Die Werte des Satzzählers werden in die Ausgabedatei PERS.DPT übertragen. Der Satzzähler wird ab Byte 1 in der Länge von 8 Byte in gezontem Format in den Ausgabesatz übertragen. Für die ISAM-Datei PERS.DPT wird auf diese Weise der ISAM-Schlüssel erzeugt. Der Eingabesatz wird mit 68 Byte Länge ab Position 14 in den Ausgabesatz geschrieben. |
(9) | Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON. |
(10) | DVS-Meldung: Das Band für die Datei PERS.TA ist montiert. |
(11) | DVS-Meldung: Die SAM-Datei PERS.TA wurde geschlossen. |
(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