The Project Gutenberg eBook of IBM System 360 RPG Debugging Template and Keypunch Card

This ebook is for the use of anyone anywhere in the United States and most other parts of the world at no cost and with almost no restrictions whatsoever. You may copy it, give it away or re-use it under the terms of the Project Gutenberg License included with this ebook or online at www.gutenberg.org. If you are not located in the United States, you will have to check the laws of the country where you are located before using this eBook.

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

*** START OF THE PROJECT GUTENBERG EBOOK IBM SYSTEM 360 RPG DEBUGGING TEMPLATE AND KEYPUNCH CARD ***

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 [].

SYSTEM 360
RPG DEBUGGING TEMPLATE
AND KEYPUNCH CARD


Contents

Debugging Template

Calculation Specifications

Output Specifications

File Description Specifications

File Extension Specifications

Input Specifications

Keypunch Card


SYSTEM 360
RPG DEBUGGING TEMPLATE

Debugging Template - front Debugging template - front

  --------------------
   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.
  ----------------------
Debugging Template - back Debugging template - back

  ----------------------
   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.
  ----------------------

KEYPUNCH CARD

Keypunch Card Keypunch Card
   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