Title: IBM System 360 RPG Debugging Template and Keypunch Card
Author: Anonymous
Release date: September 22, 2011 [eBook #37504]
Language: English
Credits: Produced by Gerard Arthus, Nigel Blower and the Online
Distributed Proofreading Team at http://www.pgdp.net
Transcriber's Note:
The dimensions of the debugging template and the keypunch card are 7 3/8" by 3 1/4".
The debugging template contains two sections on the front and three sections on the back. The back is labelled vertically along the left-hand edge: IBM J33837.
The front of the keypunch card is labelled vertically along the right-hand edge: PRYOR 5081. Holes punched in the card are represented in the text by [].
--------------------
60- COMMENTS
-----------------------------------------
58-59 ZERO BLK EQ | | |
--------------------| | |
56-57 - LO |RESULT IND.|COMPARE|
--------------------| | |
54-55 + HI | | |
-----------------------------------------
53 H HALF ADJUST
----------------------
52 DECIMAL POS.
----------------------
49-51 FIELD LGTH
----------------------
43-48 RESULT FIELD
----------------------
39-42
------ FACTOR 2
33-38
----------------------
28-32 OPER.
----------------------
24-27
------ FACTOR 1
18-23
----------------------
16-17 | I |
-------- | N |
15 N A | D |
-------------N--| I |
13-14 D | C |
-------- | A |
12 N A | T |
-------------N--| O |
10-11 D | R |
-------- | S |
9 N | |
----------------------
7-8 L0-L9 LR CONTROL LEVEL
----------------------
6 CALCULATION SPECS.
----------------------
----------------------
45-70 CONSTANT OR EDIT WORD
----------------------
44 P PACKED
----------------------
40-43 END POS IN OUTPUT RECORD
----------------------
39 B BLANK AFTER
----------------------
38 Z ZERO SUPP.
----------------------
32-37 FIELD NAME
----------------------
30-31 | I |
-------- | N |
29 N A | D |
-------------N--| I |
27-28 D | C |
-------- | A |
26 N A | T |
-------------N--| O |
24-25 D | R |
-------- | S |
23 N | |
----------------------
21-22 AFTER | |
----------------|SKIP|
19-20 BEFORE | |
----------------------
18 AFTER | |
----------------| SP |
17 BEFORE | |
----------------------
16 STACKER
----------------------
15 H D T
----------------------
7-14 FILE NAME
----------------------
6 OUTPUT SPECS.
----------------------
----------------------
66- COMMENTS
----------------------
60-65 EXTENT EXIT FOR DAM
----------------------
54-59 NAME OF LABEL EXIT
----------------------
53 SNE LABELS
----------------------
47-52 SYMBOLIC DEVICE
----------------------
40-46 DEVICE
----------------------
39 EL EXTENSION CODE
----------------------
35-38 KEY FIELD START LOCATN.
----------------------
33-34 OVERFLOW INDICATOR
----------------------
32 IDT TYPE OF FILE ORG.
----------------------
31 KI RECORD ADDRESS TYPE
----------------------
29-30 LENGTH OF RECORD ADDRESS FIELD
----------------------
28 LR MODE OF PROCESSING
----------------------
24-27 RECORD LENGTH
----------------------
20-23 BLOCK LENGTH
----------------------
19 FV FILE FORMAT
----------------------
18 AD SEQUENCE
----------------------
17 E END OF FILE
----------------------
16 PSCRT FILE DESIGNATION
----------------------
15 IOUC FILE TYPE
----------------------
7-14 FILE NAME
----------------------
6 FILE DESCRIPTION SPECS.
----------------------
----------------------
58- COMMENTS
----------------------
57 AD SEQUENCE
----------------------
56 DECIMAL POS.
----------------------
55 P PACKED
----------------------
52-54 LENGTH OF TABLE ENTRY
----------------------
46-51 TABLE NAME
----------------------
45 AD SEQUENCE
----------------------
44 DECIMAL POS.
----------------------
43 P PACKED
----------------------
40-42 LENGTH OF TABLE ENTRY
----------------------
36-39 NO. OF TABLE ENTRIES PER TABLE
----------------------
33-35 NO. OF TABLE ENTRIES PER RECORD
----------------------
27-32 TABLE NAME
----------------------
19-26 TO FILE NAME
----------------------
11-18 FROM FILE NAME
----------------------
9-10 NUMBER OF THE CHAINING FIELD
----------------------
7- 8 RECORD SEQUENCE OF THE CHAINING FILE
----------------------
6 FILE EXT. SPECS.
----------------------
-----------------------------
69-70 ZERO BLK | |
-----------------| FIELD |
67-68 - |INDICATORS|
-----------------| |
65-66 + | |
-----------------------------
63-64 FIELD RECORD RELATION
----------------------
61-62 MI MATCHING OR CHAINING
----------------------
59-60 LI CONTROL LEVELS
----------------------
53-58 FIELD NAME
----------------------
52 DECIMAL POSITIONS
-----------------------
48-51 TO | |
-------------| FIELD |
44-47 FROM |LOCATION|
-----------------------
43 P PACKED
----------------------
42 STACKER SELECT
----------------------
41 CHAR | | |
-------------| | R |
40 CZD | | E |
-------------| | C |
39 N | 3 | O |
-------------| | R |
| | D |
| | |
35-38 POS. | | I |
-----------------| D |
34 CHAR | | E |
-------------| | N |
33 CZD | | T |
-------------| | I |
32 N | 2 | F |
-------------| | I |
| | C |
| | A |
28-31 POS. | | T |
-----------------| I |
27 CHAR | | O |
-------------| | N |
26 CZD | | |
-------------| | C |
25 N | 1 | O |
-------------| | D |
| | E |
| | S |
21-24 POS. | | |
----------------------
19-20 RECORD IDENT. INDIC.
----------------------
18 OPTION (O)
----------------------
17 NUMBER (1-N)
----------------------
15-16 SEQUENCE
----------------------
7-14 FILE NAME
----------------------
6 INPUT SPECS.
----------------------
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 . $ , # @ % * < + , ¢ ( !
[] [] [] [] [] [] [] [] [] [] [] [] [] []
[] [] [] [] [] [] [] [] [] [] [] [] []
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 [] [] [] [] [] [] [] [] [] 0 0 0 0 0 0 0 0 0 0 0 [] 0 0 [] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
[] 1 1 1 1 1 1 1 1 [] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 [] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
2 [] 2 2 2 2 2 2 2 2 [] 2 2 2 2 2 2 2 [] 2 2 2 2 2 2 2 2 2 [] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 [] 2 [] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
3 3 [] 3 3 3 3 3 3 3 3 [] 3 3 3 3 3 3 3 [] 3 3 3 3 3 3 3 3 3 [] 3 3 3 3 3 3 [] [] [] [] 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
4 4 4 [] 4 4 4 4 4 4 4 4 [] 4 4 4 4 4 4 4 [] 4 4 4 4 4 4 4 4 4 [] 4 4 4 4 4 4 4 4 4 [] [] [] [] 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
5 5 5 5 [] 5 5 5 5 5 5 5 5 [] 5 5 5 5 5 5 5 [] 5 5 5 5 5 5 5 5 5 [] 5 5 5 5 5 5 5 5 5 5 5 5 5 [] 5 [] 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
6 6 6 6 6 [] 6 6 6 6 6 6 6 6 [] 6 6 6 6 6 6 6 [] 6 6 6 6 6 6 6 6 6 [] 6 6 6 6 6 6 6 6 6 6 6 [] 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 [] 7 7 7 7 7 7 7 7 [] 7 7 7 7 7 7 7 [] 7 7 7 7 7 7 7 7 7 [] 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 [] 8 8 8 8 8 8 8 8 [] 8 8 8 8 8 8 8 [] 8 8 8 8 8 8 8 8 8 [] 8 [] [] [] [] [] [] [] [] [] [] [] [] [] 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 [] 9 9 9 9 9 9 9 9 [] 9 9 9 9 9 9 9 [] 9 9 9 9 9 9 9 9 9 [] 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80