Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50517/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.

































	*