|
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: 14592 (0x3900)
Notes: MEMBER_P, Member_Text
Names: »RPGC «
└─⟦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⟧ ».RPGC «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGC'********************** * * * * * CHANGE ACTIVITY: * * 11/11/82 THE //EVALUATE STATEMENT IS USED TO STORE THE JCB * * RETURN CODE, AS SET BY THE RPG COMPILER. THE RETURN * * CODE IS RESTORED TO THE JCB AT THE END OF THE PROCEDURE. * * 06/13/83 the screen displayed default for # of blocks used by * * work files is changed from '0040' to '40'. the default * * for mrt maximum is changed from '00' to '0'. this work * * is performed under ptr ev70958. * * 10/03/83 CC6060 IDDU communication * * Prompt for data dictionary name. * * 06/18/84 ev72558 change the dictionary prompt on the Compile * * OCL statement to DATADCT * * 08/20/84 ev18928 include second level text message member * * 08/22/84 Issue RPG-1066 if the data dictionary specified does not * * exist. * * 08/22/84 CC6116 Add Memory Resident Overlays parameter * * 10/03/84 EV20024 The change was to add DISP-NEW to the File OCL * * statements for $SOURCE, $WORK, and $WORK3. * * The DISP was added because if the work files were placed * * on the Network Resource Directory(NRD), Distributed Data * * Management would check for the file on the NRD because * * the DISP was not specified. Now the file is described * * as NEW and because it is RETAIN-S, it is automatically * * created as a local file, and the NRD is not checked. * * The File statement for $WORK2 was not changed because * * it is a RETAIN-J file i.e. no DISP parameter allowed. * * * ******************************************************************************* // MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB MESSAGE MEMBER // IFF ?1?/ GOTO PUTPARMS IF P1 SPECIFIED, PROCESS DIRECT // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ IF P1=BLANK AND JOBQ OR EVOKED * ISSUE ERROR MESSAGE // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ * // HELP RPGC ,?2'?CLIB?'?,?3'NODSM'?,?4'PRINT'?,?5'NOXREF'?,+ ?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+ ?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'? // RETURN ************************************************************************ * THE FOLLOWING OCL CHECKS ALL PARAMETERS FOR VALID VALUES AND IF SO * * STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL * * DATA AREA (SEE LAYOUT OF LDA BELOW). EACH PARAMETER IS PROCESSED * * AS SHOWN BELOW: * * * * PARAMETER RESULTS * * INVALID -----> ISSUE PROPER ERROR VIA * * #ERR WITH 0 AND 3 OPTIONS. * * 0 RESPONSE MEANS CONTINUE * * WITH DEFAULT SUBSTITUTED. * * 3 RESPONSE MEANS CANCEL. * * VALID -----> CONTINUE * * * * NOTE: P1 (SOURCE NAME) IS A REQUIRED PARAMETER. THEREFORE * * NO DEFAULT IS ASSUMED AND A 3 OPTION ONLY HALT IS * * ISSUED BY #ERR IF AN INVALID PAREMETER IS DETECTED. * * * ************************************************************************ // TAG PUTPARMS * ******************************************************************* * * IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED * * * OR WAS NOT CALLED FROM THE RPG PROCEDURE THEN ISSUE THE 'RPGC * * * PROCEDURE IS RUNNING' MESSAGE. * * ******************************************************************* // IF JOBQ-NO IF EVOKED-NO IFF RPG/?21? * 1031 // LOCAL OFFSET-1,DATA-'RPGC',BLANK-8,AREA-SYSTEM PROC NAME // LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM USED BY COMPILER // IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'? // IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG // IFF ?3'NODSM'?/NODSM IFF ?3?/DSM #ERR 1032,03,RPG ?3F'NODSM'? // IF ?3?/DSM LOCAL OFFSET-237,DATA-'Y',AREA-SYSTEM FLAG TO CALL $MAINT * TO REPLACE SOURCE * IF DSM REQUESTED. // IFF ?4'PRINT'?/ IFF ?4?/PRINT IFF ?4?/NOPRINT IFF ?4?/CRT + #ERR 1033,03,RPG ?4F'PRINT'? * ******************************************************************* * * JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER. #ERR ISSUES A HALT* * * WITH 0 AND 3 OPTIONS: * * * 0 - CONTINUE WITH P4 = PRINT * * * 3 - CANCEL * * ******************************************************************* // IF JOBQ-NO IF EVOKED-NO GOTO SKIP1 // IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'? // TAG SKIP1 * // IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'? // IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'? // IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'? // IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'? // IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/PSOURCE IFF ?9?/NOSOURCE #ERR 1036,03,RPG + ?9F''? // IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''? // IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''? // ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''? // IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'? // IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'? // IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'? // IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? // IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'? // IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'? // IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM // IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'? ************************************************************ * IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE * * IF IT EXISTS. * ************************************************************ // IF ?19?/ GOTO DCTOK // LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM // LOAD #RPDD // RUN ************************************************************ * IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS * * 1), ISSUE RPG-1066. * ************************************************************ // IF '?L'451,1'?'/'1' #ERR 1066,03,RPG // TAG DCTOK // IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'? *********************************************************** * STORE THE PARAMETER VALUES IN THE PROPER AREA OF THE * * SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA). * *********************************************************** // LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-9,DATA-'?3?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM USED BY RPGSEU ******************************************************************** * THIS BLOCK PREPARES TO CALL THE RPG COMPILER. * * THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS. * * IF PARAMETER 4=CRT, THE PRINT FILE IS GIVE A PRIORITY * * OF 0, HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING. * * PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS * * FROM THE RPG COMPILER, OLE, AND THE CROSS-REFERENCE AND * * CONSOLE FILE FORMAT GENERATOR PROGRAMS. IF THE PRINTER * * IS ALREADY IN CONTINUE MODE, THE RETURN CODE WILL BE 2040. * * STORE THIS CODE AT 189-192 OF THE LOCAL AREA. * * IF PRINT SPOOLING IS NOT ACTIVE, AND CRT IS REQUESTED, * * #RPG WILL ISSUE ERROR MESSAGE RPG-1027. * ******************************************************************* // LOAD #RPG,#RPGLIB // FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // IFF ?3?/DSM GOTO NOTDSM CHECK IF DSM REQUESTED, IF YES * ALLOCATE $WORK2 AND $WORK3 // FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,LABEL-?1?,EXTEND-25 // FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // TAG NOTDSM // PRINTER NAME-$PRINTDM,CONTINUE-YES, // IF ?4?/CRT PRIORITY-0 // ELSE PRIORITY-1 // LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM // MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB // COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+ DATADCT-?19?, // IF ?7?/NEP NEP-YES, // ELSE NEP-NO, // IF ?20?/MRO MRO-YES // ELSE MRO-NO // RUN ************************************************************ * THE RPG COMPILER CAN PUT A VALUE OF 1008 IN THE RETURN * * CODE FIELD OF THE JCB. ANY // RUN STATEMENT PROCESSED * * SUBSEQUENTLY WILL RESET THIS VALUE TO 0000. THEREFORE * * SAVE THE RETURN CODE IN PARAMETER 64. IT WILL BE * * RESTORED TO THE RETURN CODE FIELD IN THE JCB AT THE END * * OF THE PROCEDURE. * ************************************************************ // EVALUATE P64,4=?CD? *********************************************************************** * IF XREF AND PRINT OR CRT ARE SPECIFIED AND NO TERMINAL ERRORS,* * CALL THE RPG XREF PROGRAM. THE COMPILER WILL SET A RETURN * * CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS. * *********************************************************************** // IFF ?CD?/1008 IF ?5?/XREF IFF ?4?/NOPRINT + INCLUDE RPGX,#RPGLIB ?1?,?18?,?2? ********************************************************************** * IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER * * WILL SET BYTE 238 OF LDA TO '1'. IF TERMINAL ERRORS THE * * COMPILER WILL SET A RETURN CODE OF 1008. IF NEITHER OF THESE* * CONDITIONS EXIST AND 'GEN' WAS SPECIFIED, CALL THE * * CONSOLE FILE FORMAT GENERATOR. * ********************************************************************** // IFF ?CD?/1008 IF ?L'238,1'?/0 INCLUDE RPGR,#RPGLIB ?1?,+ ?18?,NOSAVE,?2?,?8?,,?13?,?4? ********************************************* * IF DSM REQUESTED, USE $MAINT TO * * REPLACE THE SOURCE WITH THE DSM * ********************************************* // IFF ?L'237,1'?/Y GOTO SKIPDSM // LOAD $MAINT // FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1? // RUN // COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2 // END // TAG SKIPDSM * ****************************************************************** * IF THE PRINTER WAS NOT IN CONTINUE MODE WHEN THIS PROCEDURE * * WAS ENTERED, OR IF CRT WAS REQUESTED, THEN RESET THE CONTINUE * * STATUS TO NO. * ****************************************************************** // IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2 // PRINTER CONTINUE-NO // TAG SKIP2 ************************************************************ * THE FOLLOWING OCL IS EXECUTED IF PARAMETER 4=CRT. * * USE COPYPRT MODULES TO DO THE DISPLAY OF THE * * HELD PRINT FILE. CANCEL THE SPOOL FILE ENTRY. * * PARAMETER 30 WILL CONTAIN THE SPOOL-ID RETRIEVED * * FROM OFFSET 181-186 OF THE SYSTEM LDA. * ************************************************************ // IFF ?L'14,3'?/CRT GOTO END // EVALUATE P30='?L'181,6'?' // LOAD $UASF // RUN // SPOOL SPOOLID-?30?,NAME-RP?30?,RETAIN-J,RELCANS-CANCEL // END // LOAD $UASC // FILE NAME-RP?30?,DISP-SHR // RUN *********************************************************** * RESTORE THE RETURN CODE SET BY THE RPG COMPILER TO THE * * RETURN CODE FIELD IN THE JCB. * *********************************************************** // TAG END // EVALUATE CD=?64? * // RETURN ******************************************************************************* * * * RPGC NAME,INLIB,DSM,PRINT,XREF,MRTMAX,NEP,OUTLIB, * * SOURCE,DEBUG,OBJSIZE,HALT,REPLACE,LINK,OBJ,SUBLIB,GEN,BLOCKS * * * * THIS PROCEDURE ALLOWS THE USER TO COMPILE AN RPG SOURCE PROGRAM, AND * * OPTIONALLY, RUN THE RPG CROSS-REFERENCE PROGRAM, RUN THE RPG CONSOLE * * FILE FORMAT GENERATOR, AND CREATE A DIAGNOSED SOURCE FILE MEMBER. IF * * DSM IS SPECIFIED, THE DIAGNOSED SOURCE MEMBER IS DISPLAY AT THE DISPLAY * * STATION VIA SEU. * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING: * * * * NAME - SOURCE PROGRAM NAME, (REQUIRED) * * INLIB - INPUT LIBRARY, DEFAULT - CURRENT LIBRARY * * DSM - CREATE DIAGNOSED SOURCE MEMBER, DEFAULT - NODSM * * PRINT - LISTING OUTPUT OPTIONS, DEFAULT - PRINT * * XREF - PROVIDE CROSS-REFERENCE LISTING, DEFAULT - NOXREF * * MRTMAX - MAX. # OF REQUESTING DISPLAY STATIONS, DEFAULT - 0 * * NEP - NEVER-ENDING PROGRAM, DEFAULT - NONEP * * OUTLIB - OUTPUT LIBRARY, DEFAULT - INPUT LIBRARY * * SOURCE - SOURCE PRINT OVERRIDE (OPTIONAL) * * DEBUG - SOURCE DEBUG OVERRIDE (OPTIONAL) * * OBJSIZE - SOURCE SIZE-TO-EXECUTE OVERRIDE (OPTIONAL) * * HALT - HALT ON TERMINAL ERRORS, DEFAULT - NOHALT * * REPLACE - REPLACE DUPLICATE MEMBER WITHOUT MESSAGE, DEFAULT - REPLACE * * LINK - CREATE EXECUTABLE MODULE, DEFAULT - LINK * * OBJ - CREATE NON-EXECUTABLE MODULE, DEFAULT - NOOBJECT * * SUBLIB - SUBROUTINE INPUT LIBRARY, DEFAULT - INPUT LIBRARY * * GEN - GENERATE CONSOLE SCREEN FORMATS, DEFAULT - GEN * * BLOCKS - BLOCK SIZE FOR $SOURCE,$WORK,$WORK2,$WORK3, DEFAULT - 40 * * DATADCT - DATA DICTIONARY NAME TO USE WITH COMM. FORMATS FILE * * MRO - MEMORY RESIDENT OVERLAYS, DEFAULT - NOMRO * * * * ADDITIONAL PARAMETER USAGE: * * P21 - USED TO TELL RPGC NOT TO ISSUE THE 'RPGC * * PROCEDURE IS RUNNING' MESSAGE IF CALLED BY RPG. * * P30 - USED TO STORE THE SPOOL-ID RETRIEVED FROM OFFSET * * 181-186 OF THE SYSTEM LOCAL DATA AREA. THIS * * INFORMATION IS NEEDED TO VIEW THE HELD COMPILER * * OUTPUT VIA COPYPRT($UASF AND $UASC). * * P64 - USED TO STORE THE JCB RETURN CODE FROM THE RPG * * COMPILE. A RETURN CODE OF '0000' MEANS THE SOURCE * * PROGRAM COMPILED WITHOUT ANY ERRORS, AND '1008' * * MEANS COMPILE ERRORS OCCURED. * * * * NOTE: PARAMETER 19 CONTAINS THE DATA DICTIONARY NAME. * * PARAMETER 20 CONTAINS THE MEMORY RESIDENT OVERLAYS PARAMETER * * * *******************************************************************************
0x0000…0001 0xd0 0x0001…0051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGC'********************** « 0x0051…0052 0x81 0x0052…0053 »*« 0x0053…0054 0x4d 0x0054…0055 0x82 0x0055…0057 »* « 0x0057…0058 0x81 0x0058…0059 »*« 0x0059…005a 0x4d 0x005a…005b 0x82 0x005b…005d »* « 0x005d…005e 0x92 0x005e…0070 »* CHANGE ACTIVITY:« 0x0070…0071 0x3c 0x0071…0072 0x82 0x0072…0074 »* « 0x0074…0075 0x81 0x0075…0076 »*« 0x0076…0077 0x05 0x0077…0078 0x88 0x0078…0080 »11/11/82« 0x0080…0081 0x02 0x0081…0082 0xb1 0x0082…00b3 »THE //EVALUATE STATEMENT IS USED TO STORE THE JCB« 0x00b3…00b4 0x0d 0x00b4…00b5 0x82 0x00b5…00b7 »* « 0x00b7…00b8 0x81 0x00b8…00b9 »*« 0x00b9…00ba 0x0f 0x00ba…00bb 0xa8 0x00bb…00e3 »RETURN CODE, AS SET BY THE RPG COMPILER.« 0x00e3…00e4 0x02 0x00e4…00e5 0x8a 0x00e5…00ef »THE RETURN« 0x00ef…00f0 0x0a 0x00f0…00f1 0x82 0x00f1…00f3 »* « 0x00f3…00f4 0x81 0x00f4…00f5 »*« 0x00f5…00f6 0x0f 0x00f6…00f7 0xb8 0x00f7…012f »CODE IS RESTORED TO THE JCB AT THE END OF THE PROCEDURE.« 0x012f…0130 0x06 0x0130…0131 0x82 0x0131…0133 »* « 0x0133…0134 0x81 0x0134…0135 »*« 0x0135…0136 0x05 0x0136…0137 0x88 0x0137…013f »06/13/83« 0x013f…0140 0x02 0x0140…0141 0xb4 0x0141…0175 »the screen displayed default for # of blocks used by« 0x0175…0176 0x0a 0x0176…0177 0x82 0x0177…0179 »* « 0x0179…017a 0x81 0x017a…017b »*« 0x017b…017c 0x0f 0x017c…017d 0xaa 0x017d…01a7 »work files is changed from '0040' to '40'.« 0x01a7…01a8 0x02 0x01a8…01a9 0x8b 0x01a9…01b4 »the default« 0x01b4…01b5 0x07 0x01b5…01b6 0x82 0x01b6…01b8 »* « 0x01b8…01b9 0x81 0x01b9…01ba »*« 0x01ba…01bb 0x0f 0x01bb…01bc 0xac 0x01bc…01e8 »for mrt maximum is changed from '00' to '0'.« 0x01e8…01e9 0x02 0x01e9…01ea 0x89 0x01ea…01f3 »this work« 0x01f3…01f4 0x07 0x01f4…01f5 0x82 0x01f5…01f7 »* « 0x01f7…01f8 0x81 0x01f8…01f9 »*« 0x01f9…01fa 0x0f 0x01fa…01fb 0x9f 0x01fb…021a »is performed under ptr ev70958.« 0x021a…021b 0x1f 0x021b…021c 0x82 0x021c…021e »* « 0x021e…021f 0x81 0x021f…0220 »*« 0x0220…0221 0x05 0x0221…0222 0x88 0x0222…022a »10/03/83« 0x022a…022b 0x02 0x022b…022c 0x99 0x022c…0245 »CC6060 IDDU communication« 0x0245…0246 0x25 0x0246…0247 0x82 0x0247…0249 »* « 0x0249…024a 0x81 0x024a…024b »*« 0x024b…024c 0x0f 0x024c…024d 0xa0 0x024d…026d »Prompt for data dictionary name.« 0x026d…026e 0x1e 0x026e…026f 0x82 0x026f…0271 »* « 0x0271…0272 0x81 0x0272…0273 »*« 0x0273…0274 0x05 0x0274…0275 0x88 0x0275…027d »06/18/84« 0x027d…027e 0x02 0x027e…027f 0xb3 0x027f…02b2 »ev72558 change the dictionary prompt on the Compile« 0x02b2…02b3 0x0b 0x02b3…02b4 0x82 0x02b4…02b6 »* « 0x02b6…02b7 0x81 0x02b7…02b8 »*« 0x02b8…02b9 0x0f 0x02b9…02ba 0x98 0x02ba…02d2 »OCL statement to DATADCT« 0x02d2…02d3 0x26 0x02d3…02d4 0x82 0x02d4…02d6 »* « 0x02d6…02d7 0x81 0x02d7…02d8 »*« 0x02d8…02d9 0x05 0x02d9…02da 0x88 0x02da…02e2 »08/20/84« 0x02e2…02e3 0x02 0x02e3…02e4 0xb0 0x02e4…0314 »ev18928 include second level text message member« 0x0314…0315 0x0e 0x0315…0316 0x82 0x0316…0318 »* « 0x0318…0319 0x81 0x0319…031a »*« 0x031a…031b 0x05 0x031b…031c 0x88 0x031c…0324 »08/22/84« 0x0324…0325 0x02 0x0325…0326 0xb8 0x0326…035e »Issue RPG-1066 if the data dictionary specified does not« 0x035e…035f 0x06 0x035f…0360 0x82 0x0360…0362 »* « 0x0362…0363 0x81 0x0363…0364 »*« 0x0364…0365 0x0f 0x0365…0366 0x86 0x0366…036c »exist.« 0x036c…036d 0x38 0x036d…036e 0x82 0x036e…0370 »* « 0x0370…0371 0x81 0x0371…0372 »*« 0x0372…0373 0x05 0x0373…0374 0x88 0x0374…037c »08/22/84« 0x037c…037d 0x02 0x037d…037e 0xad 0x037e…03ab »CC6116 Add Memory Resident Overlays parameter« 0x03ab…03ac 0x11 0x03ac…03ad 0x82 0x03ad…03af »* « 0x03af…03b0 0x81 0x03b0…03b1 »*« 0x03b1…03b2 0x05 0x03b2…03b3 0x88 0x03b3…03bb »10/03/84« 0x03bb…03bc 0x02 0x03bc…03bd 0xb6 0x03bd…03f3 »EV20024 The change was to add DISP-NEW to the File OCL« 0x03f3…03f4 0x08 0x03f4…03f5 0x82 0x03f5…03f7 »* « 0x03f7…03f8 0x81 0x03f8…03f9 »*« 0x03f9…03fa 0x0f 0x03fa…03fb 0xaa 0x03fb…0425 »statements for $SOURCE, $WORK, and $WORK3.« 0x0425…0426 0x14 0x0426…0427 0x82 0x0427…0429 »* « 0x0429…042a 0x81 0x042a…042b »*« 0x042b…042c 0x0f 0x042c…042d 0xb8 0x042d…0465 »The DISP was added because if the work files were placed« 0x0465…0466 0x06 0x0466…0467 0x82 0x0467…0469 »* « 0x0469…046a 0x81 0x046a…046b »*« 0x046b…046c 0x0f 0x046c…046d 0xb8 0x046d…04a5 »on the Network Resource Directory(NRD), Distributed Data« 0x04a5…04a6 0x06 0x04a6…04a7 0x82 0x04a7…04a9 »* « 0x04a9…04aa 0x81 0x04aa…04ab »*« 0x04ab…04ac 0x0f 0x04ac…04ad 0xb6 0x04ad…04e3 »Management would check for the file on the NRD because« 0x04e3…04e4 0x08 0x04e4…04e5 0x82 0x04e5…04e7 »* « 0x04e7…04e8 0x81 0x04e8…04e9 »*« 0x04e9…04ea 0x0f 0x04ea…04eb 0xb5 0x04eb…0520 »the DISP was not specified. Now the file is described« 0x0520…0521 0x09 0x0521…0522 0x82 0x0522…0524 »* « 0x0524…0525 0x81 0x0525…0526 »*« 0x0526…0527 0x0f 0x0527…0528 0xb6 0x0528…055e »as NEW and because it is RETAIN-S, it is automatically« 0x055e…055f 0x08 0x055f…0560 0x82 0x0560…0562 »* « 0x0562…0563 0x81 0x0563…0564 »*« 0x0564…0565 0x0f 0x0565…0566 0xb4 0x0566…059a »created as a local file, and the NRD is not checked.« 0x059a…059b 0x0a 0x059b…059c 0x82 0x059c…059e »* « 0x059e…059f 0x81 0x059f…05a0 »*« 0x05a0…05a1 0x0f 0x05a1…05a2 0xb5 0x05a2…05d7 »The File statement for $WORK2 was not changed because« 0x05d7…05d8 0x09 0x05d8…05d9 0x82 0x05d9…05db »* « 0x05db…05dc 0x81 0x05dc…05dd »*« 0x05dd…05de 0x0f 0x05de…05df 0xb5 0x05df…0614 »it is a RETAIN-J file i.e. no DISP parameter allowed.« 0x0614…0615 0x09 0x0615…0616 0x82 0x0616…0618 »* « 0x0618…0619 0x81 0x0619…061a »*« 0x061a…061b 0x4d 0x061b…061c 0x82 0x061c…061e »* « 0x061e…061f 0xd0 0x061f…066f »******************************************************************************* « 0x066f…0670 0xb7 0x0670…06a7 »// MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x06a7…06a8 0x03 0x06a8…06a9 0x8e 0x06a9…06b7 »MESSAGE MEMBER« 0x06b7…06b8 0x08 0x06b8…06b9 0x99 0x06b9…06d2 »// IFF ?1?/ GOTO PUTPARMS« 0x06d2…06d3 0x11 0x06d3…06d4 0x9f 0x06d4…06f3 »IF P1 SPECIFIED, PROCESS DIRECT« 0x06f3…06f4 0x07 0x06f4…06f5 0xa5 0x06f5…071a »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x071a…071b 0x05 0x071b…071c 0x9e 0x071c…073a »IF P1=BLANK AND JOBQ OR EVOKED« 0x073a…073b 0x08 0x073b…073c 0x81 0x073c…073d »*« 0x073d…073e 0x29 0x073e…073f 0x93 0x073f…0752 »ISSUE ERROR MESSAGE« 0x0752…0753 0x13 0x0753…0754 0x9a 0x0754…076e »// MSG ?WS?,?M'2100,1,75'?« 0x076e…076f 0x36 0x076f…0770 0x89 0x0770…0779 »// RETURN« 0x0779…077a 0x47 0x077a…077b 0x8c 0x077b…0787 »// TAG NJOBQ« 0x0787…0788 0x44 0x0788…0789 0x81 0x0789…078a »*« 0x078a…078b 0x4f 0x078b…078c 0xbd 0x078c…07c9 »// HELP RPGC ,?2'?CLIB?'?,?3'NODSM'?,?4'PRINT'?,?5'NOXREF'?,+« 0x07c9…07ca 0x13 0x07ca…07cb 0xc0 0x07cb…080b »?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+« 0x080b…080c 0x10 0x080c…080d 0xc2 0x080d…084f »?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'?« 0x084f…0850 0x0e 0x0850…0851 0x89 0x0851…085a »// RETURN« 0x085a…085b 0x47 0x085b…085c 0xc8 0x085c…08a4 »************************************************************************« 0x08a4…08a5 0x08 0x08a5…08a6 0x81 0x08a6…08a7 »*« 0x08a7…08a8 0x02 0x08a8…08a9 0xc2 0x08a9…08eb »THE FOLLOWING OCL CHECKS ALL PARAMETERS FOR VALID VALUES AND IF SO« 0x08eb…08ec 0x02 0x08ec…08ed 0x81 0x08ed…08ee »*« 0x08ee…08ef 0x08 0x08ef…08f0 0x81 0x08f0…08f1 »*« 0x08f1…08f2 0x02 0x08f2…08f3 0xbd 0x08f3…0930 »STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL« 0x0930…0931 0x07 0x0931…0932 0x81 0x0932…0933 »*« 0x0933…0934 0x08 0x0934…0935 0x81 0x0935…0936 »*« 0x0936…0937 0x02 0x0937…0938 0xa4 0x0938…095c »DATA AREA (SEE LAYOUT OF LDA BELOW).« 0x095c…095d 0x02 0x095d…095e 0x9b 0x095e…0979 »EACH PARAMETER IS PROCESSED« 0x0979…097a 0x03 0x097a…097b 0x81 0x097b…097c »*« 0x097c…097d 0x08 0x097d…097e 0x81 0x097e…097f »*« 0x097f…0980 0x02 0x0980…0981 0x8f 0x0981…0990 »AS SHOWN BELOW:« 0x0990…0991 0x35 0x0991…0992 0x81 0x0992…0993 »*« 0x0993…0994 0x08 0x0994…0995 0x81 0x0995…0996 »*« 0x0996…0997 0x46 0x0997…0998 0x81 0x0998…0999 »*« 0x0999…099a 0x08 0x099a…099b 0x81 0x099b…099c »*« 0x099c…099d 0x07 0x099d…099e 0x89 0x099e…09a7 »PARAMETER« 0x09a7…09a8 0x17 0x09a8…09a9 0x87 0x09a9…09b0 »RESULTS« 0x09b0…09b1 0x18 0x09b1…09b2 0x81 0x09b2…09b3 »*« 0x09b3…09b4 0x08 0x09b4…09b5 0x81 0x09b5…09b6 »*« 0x09b6…09b7 0x08 0x09b7…09b8 0x87 0x09b8…09bf »INVALID« 0x09bf…09c0 0x06 0x09c0…09c1 0x86 0x09c1…09c7 »----->« 0x09c7…09c8 0x0d 0x09c8…09c9 0x96 0x09c9…09df »ISSUE PROPER ERROR VIA« 0x09df…09e0 0x08 0x09e0…09e1 0x81 0x09e1…09e2 »*« 0x09e2…09e3 0x08 0x09e3…09e4 0x81 0x09e4…09e5 »*« 0x09e5…09e6 0x28 0x09e6…09e7 0x9a 0x09e7…0a01 »#ERR WITH 0 AND 3 OPTIONS.« 0x0a01…0a02 0x04 0x0a02…0a03 0x81 0x0a03…0a04 »*« 0x0a04…0a05 0x08 0x0a05…0a06 0x81 0x0a06…0a07 »*« 0x0a07…0a08 0x28 0x0a08…0a09 0x99 0x0a09…0a22 »0 RESPONSE MEANS CONTINUE« 0x0a22…0a23 0x05 0x0a23…0a24 0x81 0x0a24…0a25 »*« 0x0a25…0a26 0x08 0x0a26…0a27 0x81 0x0a27…0a28 »*« 0x0a28…0a29 0x28 0x0a29…0a2a 0x99 0x0a2a…0a43 »WITH DEFAULT SUBSTITUTED.« 0x0a43…0a44 0x05 0x0a44…0a45 0x81 0x0a45…0a46 »*« 0x0a46…0a47 0x08 0x0a47…0a48 0x81 0x0a48…0a49 »*« 0x0a49…0a4a 0x28 0x0a4a…0a4b 0x98 0x0a4b…0a63 »3 RESPONSE MEANS CANCEL.« 0x0a63…0a64 0x06 0x0a64…0a65 0x81 0x0a65…0a66 »*« 0x0a66…0a67 0x08 0x0a67…0a68 0x81 0x0a68…0a69 »*« 0x0a69…0a6a 0x08 0x0a6a…0a6b 0x85 0x0a6b…0a70 »VALID« 0x0a70…0a71 0x08 0x0a71…0a72 0x86 0x0a72…0a78 »----->« 0x0a78…0a79 0x0d 0x0a79…0a7a 0x88 0x0a7a…0a82 »CONTINUE« 0x0a82…0a83 0x16 0x0a83…0a84 0x81 0x0a84…0a85 »*« 0x0a85…0a86 0x08 0x0a86…0a87 0x81 0x0a87…0a88 »*« 0x0a88…0a89 0x46 0x0a89…0a8a 0x81 0x0a8a…0a8b »*« 0x0a8b…0a8c 0x08 0x0a8c…0a8d 0x81 0x0a8d…0a8e »*« 0x0a8e…0a8f 0x08 0x0a8f…0a90 0x85 0x0a90…0a95 »NOTE:« 0x0a95…0a96 0x02 0x0a96…0a97 0xa9 0x0a97…0ac0 »P1 (SOURCE NAME) IS A REQUIRED PARAMETER.« 0x0ac0…0ac1 0x02 0x0ac1…0ac2 0x89 0x0ac2…0acb »THEREFORE« 0x0acb…0acc 0x03 0x0acc…0acd 0x81 0x0acd…0ace »*« 0x0ace…0acf 0x08 0x0acf…0ad0 0x81 0x0ad0…0ad1 »*« 0x0ad1…0ad2 0x0f 0x0ad2…0ad3 0xb1 0x0ad3…0b04 »NO DEFAULT IS ASSUMED AND A 3 OPTION ONLY HALT IS« 0x0b04…0b05 0x06 0x0b05…0b06 0x81 0x0b06…0b07 »*« 0x0b07…0b08 0x08 0x0b08…0b09 0x81 0x0b09…0b0a »*« 0x0b0a…0b0b 0x0f 0x0b0b…0b0c 0xb3 0x0b0c…0b3f »ISSUED BY #ERR IF AN INVALID PAREMETER IS DETECTED.« 0x0b3f…0b40 0x04 0x0b40…0b41 0x81 0x0b41…0b42 »*« 0x0b42…0b43 0x08 0x0b43…0b44 0x81 0x0b44…0b45 »*« 0x0b45…0b46 0x46 0x0b46…0b47 0x81 0x0b47…0b48 »*« 0x0b48…0b49 0x08 0x0b49…0b4a 0xc8 0x0b4a…0b92 »************************************************************************« 0x0b92…0b93 0x08 0x0b93…0b94 0x8f 0x0b94…0ba3 »// TAG PUTPARMS« 0x0ba3…0ba4 0x41 0x0ba4…0ba5 0x81 0x0ba5…0ba6 »*« 0x0ba6…0ba7 0x02 0x0ba7…0ba8 0xc3 0x0ba8…0beb »*******************************************************************« 0x0beb…0bec 0x0a 0x0bec…0bed 0x81 0x0bed…0bee »*« 0x0bee…0bef 0x02 0x0bef…0bf0 0x81 0x0bf0…0bf1 »*« 0x0bf1…0bf2 0x02 0x0bf2…0bf3 0xbd 0x0bf3…0c30 »IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED« 0x0c30…0c31 0x02 0x0c31…0c32 0x81 0x0c32…0c33 »*« 0x0c33…0c34 0x0a 0x0c34…0c35 0x81 0x0c35…0c36 »*« 0x0c36…0c37 0x02 0x0c37…0c38 0x81 0x0c38…0c39 »*« 0x0c39…0c3a 0x02 0x0c3a…0c3b 0xbd 0x0c3b…0c78 »OR WAS NOT CALLED FROM THE RPG PROCEDURE THEN ISSUE THE 'RPGC« 0x0c78…0c79 0x02 0x0c79…0c7a 0x81 0x0c7a…0c7b »*« 0x0c7b…0c7c 0x0a 0x0c7c…0c7d 0x81 0x0c7d…0c7e »*« 0x0c7e…0c7f 0x02 0x0c7f…0c80 0x81 0x0c80…0c81 »*« 0x0c81…0c82 0x02 0x0c82…0c83 0x9e 0x0c83…0ca1 »PROCEDURE IS RUNNING' MESSAGE.« 0x0ca1…0ca2 0x21 0x0ca2…0ca3 0x81 0x0ca3…0ca4 »*« 0x0ca4…0ca5 0x0a 0x0ca5…0ca6 0x81 0x0ca6…0ca7 »*« 0x0ca7…0ca8 0x02 0x0ca8…0ca9 0xc3 0x0ca9…0cec »*******************************************************************« 0x0cec…0ced 0x0a 0x0ced…0cee 0xae 0x0cee…0d1c »// IF JOBQ-NO IF EVOKED-NO IFF RPG/?21? * 1031« 0x0d1c…0d1d 0x22 0x0d1d…0d1e 0xb1 0x0d1e…0d4f »// LOCAL OFFSET-1,DATA-'RPGC',BLANK-8,AREA-SYSTEM« 0x0d4f…0d50 0x06 0x0d50…0d51 0x89 0x0d51…0d5a »PROC NAME« 0x0d5a…0d5b 0x10 0x0d5b…0d5c 0xaa 0x0d5c…0d86 »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x0d86…0d87 0x0d 0x0d87…0d88 0x90 0x0d88…0d98 »USED BY COMPILER« 0x0d98…0d99 0x09 0x0d99…0d9a 0xb8 0x0d9a…0dd2 »// IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'?« 0x0dd2…0dd3 0x18 0x0dd3…0dd4 0xaf 0x0dd4…0e03 »// IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG« 0x0e03…0e04 0x21 0x0e04…0e05 0xc0 0x0e05…0e45 »// IFF ?3'NODSM'?/NODSM IFF ?3?/DSM #ERR 1032,03,RPG ?3F'NODSM'?« 0x0e45…0e46 0x10 0x0e46…0e47 0xb3 0x0e47…0e7a »// IF ?3?/DSM LOCAL OFFSET-237,DATA-'Y',AREA-SYSTEM« 0x0e7a…0e7b 0x03 0x0e7b…0e7c 0x93 0x0e7c…0e8f »FLAG TO CALL $MAINT« 0x0e8f…0e90 0x07 0x0e90…0e91 0x81 0x0e91…0e92 »*« 0x0e92…0e93 0x35 0x0e93…0e94 0x91 0x0e94…0ea5 »TO REPLACE SOURCE« 0x0ea5…0ea6 0x09 0x0ea6…0ea7 0x81 0x0ea7…0ea8 »*« 0x0ea8…0ea9 0x35 0x0ea9…0eaa 0x91 0x0eaa…0ebb »IF DSM REQUESTED.« 0x0ebb…0ebc 0x09 0x0ebc…0ebd 0xbe 0x0ebd…0efb »// IFF ?4'PRINT'?/ IFF ?4?/PRINT IFF ?4?/NOPRINT IFF ?4?/CRT +« 0x0efb…0efc 0x12 0x0efc…0efd 0x9c 0x0efd…0f19 »#ERR 1033,03,RPG ?4F'PRINT'?« 0x0f19…0f1a 0x34 0x0f1a…0f1b 0x81 0x0f1b…0f1c »*« 0x0f1c…0f1d 0x02 0x0f1d…0f1e 0xc3 0x0f1e…0f61 »*******************************************************************« 0x0f61…0f62 0x0a 0x0f62…0f63 0x81 0x0f63…0f64 »*« 0x0f64…0f65 0x02 0x0f65…0f66 0xae 0x0f66…0f94 »* JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER.« 0x0f94…0f95 0x02 0x0f95…0f96 0x93 0x0f96…0fa9 »#ERR ISSUES A HALT*« 0x0fa9…0faa 0x0a 0x0faa…0fab 0x81 0x0fab…0fac »*« 0x0fac…0fad 0x02 0x0fad…0fae 0x97 0x0fae…0fc5 »* WITH 0 AND 3 OPTIONS:« 0x0fc5…0fc6 0x2b 0x0fc6…0fc7 0x81 0x0fc7…0fc8 »*« 0x0fc8…0fc9 0x0a 0x0fc9…0fca 0x81 0x0fca…0fcb »*« 0x0fcb…0fcc 0x02 0x0fcc…0fcd 0x81 0x0fcd…0fce »*« 0x0fce…0fcf 0x15 0x0fcf…0fd0 0x9c 0x0fd0…0fec »0 - CONTINUE WITH P4 = PRINT« 0x0fec…0fed 0x10 0x0fed…0fee 0x81 0x0fee…0fef »*« 0x0fef…0ff0 0x0a 0x0ff0…0ff1 0x81 0x0ff1…0ff2 »*« 0x0ff2…0ff3 0x02 0x0ff3…0ff4 0x81 0x0ff4…0ff5 »*« 0x0ff5…0ff6 0x15 0x0ff6…0ff7 0x8a 0x0ff7…1001 »3 - CANCEL« 0x1001…1002 0x22 0x1002…1003 0x81 0x1003…1004 »*« 0x1004…1005 0x0a 0x1005…1006 0x81 0x1006…1007 »*« 0x1007…1008 0x02 0x1008…1009 0xc3 0x1009…104c »*******************************************************************« 0x104c…104d 0x0a 0x104d…104e 0xa5 0x104e…1073 »// IF JOBQ-NO IF EVOKED-NO GOTO SKIP1« 0x1073…1074 0x2b 0x1074…1075 0xaa 0x1075…109f »// IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'?« 0x109f…10a0 0x26 0x10a0…10a1 0x8c 0x10a1…10ad »// TAG SKIP1« 0x10ad…10ae 0x44 0x10ae…10af 0x81 0x10af…10b0 »*« 0x10b0…10b1 0x4f 0x10b1…10b2 0xc4 0x10b2…10f6 »// IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'?« 0x10f6…10f7 0x0c 0x10f7…10f8 0xa9 0x10f8…1121 »// IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'?« 0x1121…1122 0x27 0x1122…1123 0xc0 0x1123…1163 »// IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'?« 0x1163…1164 0x10 0x1164…1165 0xb5 0x1165…119a »// IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'?« 0x119a…119b 0x1b 0x119b…119c 0xce 0x119c…11ea »// IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/PSOURCE IFF ?9?/NOSOURCE #ERR 1036,03,RPG +« 0x11ea…11eb 0x02 0x11eb…11ec 0x86 0x11ec…11f2 »?9F''?« 0x11f2…11f3 0x4a 0x11f3…11f4 0xc5 0x11f4…1239 »// IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''?« 0x1239…123a 0x0b 0x123a…123b 0xb1 0x123b…126c »// IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''?« 0x126c…126d 0x1f 0x126d…126e 0xb5 0x126e…12a3 »// ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''?« 0x12a3…12a4 0x1b 0x12a4…12a5 0xc7 0x12a5…12ec »// IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'?« 0x12ec…12ed 0x09 0x12ed…12ee 0xce 0x12ee…133c »// IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'?« 0x133c…133d 0x02 0x133d…133e 0xc3 0x133e…1381 »// IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'?« 0x1381…1382 0x0d 0x1382…1383 0xd0 0x1383…13d3 »// IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? « 0x13d3…13d4 0xb8 0x13d4…140c »// IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'?« 0x140c…140d 0x18 0x140d…140e 0xbf 0x140e…144d »// IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'?« 0x144d…144e 0x11 0x144e…144f 0xb6 0x144f…1485 »// IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x1485…1486 0x1a 0x1486…1487 0xac 0x1487…14b3 »// IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'?« 0x14b3…14b4 0x24 0x14b4…14b5 0xbc 0x14b5…14f1 »************************************************************« 0x14f1…14f2 0x14 0x14f2…14f3 0x81 0x14f3…14f4 »*« 0x14f4…14f5 0x02 0x14f5…14f6 0xb4 0x14f6…152a »IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE« 0x152a…152b 0x04 0x152b…152c 0x81 0x152c…152d »*« 0x152d…152e 0x14 0x152e…152f 0x81 0x152f…1530 »*« 0x1530…1531 0x02 0x1531…1532 0x8d 0x1532…153f »IF IT EXISTS.« 0x153f…1540 0x2b 0x1540…1541 0x81 0x1541…1542 »*« 0x1542…1543 0x14 0x1543…1544 0xbc 0x1544…1580 »************************************************************« 0x1580…1581 0x14 0x1581…1582 0x96 0x1582…1598 »// IF ?19?/ GOTO DCTOK« 0x1598…1599 0x3a 0x1599…159a 0xb3 0x159a…15cd »// LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x15cd…15ce 0x1d 0x15ce…15cf 0x8d 0x15cf…15dc »// LOAD #RPDD« 0x15dc…15dd 0x43 0x15dd…15de 0x86 0x15de…15e4 »// RUN« 0x15e4…15e5 0x4a 0x15e5…15e6 0xbc 0x15e6…1622 »************************************************************« 0x1622…1623 0x14 0x1623…1624 0x81 0x1624…1625 »*« 0x1625…1626 0x02 0x1626…1627 0xb5 0x1627…165c »IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS« 0x165c…165d 0x03 0x165d…165e 0x81 0x165e…165f »*« 0x165f…1660 0x14 0x1660…1661 0x81 0x1661…1662 »*« 0x1662…1663 0x02 0x1663…1664 0x93 0x1664…1677 »1), ISSUE RPG-1066.« 0x1677…1678 0x25 0x1678…1679 0x81 0x1679…167a »*« 0x167a…167b 0x14 0x167b…167c 0xbc 0x167c…16b8 »************************************************************« 0x16b8…16b9 0x14 0x16b9…16ba 0xa7 0x16ba…16e1 »// IF '?L'451,1'?'/'1' #ERR 1066,03,RPG« 0x16e1…16e2 0x29 0x16e2…16e3 0x8c 0x16e3…16ef »// TAG DCTOK« 0x16ef…16f0 0x44 0x16f0…16f1 0xc3 0x16f1…1734 »// IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'?« 0x1734…1735 0x0d 0x1735…1736 0xbb 0x1736…1771 »***********************************************************« 0x1771…1772 0x15 0x1772…1773 0x81 0x1773…1774 »*« 0x1774…1775 0x02 0x1775…1776 0xb4 0x1776…17aa »STORE THE PARAMETER VALUES IN THE PROPER AREA OF THE« 0x17aa…17ab 0x03 0x17ab…17ac 0x81 0x17ac…17ad »*« 0x17ad…17ae 0x15 0x17ae…17af 0x81 0x17af…17b0 »*« 0x17b0…17b1 0x02 0x17b1…17b2 0xad 0x17b2…17df »SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA).« 0x17df…17e0 0x0a 0x17e0…17e1 0x81 0x17e1…17e2 »*« 0x17e2…17e3 0x15 0x17e3…17e4 0xbb 0x17e4…181f »***********************************************************« 0x181f…1820 0x15 0x1820…1821 0xb2 0x1821…1853 »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x1853…1854 0x1e 0x1854…1855 0xb2 0x1855…1887 »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x1887…1888 0x1e 0x1888…1889 0xb2 0x1889…18bb »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x18bb…18bc 0x1e 0x18bc…18bd 0xb2 0x18bd…18ef »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x18ef…18f0 0x1e 0x18f0…18f1 0xb0 0x18f1…1921 »// LOCAL OFFSET-9,DATA-'?3?',BLANK-5,AREA-SYSTEM« 0x1921…1922 0x20 0x1922…1923 0xb1 0x1923…1954 »// LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM« 0x1954…1955 0x1f 0x1955…1956 0xb1 0x1956…1987 »// LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM« 0x1987…1988 0x1f 0x1988…1989 0xb1 0x1989…19ba »// LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM« 0x19ba…19bb 0x1f 0x19bb…19bc 0xb1 0x19bc…19ed »// LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x19ed…19ee 0x1f 0x19ee…19ef 0xb2 0x19ef…1a21 »// LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1a21…1a22 0x1e 0x1a22…1a23 0xb2 0x1a23…1a55 »// LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1a55…1a56 0x1e 0x1a56…1a57 0xb1 0x1a57…1a88 »// LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM« 0x1a88…1a89 0x1f 0x1a89…1a8a 0xb2 0x1a8a…1abc »// LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM« 0x1abc…1abd 0x1e 0x1abd…1abe 0xb2 0x1abe…1af0 »// LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM« 0x1af0…1af1 0x1e 0x1af1…1af2 0xb2 0x1af2…1b24 »// LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM« 0x1b24…1b25 0x1e 0x1b25…1b26 0xb2 0x1b26…1b58 »// LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x1b58…1b59 0x1e 0x1b59…1b5a 0xb2 0x1b5a…1b8c »// LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM« 0x1b8c…1b8d 0x1e 0x1b8d…1b8e 0xb2 0x1b8e…1bc0 »// LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x1bc0…1bc1 0x1e 0x1bc1…1bc2 0xb3 0x1bc2…1bf5 »// LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x1bf5…1bf6 0x1d 0x1bf6…1bf7 0xb2 0x1bf7…1c29 »// LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x1c29…1c2a 0x1e 0x1c2a…1c2b 0xb2 0x1c2b…1c5d »// LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM« 0x1c5d…1c5e 0x1e 0x1c5e…1c5f 0xb3 0x1c5f…1c92 »// LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM« 0x1c92…1c93 0x1d 0x1c93…1c94 0xb1 0x1c94…1cc5 »// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM« 0x1cc5…1cc6 0x09 0x1cc6…1cc7 0x8e 0x1cc7…1cd5 »USED BY RPGSEU« 0x1cd5…1cd6 0x08 0x1cd6…1cd7 0xc4 0x1cd7…1d1b »********************************************************************« 0x1d1b…1d1c 0x0c 0x1d1c…1d1d 0x81 0x1d1d…1d1e »*« 0x1d1e…1d1f 0x03 0x1d1f…1d20 0xad 0x1d20…1d4d »THIS BLOCK PREPARES TO CALL THE RPG COMPILER.« 0x1d4d…1d4e 0x12 0x1d4e…1d4f 0x81 0x1d4f…1d50 »*« 0x1d50…1d51 0x0c 0x1d51…1d52 0x81 0x1d52…1d53 »*« 0x1d53…1d54 0x03 0x1d54…1d55 0xb6 0x1d55…1d8b »THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS.« 0x1d8b…1d8c 0x09 0x1d8c…1d8d 0x81 0x1d8d…1d8e »*« 0x1d8e…1d8f 0x0c 0x1d8f…1d90 0x81 0x1d90…1d91 »*« 0x1d91…1d92 0x03 0x1d92…1d93 0xb5 0x1d93…1dc8 »IF PARAMETER 4=CRT, THE PRINT FILE IS GIVE A PRIORITY« 0x1dc8…1dc9 0x0a 0x1dc9…1dca 0x81 0x1dca…1dcb »*« 0x1dcb…1dcc 0x0c 0x1dcc…1dcd 0x81 0x1dcd…1dce »*« 0x1dce…1dcf 0x03 0x1dcf…1dd0 0xb6 0x1dd0…1e06 »OF 0, HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING.« 0x1e06…1e07 0x09 0x1e07…1e08 0x81 0x1e08…1e09 »*« 0x1e09…1e0a 0x0c 0x1e0a…1e0b 0x81 0x1e0b…1e0c »*« 0x1e0c…1e0d 0x03 0x1e0d…1e0e 0xbc 0x1e0e…1e4a »PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS« 0x1e4a…1e4b 0x02 0x1e4b…1e4c 0x81 0x1e4c…1e4d »*« 0x1e4d…1e4e 0x0d 0x1e4e…1e4f 0x81 0x1e4f…1e50 »*« 0x1e50…1e51 0x03 0x1e51…1e52 0xb7 0x1e52…1e89 »FROM THE RPG COMPILER, OLE, AND THE CROSS-REFERENCE AND« 0x1e89…1e8a 0x07 0x1e8a…1e8b 0x81 0x1e8b…1e8c »*« 0x1e8c…1e8d 0x0d 0x1e8d…1e8e 0x81 0x1e8e…1e8f »*« 0x1e8f…1e90 0x03 0x1e90…1e91 0xa7 0x1e91…1eb8 »CONSOLE FILE FORMAT GENERATOR PROGRAMS.« 0x1eb8…1eb9 0x02 0x1eb9…1eba 0x8e 0x1eba…1ec8 »IF THE PRINTER« 0x1ec8…1ec9 0x07 0x1ec9…1eca 0x81 0x1eca…1ecb »*« 0x1ecb…1ecc 0x0d 0x1ecc…1ecd 0x81 0x1ecd…1ece »*« 0x1ece…1ecf 0x03 0x1ecf…1ed0 0xba 0x1ed0…1f0a »IS ALREADY IN CONTINUE MODE, THE RETURN CODE WILL BE 2040.« 0x1f0a…1f0b 0x04 0x1f0b…1f0c 0x81 0x1f0c…1f0d »*« 0x1f0d…1f0e 0x0d 0x1f0e…1f0f 0x81 0x1f0f…1f10 »*« 0x1f10…1f11 0x03 0x1f11…1f12 0xad 0x1f12…1f3f »STORE THIS CODE AT 189-192 OF THE LOCAL AREA.« 0x1f3f…1f40 0x11 0x1f40…1f41 0x81 0x1f41…1f42 »*« 0x1f42…1f43 0x0d 0x1f43…1f44 0x81 0x1f44…1f45 »*« 0x1f45…1f46 0x03 0x1f46…1f47 0xb6 0x1f47…1f7d »IF PRINT SPOOLING IS NOT ACTIVE, AND CRT IS REQUESTED,« 0x1f7d…1f7e 0x08 0x1f7e…1f7f 0x81 0x1f7f…1f80 »*« 0x1f80…1f81 0x0d 0x1f81…1f82 0x81 0x1f82…1f83 »*« 0x1f83…1f84 0x03 0x1f84…1f85 0xa7 0x1f85…1fac »#RPG WILL ISSUE ERROR MESSAGE RPG-1027.« 0x1fac…1fad 0x17 0x1fad…1fae 0x81 0x1fae…1faf »*« 0x1faf…1fb0 0x0d 0x1fb0…1fb1 0xc3 0x1fb1…1ff4 »*******************************************************************« 0x1ff4…1ff5 0x0d 0x1ff5…1ff6 0x94 0x1ff6…200a »// LOAD #RPG,#RPGLIB« 0x200a…200b 0x3c 0x200b…200c 0xbc 0x200c…2048 »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x2048…2049 0x14 0x2049…204a 0xba 0x204a…2084 »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x2084…2085 0x16 0x2085…2086 0x9a 0x2086…20a0 »// IFF ?3?/DSM GOTO NOTDSM« 0x20a0…20a1 0x12 0x20a1…20a2 0x9e 0x20a2…20c0 »CHECK IF DSM REQUESTED, IF YES« 0x20c0…20c1 0x06 0x20c1…20c2 0x81 0x20c2…20c3 »*« 0x20c3…20c4 0x2f 0x20c4…20c5 0x9a 0x20c5…20df »ALLOCATE $WORK2 AND $WORK3« 0x20df…20e0 0x06 0x20e0…20e1 0xbc 0x20e1…211d »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,LABEL-?1?,EXTEND-25« 0x211d…211e 0x14 0x211e…211f 0xbb 0x211f…215a »// FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x215a…215b 0x15 0x215b…215c 0x8d 0x215c…2169 »// TAG NOTDSM« 0x2169…216a 0x43 0x216a…216b 0xa6 0x216b…2191 »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x2191…2192 0x2a 0x2192…2193 0x98 0x2193…21ab »// IF ?4?/CRT PRIORITY-0« 0x21ab…21ac 0x38 0x21ac…21ad 0x92 0x21ad…21bf »// ELSE PRIORITY-1« 0x21bf…21c0 0x3e 0x21c0…21c1 0xab 0x21c1…21ec »// LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM« 0x21ec…21ed 0x25 0x21ed…21ee 0xbd 0x21ee…222b »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x222b…222c 0x13 0x222c…222d 0xc4 0x222d…2271 »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+« 0x2271…2272 0x0c 0x2272…2273 0x8d 0x2273…2280 »DATADCT-?19?,« 0x2280…2281 0x43 0x2281…2282 0x96 0x2282…2298 »// IF ?7?/NEP NEP-YES,« 0x2298…2299 0x3a 0x2299…229a 0x8f 0x229a…22a9 »// ELSE NEP-NO,« 0x22a9…22aa 0x41 0x22aa…22ab 0x96 0x22ab…22c1 »// IF ?20?/MRO MRO-YES« 0x22c1…22c2 0x3a 0x22c2…22c3 0x8e 0x22c3…22d1 »// ELSE MRO-NO« 0x22d1…22d2 0x42 0x22d2…22d3 0x86 0x22d3…22d9 »// RUN« 0x22d9…22da 0x4a 0x22da…22db 0xbc 0x22db…2317 »************************************************************« 0x2317…2318 0x14 0x2318…2319 0x81 0x2319…231a »*« 0x231a…231b 0x02 0x231b…231c 0xb6 0x231c…2352 »THE RPG COMPILER CAN PUT A VALUE OF 1008 IN THE RETURN« 0x2352…2353 0x02 0x2353…2354 0x81 0x2354…2355 »*« 0x2355…2356 0x14 0x2356…2357 0x81 0x2357…2358 »*« 0x2358…2359 0x02 0x2359…235a 0x96 0x235a…2370 »CODE FIELD OF THE JCB.« 0x2370…2371 0x02 0x2371…2372 0x9e 0x2372…2390 »ANY // RUN STATEMENT PROCESSED« 0x2390…2391 0x02 0x2391…2392 0x81 0x2392…2393 »*« 0x2393…2394 0x14 0x2394…2395 0x81 0x2395…2396 »*« 0x2396…2397 0x02 0x2397…2398 0xab 0x2398…23c3 »SUBSEQUENTLY WILL RESET THIS VALUE TO 0000.« 0x23c3…23c4 0x02 0x23c4…23c5 0x89 0x23c5…23ce »THEREFORE« 0x23ce…23cf 0x02 0x23cf…23d0 0x81 0x23d0…23d1 »*« 0x23d1…23d2 0x14 0x23d2…23d3 0x81 0x23d3…23d4 »*« 0x23d4…23d5 0x02 0x23d5…23d6 0xb0 0x23d6…2406 »SAVE THE RETURN CODE IN PARAMETER 64. IT WILL BE« 0x2406…2407 0x08 0x2407…2408 0x81 0x2408…2409 »*« 0x2409…240a 0x14 0x240a…240b 0x81 0x240b…240c »*« 0x240c…240d 0x02 0x240d…240e 0xb9 0x240e…2447 »RESTORED TO THE RETURN CODE FIELD IN THE JCB AT THE END *« 0x2447…2448 0x14 0x2448…2449 0x81 0x2449…244a »*« 0x244a…244b 0x02 0x244b…244c 0x91 0x244c…245d »OF THE PROCEDURE.« 0x245d…245e 0x27 0x245e…245f 0x81 0x245f…2460 »*« 0x2460…2461 0x14 0x2461…2462 0xbc 0x2462…249e »************************************************************« 0x249e…249f 0x14 0x249f…24a0 0x96 0x24a0…24b6 »// EVALUATE P64,4=?CD?« 0x24b6…24b7 0x3a 0x24b7…24b8 0xc7 0x24b8…24ff »***********************************************************************« 0x24ff…2500 0x09 0x2500…2501 0x81 0x2501…2502 »*« 0x2502…2503 0x07 0x2503…2504 0xbf 0x2504…2543 »IF XREF AND PRINT OR CRT ARE SPECIFIED AND NO TERMINAL ERRORS,*« 0x2543…2544 0x09 0x2544…2545 0x81 0x2545…2546 »*« 0x2546…2547 0x07 0x2547…2548 0x9a 0x2548…2562 »CALL THE RPG XREF PROGRAM.« 0x2562…2563 0x02 0x2563…2564 0x9e 0x2564…2582 »THE COMPILER WILL SET A RETURN« 0x2582…2583 0x04 0x2583…2584 0x81 0x2584…2585 »*« 0x2585…2586 0x09 0x2586…2587 0x81 0x2587…2588 »*« 0x2588…2589 0x07 0x2589…258a 0xb5 0x258a…25bf »CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS.« 0x25bf…25c0 0x09 0x25c0…25c1 0x81 0x25c1…25c2 »*« 0x25c2…25c3 0x09 0x25c3…25c4 0xc7 0x25c4…260b »***********************************************************************« 0x260b…260c 0x09 0x260c…260d 0xae 0x260d…263b »// IFF ?CD?/1008 IF ?5?/XREF IFF ?4?/NOPRINT +« 0x263b…263c 0x22 0x263c…263d 0xa1 0x263d…265e »INCLUDE RPGX,#RPGLIB ?1?,?18?,?2?« 0x265e…265f 0x2f 0x265f…2660 0xc6 0x2660…26a6 »**********************************************************************« 0x26a6…26a7 0x0a 0x26a7…26a8 0x81 0x26a8…26a9 »*« 0x26a9…26aa 0x07 0x26aa…26ab 0xb6 0x26ab…26e1 »IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER« 0x26e1…26e2 0x07 0x26e2…26e3 0x81 0x26e3…26e4 »*« 0x26e4…26e5 0x0a 0x26e5…26e6 0x81 0x26e6…26e7 »*« 0x26e7…26e8 0x07 0x26e8…26e9 0xb7 0x26e9…2720 »WILL SET BYTE 238 OF LDA TO '1'. IF TERMINAL ERRORS THE« 0x2720…2721 0x06 0x2721…2722 0x81 0x2722…2723 »*« 0x2723…2724 0x0a 0x2724…2725 0x81 0x2725…2726 »*« 0x2726…2727 0x07 0x2727…2728 0xa8 0x2728…2750 »COMPILER WILL SET A RETURN CODE OF 1008.« 0x2750…2751 0x02 0x2751…2752 0x94 0x2752…2766 »IF NEITHER OF THESE*« 0x2766…2767 0x0a 0x2767…2768 0x81 0x2768…2769 »*« 0x2769…276a 0x07 0x276a…276b 0xb2 0x276b…279d »CONDITIONS EXIST AND 'GEN' WAS SPECIFIED, CALL THE« 0x279d…279e 0x0b 0x279e…279f 0x81 0x279f…27a0 »*« 0x27a0…27a1 0x0a 0x27a1…27a2 0x81 0x27a2…27a3 »*« 0x27a3…27a4 0x07 0x27a4…27a5 0x9e 0x27a5…27c3 »CONSOLE FILE FORMAT GENERATOR.« 0x27c3…27c4 0x1f 0x27c4…27c5 0x81 0x27c5…27c6 »*« 0x27c6…27c7 0x0a 0x27c7…27c8 0xc6 0x27c8…280e »**********************************************************************« 0x280e…280f 0x0a 0x280f…2810 0xbb 0x2810…284b »// IFF ?CD?/1008 IF ?L'238,1'?/0 INCLUDE RPGR,#RPGLIB ?1?,+« 0x284b…284c 0x15 0x284c…284d 0x9d 0x284d…286a »?18?,NOSAVE,?2?,?8?,,?13?,?4?« 0x286a…286b 0x33 0x286b…286c 0xad 0x286c…2899 »*********************************************« 0x2899…289a 0x23 0x289a…289b 0x81 0x289b…289c »*« 0x289c…289d 0x07 0x289d…289e 0x9f 0x289e…28bd »IF DSM REQUESTED, USE $MAINT TO« 0x28bd…28be 0x05 0x28be…28bf 0x81 0x28bf…28c0 »*« 0x28c0…28c1 0x23 0x28c1…28c2 0x81 0x28c2…28c3 »*« 0x28c3…28c4 0x07 0x28c4…28c5 0x9f 0x28c5…28e4 »REPLACE THE SOURCE WITH THE DSM« 0x28e4…28e5 0x05 0x28e5…28e6 0x81 0x28e6…28e7 »*« 0x28e7…28e8 0x23 0x28e8…28e9 0xad 0x28e9…2916 »*********************************************« 0x2916…2917 0x23 0x2917…2918 0xa0 0x2918…2938 »// IFF ?L'237,1'?/Y GOTO SKIPDSM« 0x2938…2939 0x30 0x2939…293a 0x8e 0x293a…2948 »// LOAD $MAINT« 0x2948…2949 0x42 0x2949…294a 0xae 0x294a…2978 »// FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1?« 0x2978…2979 0x22 0x2979…297a 0x86 0x297a…2980 »// RUN« 0x2980…2981 0x4a 0x2981…2982 0xad 0x2982…29af »// COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2« 0x29af…29b0 0x23 0x29b0…29b1 0x86 0x29b1…29b7 »// END« 0x29b7…29b8 0x4a 0x29b8…29b9 0x8e 0x29b9…29c7 »// TAG SKIPDSM« 0x29c7…29c8 0x42 0x29c8…29c9 0x81 0x29c9…29ca »*« 0x29ca…29cb 0x4f 0x29cb…29cc 0xc2 0x29cc…2a0e »******************************************************************« 0x2a0e…2a0f 0x0e 0x2a0f…2a10 0x81 0x2a10…2a11 »*« 0x2a11…2a12 0x02 0x2a12…2a13 0xbb 0x2a13…2a4e »IF THE PRINTER WAS NOT IN CONTINUE MODE WHEN THIS PROCEDURE« 0x2a4e…2a4f 0x03 0x2a4f…2a50 0x81 0x2a50…2a51 »*« 0x2a51…2a52 0x0e 0x2a52…2a53 0x81 0x2a53…2a54 »*« 0x2a54…2a55 0x02 0x2a55…2a56 0xbf 0x2a56…2a95 »WAS ENTERED, OR IF CRT WAS REQUESTED, THEN RESET THE CONTINUE *« 0x2a95…2a96 0x0e 0x2a96…2a97 0x81 0x2a97…2a98 »*« 0x2a98…2a99 0x02 0x2a99…2a9a 0x8d 0x2a9a…2aa7 »STATUS TO NO.« 0x2aa7…2aa8 0x31 0x2aa8…2aa9 0x81 0x2aa9…2aaa »*« 0x2aaa…2aab 0x0e 0x2aab…2aac 0xc2 0x2aac…2aee »******************************************************************« 0x2aee…2aef 0x0e 0x2aef…2af0 0xb6 0x2af0…2b26 »// IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2« 0x2b26…2b27 0x1a 0x2b27…2b28 0x96 0x2b28…2b3e »// PRINTER CONTINUE-NO« 0x2b3e…2b3f 0x3a 0x2b3f…2b40 0x8c 0x2b40…2b4c »// TAG SKIP2« 0x2b4c…2b4d 0x44 0x2b4d…2b4e 0xbc 0x2b4e…2b8a »************************************************************« 0x2b8a…2b8b 0x14 0x2b8b…2b8c 0x81 0x2b8c…2b8d »*« 0x2b8d…2b8e 0x07 0x2b8e…2b8f 0xb1 0x2b8f…2bc0 »THE FOLLOWING OCL IS EXECUTED IF PARAMETER 4=CRT.« 0x2bc0…2bc1 0x02 0x2bc1…2bc2 0x81 0x2bc2…2bc3 »*« 0x2bc3…2bc4 0x14 0x2bc4…2bc5 0x81 0x2bc5…2bc6 »*« 0x2bc6…2bc7 0x07 0x2bc7…2bc8 0xac 0x2bc8…2bf4 »USE COPYPRT MODULES TO DO THE DISPLAY OF THE« 0x2bf4…2bf5 0x07 0x2bf5…2bf6 0x81 0x2bf6…2bf7 »*« 0x2bf7…2bf8 0x14 0x2bf8…2bf9 0x81 0x2bf9…2bfa »*« 0x2bfa…2bfb 0x07 0x2bfb…2bfc 0x90 0x2bfc…2c0c »HELD PRINT FILE.« 0x2c0c…2c0d 0x02 0x2c0d…2c0e 0x9c 0x2c0e…2c2a »CANCEL THE SPOOL FILE ENTRY.« 0x2c2a…2c2b 0x05 0x2c2b…2c2c 0x81 0x2c2c…2c2d »*« 0x2c2d…2c2e 0x14 0x2c2e…2c2f 0x81 0x2c2f…2c30 »*« 0x2c30…2c31 0x07 0x2c31…2c32 0xb0 0x2c32…2c62 »PARAMETER 30 WILL CONTAIN THE SPOOL-ID RETRIEVED« 0x2c62…2c63 0x03 0x2c63…2c64 0x81 0x2c64…2c65 »*« 0x2c65…2c66 0x14 0x2c66…2c67 0x81 0x2c67…2c68 »*« 0x2c68…2c69 0x07 0x2c69…2c6a 0xa6 0x2c6a…2c90 »FROM OFFSET 181-186 OF THE SYSTEM LDA.« 0x2c90…2c91 0x0d 0x2c91…2c92 0x81 0x2c92…2c93 »*« 0x2c93…2c94 0x14 0x2c94…2c95 0xbc 0x2c95…2cd1 »************************************************************« 0x2cd1…2cd2 0x14 0x2cd2…2cd3 0x9d 0x2cd3…2cf0 »// IFF ?L'14,3'?/CRT GOTO END« 0x2cf0…2cf1 0x33 0x2cf1…2cf2 0x9c 0x2cf2…2d0e »// EVALUATE P30='?L'181,6'?'« 0x2d0e…2d0f 0x34 0x2d0f…2d10 0x8d 0x2d10…2d1d »// LOAD $UASF« 0x2d1d…2d1e 0x43 0x2d1e…2d1f 0x86 0x2d1f…2d25 »// RUN« 0x2d25…2d26 0x4a 0x2d26…2d27 0xb9 0x2d27…2d60 »// SPOOL SPOOLID-?30?,NAME-RP?30?,RETAIN-J,RELCANS-CANCEL« 0x2d60…2d61 0x17 0x2d61…2d62 0x86 0x2d62…2d68 »// END« 0x2d68…2d69 0x4a 0x2d69…2d6a 0x8d 0x2d6a…2d77 »// LOAD $UASC« 0x2d77…2d78 0x43 0x2d78…2d79 0x9c 0x2d79…2d95 »// FILE NAME-RP?30?,DISP-SHR« 0x2d95…2d96 0x34 0x2d96…2d97 0x86 0x2d97…2d9d »// RUN« 0x2d9d…2d9e 0x4a 0x2d9e…2d9f 0xbb 0x2d9f…2dda »***********************************************************« 0x2dda…2ddb 0x15 0x2ddb…2ddc 0x81 0x2ddc…2ddd »*« 0x2ddd…2dde 0x02 0x2dde…2ddf 0xb8 0x2ddf…2e17 »RESTORE THE RETURN CODE SET BY THE RPG COMPILER TO THE *« 0x2e17…2e18 0x15 0x2e18…2e19 0x81 0x2e19…2e1a »*« 0x2e1a…2e1b 0x02 0x2e1b…2e1c 0x9d 0x2e1c…2e39 »RETURN CODE FIELD IN THE JCB.« 0x2e39…2e3a 0x1a 0x2e3a…2e3b 0x81 0x2e3b…2e3c »*« 0x2e3c…2e3d 0x15 0x2e3d…2e3e 0xbb 0x2e3e…2e79 »***********************************************************« 0x2e79…2e7a 0x15 0x2e7a…2e7b 0x8a 0x2e7b…2e85 »// TAG END« 0x2e85…2e86 0x46 0x2e86…2e87 0x93 0x2e87…2e9a »// EVALUATE CD=?64?« 0x2e9a…2e9b 0x3d 0x2e9b…2e9c 0x81 0x2e9c…2e9d »*« 0x2e9d…2e9e 0x4f 0x2e9e…2e9f 0x89 0x2e9f…2ea8 »// RETURN« 0x2ea8…2ea9 0x47 0x2ea9…2eaa 0xd0 0x2eaa…2efa »******************************************************************************* « 0x2efa…2efb 0x81 0x2efb…2efc »*« 0x2efc…2efd 0x4d 0x2efd…2efe 0x82 0x2efe…2f00 »* « 0x2f00…2f01 0x81 0x2f01…2f02 »*« 0x2f02…2f03 0x05 0x2f03…2f04 0xb1 0x2f04…2f35 »RPGC NAME,INLIB,DSM,PRINT,XREF,MRTMAX,NEP,OUTLIB,« 0x2f35…2f36 0x17 0x2f36…2f37 0x82 0x2f37…2f39 »* « 0x2f39…2f3a 0x81 0x2f3a…2f3b »*« 0x2f3b…2f3c 0x0b 0x2f3c…2f3d 0xbc 0x2f3d…2f79 »SOURCE,DEBUG,OBJSIZE,HALT,REPLACE,LINK,OBJ,SUBLIB,GEN,BLOCKS« 0x2f79…2f7a 0x06 0x2f7a…2f7b 0x82 0x2f7b…2f7d »* « 0x2f7d…2f7e 0x81 0x2f7e…2f7f »*« 0x2f7f…2f80 0x4d 0x2f80…2f81 0x82 0x2f81…2f83 »* « 0x2f83…2f84 0x81 0x2f84…2f85 »*« 0x2f85…2f86 0x04 0x2f86…2f87 0xc4 0x2f87…2fcb »THIS PROCEDURE ALLOWS THE USER TO COMPILE AN RPG SOURCE PROGRAM, AND« 0x2fcb…2fcc 0x05 0x2fcc…2fcd 0x82 0x2fcd…2fcf »* « 0x2fcf…2fd0 0x81 0x2fd0…2fd1 »*« 0x2fd1…2fd2 0x04 0x2fd2…2fd3 0xc4 0x2fd3…3017 »OPTIONALLY, RUN THE RPG CROSS-REFERENCE PROGRAM, RUN THE RPG CONSOLE« 0x3017…3018 0x05 0x3018…3019 0x82 0x3019…301b »* « 0x301b…301c 0x81 0x301c…301d »*« 0x301d…301e 0x04 0x301e…301f 0xc1 0x301f…3060 »FILE FORMAT GENERATOR, AND CREATE A DIAGNOSED SOURCE FILE MEMBER.« 0x3060…3061 0x02 0x3061…3062 0x82 0x3062…3064 »IF« 0x3064…3065 0x04 0x3065…3066 0x82 0x3066…3068 »* « 0x3068…3069 0x81 0x3069…306a »*« 0x306a…306b 0x04 0x306b…306c 0xc7 0x306c…30b3 »DSM IS SPECIFIED, THE DIAGNOSED SOURCE MEMBER IS DISPLAY AT THE DISPLAY« 0x30b3…30b4 0x02 0x30b4…30b5 0x82 0x30b5…30b7 »* « 0x30b7…30b8 0x81 0x30b8…30b9 »*« 0x30b9…30ba 0x04 0x30ba…30bb 0x90 0x30bb…30cb »STATION VIA SEU.« 0x30cb…30cc 0x39 0x30cc…30cd 0x82 0x30cd…30cf »* « 0x30cf…30d0 0x81 0x30d0…30d1 »*« 0x30d1…30d2 0x4d 0x30d2…30d3 0x82 0x30d3…30d5 »* « 0x30d5…30d6 0x81 0x30d6…30d7 »*« 0x30d7…30d8 0x05 0x30d8…30d9 0xb5 0x30d9…310e »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING:« 0x310e…310f 0x13 0x310f…3110 0x82 0x3110…3112 »* « 0x3112…3113 0x81 0x3113…3114 »*« 0x3114…3115 0x4d 0x3115…3116 0x82 0x3116…3118 »* « 0x3118…3119 0x81 0x3119…311a »*« 0x311a…311b 0x05 0x311b…311c 0xa6 0x311c…3142 »NAME - SOURCE PROGRAM NAME, (REQUIRED)« 0x3142…3143 0x22 0x3143…3144 0x82 0x3144…3146 »* « 0x3146…3147 0x81 0x3147…3148 »*« 0x3148…3149 0x05 0x3149…314a 0xb0 0x314a…317a »INLIB - INPUT LIBRARY, DEFAULT - CURRENT LIBRARY« 0x317a…317b 0x18 0x317b…317c 0x82 0x317c…317e »* « 0x317e…317f 0x81 0x317f…3180 »*« 0x3180…3181 0x05 0x3181…3182 0xb5 0x3182…31b7 »DSM - CREATE DIAGNOSED SOURCE MEMBER, DEFAULT - NODSM« 0x31b7…31b8 0x13 0x31b8…31b9 0x82 0x31b9…31bb »* « 0x31bb…31bc 0x81 0x31bc…31bd »*« 0x31bd…31be 0x05 0x31be…31bf 0xaf 0x31bf…31ee »PRINT - LISTING OUTPUT OPTIONS, DEFAULT - PRINT« 0x31ee…31ef 0x19 0x31ef…31f0 0x82 0x31f0…31f2 »* « 0x31f2…31f3 0x81 0x31f3…31f4 »*« 0x31f4…31f5 0x05 0x31f5…31f6 0xb8 0x31f6…322e »XREF - PROVIDE CROSS-REFERENCE LISTING, DEFAULT - NOXREF« 0x322e…322f 0x10 0x322f…3230 0x82 0x3230…3232 »* « 0x3232…3233 0x81 0x3233…3234 »*« 0x3234…3235 0x05 0x3235…3236 0xbb 0x3236…3271 »MRTMAX - MAX. # OF REQUESTING DISPLAY STATIONS, DEFAULT - 0« 0x3271…3272 0x0d 0x3272…3273 0x82 0x3273…3275 »* « 0x3275…3276 0x81 0x3276…3277 »*« 0x3277…3278 0x05 0x3278…3279 0xab 0x3279…32a4 »NEP - NEVER-ENDING PROGRAM, DEFAULT - NONEP« 0x32a4…32a5 0x1d 0x32a5…32a6 0x82 0x32a6…32a8 »* « 0x32a8…32a9 0x81 0x32a9…32aa »*« 0x32aa…32ab 0x05 0x32ab…32ac 0xb0 0x32ac…32dc »OUTLIB - OUTPUT LIBRARY, DEFAULT - INPUT LIBRARY« 0x32dc…32dd 0x18 0x32dd…32de 0x82 0x32de…32e0 »* « 0x32e0…32e1 0x81 0x32e1…32e2 »*« 0x32e2…32e3 0x05 0x32e3…32e4 0x9e 0x32e4…3302 »SOURCE - SOURCE PRINT OVERRIDE« 0x3302…3303 0x02 0x3303…3304 0x8a 0x3304…330e »(OPTIONAL)« 0x330e…330f 0x1e 0x330f…3310 0x82 0x3310…3312 »* « 0x3312…3313 0x81 0x3313…3314 »*« 0x3314…3315 0x05 0x3315…3316 0x9d 0x3316…3333 »DEBUG - SOURCE DEBUG OVERRIDE« 0x3333…3334 0x02 0x3334…3335 0x8a 0x3335…333f »(OPTIONAL)« 0x333f…3340 0x1f 0x3340…3341 0x82 0x3341…3343 »* « 0x3343…3344 0x81 0x3344…3345 »*« 0x3345…3346 0x05 0x3346…3347 0xa9 0x3347…3370 »OBJSIZE - SOURCE SIZE-TO-EXECUTE OVERRIDE« 0x3370…3371 0x02 0x3371…3372 0x8a 0x3372…337c »(OPTIONAL)« 0x337c…337d 0x13 0x337d…337e 0x82 0x337e…3380 »* « 0x3380…3381 0x81 0x3381…3382 »*« 0x3382…3383 0x05 0x3383…3384 0xb0 0x3384…33b4 »HALT - HALT ON TERMINAL ERRORS, DEFAULT - NOHALT« 0x33b4…33b5 0x18 0x33b5…33b6 0x82 0x33b6…33b8 »* « 0x33b8…33b9 0x81 0x33b9…33ba »*« 0x33ba…33bb 0x05 0x33bb…33bc 0xc5 0x33bc…3401 »REPLACE - REPLACE DUPLICATE MEMBER WITHOUT MESSAGE, DEFAULT - REPLACE« 0x3401…3402 0x03 0x3402…3403 0x82 0x3403…3405 »* « 0x3405…3406 0x81 0x3406…3407 »*« 0x3407…3408 0x05 0x3408…3409 0xaf 0x3409…3438 »LINK - CREATE EXECUTABLE MODULE, DEFAULT - LINK« 0x3438…3439 0x19 0x3439…343a 0x82 0x343a…343c »* « 0x343c…343d 0x81 0x343d…343e »*« 0x343e…343f 0x05 0x343f…3440 0xb6 0x3440…3476 »OBJ - CREATE NON-EXECUTABLE MODULE, DEFAULT - NOOBJECT« 0x3476…3477 0x12 0x3477…3478 0x82 0x3478…347a »* « 0x347a…347b 0x81 0x347b…347c »*« 0x347c…347d 0x05 0x347d…347e 0xba 0x347e…34b8 »SUBLIB - SUBROUTINE INPUT LIBRARY, DEFAULT - INPUT LIBRARY« 0x34b8…34b9 0x0e 0x34b9…34ba 0x82 0x34ba…34bc »* « 0x34bc…34bd 0x81 0x34bd…34be »*« 0x34be…34bf 0x05 0x34bf…34c0 0xb4 0x34c0…34f4 »GEN - GENERATE CONSOLE SCREEN FORMATS, DEFAULT - GEN« 0x34f4…34f5 0x14 0x34f5…34f6 0x82 0x34f6…34f8 »* « 0x34f8…34f9 0x81 0x34f9…34fa »*« 0x34fa…34fb 0x05 0x34fb…34fc 0xc1 0x34fc…353d »BLOCKS - BLOCK SIZE FOR $SOURCE,$WORK,$WORK2,$WORK3, DEFAULT - 40« 0x353d…353e 0x07 0x353e…353f 0x82 0x353f…3541 »* « 0x3541…3542 0x81 0x3542…3543 »*« 0x3543…3544 0x05 0x3544…3545 0x87 0x3545…354c »DATADCT« 0x354c…354d 0x02 0x354d…354e 0xb5 0x354e…3583 »- DATA DICTIONARY NAME TO USE WITH COMM. FORMATS FILE« 0x3583…3584 0x0a 0x3584…3585 0x82 0x3585…3587 »* « 0x3587…3588 0x81 0x3588…3589 »*« 0x3589…358a 0x05 0x358a…358b 0xaf 0x358b…35ba »MRO - MEMORY RESIDENT OVERLAYS, DEFAULT - NOMRO« 0x35ba…35bb 0x19 0x35bb…35bc 0x82 0x35bc…35be »* « 0x35be…35bf 0x81 0x35bf…35c0 »*« 0x35c0…35c1 0x4d 0x35c1…35c2 0x82 0x35c2…35c4 »* « 0x35c4…35c5 0x81 0x35c5…35c6 »*« 0x35c6…35c7 0x05 0x35c7…35c8 0x9b 0x35c8…35e3 »ADDITIONAL PARAMETER USAGE:« 0x35e3…35e4 0x2d 0x35e4…35e5 0x82 0x35e5…35e7 »* « 0x35e7…35e8 0x81 0x35e8…35e9 »*« 0x35e9…35ea 0x0c 0x35ea…35eb 0xae 0x35eb…3619 »P21 - USED TO TELL RPGC NOT TO ISSUE THE 'RPGC« 0x3619…361a 0x13 0x361a…361b 0x82 0x361b…361d »* « 0x361d…361e 0x81 0x361e…361f »*« 0x361f…3620 0x12 0x3620…3621 0xaf 0x3621…3650 »PROCEDURE IS RUNNING' MESSAGE IF CALLED BY RPG.« 0x3650…3651 0x0c 0x3651…3652 0x82 0x3652…3654 »* « 0x3654…3655 0x81 0x3655…3656 »*« 0x3656…3657 0x0c 0x3657…3658 0xb6 0x3658…368e »P30 - USED TO STORE THE SPOOL-ID RETRIEVED FROM OFFSET« 0x368e…368f 0x0b 0x368f…3690 0x82 0x3690…3692 »* « 0x3692…3693 0x81 0x3693…3694 »*« 0x3694…3695 0x12 0x3695…3696 0xa6 0x3696…36bc »181-186 OF THE SYSTEM LOCAL DATA AREA.« 0x36bc…36bd 0x02 0x36bd…36be 0x84 0x36be…36c2 »THIS« 0x36c2…36c3 0x0f 0x36c3…36c4 0x82 0x36c4…36c6 »* « 0x36c6…36c7 0x81 0x36c7…36c8 »*« 0x36c8…36c9 0x12 0x36c9…36ca 0xaf 0x36ca…36f9 »INFORMATION IS NEEDED TO VIEW THE HELD COMPILER« 0x36f9…36fa 0x0c 0x36fa…36fb 0x82 0x36fb…36fd »* « 0x36fd…36fe 0x81 0x36fe…36ff »*« 0x36ff…3700 0x12 0x3700…3701 0xa4 0x3701…3725 »OUTPUT VIA COPYPRT($UASF AND $UASC).« 0x3725…3726 0x17 0x3726…3727 0x82 0x3727…3729 »* « 0x3729…372a 0x81 0x372a…372b »*« 0x372b…372c 0x0c 0x372c…372d 0xb4 0x372d…3761 »P64 - USED TO STORE THE JCB RETURN CODE FROM THE RPG« 0x3761…3762 0x0d 0x3762…3763 0x82 0x3763…3765 »* « 0x3765…3766 0x81 0x3766…3767 »*« 0x3767…3768 0x12 0x3768…3769 0xb1 0x3769…379a »COMPILE. A RETURN CODE OF '0000' MEANS THE SOURCE« 0x379a…379b 0x0a 0x379b…379c 0x82 0x379c…379e »* « 0x379e…379f 0x81 0x379f…37a0 »*« 0x37a0…37a1 0x12 0x37a1…37a2 0xaf 0x37a2…37d1 »PROGRAM COMPILED WITHOUT ANY ERRORS, AND '1008'« 0x37d1…37d2 0x0c 0x37d2…37d3 0x82 0x37d3…37d5 »* « 0x37d5…37d6 0x81 0x37d6…37d7 »*« 0x37d7…37d8 0x12 0x37d8…37d9 0x9d 0x37d9…37f6 »MEANS COMPILE ERRORS OCCURED.« 0x37f6…37f7 0x1e 0x37f7…37f8 0x82 0x37f8…37fa »* « 0x37fa…37fb 0x81 0x37fb…37fc »*« 0x37fc…37fd 0x4d 0x37fd…37fe 0x82 0x37fe…3800 »* « 0x3800…3801 0x81 0x3801…3802 »*« 0x3802…3803 0x05 0x3803…3804 0xb5 0x3804…3839 »NOTE: PARAMETER 19 CONTAINS THE DATA DICTIONARY NAME.« 0x3839…383a 0x13 0x383a…383b 0x82 0x383b…383d »* « 0x383d…383e 0x81 0x383e…383f »*« 0x383f…3840 0x0b 0x3840…3841 0xbc 0x3841…387d »PARAMETER 20 CONTAINS THE MEMORY RESIDENT OVERLAYS PARAMETER« 0x387d…387e 0x06 0x387e…387f 0x82 0x387f…3881 »* « 0x3881…3882 0x81 0x3882…3883 »*« 0x3883…3884 0x4d 0x3884…3885 0x82 0x3885…3887 »* « 0x3887…3888 0xd0 0x3888…38d8 »******************************************************************************* « 0x38d8…38d9 0x00 0x38d9…38e0 d9 c5 c5 d5 40 c6 d6 ┆REEN FO┆ 0x38e0…3900 d9 d4 c1 e3 e2 6b 40 c4 c5 c6 c1 e4 d3 e3 40 60 40 c7 c5 d5 14 82 5c 40 81 5c 05 c1 c2 d3 d6 c3 ┆RMATS, DEFAULT - GEN b* a* ABLOC┆