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