Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/rpgsys.doc
There is 1 other file named rpgsys.doc in the archive. Click here to see a list.
RPG PROGRAM GENERATOR
.R RPGSYS
TERMINAL TYPE = D
Enter A for ADDS 580, D for Datamedia 1520A, V for VT52,
3 for Data Point 3300, B for Beehive 100, or E to end the program.
PROGRAM = SAMPLE
Enter name of program without extension. It will automatically
be given an RPG extension.
When finished, enter /E for end.
RESET LINE NUMBERS? YES
This will be asked only if the program entered already exists.
If you enter /E the program will end.
If you enter YES: the line numbers will be made to start with
010 for each form; each succeeding lines will be incremented
by 10. If you enter NO: line numbers will remain the same,
however the program will check to see if there are at least
five records where the page and line numbers are missing. If
the page and line numbers are missing the terminal will display
AT LEAST FIVE MISSING PAGE AND LINE NUMBERS
YOU SHOULD RESET THE LINE NUMBERS
and the program will return control to the question
RESET LINE NUMBERS?
ACTION = ADD
Enter ADD, CHG, DEL or /E(End).
FORM = H
Enter H(Control Card), F(File Description), E(Extension), L(Line
Counter), I(Input), C(Calculations), O(Output), /A(Action),
/E(End).
PAGE = 01
Enter value where 0 < page < 100, /F(Form), /A(Action) or
/E(End).
LINE = 010
Enter value where 0 < line < 1000, /P(Page), /F(Form),
/A(Action) or /E(End).
NOTE: ^C will NOT be effective while running RPGSYS.
On the following pages, each form under the ADD option will be
explained.
If CHG was entered for ACTION, whichever form is entered will
be displayed as in the ADD option with the exception that the
existing info will also be displayed. If there are two sides
for that form, enter which side should be displayed. Near the
bottom of the screen enter the element number to be changed.
The curser will position itself on that line between the brackets.
Enter the correct info, hit return and the curser will be in
position to accept the next element number to be changed. When
all elements are correct enter END; if it asks for which side,
enter the number of the side to be changed next--if finished,
enter END. If the line to be changed is a comment, the old
comment will be displayed. Then the new comment will be asked
for--just as in the ADD option.
If DEL was entered for ACTION, whichever form, page, and
line number is entered is the line that will be deleted.
Whenever you are finished adding, changing or deleting, enter
/A instead of a line number. A new action can then be entered.
If you just want to change or delete on a different form enter
/F; for a different page, enter /P.
Action = ADD Form = H Control Card
The terminal will erase the screen and display the following:
PAGE 1 LINE 10 H DATA CARD
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 OBJECT OUTPUT [ ]
2 LISTING OPTIONS [ ]
3 CORE SIZE TO EXECUTE [ ]
4 DEBUG [ ]
5 INVERTED PRINT [ ]
6 ALTERNATE COLLATING SEQUENCE [ ]
7 INQUIRY [ ]
8 1P FORMS POSITION [ ]
9 FILE TRANSLATION [ ]
10 PUNCH MFCU ZEROS [ ]
11 NONPRINT CHARACTERS [ ]
12 SHARED I/O AREA [ ]
The curser will then position itself between the brackets on
line 1. Enter info desired in that element description
and hit the return key. The curser will then position itself
between the brackets on the next line. If at any point, you
wish to skip some elements or go back to a previous element,
enter the element number you wish to go to preceded by a "/";
e.g. /9 . If at any point, you wish to skip the rest of the
card, enter /E to end that card.
If you wish to add a comment, enter an * in the first position of ele-
ment 1. The terminal will erase the screen and display the following:
1 1 2 2 3 3 4 4 5 5 6 6 7 7
8901234567890123456789012345678901234567890123456789012345678901234
NEW COM
The curser will position itself immediately following the M of COM.
Enter the comment desired and hit the return key.
Action = ADD Form = F File Description
The terminal will erase the screen and display the following:
PAGE 1 LINE 20 F DATA CARD - SIDE 1
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 FILENAME [ ]
2 FILE TYPE [ ]
3 FILE DESIGNATION [ ]
4 END OF FILE [ ]
5 SEQUENCE [ ]
6 FILE FORMAT [ ]
7 BLOCK LENGTH [ ]
8 RECORD LENGTH [ ]
9 MODE OF PROCESSING [ ]
10 LENGTH OF KEY FIELD OR
RECORD ADDRESS FIELD [ ]
11 RECORD ADDRESS TYPE [ ]
12 FILE ORGANIZATION OR
ADDITIONAL I/O AREA [ ]
The curser will then position itself between the brackets on
line 1. The same options are available as described under
the H data card. You will notice on the top header, "SIDE 1".
Side 2 is available by entering /S2 or any element number in side
2 preceeded by a "/" whenever you are finished with side 1 or by
entering info (or just return key) in element number 12. The
following will then be displayed:
PAGE 1 LINE 20 F DATA CARD - SIDE 2
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
13 OVERFLOW INDICATION [ ]
14 KEY FIELD STARTING LOCATION [ ]
15 EXTENSION CODE [ ]
16 DEVICE [ ]
17 SYMBOLIC DEVICE [ ]
18 CONTINUATION LINES OR
LABELS [ ]
19 CONTINUATION LINES OPTION OR
NAME OF LABEL EXIT [ ]
20 CONTINUATION LINE ENTRY OR
CORE INDEX [ ]
21 FILE ADDITION [ ]
22 NUMBER OF EXTENTS [ ]
23 TAPE REWIND [ ]
24 FILE CONDITION [ ]
The curser will then position itself between the brackets on
line 13. The same options are available as described under
the H data card. You will also be able to go back to side 1 by
entering /S1 or any element number in side 1 preceeded by a "/".
Action = ADD Form = E Extension
The terminal will erase the screen and display the following:
PAGE 2 LINE 10 E DATA CARD
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 FROM FILENAME [ ]
2 TO FILENAME [ ]
3 TABLE OR ARRAY NAME - 1 [ ]
4 NUMBER OF ENTRIES PER RECORD [ ]
5 NUMBER OF ENTRIES PER TABLE [ ]
6 LENGTH OF ENTRY - 1 [ ]
7 PACKED OR BINARY FIELD - 1 [ ]
8 DECIMAL POSITIONS - 1 [ ]
9 SEQUENCE - 1 [ ]
10 TABLE OR ARRAY NAME - 2 [ ]
11 LENGTH OF ENTRY - 2 [ ]
12 PACKED OR BINARY FIELD - 2 [ ]
13 DECIMAL POSITIONS - 2 [ ]
14 SEQUENCE - 2 [ ]
15 COMMENTS [ ]
The curser will then position itself between the brackets on
line 1. The same options are available as described under
the H data card.
Action = ADD Form = L Line Counter
The terminal will erase the screen and display the following:
PAGE 3 LINE 10 L DATA CARD
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 FILENAME [ ]
2 LINE NUMBER - NUMBER OF LINES PER PAGE [ ]
3 FORM LENGTH [ ]
4 LINE NUMBER - OVERFLOW LINE [ ]
5 OVERFLOW LINE [ ]
The curser will then position itself between the brackets on
line 1. The same options are available as described under
the H data card.
Action = ADD Form = I Input
The terminal will erase the screen and display the following:
PAGE 4 LINE 10 I DATA CARD - SIDE 1
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 FILENAME [ ]
2 SEQUENCE [ ]
3 NUMBER [ ]
4 OPTION [ ]
5 RECORD IDENTIFYING INDICATOR, ** [ ]
6 POSITION - 1 [ ]
7 NOT (N) - 1 [ ]
8 C/Z/D - 1 [ ]
9 CHARACTER - 1 [ ]
10 POSITION - 2 [ ]
11 NOT (N) - 2 [ ]
12 C/Z/D - 2 [ ]
13 CHARACTER - 2 [ ]
14 POSITION - 3 [ ]
The curser will then position itself between the brackets on
line 1. The same options are available as described under
the H data card. You will notice on the top header, "SIDE 1".
Side 2 is available by entering /S2 or any element number in side
2 preceeded by a "/" whenever you are finished with side 1 or by
entering info (or just return key) in element number 14. The
following will then be displayed:
PAGE 4 LINE 10 I DATA CARD - SIDE 2
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
15 NOT (N) - 3 [ ]
16 C/Z/D - 3 [ ]
17 CHARACTER - 3 [ ]
18 STACKER SELECT [ ]
19 PACKED OR BINARY FIELD [ ]
20 FIELD LOCATION FROM [ ]
21 FIELD LOCATION TO [ ]
22 DECIMAL POSITION [ ]
23 FIELD NAME [ ]
24 CONTROL LEVEL [ ]
25 MATCHING FIELDS [ ]
26 FIELD RECORD RELATION [ ]
27 PLUS [ ]
28 MINUS [ ]
29 ZERO OR BLANK [ ]
The curser will then position itself between the brackets on
line 15. The same options are available as described under
the H data card. You will also be able to go back to side 1 by
entering /S1 or any element number in side 2 preceeded by a "/".
Action = ADD Form = C Calculations
The termianl will erase the screen and display the following:
PAGE 5 LINE 10 C DATA CARD
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 CONTROL LEVEL [ ]
2 NOT - 1 [ ]
3 INDICATOR - 1 [ ]
4 NOT - 2 [ ]
5 INDICATOR - 2 [ ]
6 NOT - 3 [ ]
7 INDICATOR - 3 [ ]
8 FACTOR - 1 [ ]
9 OPERATION [ ]
10 FACTOR - 2 [ ]
11 RESULT FIELD [ ]
12 FIELD LENGTH [ ]
13 DECIMAL POSITION [ ]
14 HALF ADJUST [ ]
15 RESULT INDICATOR-HIGH [ ]
16 RESULT INDICATOR-LOW [ ]
17 RESULT INDICATOR-EQUAL [ ]
18 COMMENT [ ]
The curser will then position itself between the brackets on
line 1. The same options are available as described under
the H data card.
Action = ADD Form = O Output
The terminal will erase the screen and display the following:
PAGE 6 LINE 10 O DATA CARD
ELEMENT ELEMENT ELEMENT
NUMBER DESCRIPTION [ENTRY]
1 FILENAME [ ]
2 TYPE [ ]
3 STACKER SELECT/FETCH OVERFLOW [ ]
4 SPACE BEFORE [ ]
5 SPACE AFTER [ ]
6 SKIP BEFORE [ ]
7 SKIP AFTER [ ]
8 NOT - 1 [ ]
9 INDICATOR - 1 [ ]
10 NOT - 2 [ ]
11 INDICATOR - 2 [ ]
12 NOT - 3 [ ]
13 INDICATOR - 3 [ ]
14 FIELD NAME [ ]
15 EDIT CODES [ ]
16 BLANK AFTER [ ]
17 END POSITION IN OUTPUT RECORD [ ]
18 PACKED OR BINARY FIELD [ ]
19 CONSTANT OR EDIT WORD [ ]
The curser will then position itself between the brackets on
line 1. The same options are available as described under
the H data card.
*