Eingabe: ISAM-Datei PERS.TAB
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 |
Ausgabe: SAM-Datei PERS.CONV, mit umgesetztem Code
Umsetztabelle
Diese Tabelle wird als Assemblerquellprogramm mit Konstantendefinition erstellt und mit dem Assembler-Compiler übersetzt.
TRANS START TRANS AMODE ANY TRANS RMODE ANY DC X'000102030405060708090A0B0C0D0E0F' DC X'101112131415161718191A1B1C1D1E1F' DC X'202122232425262728292A2B2C2D2E2F' DC X'303132333435363738393A3B3C3D3E3F' DC X'404142434445464748494A4B4C4D4E5C' DC X'505152535455565758595A5B4F5D5E5F' DC X'606162636465666768696A6B6C6D6E6F' DC X'707172737475767778797A7B7C7D7E7F' DC X'808182838485868788898A8B8C8D8E8F' DC X'909192939495969798999A9B9C9D9E9F' DC X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF' DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' END TRANS
Die Übersetzung der Tabelle ist der Bindemodul TRANS. Er wird in eine mit LMS erstellte Bindemodulbibliothek TRANS.LIB gebracht. PERCON greift auf den Bindemodul TRANS als Element der Bibliothek TRANS.LIB zu und benutzt TRANS als Code-Umsetztabelle. Vor dem PERCON-Aufruf muss deshalb die Bibliothek TRANS.LIB dem Betriebssystem als TASKLIB bekannt gegeben (zugewiesen) werden.
Ablaufprotokoll:
/SET-TASKLIB LIBRARY=TRANS.LIB —————————————————————————————————————————— (1) /CREATE-FILE FILE-NAME=PERS.CONV,- —————————————————————————————————————— (2) / SUPPORT=*TAPE(VOLUME=FK0090,DEVICE-TYPE=TAPE-C4) /ADD-FILE-LINK FILE-NAME=PERS.CONV,- / LINK-NAME=AUS,- / SUPPORT=*TAPE,- / ACCESS-METHOD=*SAM,- / BUFFER-LENGTH=2048 /START-PERCON ——————————————————————————————————————————————————————————— (3) % PER0000 PERCON STARTED, VERSION V03.0A00 //ASSIGN-INPUT-FILE FILE=*DISK-FILE(NAME=PERS.TAB) —————————————————————— (4) //ASSIGN-OUTPUT-FILE FILE=*TAPE-FILE(NAME=PERS.CONV,- ——————————————————— (5) // CODE-TRANSLATION=*MODULE(NAME=TRANS)),- // LINK-NAME=AUS //END ——————————————————————————————————————————————————————————————————— (6) % DMS0DE3 TAPE WITH VSN FK0090 FOR FILE :catid:$userid.PERS.CONV IS ———— (7) MOUNTED ON DEVICE AF % DMS0DE7 SAM FILE CLOSED: FILE NAME=:catid:$userid.PERS.CONV, LINKNAME=AUS, BLOCK COUNT=000001 ——————————————————————————————————————————— (8) % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=PCIN (FILE=PERS.TAB): 12 (9) % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK=AUS (FILE=PERS.CONV): 12 % PER0031 PERCON TERMINATED NORMALLY ———————————————————————————————————— (10)
(1) | Die Bibliothek TRANS.LIB wird als TASKLIB zugewiesen. In dieser Bibliothek steht die Code-Umsetztabelle TRANS als Bindemodul. |
(2) | Die Ausgabedatei PERS.CONV wird mit ihren Dateieigenschaften zugewiesen. |
(3) | PERCON wird aufgerufen. |
(4) | Die Eingabedatei PERS.TAB wird zugewiesen. |
(5) | Die Ausgabedatei PERS.CONV wird zugewiesen. CODE-TRANSLATION= *MODULE(NAME=TRANS) bedeutet, dass die Code-Umsetztabelle, mit deren Code die Ausgabedatei geschrieben werden soll, im Bindemodul TRANS (Modulname) steht. |
(6) | Die END-Anweisung startet den Übertragungsvorgang und beendet PERCON. |
(7) | DVS-Meldung: Das Band ist für die Ausgabedatei PERS.CONV montiert. |
(8) | DVS-Meldung: Die SAM-Datei PERS.CONV wurde geschlossen. |
(9) | PERCON-Meldungen: Die Anzahl der pro Datei übertragenen Sätze wird ausgegeben. Die Dateien werden mit dem Dateikettungsnamen und dem Dateinamen aufgeführt. |
(10) | 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 *