Loading...
Select Version
&pagelevel(3)&pagelevel
Input:
Tape with the volume serial number FK0090
Output:
Output of the first block of the tape to SYSOUT (in character mode)
Output of the first block to SYSLST (in hexadecimal mode)
Tracer listing:
/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 is called. |
(2) | The input tape with the VSN BD0002 is assigned. |
(3) | SYSOUT is assigned as the output medium with the link name OUT1. |
(4) | SYSLST is assigned as the output medium with the link name OUT2. |
(5) | Character mode and the number of characters to be edited per line for output to SYSOUT are defined. |
(6) | This statement means that labels are skipped. |
//START-TAPE-PROCESSING INPUT-RANGE=*BLOCKS(BLOCKS=1) ————————————————————— (7) TMCNT: 001 BLOCK: 0000000001 ——————————————————————————————— (8) (000000) 0976008100000000 * BELL * JOHN * MANCHESTER * BOLSOVER S (000065) TREET 4 * DPT1 *008100000001 * BOTHAM * NORMAN * MANCHES (000130) TER * TOWER AVENUE 10 * DPT2 *008100000002 * FINN * SU (000195) SANNA * NORWICH * ROSE STREET 11 * DPT2 *008100000003 (000260) * GREENE * WALTER * BURY * SINCLAIR CRESCENT 7 * DPT (000325) 1 *008100000004 * KING * MONICA * FALMOUTH * INMAN SQUAR (000390) E 61 * DPT3 *008100000005 * LAKER * ERICA * MANCHEST (000455) ER * BANK DRIVE 8 * DPT1 *008100000006 * PRICE * ALF (000520) RED * MANCHESTER * THAMES ROAD 4 * DPT1 *008100000007 * (000585) WILSON * RICHARD * MANCHESTER * ACACIA AVENUE 24 * DPT3 (000650) *008100000008 * BATES * FRANK * HULL * WOOD STREET (000715) 29 * DPT4 *008100000009 * HARRISON * MAURICE * MANCHESTE (000780) R * SINCLAIR STREET 149 * DPT4 *008100000010 * ROYCE * ROBE (000845) RT * MANCHESTER * LION'S GATE 74 * DPT4 *008100000011 * (000910) SIMPSON * ELLEN * KINGS LYNN * WILLOUGHBY STREET 8 * DPT4 (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) | A block of the input tape is output to the assigned output media. |
(8) | Output to SYSOUT: The current values of the tape mark counter TMCNT and the block counter are output prior to the data. The current values of the byte counter BYTCNT precede the data lines. |
(9) | The END statement terminates PERCON. |
(10) | PERCON messages specifying the number of blocks transferred for each input/output medium. |
(11) | PERCON is terminated normally. |
output to printer
PERCON DATE 2022-03-31 TIME 10:41: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 E L L * J O H N * M A N C H E S T
001 0000000001 (000) F0F9F7F6F0F0F8F1F0F0 F0F0F0F0F0F0405C40C2 C5D3D34040404040405C 40D1D6C8D54040404040 5C40D4C1D5C3C8C5E2E3
E R * B O L S O V E R S T R E E T 4 * D P T 1 * 0 0 8 1 0 0 0 0 0 0 0 1 *
(000050) C5D9405C40C2D6D3E2D6 E5C5D940E2E3D9C5C5E3 40F440404040405C40C4 D7E3F1405CF0F0F8F1F0 F0F0F0F0F0F0F1405C40
B O T H A M * N O R M A N * M A N C H E S T E R * T O W E R A V E N U E 1
(000100) C2D6E3C8C1D440404040 5C40D5D6D9D4C1D54040 405C40D4C1D5C3C8C5E2 E3C5D9405C40E3D6E6C5 D940C1E5C5D5E4C540F1
0 * D P T 2 * 0 0 8 1 0 0 0 0 0 0 0 2 * F I N N * S U S A N N A
(000150) F0404040404040405C40 C4D7E3F2405CF0F0F8F1 F0F0F0F0F0F0F0F2405C 40C6C9D5D54040404040 405C40E2E4E2C1D5D5C1
* N O R W I C H * R O S E S T R E E T 1 1 * D P T 2 * 0 0 8
(000200) 40405C40D5D6D9E6C9C3 C8404040405C40D9D6E2 C540E2E3D9C5C5E340F1 F140404040404040405C 40C4D7E3F2405CF0F0F8
1 0 0 0 0 0 0 0 3 * G R E E N E * W A L T E R * B U R Y * S I
(000250) F1F0F0F0F0F0F0F0F340 5C40C7D9C5C5D5C54040 40405C40E6C1D3E3C5D9 4040405C40C2E4D9E840 4040404040405C40E2C9
N C L A I R C R E S C E N T 7 * D P T 1 * 0 0 8 1 0 0 0 0 0 0 0 4 * K I N G
(000300) D5C3D3C1C9D940C3D9C5 E2C3C5D5E340F7404040 5C40C4D7E3F1405CF0F0 F8F1F0F0F0F0F0F0F0F4 405C40D2C9D5C7404040
* M O N I C A * F A L M O U T H * I N M A N S Q U A R E 6 1
(000350) 4040405C40D4D6D5C9C3 C14040405C40C6C1D3D4 D6E4E3C84040405C40C9 D5D4C1D540E2D8E4C1D9 C540F6F1404040404040
* D P T 3 * 0 0 8 1 0 0 0 0 0 0 0 5 * L A K E R * E R I C A * M A N
(000400) 405C40C4D7E3F3405CF0 F0F8F1F0F0F0F0F0F0F0 F5405C40D3C1D2C5D940 404040405C40C5D9C9C3 C1404040405C40D4C1D5
C H E S T E R * B A N K D R I V E 8 * D P T 1 * 0 0 8 1 0 0 0 0 0 0
(000450) C3C8C5E2E3C5D9405C40 C2C1D5D240C4D9C9E5C5 40F84040404040404040 40405C40C4D7E3F1405C F0F0F8F1F0F0F0F0F0F0
0 6 * P R I C E * A L F R E D * M A N C H E S T E R * T H A M E S R O
(000500) F0F6405C40D7D9C9C3C5 40404040405C40C1D3C6 D9C5C44040405C40D4C1 D5C3C8C5E2E3C5D9405C 40E3C8C1D4C5E240D9D6
A D 4 * D P T 1 * 0 0 8 1 0 0 0 0 0 0 0 7 * W I L S O N * R I
(000550) C1C440F4404040404040 4040405C40C4D7E3F140 5CF0F0F8F1F0F0F0F0F0 F0F0F7405C40E6C9D3E2 D6D5404040405C40D9C9
C H A R D * M A N C H E S T E R * A C A C I A A V E N U E 2 4 * D P T 3
(000600) C3C8C1D9C440405C40D4 C1D5C3C8C5E2E3C5D940 5C40C1C3C1C3C9C140C1 E5C5D5E4C540F2F44040 404040405C40C4D7E3F3
* 0 0 8 1 0 0 0 0 0 0 0 8 * B A T E S * F R A N K * H U L L
(000650) 405CF0F0F8F1F0F0F0F0 F0F0F0F8405C40C2C1E3 C5E240404040405C40C6 D9C1D5D2404040405C40 C8E4D3D3404040404040
* W O O D S T R E E T 2 9 * D P T 4 * 0 0 8 1 0 0 0 0 0 0 0 9 * H A
(000700) 405C40E6D6D6C440E2E3 D9C5C5E340F2F9404040 40404040405C40C4D7E3 F4405CF0F0F8F1F0F0F0 F0F0F0F0F9405C40C8C1
R R I S O N * M A U R I C E * M A N C H E S T E R * S I N C L A I R S T R E E T
(000750) D9D9C9E2D6D540405C40 D4C1E4D9C9C3C540405C 40D4C1D5C3C8C5E2E3C5 D9405C40E2C9D5C3D3C1 C9D940E2E3D9C5C5E340
1 4 9 * D P T 4 * 0 0 8 1 0 0 0 0 0 0 1 0 * R O Y C E * R O B E R T
(000800) F1F4F94040405C40C4D7 E3F4405CF0F0F8F1F0F0 F0F0F0F0F1F0405C40D9 D6E8C3C540404040405C 40D9D6C2C5D9E3404040
* M A N C H E S T E R * L I O N ' S G A T E 7 4 * D P T 4 * 0 0 8 1 0
(000850) 5C40D4C1D5C3C8C5E2E3 C5D9405C40D3C9D6D57D E240C7C1E3C540F7F440 404040404040405C40C4 D7E3F4405CF0F0F8F1F0
0 0 0 0 0 1 1 * S I M P S O N * E L L E N * K I N G S L Y N N * W I L L
(000900) F0F0F0F0F0F1F1405C40 E2C9D4D7E2D6D5404040 5C40C5D3D3C5D5404040 405C40D2C9D5C7E240D3 E8D5D5405C40E6C9D3D3
O U G H B Y S T R E E T 8 * D P T 4 *
(000950) D6E4C7C8C2E840E2E3D9 C5C5E340F84040405C40 C4D7E3F4405C