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