|
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: 4096 (0x1000)
Notes: MEMBER_P, Member_Text
Names: »AUTO «
└─⟦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⟧ ».AUTO «
* *** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTO' ****************** * * * THIS PROCEDURE IS SUPPORTED ONLY FOR COMPATIBILITY WITH S/34. IT * * STORES ANY PARAMETER VALUES UNIQUE TO THIS PROCEDURE AND THEN * * CALLS THE AUTOC PROCEDURE. PARAMETERS 4, 8, AND 10 REQUIRE * * 'TRANSLATION' SO THAT AUTOC CAN HANDLE THEM. * * * * AUTO AUTOC * * P4=NOHALT P12=NOHALT, P13=NOREPLAC * * P4=NOSTOP P12=NOHALT, P13=REPLACE * * P4=REPLACE P12=HALT, P13=REPLACE * * P4=HALT(DEFAULT) P12=HALT, P13=NOREPLAC * * * * P8=YES P7=NEP * * P8=NO P7=NONEP * * * * P10(SPECIAL OPTIONS) * * ='100' (PUT ON JOBQ IN AUTO) * * ='010' P5=XREF * * ='001' P3=NOCOMP * * * * CHANGE ACTIVITY: * * 06/03/84 CC6116 'AUTO' IS PASSED AS PARAMETER 21 TO AUTOC * **************************************************************************** // 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 AUTO // RETURN ************************************************* * PUT POSITIONAL PARMETERS IN THE LOCAL AREA * * (SEE MEMBER LDADATA) * ************************************************* // TAG NAMPRES // LOCAL OFFSET-1,DATA-'RPGAUTO',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,AUTO,?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 * 1018 // 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 // IF ?L'231,1'?/1 LOCAL OFFSET-89,DATA-'NOCOMP',AREA-SYSTEM // ELSE LOCAL OFFSET-89,DATA-'COMP ',AREA-SYSTEM ********************************************************** * PASS CONTROL TO PROCEDURE AUTOC. TELL AUTOC THAT IT * * WAS CALLED BY AUTO BY PASSING 'AUTO' AS PARAMETER 21 * ********************************************************** // INCLUDE AUTOC,#RPGLIB ?1?,?5'?CLIB?'?,?L'89,6'?,,?L'21,6'?,?7?,+ ?L'29,5'?,?6'?CLIB?'?,,,,?L'51,6'?,?L'57,8'?,,,,?9?,?2?,,,AUTO // RETURN ***************************************************************************** * * * AUTO 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. * * * *****************************************************************************