|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3840 (0xf00)
Notes: MEMBER_P, Member_Text
Names: »RPG «
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦a01802bb8⟧
└─⟦this⟧ ».RPG «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPG' ******************** * * * THIS PROCEDURE IS SUPPORTED ONLY FOR COMPATIBILITY WITH S/34. IT * * STORES ANY PARAMETER VALUES UNIQUE TO THIS PROCEDURE AND THEN * * CALLS THE RPGC PROCEDURE. PARAMETERS 4, 8, AND 10 REQUIRE * * 'TRANSLATION' SO THAT RPGC CAN HANDLE THEM. * * * * RPG RPGC * * P4=NOHALT P12=HOHALT, P13=NOREPLAC * * P4=NOSTOP P12=NOHALT, P13=REPLACE * * P4=REPLACE P12=HALT, P13=REPLACE * * P4=HALT P12=HALT, P13=NOREPLAC * * * * P8=YES P7=NEP * * P8=NO P7=NONEP * * * * P10(SPECIAL OPTIONS) * * ='10' (PUT ON JOBQ IN RPG) * * ='01' P5=XREF * * * * CHANGE ACTIVITY: * * 06/03/84 CC6116 'RPG' IS PASSED AS PARAMETER 21 TO RPGC * ***************************************************************************** // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB // IFF ?1?/ GOTO NAMPRES ************************************************* * IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR * ************************************************* // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ ********************************************** * ELSE CALL HELP * ********************************************** // HELP RPG // RETURN ********************************************** * PUT POSITIONAL PARMETERS IN THE LOCAL AREA * ********************************************** // TAG NAMPRES // LOCAL OFFSET-1,DATA-'RPG',BLANK-384,AREA-SYSTEM // LOCAL OFFSET-229,DATA-'?10'00000000'?',AREA-SYSTEM // IFF ?L'229,1'?/1 LOCAL OFFSET-229,DATA-'0',AREA-SYSTEM // ELSE JOBQ #RPGLIB,RPG,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,0?L'230,7'? // IF ?L'229,1'?/1 RETURN // IF JOBQ-NO IF EVOKED-NO * 1017 // LOCAL OFFSET-51,DATA-'HALT NOREPLAC',AREA-SYSTEM // IF ?4?/NOHALT LOCAL OFFSET-51,DATA-'?4?',AREA-SYSTEM // IF ?4?/NOSTOP LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM // IF ?4?/REPLACE LOCAL OFFSET-57,DATA-'REPLACE ',AREA-SYSTEM // IF ?8?/YES LOCAL OFFSET-29,DATA-'NEP ',AREA-SYSTEM // ELSE LOCAL OFFSET-29,DATA-'NONEP',AREA-SYSTEM // IF ?L'230,1'?/1 LOCAL OFFSET-21,DATA-'XREF ',AREA-SYSTEM // ELSE LOCAL OFFSET-21,DATA-'NOXREF',AREA-SYSTEM ************************************************************* * PASS CONTROL TO THE PROCEDURE RPGC. TELL RPGC THAT IT * * WAS CALLED BY RPG BY PASSING 'RPG' AS PARAMETER 21. * ************************************************************* // INCLUDE RPGC,#RPGLIB ?1?,?5'?CLIB?'?,,,?L'21,6'?,?7?,?L'29,5'?,+ ?6'?CLIB?'?,,,,?L'51,6'?,?L'57,8'?,,,,?9?,?2?,,,RPG // RETURN ***************************************************************************** * * * RPG PGNAME,$SOURCE,$WORK,NOHALT,INLIB,OUTLIB,MRTMAX,NEP,NOGEN,SPCLOPT * * * * THIS PROCEDURE EXECUTES THE RPG AUTO REPORT PROGRAM AND CONDITIONALLY * * EXECUTES THE RPG COMPILER, THE RPG CROSS-REFERENCE PROGRAM, AND THE * * CONSOLE SCREEN FORMAT GENERATOR. * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING- * * 1ST - PROGRAM NAME, (REQUIRED), * * 2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40, * * 3RD - # BLOCKS FOR $WORK FILE, DEFAULT- 40, * * 4TH - HALT OPTIONS, TERMINAL DIAGS AND/OR DUP MEMBERS. DEFAULT-HALT * * 5TH - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY * * 6TH - OUTPUT LIBRARY, DEFAULT- CURRENT LIBRARY * * 7TH - (MRT) MAX # OF ACTIVE REQUESTING WORKSTATIONS, DEFAULT- 0, * * 8TH - NEP ATTRIBUTE, DEFAULT- NO, * * 9TH - GENERATE CONSOLE SCREEN FORMATS, DEFAULT- YES, * * 10TH - SPECIAL OPTIONS CHOICES, DEFAULT- 00000000 (NONE) * * * * RPG AND AUTO REPORT ARE RESERVING BYTES 1 - 256 OF THE LOCAL AREA * * FOR THEIR USE. * * * *****************************************************************************