Loading...
Select Version
&pagelevel(3)&pagelevel
Eingabe:
Band mit der Archivnummer FK0090
Ausgabe:
Ausgeben des ersten Blocks des Bandes im Zeichenmodus nach SYSOUT
Ausgeben des ersten Blocks im Hexadezimalmodus nach SYSLST
Ablaufprotokoll:
/START-PERCON ————————————————————————————————————————————————————————— (1) % PER0000 PERCON STARTED, VERSION V03.0A00 //ASSIGN-INPUT-TAPE VOLUME=FK0090 ————————————————————————————————————— (2) % DMS0DE3 TAPE WITH VSN FK0090 FOR FILE :catid:$userid.PERCON. TPWORK.D.2076.VS0001 IS MOUNTED ON DEVICE AF //ASSIGN-OUTPUT-FILE FILE=*SYSOUT,- ——————————————————————————————————— (3) // LINK-NAME=OUT1 //ASSIGN-OUTPUT-FILE FILE=*SYSLST,- ——————————————————————————————————— (4) // LINK-NAME=OUT2 //SET-PAGE-LAYOUT OUTPUT-LINK-NAME=OUT1,- ————————————————————————————— (5) // OUTPUT-FORMAT=*CHARACTER,- // LINE-SIZE=65 //CHANGE-INPUT-TAPEPOSITION DIRECTION=*FORWARD(DESTINATION=*TAPE-MARKS- (6) // (TAPE-MARKS=1))
(1) | PERCON wird aufgerufen. |
(2) | Das Eingabeband mit der Archivnummer FK0090 wird zugewiesen. |
(3) | SYSOUT wird als Ausgabemedium mit dem Dateikettungsnamen OUT1 zugewiesen. |
(4) | SYSLST wird als Ausgabemedium mit dem Dateikettungsnamen OUT2 zugewiesen. |
(5) | Für die Ausgabe nach SYSOUT wird der Zeichenmodus und die Anzahl der aufzubereitenden Zeichen pro Zeile festgelegt. |
(6) | Hiermit werden Kennsätze übergangen. |
//START-TAPE-PROCESSING INPUT-RANGE=*BLOCKS(BLOCKS=1) ——————————————————— (7) TMCNT: 001 BLOCK: 0000000001 ————————————————————————————— (8) (000000) 0976008100000000 * BACH * JOHANN * MUENCHEN * BRUNNENSTR (000065) .4 * AB 1 *008100000001 * BERGER * NORBERT * MUENCHE (000130) N * TORWEG 10 * AB 2 *008100000002 * FINK * SUS (000195) ANNE * NUERNBERG * RINGSTR. 11 * AB 2 *008100000003 (000260) * GROEBL * WOLFGANG * BASEL * SONNENLAENG 7 * AB (000325) 1 *008100000004 * KOLL * MONIKA * FRANKFURT * IN DER BREI (000390) TE 61 * AB 3 *008100000005 * LIEDL * ERIKA * MUENCHEN (000455) * BAUMALLEE 8 * AB 1 *008100000006 * PRIES * ALFO (000520) NS * MUENCHEN * TAL 4 * AB 1 *008100000007 * (000585) WAGNER * RICHARD * MUENCHEN * AM TEICH 24 * AB 3 (000650) *008100000008 * BAUER * FRANK * HAMBURG * WALDWEG 29 (000715) * AB 4 *008100000009 * HOERMANN * MORITZ * MUENCHEN (000780) * SONNENSTR. 149 * AB 4 *008100000010 * RAVEL * ROBER (000845) T * MUENCHEN * LEOPOLDSTR. 74 * AB 4 *008100000011 * (000910) SONNTAG * ELLEN * KOELN * WILHELM-BUSCH-STR. 8 * AB 4 (000975) * //END ———————————————————————————————————————————————————————————————————— (9) % PER0029 NUMBER OF PROCESSED BLOCKS FOR LINK='PCIN': 1 (10) % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT1' : 1 % PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='OUT2' : 1 % PER0031 PERCON TERMINATED NORMALLY ————————————————————————————————————— (11)
(7) | Ein Block des Eingabebandes wird auf die zugewiesenen Ausgabemedien ausgegeben. |
(8) | Ausgabe nach SYSOUT: Vor den Daten werden die aktuellen Werte des Bandmarkenzählers TMCNT und des Blockzählers ausgegeben. Den Datenzeilen sind die aktuellen Werte des Bytezählers BYTCNT vorangestellt. |
(9) | Die END-Anweisung beendet PERCON. |
(10) | PERCON-Meldungen: Die Anzahl der für jedes Ein- und Ausgabemedium übertragenen Blöcke wird ausgegeben. |
(11) | PERCON wurde normal beendet. |
Ausgabe auf Drucker
PERCON DATE 2022-03-31 TIME 09:51:48 PAGE 1
TMC BLKCNT BYTCNT D A T E N
0 9 7 6 0 0 8 1 0 0 0 0 0 0 0 0 * B A C H * J O H A N N * M U E N C H E N
001 0000000001 (000) F0F9F7F6F0F0F8F1F0F0 F0F0F0F0F0F0405C40C2 C1C3C840404040405C40 D1D6C8C1D5D540404040 5C40D4E4C5D5C3C8C5D5
* B R U N N E N S T R . 4 * A B 1 * 0 0 8 1 0 0 0 0 0 0 0 1 *
(000050) 4040405C40C2D9E4D5D5 C5D5E2E3D94BF4404040 404040404040405C40C1 C240F1405CF0F0F8F1F0 F0F0F0F0F0F0F1405C40
B E R G E R * N O R B E R T * M U E N C H E N * T O R W E G 1 0
(000100) C2C5D9C7C5D94040405C 40D5D6D9C2C5D9E34040 405C40D4E4C5D5C3C8C5 D54040405C40E3D6D9E6 C5C740F1F04040404040
* A B 2 * 0 0 8 1 0 0 0 0 0 0 0 2 * F I N K * S U S A N N E
(000150) 40404040404040405C40 C1C240F2405CF0F0F8F1 F0F0F0F0F0F0F0F2405C 40C6C9D5D24040404040 5C40E2E4E2C1D5D5C540
* N U E R N B E R G * R I N G S T R . 1 1 * A B 2 * 0 0 8
(000200) 40405C40D5E4C5D9D5C2 C5D9C740405C40D9C9D5 C7E2E3D94B40F1F14040 4040404040404040405C 40C1C240F2405CF0F0F8
1 0 0 0 0 0 0 0 3 * G R O E B L * W O L F G A N G * B A S E L * S O
(000250) F1F0F0F0F0F0F0F0F340 5C40C7D9D6C5C2D34040 405C40E6D6D3C6C7C1D5 C740405C40C2C1E2C5D3 4040404040405C40E2D6
N N E N L A E N G 7 * A B 1 * 0 0 8 1 0 0 0 0 0 0 0 4 * K O L L
(000300) D5D5C5D5D3C1C5D5C740 F7404040404040404040 5C40C1C240F1405CF0F0 F8F1F0F0F0F0F0F0F0F4 405C40D2D6D3D3404040
* M O N I K A * F R A N K F U R T * I N D E R B R E I T E 6 1
(000350) 40405C40D4D6D5C9D2C1 404040405C40C6D9C1D5 D2C6E4D9E340405C40C9 D540C4C5D940C2D9C5C9 E3C540F6F14040404040
* A B 3 * 0 0 8 1 0 0 0 0 0 0 0 5 * L I E D L * E R I K A * M U E
(000400) 405C40C1C240F3405CF0 F0F8F1F0F0F0F0F0F0F0 F5405C40D3C9C5C4D340 4040405C40C5D9C9D2C1 40404040405C40D4E4C5
N C H E N * B A U M A L L E E 8 * A B 1 * 0 0 8 1 0 0 0 0 0 0
(000450) D5C3C8C5D54040405C40 C2C1E4D4C1D3D3C5C540 F8404040404040404040 40405C40C1C240F1405C F0F0F8F1F0F0F0F0F0F0
0 6 * P R I E S * A L F O N S * M U E N C H E N * T A L 4
(000500) F0F6405C40D7D9C9C5E2 404040405C40C1D3C6D6 D5E2404040405C40D4E4 C5D5C3C8C5D54040405C 40E3C1D340F440404040
* A B 1 * 0 0 8 1 0 0 0 0 0 0 0 7 * W A G N E R * R I C
(000550) 40404040404040404040 4040405C40C1C240F140 5CF0F0F8F1F0F0F0F0F0 F0F0F7405C40E6C1C7D5 C5D94040405C40D9C9C3
H A R D * M U E N C H E N * A M T E I C H 2 4 * A B 3
(000600) C8C1D9C44040405C40D4 E4C5D5C3C8C5D5404040 5C40C1D440E3C5C9C3C8 40F2F440404040404040 404040405C40C1C240F3
* 0 0 8 1 0 0 0 0 0 0 0 8 * B A U E R * F R A N K * H A M B U R G
(000650) 405CF0F0F8F1F0F0F0F0 F0F0F0F8405C40C2C1E4 C5D9404040405C40C6D9 C1D5D240404040405C40 C8C1D4C2E4D9C7404040
* W A L D W E G 2 9 * A B 4 * 0 0 8 1 0 0 0 0 0 0 0 9 * H O
(000700) 405C40E6C1D3C4E6C5C7 40F2F940404040404040 40404040405C40C1C240 F4405CF0F0F8F1F0F0F0 F0F0F0F0F9405C40C8D6
E R M A N N * M O R I T Z * M U E N C H E N * S O N N E N S T R . 1 4 9
(000750) C5D9D4C1D5D5405C40D4 D6D9C9E3E9404040405C 40D4E4C5D5C3C8C5D540 40405C40E2D6D5D5C5D5 E2E3D94B40F1F4F94040
* A B 4 * 0 0 8 1 0 0 0 0 0 0 1 0 * R A V E L * R O B E R T
(000800) 4040404040405C40C1C2 40F4405CF0F0F8F1F0F0 F0F0F0F0F1F0405C40D9 C1E5C5D3404040405C40 D9D6C2C5D9E340404040
* M U E N C H E N * L E O P O L D S T R . 7 4 * A B 4 * 0 0 8 1 0
(000850) 5C40D4E4C5D5C3C8C5D5 4040405C40D3C5D6D7D6 D3C4E2E3D94B40F7F440 404040404040405C40C1 C240F4405CF0F0F8F1F0
0 0 0 0 0 1 1 * S O N N T A G * E L L E N * K O E L N * W I L H
(000900) F0F0F0F0F0F1F1405C40 E2D6D5D5E3C1C740405C 40C5D3D3C5D540404040 405C40D2D6C5D3D54040 404040405C40E6C9D3C8
E L M - B U S C H - S T R . 8 * A B 4 *
(000950) C5D3D460C2E4E2C3C860 E2E3D94B40F840405C40 C1C240F4405C