|
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: 14848 (0x3a00)
Notes: MEMBER_P, Member_Text
Names: »AUTOC «
└─⟦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⟧ ».AUTOC «
******************************************************************************* * THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTOC' * * * * * * CHANGE ACTIVITY: * * 11/11/82 THE //EVALUATE STATEMENT IS USED TO STORE THE JCB RETURN * * CODE, AS SET BY THE RPG COMPILER. THIS VALUE IS RESTORED * * TO THE JCB AT THE END OF THE PROCEDURE. * * 06/13/83 the screen displayed default value for number of blocks in * * in work files is changed from '0040' to '40'. the value * * the mrt maximum is changed from '00' to '0'. this is * * done under ptr ev70958. * * 10/03/83 CC6060 IDDU Communication * * Prompt for data dictionary name. * * 06/18/84 ev72558 change the dictionary parameter 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 the $SOURCE and $WORK work files. * * 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 that 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 OCL 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 IS BLANK AND JOBQ OR * EVOKED ISSUE ERROR MESSAGE // MSG ?WS?,?M'2100,1,75'? // RETURN * // TAG NJOBQ // HELP AUTOC ,?2'?CLIB?'?,?3'COMP'?,?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 PARAMETERS FOR VALID ENTRIES. * * EACH PARAMETER IS PROCESSED AS SHOWN BELOW: * * * * PARAMETER RESULT * * INVALID -----> ISSUE PROPER ERROR VIA * * #ERR WITH 0 AND 3 OPTIONS. * * 0 RESPONSE MEANS CONTIUNE * * 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 PARAMETER IS DETECTED. * * * ************************************************************************** // TAG PUTPARMS * ****************************************************************** * * IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED * * * OR WAS NOT CALLED FROM THE AUTO PROCEDURE, THEN ISSUE THE * * * 'AUTOC PROCEDURE IS RUNNING' MESSAGE. * * ****************************************************************** // IF JOBQ-NO IF EVOKED-NO IFF AUTO/?21? * 1046 * // LOCAL OFFSET-1,DATA-'RPGAUTOC',AREA-SYSTEM PROC NAME // EVALUATE P31='?L'9,5'?' STORE THE DSM VALUE USED // LOCAL OFFSET-9,DATA-'NODSM',AREA-SYSTEM SET THE DEFAULT FOR AUTOC // 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'COMP'?/COMP IFF ?3?/NOCOMP #ERR 1049,03,RPG ?3F'COMP'? // IFF ?4'PRINT'?/ IFF ?4?/CRT IFF ?4?/PRINT IFF ?4?/NOPRINT + #ERR 1033,03,RPG ?4F'PRINT'? * ******************************************************************* * * JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER. AN ERROR MESSAGE * * * IS ISSUED BY #ERR WITH THE FOLLOWING 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?/NOSOURCE IFF ?9?/PSOURCE #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 ALL PARAMETER VALUES IN THE PROPER AREAS OF THE * * SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA). * ************************************************************ // LIBRARY NAME-#RPGLIB // 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-213,DATA-'?1?',BLANK-8,AREA-SYSTEM #AUTO WILL OVERLAY THIS // LOCAL OFFSET-221,DATA-'?2?',BLANK-8,AREA-SYSTEM AREA IF SOURCE IS CATALOGED // LOCAL OFFSET-89,DATA-'?3?',BLANK-6,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-'A96',BLANK-4,AREA-SYSTEM USED BY RPGSEU *********************************************************************** * THIS BLOCK PREPARES TO CALL THE AUTO REPORT COMPILER. * * THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS. * * IF PARAMETER 4=CRT, THE PRINT FILE IS GIVEN A PRIORITY OF 0, * * HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING. * * PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS * * FROM AUTO REPORT, 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, #AUTO WILL ISSUE RPG-1027. * *********************************************************************** // LOAD #AUTO,#RPGLIB // FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,EXTEND-25 // 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 XREF PROGRAM. THE COMPILER WILL SET A RETURN * * CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS. * * IF THE SOURCE TO BE XREFED IS ALREADY IN THE $WORK2 FILE * * LOCAL OFFSET 169-176 WILL CONTAIN '11111111'. * ******************************************************************* // IF ?5?/XREF IFF ?CD?/1008 IFF ?4?/NOPRINT + INCLUDE RPGX,#RPGLIB ?L'213,8'?,?18?,?L'221,8'?,?L'169,8'? ************************************************************* * IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER * * WILL SET BYTE 238 OF LDA TO '1'. IF THE PROGRAM CONTAINS * * 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. * * IF THE SOURCE TO HAVE FORMATS GENERATED FOR IS ALREADY * * IN THE $WORK2 FILE LOCAL OFFSET 169-176 WILL CONTAIN * * '11111111'. * ************************************************************* // IF ?L'238,1'?/0 IFF ?CD?/1008 INCLUDE RPGR,#RPGLIB + ?L'213,8'?,?18?,NOSAVE,?L'221,8'?,?8?,,?13?,?4?,?L'169,8'? ****************************************************************** * 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. * * CALL THE COPYPRT MODULES PROCEDURE 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 // LOCAL OFFSET-9,DATA-'?31?',BLANK-5,AREA-SYSTEM RESET DSM VALUE // EVALUATE CD=?64? * // RETURN ******************************************************************************* * * * AUTOC NAME,INLIB,COMP,PRINT,XREF,MRTMAX,NEP,OUTLIB, * * SOURCE,DEBUG,OBJSIZE,HALT,REPLACE,LINK,OBJ,SUBLIB,GEN,BLOCKS * * * * THIS PROCEDURE EXECUTES THE AUTO REPORT FUNCTION AND OPTIONALLY, * * EXECUTES THE RPG CROSS REFERENCE PROGRAM, THE RPG CONSOLE FILE FORMAT * * GENERATOR, AND THE RPG COMPILER. * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING: * * * * NAME - SOURCE PROGRAM NAME, (REQUIRED) * * INLIB - INPUT LIBRARY, DEFAULT - CURRENT LIBRARY * * COMP - CALL RPG COMPILER, DEFAULT - COMP * * 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 AUTOC NOT TO ISSUE THE 'AUTOC * * PROCEDURE IS RUNNING' MESSAGE IF CALLED BY * * AUTO. * * P30 - CONTAINS 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). * * P31 - USED TO STORE THE DSM VALUE PREVIOUSLY USED. THE * * DEFAULT IN RPG WHEN CALLED FROM AUTOC IS NODSM. * * THE VALUE MUST BE RESTORED TO INSURE INTEGRITY OF * * PARAMETER MEMORY. * * P64 - USED TO STORE THE RETURN CODE FROM THE RPG * * COMPILER. '0000' MEANS THAT THERE WERE NO * * COMPILE ERRORS AND '1008' MEANS THAT THERE WERE. * * * * NOTE: PARAMETER 19 CONTAINS THE DATA DICTIONARY NAME. * * PARAMETER 20 CONTAINS THE MEMORY RESIDENT OVERLAYS PARAMETER * * * LOCAL AREA USAGE: (SEE LDA LAYOUT DATA IN MEMBER LDADATA) * * * *******************************************************************************
0x0000…0001 0xd0 0x0001…0051 »******************************************************************************* « 0x0051…0052 0x81 0x0052…0053 »*« 0x0053…0054 0x02 0x0054…0055 0xb6 0x0055…008b »THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTOC'« 0x008b…008c 0x15 0x008c…008d 0x82 0x008d…008f »* « 0x008f…0090 0x81 0x0090…0091 »*« 0x0091…0092 0x4d 0x0092…0093 0x82 0x0093…0095 »* « 0x0095…0096 0x81 0x0096…0097 »*« 0x0097…0098 0x4d 0x0098…0099 0x82 0x0099…009b »* « 0x009b…009c 0x92 0x009c…00ae »* CHANGE ACTIVITY:« 0x00ae…00af 0x3c 0x00af…00b0 0x82 0x00b0…00b2 »* « 0x00b2…00b3 0x81 0x00b3…00b4 »*« 0x00b4…00b5 0x04 0x00b5…00b6 0xc1 0x00b6…00f7 »11/11/82 THE //EVALUATE STATEMENT IS USED TO STORE THE JCB RETURN« 0x00f7…00f8 0x08 0x00f8…00f9 0x82 0x00f9…00fb »* « 0x00fb…00fc 0x81 0x00fc…00fd »*« 0x00fd…00fe 0x0d 0x00fe…00ff 0xa1 0x00ff…0120 »CODE, AS SET BY THE RPG COMPILER.« 0x0120…0121 0x02 0x0121…0122 0x96 0x0122…0138 »THIS VALUE IS RESTORED« 0x0138…0139 0x07 0x0139…013a 0x82 0x013a…013c »* « 0x013c…013d 0x81 0x013d…013e »*« 0x013e…013f 0x0d 0x013f…0140 0xa7 0x0140…0167 »TO THE JCB AT THE END OF THE PROCEDURE.« 0x0167…0168 0x19 0x0168…0169 0x82 0x0169…016b »* « 0x016b…016c 0x81 0x016c…016d »*« 0x016d…016e 0x04 0x016e…016f 0xc3 0x016f…01b2 »06/13/83 the screen displayed default value for number of blocks in« 0x01b2…01b3 0x06 0x01b3…01b4 0x82 0x01b4…01b6 »* « 0x01b6…01b7 0x81 0x01b7…01b8 »*« 0x01b8…01b9 0x0d 0x01b9…01ba 0xb7 0x01ba…01f1 »in work files is changed from '0040' to '40'. the value« 0x01f1…01f2 0x09 0x01f2…01f3 0x82 0x01f3…01f5 »* « 0x01f5…01f6 0x81 0x01f6…01f7 »*« 0x01f7…01f8 0x0d 0x01f8…01f9 0xac 0x01f9…0225 »the mrt maximum is changed from '00' to '0'.« 0x0225…0226 0x02 0x0226…0227 0x87 0x0227…022e »this is« 0x022e…022f 0x0b 0x022f…0230 0x82 0x0230…0232 »* « 0x0232…0233 0x81 0x0233…0234 »*« 0x0234…0235 0x0d 0x0235…0236 0x97 0x0236…024d »done under ptr ev70958.« 0x024d…024e 0x29 0x024e…024f 0x82 0x024f…0251 »* « 0x0251…0252 0x81 0x0252…0253 »*« 0x0253…0254 0x04 0x0254…0255 0xa2 0x0255…0277 »10/03/83 CC6060 IDDU Communication« 0x0277…0278 0x27 0x0278…0279 0x82 0x0279…027b »* « 0x027b…027c 0x81 0x027c…027d »*« 0x027d…027e 0x0d 0x027e…027f 0xa0 0x027f…029f »Prompt for data dictionary name.« 0x029f…02a0 0x20 0x02a0…02a1 0x82 0x02a1…02a3 »* « 0x02a3…02a4 0x81 0x02a4…02a5 »*« 0x02a5…02a6 0x04 0x02a6…02a7 0xbf 0x02a7…02e6 »06/18/84 ev72558 change the dictionary parameter on the Compile« 0x02e6…02e7 0x0a 0x02e7…02e8 0x82 0x02e8…02ea »* « 0x02ea…02eb 0x81 0x02eb…02ec »*« 0x02ec…02ed 0x0d 0x02ed…02ee 0x98 0x02ee…0306 »OCL statement to DATADCT« 0x0306…0307 0x28 0x0307…0308 0x82 0x0308…030a »* « 0x030a…030b 0x81 0x030b…030c »*« 0x030c…030d 0x04 0x030d…030e 0xb9 0x030e…0347 »08/20/84 ev18928 include second level text message member« 0x0347…0348 0x10 0x0348…0349 0x82 0x0349…034b »* « 0x034b…034c 0x81 0x034c…034d »*« 0x034d…034e 0x04 0x034e…034f 0xcb 0x034f…039a »08/22/84 Issue RPG-1066 if the data dictionary specified does not exist. * « 0x039a…039b 0x81 0x039b…039c »*« 0x039c…039d 0x04 0x039d…039e 0xb6 0x039e…03d4 »08/22/84 CC6116 Add Memory Resident Overlays parameter« 0x03d4…03d5 0x13 0x03d5…03d6 0x82 0x03d6…03d8 »* « 0x03d8…03d9 0x81 0x03d9…03da »*« 0x03da…03db 0x04 0x03db…03dc 0xbf 0x03dc…041b »10/03/84 EV20024 The change was to add DISP-NEW to the File OCL« 0x041b…041c 0x0a 0x041c…041d 0x82 0x041d…041f »* « 0x041f…0420 0x81 0x0420…0421 »*« 0x0421…0422 0x0d 0x0422…0423 0xb0 0x0423…0453 »statements for the $SOURCE and $WORK work files.« 0x0453…0454 0x10 0x0454…0455 0x82 0x0455…0457 »* « 0x0457…0458 0x81 0x0458…0459 »*« 0x0459…045a 0x0d 0x045a…045b 0xb8 0x045b…0493 »The DISP was added because if the work files were placed« 0x0493…0494 0x08 0x0494…0495 0x82 0x0495…0497 »* « 0x0497…0498 0x81 0x0498…0499 »*« 0x0499…049a 0x0d 0x049a…049b 0xb8 0x049b…04d3 »on the Network Resource Directory(NRD), Distributed Data« 0x04d3…04d4 0x08 0x04d4…04d5 0x82 0x04d5…04d7 »* « 0x04d7…04d8 0x81 0x04d8…04d9 »*« 0x04d9…04da 0x0d 0x04da…04db 0xb6 0x04db…0511 »Management would check for the file on the NRD because« 0x0511…0512 0x0a 0x0512…0513 0x82 0x0513…0515 »* « 0x0515…0516 0x81 0x0516…0517 »*« 0x0517…0518 0x0d 0x0518…0519 0xba 0x0519…0553 »the DISP was not specified. Now that the file is described« 0x0553…0554 0x06 0x0554…0555 0x82 0x0555…0557 »* « 0x0557…0558 0x81 0x0558…0559 »*« 0x0559…055a 0x0d 0x055a…055b 0xb6 0x055b…0591 »as NEW and because it is RETAIN-S, it is automatically« 0x0591…0592 0x0a 0x0592…0593 0x82 0x0593…0595 »* « 0x0595…0596 0x81 0x0596…0597 »*« 0x0597…0598 0x0d 0x0598…0599 0xb4 0x0599…05cd »created as a local file, and the NRD is not checked.« 0x05cd…05ce 0x0c 0x05ce…05cf 0x82 0x05cf…05d1 »* « 0x05d1…05d2 0x81 0x05d2…05d3 »*« 0x05d3…05d4 0x0d 0x05d4…05d5 0xb9 0x05d5…060e »The File OCL statement for $WORK2 was not changed because« 0x060e…060f 0x07 0x060f…0610 0x82 0x0610…0612 »* « 0x0612…0613 0x81 0x0613…0614 »*« 0x0614…0615 0x0d 0x0615…0616 0xb5 0x0616…064b »it is a RETAIN-J file i.e. no DISP parameter allowed.« 0x064b…064c 0x0b 0x064c…064d 0x82 0x064d…064f »* « 0x064f…0650 0x81 0x0650…0651 »*« 0x0651…0652 0x4d 0x0652…0653 0x82 0x0653…0655 »* « 0x0655…0656 0xd0 0x0656…06a6 »******************************************************************************* « 0x06a6…06a7 0xb7 0x06a7…06de »// MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x06de…06df 0x03 0x06df…06e0 0x8e 0x06e0…06ee »MESSAGE MEMBER« 0x06ee…06ef 0x08 0x06ef…06f0 0x99 0x06f0…0709 »// IFF ?1?/ GOTO PUTPARMS« 0x0709…070a 0x11 0x070a…070b 0x9e 0x070b…0729 »IF P1 SPECIFIED PROCESS DIRECT« 0x0729…072a 0x08 0x072a…072b 0xa5 0x072b…0750 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x0750…0751 0x05 0x0751…0752 0x9a 0x0752…076c »IF P1 IS BLANK AND JOBQ OR« 0x076c…076d 0x0c 0x076d…076e 0x81 0x076e…076f »*« 0x076f…0770 0x29 0x0770…0771 0x9a 0x0771…078b »EVOKED ISSUE ERROR MESSAGE« 0x078b…078c 0x0c 0x078c…078d 0x9a 0x078d…07a7 »// MSG ?WS?,?M'2100,1,75'?« 0x07a7…07a8 0x36 0x07a8…07a9 0x89 0x07a9…07b2 »// RETURN« 0x07b2…07b3 0x47 0x07b3…07b4 0x81 0x07b4…07b5 »*« 0x07b5…07b6 0x4f 0x07b6…07b7 0x8c 0x07b7…07c3 »// TAG NJOBQ« 0x07c3…07c4 0x44 0x07c4…07c5 0xbd 0x07c5…0802 »// HELP AUTOC ,?2'?CLIB?'?,?3'COMP'?,?4'PRINT'?,?5'NOXREF'?,+« 0x0802…0803 0x13 0x0803…0804 0xc0 0x0804…0844 »?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+« 0x0844…0845 0x10 0x0845…0846 0xc2 0x0846…0888 »?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'?« 0x0888…0889 0x0e 0x0889…088a 0x89 0x088a…0893 »// RETURN« 0x0893…0894 0x47 0x0894…0895 0xca 0x0895…08df »**************************************************************************« 0x08df…08e0 0x06 0x08e0…08e1 0x81 0x08e1…08e2 »*« 0x08e2…08e3 0x48 0x08e3…08e4 0x81 0x08e4…08e5 »*« 0x08e5…08e6 0x06 0x08e6…08e7 0x81 0x08e7…08e8 »*« 0x08e8…08e9 0x02 0x08e9…08ea 0xb6 0x08ea…0920 »THE FOLLOWING OCL CHECKS PARAMETERS FOR VALID ENTRIES.« 0x0920…0921 0x10 0x0921…0922 0x81 0x0922…0923 »*« 0x0923…0924 0x06 0x0924…0925 0x81 0x0925…0926 »*« 0x0926…0927 0x02 0x0927…0928 0xab 0x0928…0953 »EACH PARAMETER IS PROCESSED AS SHOWN BELOW:« 0x0953…0954 0x1b 0x0954…0955 0x81 0x0955…0956 »*« 0x0956…0957 0x06 0x0957…0958 0x81 0x0958…0959 »*« 0x0959…095a 0x48 0x095a…095b 0x81 0x095b…095c »*« 0x095c…095d 0x06 0x095d…095e 0x81 0x095e…095f »*« 0x095f…0960 0x0b 0x0960…0961 0x89 0x0961…096a »PARAMETER« 0x096a…096b 0x19 0x096b…096c 0x86 0x096c…0972 »RESULT« 0x0972…0973 0x15 0x0973…0974 0x81 0x0974…0975 »*« 0x0975…0976 0x06 0x0976…0977 0x81 0x0977…0978 »*« 0x0978…0979 0x0c 0x0979…097a 0x87 0x097a…0981 »INVALID« 0x0981…0982 0x03 0x0982…0983 0x86 0x0983…0989 »----->« 0x0989…098a 0x11 0x098a…098b 0x96 0x098b…09a1 »ISSUE PROPER ERROR VIA« 0x09a1…09a2 0x05 0x09a2…09a3 0x81 0x09a3…09a4 »*« 0x09a4…09a5 0x06 0x09a5…09a6 0x81 0x09a6…09a7 »*« 0x09a7…09a8 0x2d 0x09a8…09a9 0x9c 0x09a9…09c5 »#ERR WITH 0 AND 3 OPTIONS. *« 0x09c5…09c6 0x06 0x09c6…09c7 0x81 0x09c7…09c8 »*« 0x09c8…09c9 0x2d 0x09c9…09ca 0x99 0x09ca…09e3 »0 RESPONSE MEANS CONTIUNE« 0x09e3…09e4 0x02 0x09e4…09e5 0x81 0x09e5…09e6 »*« 0x09e6…09e7 0x06 0x09e7…09e8 0x81 0x09e8…09e9 »*« 0x09e9…09ea 0x2d 0x09ea…09eb 0x99 0x09eb…0a04 »WITH DEFAULT SUBSTITUTED.« 0x0a04…0a05 0x02 0x0a05…0a06 0x81 0x0a06…0a07 »*« 0x0a07…0a08 0x06 0x0a08…0a09 0x81 0x0a09…0a0a »*« 0x0a0a…0a0b 0x2d 0x0a0b…0a0c 0x98 0x0a0c…0a24 »3 RESPONSE MEANS CANCEL.« 0x0a24…0a25 0x03 0x0a25…0a26 0x81 0x0a26…0a27 »*« 0x0a27…0a28 0x06 0x0a28…0a29 0x81 0x0a29…0a2a »*« 0x0a2a…0a2b 0x0c 0x0a2b…0a2c 0x85 0x0a2c…0a31 »VALID« 0x0a31…0a32 0x05 0x0a32…0a33 0x86 0x0a33…0a39 »----->« 0x0a39…0a3a 0x11 0x0a3a…0a3b 0x88 0x0a3b…0a43 »CONTINUE« 0x0a43…0a44 0x13 0x0a44…0a45 0x81 0x0a45…0a46 »*« 0x0a46…0a47 0x06 0x0a47…0a48 0x81 0x0a48…0a49 »*« 0x0a49…0a4a 0x48 0x0a4a…0a4b 0x81 0x0a4b…0a4c »*« 0x0a4c…0a4d 0x06 0x0a4d…0a4e 0x81 0x0a4e…0a4f »*« 0x0a4f…0a50 0x0c 0x0a50…0a51 0x85 0x0a51…0a56 »NOTE:« 0x0a56…0a57 0x02 0x0a57…0a58 0xa8 0x0a58…0a80 »P1(SOURCE NAME) IS A REQUIRED PARAMETER.« 0x0a80…0a81 0x02 0x0a81…0a82 0x89 0x0a82…0a8b »THEREFORE« 0x0a8b…0a8c 0x02 0x0a8c…0a8d 0x81 0x0a8d…0a8e »*« 0x0a8e…0a8f 0x06 0x0a8f…0a90 0x81 0x0a90…0a91 »*« 0x0a91…0a92 0x13 0x0a92…0a93 0xb1 0x0a93…0ac4 »NO DEFAULT IS ASSUMED AND A 3 OPTION ONLY HALT IS« 0x0ac4…0ac5 0x04 0x0ac5…0ac6 0x81 0x0ac6…0ac7 »*« 0x0ac7…0ac8 0x06 0x0ac8…0ac9 0x81 0x0ac9…0aca »*« 0x0aca…0acb 0x13 0x0acb…0acc 0xb3 0x0acc…0aff »ISSUED BY #ERR IF AN INVALID PARAMETER IS DETECTED.« 0x0aff…0b00 0x02 0x0b00…0b01 0x81 0x0b01…0b02 »*« 0x0b02…0b03 0x06 0x0b03…0b04 0x81 0x0b04…0b05 »*« 0x0b05…0b06 0x48 0x0b06…0b07 0x81 0x0b07…0b08 »*« 0x0b08…0b09 0x06 0x0b09…0b0a 0xca 0x0b0a…0b54 »**************************************************************************« 0x0b54…0b55 0x06 0x0b55…0b56 0x8f 0x0b56…0b65 »// TAG PUTPARMS« 0x0b65…0b66 0x41 0x0b66…0b67 0x81 0x0b67…0b68 »*« 0x0b68…0b69 0x02 0x0b69…0b6a 0xc2 0x0b6a…0bac »******************************************************************« 0x0bac…0bad 0x0b 0x0bad…0bae 0x81 0x0bae…0baf »*« 0x0baf…0bb0 0x02 0x0bb0…0bb1 0xbf 0x0bb1…0bf0 »* IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED« 0x0bf0…0bf1 0x02 0x0bf1…0bf2 0x81 0x0bf2…0bf3 »*« 0x0bf3…0bf4 0x0b 0x0bf4…0bf5 0x81 0x0bf5…0bf6 »*« 0x0bf6…0bf7 0x02 0x0bf7…0bf8 0xbb 0x0bf8…0c33 »* OR WAS NOT CALLED FROM THE AUTO PROCEDURE, THEN ISSUE THE« 0x0c33…0c34 0x06 0x0c34…0c35 0x81 0x0c35…0c36 »*« 0x0c36…0c37 0x0b 0x0c37…0c38 0x81 0x0c38…0c39 »*« 0x0c39…0c3a 0x02 0x0c3a…0c3b 0xa7 0x0c3b…0c62 »* 'AUTOC PROCEDURE IS RUNNING' MESSAGE.« 0x0c62…0c63 0x1a 0x0c63…0c64 0x81 0x0c64…0c65 »*« 0x0c65…0c66 0x0b 0x0c66…0c67 0x81 0x0c67…0c68 »*« 0x0c68…0c69 0x02 0x0c69…0c6a 0xc2 0x0c6a…0cac »******************************************************************« 0x0cac…0cad 0x0b 0x0cad…0cae 0xaf 0x0cae…0cdd »// IF JOBQ-NO IF EVOKED-NO IFF AUTO/?21? * 1046« 0x0cdd…0cde 0x21 0x0cde…0cdf 0x81 0x0cdf…0ce0 »*« 0x0ce0…0ce1 0x4f 0x0ce1…0ce2 0xad 0x0ce2…0d0f »// LOCAL OFFSET-1,DATA-'RPGAUTOC',AREA-SYSTEM« 0x0d0f…0d10 0x0b 0x0d10…0d11 0x89 0x0d11…0d1a »PROC NAME« 0x0d1a…0d1b 0x0f 0x0d1b…0d1c 0x9a 0x0d1c…0d36 »// EVALUATE P31='?L'9,5'?'« 0x0d36…0d37 0x16 0x0d37…0d38 0x98 0x0d38…0d50 »STORE THE DSM VALUE USED« 0x0d50…0d51 0x08 0x0d51…0d52 0xaa 0x0d52…0d7c »// LOCAL OFFSET-9,DATA-'NODSM',AREA-SYSTEM« 0x0d7c…0d7d 0x06 0x0d7d…0d7e 0x99 0x0d7e…0d97 »SET THE DEFAULT FOR AUTOC« 0x0d97…0d98 0x07 0x0d98…0d99 0xaa 0x0d99…0dc3 »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x0dc3…0dc4 0x0e 0x0dc4…0dc5 0x90 0x0dc5…0dd5 »USED BY COMPILER« 0x0dd5…0dd6 0x08 0x0dd6…0dd7 0xb8 0x0dd7…0e0f »// IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'?« 0x0e0f…0e10 0x18 0x0e10…0e11 0xaf 0x0e11…0e40 »// IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG« 0x0e40…0e41 0x21 0x0e41…0e42 0xc0 0x0e42…0e82 »// IFF ?3'COMP'?/COMP IFF ?3?/NOCOMP #ERR 1049,03,RPG ?3F'COMP'?« 0x0e82…0e83 0x10 0x0e83…0e84 0xbe 0x0e84…0ec2 »// IFF ?4'PRINT'?/ IFF ?4?/CRT IFF ?4?/PRINT IFF ?4?/NOPRINT +« 0x0ec2…0ec3 0x12 0x0ec3…0ec4 0x9c 0x0ec4…0ee0 »#ERR 1033,03,RPG ?4F'PRINT'?« 0x0ee0…0ee1 0x34 0x0ee1…0ee2 0x81 0x0ee2…0ee3 »*« 0x0ee3…0ee4 0x02 0x0ee4…0ee5 0xc3 0x0ee5…0f28 »*******************************************************************« 0x0f28…0f29 0x0a 0x0f29…0f2a 0x81 0x0f2a…0f2b »*« 0x0f2b…0f2c 0x02 0x0f2c…0f2d 0x81 0x0f2d…0f2e »*« 0x0f2e…0f2f 0x02 0x0f2f…0f30 0xac 0x0f30…0f5c »JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER.« 0x0f5c…0f5d 0x02 0x0f5d…0f5e 0x92 0x0f5e…0f70 »AN ERROR MESSAGE *« 0x0f70…0f71 0x0a 0x0f71…0f72 0x81 0x0f72…0f73 »*« 0x0f73…0f74 0x02 0x0f74…0f75 0x81 0x0f75…0f76 »*« 0x0f76…0f77 0x02 0x0f77…0f78 0xad 0x0f78…0fa5 »IS ISSUED BY #ERR WITH THE FOLLOWING OPTIONS:« 0x0fa5…0fa6 0x12 0x0fa6…0fa7 0x81 0x0fa7…0fa8 »*« 0x0fa8…0fa9 0x0a 0x0fa9…0faa 0x81 0x0faa…0fab »*« 0x0fab…0fac 0x02 0x0fac…0fad 0x81 0x0fad…0fae »*« 0x0fae…0faf 0x10 0x0faf…0fb0 0x9c 0x0fb0…0fcc »0 - CONTINUE WITH P4 = PRINT« 0x0fcc…0fcd 0x15 0x0fcd…0fce 0x81 0x0fce…0fcf »*« 0x0fcf…0fd0 0x0a 0x0fd0…0fd1 0x81 0x0fd1…0fd2 »*« 0x0fd2…0fd3 0x02 0x0fd3…0fd4 0x81 0x0fd4…0fd5 »*« 0x0fd5…0fd6 0x10 0x0fd6…0fd7 0x8a 0x0fd7…0fe1 »3 - CANCEL« 0x0fe1…0fe2 0x27 0x0fe2…0fe3 0x81 0x0fe3…0fe4 »*« 0x0fe4…0fe5 0x0a 0x0fe5…0fe6 0x81 0x0fe6…0fe7 »*« 0x0fe7…0fe8 0x02 0x0fe8…0fe9 0xc3 0x0fe9…102c »*******************************************************************« 0x102c…102d 0x0a 0x102d…102e 0xa5 0x102e…1053 »// IF JOBQ-NO IF EVOKED-NO GOTO SKIP1« 0x1053…1054 0x2b 0x1054…1055 0xaa 0x1055…107f »// IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'?« 0x107f…1080 0x26 0x1080…1081 0x8c 0x1081…108d »// TAG SKIP1« 0x108d…108e 0x44 0x108e…108f 0x81 0x108f…1090 »*« 0x1090…1091 0x4f 0x1091…1092 0xc4 0x1092…10d6 »// IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'?« 0x10d6…10d7 0x0c 0x10d7…10d8 0xa9 0x10d8…1101 »// IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'?« 0x1101…1102 0x27 0x1102…1103 0xc0 0x1103…1143 »// IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'?« 0x1143…1144 0x10 0x1144…1145 0xb5 0x1145…117a »// IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'?« 0x117a…117b 0x1b 0x117b…117c 0xce 0x117c…11ca »// IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/NOSOURCE IFF ?9?/PSOURCE #ERR 1036,03,RPG +« 0x11ca…11cb 0x02 0x11cb…11cc 0x86 0x11cc…11d2 »?9F''?« 0x11d2…11d3 0x4a 0x11d3…11d4 0xc5 0x11d4…1219 »// IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''?« 0x1219…121a 0x0b 0x121a…121b 0xb1 0x121b…124c »// IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''?« 0x124c…124d 0x1f 0x124d…124e 0xb5 0x124e…1283 »// ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''?« 0x1283…1284 0x1b 0x1284…1285 0xc7 0x1285…12cc »// IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'?« 0x12cc…12cd 0x09 0x12cd…12ce 0xce 0x12ce…131c »// IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'?« 0x131c…131d 0x02 0x131d…131e 0xc3 0x131e…1361 »// IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'?« 0x1361…1362 0x0d 0x1362…1363 0xd0 0x1363…13b3 »// IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? « 0x13b3…13b4 0xb8 0x13b4…13ec »// IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'?« 0x13ec…13ed 0x18 0x13ed…13ee 0xbf 0x13ee…142d »// IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'?« 0x142d…142e 0x11 0x142e…142f 0xb6 0x142f…1465 »// IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x1465…1466 0x1a 0x1466…1467 0xac 0x1467…1493 »// IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'?« 0x1493…1494 0x24 0x1494…1495 0xbc 0x1495…14d1 »************************************************************« 0x14d1…14d2 0x14 0x14d2…14d3 0x81 0x14d3…14d4 »*« 0x14d4…14d5 0x02 0x14d5…14d6 0xb4 0x14d6…150a »IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE« 0x150a…150b 0x04 0x150b…150c 0x81 0x150c…150d »*« 0x150d…150e 0x14 0x150e…150f 0x81 0x150f…1510 »*« 0x1510…1511 0x02 0x1511…1512 0x8d 0x1512…151f »IF IT EXISTS.« 0x151f…1520 0x2b 0x1520…1521 0x81 0x1521…1522 »*« 0x1522…1523 0x14 0x1523…1524 0xbc 0x1524…1560 »************************************************************« 0x1560…1561 0x14 0x1561…1562 0x96 0x1562…1578 »// IF ?19?/ GOTO DCTOK« 0x1578…1579 0x3a 0x1579…157a 0xb3 0x157a…15ad »// LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x15ad…15ae 0x1d 0x15ae…15af 0x8d 0x15af…15bc »// LOAD #RPDD« 0x15bc…15bd 0x43 0x15bd…15be 0x86 0x15be…15c4 »// RUN« 0x15c4…15c5 0x4a 0x15c5…15c6 0xbc 0x15c6…1602 »************************************************************« 0x1602…1603 0x14 0x1603…1604 0x81 0x1604…1605 »*« 0x1605…1606 0x02 0x1606…1607 0xb5 0x1607…163c »IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS« 0x163c…163d 0x03 0x163d…163e 0x81 0x163e…163f »*« 0x163f…1640 0x14 0x1640…1641 0x81 0x1641…1642 »*« 0x1642…1643 0x02 0x1643…1644 0x93 0x1644…1657 »1), ISSUE RPG-1066.« 0x1657…1658 0x25 0x1658…1659 0x81 0x1659…165a »*« 0x165a…165b 0x14 0x165b…165c 0xbc 0x165c…1698 »************************************************************« 0x1698…1699 0x14 0x1699…169a 0xa7 0x169a…16c1 »// IF '?L'451,1'?'/'1' #ERR 1066,03,RPG« 0x16c1…16c2 0x29 0x16c2…16c3 0x8c 0x16c3…16cf »// TAG DCTOK« 0x16cf…16d0 0x44 0x16d0…16d1 0xc3 0x16d1…1714 »// IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'?« 0x1714…1715 0x0d 0x1715…1716 0xbc 0x1716…1752 »************************************************************« 0x1752…1753 0x14 0x1753…1754 0x81 0x1754…1755 »*« 0x1755…1756 0x02 0x1756…1757 0xb5 0x1757…178c »STORE ALL PARAMETER VALUES IN THE PROPER AREAS OF THE« 0x178c…178d 0x03 0x178d…178e 0x81 0x178e…178f »*« 0x178f…1790 0x14 0x1790…1791 0x81 0x1791…1792 »*« 0x1792…1793 0x02 0x1793…1794 0xad 0x1794…17c1 »SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA).« 0x17c1…17c2 0x0b 0x17c2…17c3 0x81 0x17c3…17c4 »*« 0x17c4…17c5 0x14 0x17c5…17c6 0xbc 0x17c6…1802 »************************************************************« 0x1802…1803 0x14 0x1803…1804 0x97 0x1804…181b »// LIBRARY NAME-#RPGLIB« 0x181b…181c 0x39 0x181c…181d 0xb2 0x181d…184f »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x184f…1850 0x1e 0x1850…1851 0xb2 0x1851…1883 »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x1883…1884 0x1e 0x1884…1885 0xb2 0x1885…18b7 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x18b7…18b8 0x1e 0x18b8…18b9 0xb2 0x18b9…18eb »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x18eb…18ec 0x1e 0x18ec…18ed 0xb2 0x18ed…191f »// LOCAL OFFSET-213,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x191f…1920 0x02 0x1920…1921 0x97 0x1921…1938 »#AUTO WILL OVERLAY THIS« 0x1938…1939 0x05 0x1939…193a 0xb2 0x193a…196c »// LOCAL OFFSET-221,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x196c…196d 0x02 0x196d…196e 0x9c 0x196e…198a »AREA IF SOURCE IS CATALOGED « 0x198a…198b 0xb1 0x198b…19bc »// LOCAL OFFSET-89,DATA-'?3?',BLANK-6,AREA-SYSTEM« 0x19bc…19bd 0x1f 0x19bd…19be 0xb1 0x19be…19ef »// LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM« 0x19ef…19f0 0x1f 0x19f0…19f1 0xb1 0x19f1…1a22 »// LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM« 0x1a22…1a23 0x1f 0x1a23…1a24 0xb1 0x1a24…1a55 »// LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM« 0x1a55…1a56 0x1f 0x1a56…1a57 0xb1 0x1a57…1a88 »// LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x1a88…1a89 0x1f 0x1a89…1a8a 0xb2 0x1a8a…1abc »// LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1abc…1abd 0x1e 0x1abd…1abe 0xb2 0x1abe…1af0 »// LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1af0…1af1 0x1e 0x1af1…1af2 0xb1 0x1af2…1b23 »// LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM« 0x1b23…1b24 0x1f 0x1b24…1b25 0xb2 0x1b25…1b57 »// LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM« 0x1b57…1b58 0x1e 0x1b58…1b59 0xb2 0x1b59…1b8b »// LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM« 0x1b8b…1b8c 0x1e 0x1b8c…1b8d 0xb2 0x1b8d…1bbf »// LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM« 0x1bbf…1bc0 0x1e 0x1bc0…1bc1 0xb2 0x1bc1…1bf3 »// LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x1bf3…1bf4 0x1e 0x1bf4…1bf5 0xb2 0x1bf5…1c27 »// LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM« 0x1c27…1c28 0x1e 0x1c28…1c29 0xb2 0x1c29…1c5b »// LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x1c5b…1c5c 0x1e 0x1c5c…1c5d 0xb3 0x1c5d…1c90 »// LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x1c90…1c91 0x1d 0x1c91…1c92 0xb2 0x1c92…1cc4 »// LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x1cc4…1cc5 0x1e 0x1cc5…1cc6 0xb2 0x1cc6…1cf8 »// LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM« 0x1cf8…1cf9 0x1e 0x1cf9…1cfa 0xb3 0x1cfa…1d2d »// LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM« 0x1d2d…1d2e 0x1d 0x1d2e…1d2f 0xb1 0x1d2f…1d60 »// LOCAL OFFSET-95,DATA-'A96',BLANK-4,AREA-SYSTEM« 0x1d60…1d61 0x06 0x1d61…1d62 0x8e 0x1d62…1d70 »USED BY RPGSEU« 0x1d70…1d71 0x0b 0x1d71…1d72 0xc7 0x1d72…1db9 »***********************************************************************« 0x1db9…1dba 0x09 0x1dba…1dbb 0x81 0x1dbb…1dbc »*« 0x1dbc…1dbd 0x02 0x1dbd…1dbe 0xb5 0x1dbe…1df3 »THIS BLOCK PREPARES TO CALL THE AUTO REPORT COMPILER.« 0x1df3…1df4 0x0e 0x1df4…1df5 0x81 0x1df5…1df6 »*« 0x1df6…1df7 0x09 0x1df7…1df8 0x81 0x1df8…1df9 »*« 0x1df9…1dfa 0x02 0x1dfa…1dfb 0xb6 0x1dfb…1e31 »THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS.« 0x1e31…1e32 0x0d 0x1e32…1e33 0x81 0x1e33…1e34 »*« 0x1e34…1e35 0x09 0x1e35…1e36 0x81 0x1e36…1e37 »*« 0x1e37…1e38 0x02 0x1e38…1e39 0xbc 0x1e39…1e75 »IF PARAMETER 4=CRT, THE PRINT FILE IS GIVEN A PRIORITY OF 0,« 0x1e75…1e76 0x07 0x1e76…1e77 0x81 0x1e77…1e78 »*« 0x1e78…1e79 0x09 0x1e79…1e7a 0x81 0x1e7a…1e7b »*« 0x1e7b…1e7c 0x02 0x1e7c…1e7d 0xb0 0x1e7d…1ead »HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING.« 0x1ead…1eae 0x13 0x1eae…1eaf 0x81 0x1eaf…1eb0 »*« 0x1eb0…1eb1 0x09 0x1eb1…1eb2 0x81 0x1eb2…1eb3 »*« 0x1eb3…1eb4 0x02 0x1eb4…1eb5 0xbc 0x1eb5…1ef1 »PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS« 0x1ef1…1ef2 0x07 0x1ef2…1ef3 0x81 0x1ef3…1ef4 »*« 0x1ef4…1ef5 0x09 0x1ef5…1ef6 0x81 0x1ef6…1ef7 »*« 0x1ef7…1ef8 0x02 0x1ef8…1ef9 0xbc 0x1ef9…1f35 »FROM AUTO REPORT, RPG COMPILER, OLE, AND THE CROSS-REFERENCE« 0x1f35…1f36 0x07 0x1f36…1f37 0x81 0x1f37…1f38 »*« 0x1f38…1f39 0x09 0x1f39…1f3a 0x81 0x1f3a…1f3b »*« 0x1f3b…1f3c 0x02 0x1f3c…1f3d 0xab 0x1f3d…1f68 »AND CONSOLE FILE FORMAT GENERATOR PROGRAMS.« 0x1f68…1f69 0x18 0x1f69…1f6a 0x81 0x1f6a…1f6b »*« 0x1f6b…1f6c 0x09 0x1f6c…1f6d 0x81 0x1f6d…1f6e »*« 0x1f6e…1f6f 0x02 0x1f6f…1f70 0xab 0x1f70…1f9b »IF THE PRINTER IS ALREADY IN CONTINUE MODE,« 0x1f9b…1f9c 0x18 0x1f9c…1f9d 0x81 0x1f9d…1f9e »*« 0x1f9e…1f9f 0x09 0x1f9f…1fa0 0x81 0x1fa0…1fa1 »*« 0x1fa1…1fa2 0x02 0x1fa2…1fa3 0x9d 0x1fa3…1fc0 »THE RETURN CODE WILL BE 2040.« 0x1fc0…1fc1 0x02 0x1fc1…1fc2 0x8f 0x1fc2…1fd1 »STORE THIS CODE« 0x1fd1…1fd2 0x15 0x1fd2…1fd3 0x81 0x1fd3…1fd4 »*« 0x1fd4…1fd5 0x09 0x1fd5…1fd6 0x81 0x1fd6…1fd7 »*« 0x1fd7…1fd8 0x02 0x1fd8…1fd9 0x9d 0x1fd9…1ff6 »AT 189-192 OF THE LOCAL AREA.« 0x1ff6…1ff7 0x02 0x1ff7…1ff8 0xa0 0x1ff8…2018 »IF PRINT SPOOLING IS NOT ACTIVE,« 0x2018…2019 0x04 0x2019…201a 0x81 0x201a…201b »*« 0x201b…201c 0x09 0x201c…201d 0x81 0x201d…201e »*« 0x201e…201f 0x02 0x201f…2020 0xb0 0x2020…2050 »AND CRT IS REQUESTED, #AUTO WILL ISSUE RPG-1027.« 0x2050…2051 0x13 0x2051…2052 0x81 0x2052…2053 »*« 0x2053…2054 0x09 0x2054…2055 0xc7 0x2055…209c »***********************************************************************« 0x209c…209d 0x09 0x209d…209e 0x95 0x209e…20b3 »// LOAD #AUTO,#RPGLIB« 0x20b3…20b4 0x3b 0x20b4…20b5 0xbc 0x20b5…20f1 »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x20f1…20f2 0x14 0x20f2…20f3 0xba 0x20f3…212d »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x212d…212e 0x16 0x212e…212f 0xb2 0x212f…2161 »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,EXTEND-25« 0x2161…2162 0x1e 0x2162…2163 0xa6 0x2163…2189 »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x2189…218a 0x2a 0x218a…218b 0x98 0x218b…21a3 »// IF ?4?/CRT PRIORITY-0« 0x21a3…21a4 0x38 0x21a4…21a5 0x92 0x21a5…21b7 »// ELSE PRIORITY-1« 0x21b7…21b8 0x3e 0x21b8…21b9 0xab 0x21b9…21e4 »// LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM« 0x21e4…21e5 0x25 0x21e5…21e6 0xbd 0x21e6…2223 »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x2223…2224 0x13 0x2224…2225 0xc4 0x2225…2269 »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+« 0x2269…226a 0x0c 0x226a…226b 0x8d 0x226b…2278 »DATADCT-?19?,« 0x2278…2279 0x43 0x2279…227a 0x96 0x227a…2290 »// IF ?7?/NEP NEP-YES,« 0x2290…2291 0x3a 0x2291…2292 0x8f 0x2292…22a1 »// ELSE NEP-NO,« 0x22a1…22a2 0x41 0x22a2…22a3 0x96 0x22a3…22b9 »// IF ?20?/MRO MRO-YES« 0x22b9…22ba 0x3a 0x22ba…22bb 0x8e 0x22bb…22c9 »// ELSE MRO-NO« 0x22c9…22ca 0x42 0x22ca…22cb 0x86 0x22cb…22d1 »// RUN« 0x22d1…22d2 0x4a 0x22d2…22d3 0xbc 0x22d3…230f »************************************************************« 0x230f…2310 0x14 0x2310…2311 0x81 0x2311…2312 »*« 0x2312…2313 0x02 0x2313…2314 0xb6 0x2314…234a »THE RPG COMPILER CAN PUT A VALUE OF 1008 IN THE RETURN« 0x234a…234b 0x02 0x234b…234c 0x81 0x234c…234d »*« 0x234d…234e 0x14 0x234e…234f 0x81 0x234f…2350 »*« 0x2350…2351 0x02 0x2351…2352 0x96 0x2352…2368 »CODE FIELD OF THE JCB.« 0x2368…2369 0x02 0x2369…236a 0x9e 0x236a…2388 »ANY // RUN STATEMENT PROCESSED« 0x2388…2389 0x02 0x2389…238a 0x81 0x238a…238b »*« 0x238b…238c 0x14 0x238c…238d 0x81 0x238d…238e »*« 0x238e…238f 0x02 0x238f…2390 0xab 0x2390…23bb »SUBSEQUENTLY WILL RESET THIS VALUE TO 0000.« 0x23bb…23bc 0x02 0x23bc…23bd 0x89 0x23bd…23c6 »THEREFORE« 0x23c6…23c7 0x02 0x23c7…23c8 0x81 0x23c8…23c9 »*« 0x23c9…23ca 0x14 0x23ca…23cb 0x81 0x23cb…23cc »*« 0x23cc…23cd 0x02 0x23cd…23ce 0xa5 0x23ce…23f3 »SAVE THE RETURN CODE IN PARAMETER 64.« 0x23f3…23f4 0x02 0x23f4…23f5 0x8a 0x23f5…23ff »IT WILL BE« 0x23ff…2400 0x07 0x2400…2401 0x81 0x2401…2402 »*« 0x2402…2403 0x14 0x2403…2404 0x81 0x2404…2405 »*« 0x2405…2406 0x02 0x2406…2407 0xb9 0x2407…2440 »RESTORED TO THE RETURN CODE FIELD IN THE JCB AT THE END *« 0x2440…2441 0x14 0x2441…2442 0x81 0x2442…2443 »*« 0x2443…2444 0x02 0x2444…2445 0x91 0x2445…2456 »OF THE PROCEDURE.« 0x2456…2457 0x27 0x2457…2458 0x81 0x2458…2459 »*« 0x2459…245a 0x14 0x245a…245b 0xbc 0x245b…2497 »************************************************************« 0x2497…2498 0x14 0x2498…2499 0x96 0x2499…24af »// EVALUATE P64,4=?CD?« 0x24af…24b0 0x3a 0x24b0…24b1 0xc3 0x24b1…24f4 »*******************************************************************« 0x24f4…24f5 0x0d 0x24f5…24f6 0x81 0x24f6…24f7 »*« 0x24f7…24f8 0x02 0x24f8…24f9 0xb6 0x24f9…252f »IF XREF AND PRINT OR CRT ARE SPECIFIED AND NO TERMINAL« 0x252f…2530 0x09 0x2530…2531 0x81 0x2531…2532 »*« 0x2532…2533 0x0d 0x2533…2534 0x81 0x2534…2535 »*« 0x2535…2536 0x02 0x2536…2537 0x9e 0x2537…2555 »ERRORS, CALL THE XREF PROGRAM.« 0x2555…2556 0x02 0x2556…2557 0xa0 0x2557…2577 »THE COMPILER WILL SET A RETURN *« 0x2577…2578 0x0d 0x2578…2579 0x81 0x2579…257a »*« 0x257a…257b 0x02 0x257b…257c 0xb5 0x257c…25b1 »CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS.« 0x25b1…25b2 0x0a 0x25b2…25b3 0x81 0x25b3…25b4 »*« 0x25b4…25b5 0x0d 0x25b5…25b6 0x81 0x25b6…25b7 »*« 0x25b7…25b8 0x02 0x25b8…25b9 0xb8 0x25b9…25f1 »IF THE SOURCE TO BE XREFED IS ALREADY IN THE $WORK2 FILE« 0x25f1…25f2 0x07 0x25f2…25f3 0x81 0x25f3…25f4 »*« 0x25f4…25f5 0x0d 0x25f5…25f6 0x81 0x25f6…25f7 »*« 0x25f7…25f8 0x02 0x25f8…25f9 0xad 0x25f9…2626 »LOCAL OFFSET 169-176 WILL CONTAIN '11111111'.« 0x2626…2627 0x12 0x2627…2628 0x81 0x2628…2629 »*« 0x2629…262a 0x0d 0x262a…262b 0xc3 0x262b…266e »*******************************************************************« 0x266e…266f 0x0d 0x266f…2670 0xae 0x2670…269e »// IF ?5?/XREF IFF ?CD?/1008 IFF ?4?/NOPRINT +« 0x269e…269f 0x22 0x269f…26a0 0xba 0x26a0…26da »INCLUDE RPGX,#RPGLIB ?L'213,8'?,?18?,?L'221,8'?,?L'169,8'?« 0x26da…26db 0x16 0x26db…26dc 0xbd 0x26dc…2719 »*************************************************************« 0x2719…271a 0x13 0x271a…271b 0x81 0x271b…271c »*« 0x271c…271d 0x02 0x271d…271e 0xb6 0x271e…2754 »IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER« 0x2754…2755 0x03 0x2755…2756 0x81 0x2756…2757 »*« 0x2757…2758 0x13 0x2758…2759 0x81 0x2759…275a »*« 0x275a…275b 0x02 0x275b…275c 0xba 0x275c…2796 »WILL SET BYTE 238 OF LDA TO '1'. IF THE PROGRAM CONTAINS *« 0x2796…2797 0x13 0x2797…2798 0x81 0x2798…2799 »*« 0x2799…279a 0x02 0x279a…279b 0xb7 0x279b…27d2 »TERMINAL ERRORS, THE COMPILER WILL SET A RETURN CODE OF« 0x27d2…27d3 0x02 0x27d3…27d4 0x81 0x27d4…27d5 »*« 0x27d5…27d6 0x13 0x27d6…27d7 0x81 0x27d7…27d8 »*« 0x27d8…27d9 0x02 0x27d9…27da 0x85 0x27da…27df »1008.« 0x27df…27e0 0x02 0x27e0…27e1 0xad 0x27e1…280e »IF NEITHER OF THESE CONDITIONS EXIST, AND GEN« 0x280e…280f 0x05 0x280f…2810 0x81 0x2810…2811 »*« 0x2811…2812 0x13 0x2812…2813 0x81 0x2813…2814 »*« 0x2814…2815 0x02 0x2815…2816 0xb5 0x2816…284b »WAS SPECIFIED CALL THE CONSOLE FILE FORMAT GENERATOR.« 0x284b…284c 0x04 0x284c…284d 0x81 0x284d…284e »*« 0x284e…284f 0x13 0x284f…2850 0x81 0x2850…2851 »*« 0x2851…2852 0x02 0x2852…2853 0xb6 0x2853…2889 »IF THE SOURCE TO HAVE FORMATS GENERATED FOR IS ALREADY« 0x2889…288a 0x03 0x288a…288b 0x81 0x288b…288c »*« 0x288c…288d 0x13 0x288d…288e 0x81 0x288e…288f »*« 0x288f…2890 0x02 0x2890…2891 0xb4 0x2891…28c5 »IN THE $WORK2 FILE LOCAL OFFSET 169-176 WILL CONTAIN« 0x28c5…28c6 0x05 0x28c6…28c7 0x81 0x28c7…28c8 »*« 0x28c8…28c9 0x13 0x28c9…28ca 0x81 0x28ca…28cb »*« 0x28cb…28cc 0x02 0x28cc…28cd 0x8b 0x28cd…28d8 »'11111111'.« 0x28d8…28d9 0x2e 0x28d9…28da 0x81 0x28da…28db »*« 0x28db…28dc 0x13 0x28dc…28dd 0xbd 0x28dd…291a »*************************************************************« 0x291a…291b 0x13 0x291b…291c 0xb7 0x291c…2953 »// IF ?L'238,1'?/0 IFF ?CD?/1008 INCLUDE RPGR,#RPGLIB +« 0x2953…2954 0x19 0x2954…2955 0xba 0x2955…298f »?L'213,8'?,?18?,NOSAVE,?L'221,8'?,?8?,,?13?,?4?,?L'169,8'?« 0x298f…2990 0x16 0x2990…2991 0xc2 0x2991…29d3 »******************************************************************« 0x29d3…29d4 0x0e 0x29d4…29d5 0x81 0x29d5…29d6 »*« 0x29d6…29d7 0x02 0x29d7…29d8 0xbb 0x29d8…2a13 »IF THE PRINTER WAS NOT IN CONTINUE MODE WHEN THIS PROCEDURE« 0x2a13…2a14 0x03 0x2a14…2a15 0x81 0x2a15…2a16 »*« 0x2a16…2a17 0x0e 0x2a17…2a18 0x81 0x2a18…2a19 »*« 0x2a19…2a1a 0x02 0x2a1a…2a1b 0xbf 0x2a1b…2a5a »WAS ENTERED, OR IF CRT WAS REQUESTED, THEN RESET THE CONTINUE *« 0x2a5a…2a5b 0x0e 0x2a5b…2a5c 0x81 0x2a5c…2a5d »*« 0x2a5d…2a5e 0x02 0x2a5e…2a5f 0x8d 0x2a5f…2a6c »STATUS TO NO.« 0x2a6c…2a6d 0x31 0x2a6d…2a6e 0x81 0x2a6e…2a6f »*« 0x2a6f…2a70 0x0e 0x2a70…2a71 0xc2 0x2a71…2ab3 »******************************************************************« 0x2ab3…2ab4 0x0e 0x2ab4…2ab5 0xb6 0x2ab5…2aeb »// IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2« 0x2aeb…2aec 0x1a 0x2aec…2aed 0x96 0x2aed…2b03 »// PRINTER CONTINUE-NO« 0x2b03…2b04 0x3a 0x2b04…2b05 0x8c 0x2b05…2b11 »// TAG SKIP2« 0x2b11…2b12 0x44 0x2b12…2b13 0xbc 0x2b13…2b4f »************************************************************« 0x2b4f…2b50 0x14 0x2b50…2b51 0x81 0x2b51…2b52 »*« 0x2b52…2b53 0x02 0x2b53…2b54 0xb1 0x2b54…2b85 »THE FOLLOWING OCL IS EXECUTED IF PARAMETER 4=CRT.« 0x2b85…2b86 0x07 0x2b86…2b87 0x81 0x2b87…2b88 »*« 0x2b88…2b89 0x14 0x2b89…2b8a 0x81 0x2b8a…2b8b »*« 0x2b8b…2b8c 0x02 0x2b8c…2b8d 0xb4 0x2b8d…2bc1 »CALL THE COPYPRT MODULES PROCEDURE TO DO THE DISPLAY« 0x2bc1…2bc2 0x04 0x2bc2…2bc3 0x81 0x2bc3…2bc4 »*« 0x2bc4…2bc5 0x14 0x2bc5…2bc6 0x81 0x2bc6…2bc7 »*« 0x2bc7…2bc8 0x02 0x2bc8…2bc9 0x97 0x2bc9…2be0 »OF THE HELD PRINT FILE.« 0x2be0…2be1 0x02 0x2be1…2be2 0x9c 0x2be2…2bfe »CANCEL THE SPOOL FILE ENTRY.« 0x2bfe…2bff 0x03 0x2bff…2c00 0x81 0x2c00…2c01 »*« 0x2c01…2c02 0x14 0x2c02…2c03 0x81 0x2c03…2c04 »*« 0x2c04…2c05 0x02 0x2c05…2c06 0xb5 0x2c06…2c3b »PARAMETER 30 WILL CONTAIN THE SPOOL-ID RETRIEVED FROM« 0x2c3b…2c3c 0x03 0x2c3c…2c3d 0x81 0x2c3d…2c3e »*« 0x2c3e…2c3f 0x14 0x2c3f…2c40 0x81 0x2c40…2c41 »*« 0x2c41…2c42 0x02 0x2c42…2c43 0xa1 0x2c43…2c64 »OFFSET 181-186 OF THE SYSTEM LDA.« 0x2c64…2c65 0x17 0x2c65…2c66 0x81 0x2c66…2c67 »*« 0x2c67…2c68 0x14 0x2c68…2c69 0xbc 0x2c69…2ca5 »************************************************************« 0x2ca5…2ca6 0x14 0x2ca6…2ca7 0x9d 0x2ca7…2cc4 »// IFF ?L'14,3'?/CRT GOTO END« 0x2cc4…2cc5 0x33 0x2cc5…2cc6 0x9c 0x2cc6…2ce2 »// EVALUATE P30='?L'181,6'?'« 0x2ce2…2ce3 0x34 0x2ce3…2ce4 0x8d 0x2ce4…2cf1 »// LOAD $UASF« 0x2cf1…2cf2 0x43 0x2cf2…2cf3 0x86 0x2cf3…2cf9 »// RUN« 0x2cf9…2cfa 0x4a 0x2cfa…2cfb 0xb9 0x2cfb…2d34 »// SPOOL SPOOLID-?30?,NAME-RP?30?,RETAIN-J,RELCANS-CANCEL« 0x2d34…2d35 0x17 0x2d35…2d36 0x86 0x2d36…2d3c »// END« 0x2d3c…2d3d 0x4a 0x2d3d…2d3e 0x8d 0x2d3e…2d4b »// LOAD $UASC« 0x2d4b…2d4c 0x43 0x2d4c…2d4d 0x9c 0x2d4d…2d69 »// FILE NAME-RP?30?,DISP-SHR« 0x2d69…2d6a 0x34 0x2d6a…2d6b 0x86 0x2d6b…2d71 »// RUN« 0x2d71…2d72 0x4a 0x2d72…2d73 0xbb 0x2d73…2dae »***********************************************************« 0x2dae…2daf 0x15 0x2daf…2db0 0x81 0x2db0…2db1 »*« 0x2db1…2db2 0x02 0x2db2…2db3 0xb8 0x2db3…2deb »RESTORE THE RETURN CODE SET BY THE RPG COMPILER TO THE *« 0x2deb…2dec 0x15 0x2dec…2ded 0x81 0x2ded…2dee »*« 0x2dee…2def 0x02 0x2def…2df0 0x9d 0x2df0…2e0d »RETURN CODE FIELD IN THE JCB.« 0x2e0d…2e0e 0x1a 0x2e0e…2e0f 0x81 0x2e0f…2e10 »*« 0x2e10…2e11 0x15 0x2e11…2e12 0xbb 0x2e12…2e4d »***********************************************************« 0x2e4d…2e4e 0x15 0x2e4e…2e4f 0x8a 0x2e4f…2e59 »// TAG END« 0x2e59…2e5a 0x46 0x2e5a…2e5b 0xb1 0x2e5b…2e8c »// LOCAL OFFSET-9,DATA-'?31?',BLANK-5,AREA-SYSTEM« 0x2e8c…2e8d 0x04 0x2e8d…2e8e 0x8f 0x2e8e…2e9d »RESET DSM VALUE« 0x2e9d…2e9e 0x0c 0x2e9e…2e9f 0x93 0x2e9f…2eb2 »// EVALUATE CD=?64?« 0x2eb2…2eb3 0x3d 0x2eb3…2eb4 0x81 0x2eb4…2eb5 »*« 0x2eb5…2eb6 0x4f 0x2eb6…2eb7 0x89 0x2eb7…2ec0 »// RETURN« 0x2ec0…2ec1 0x47 0x2ec1…2ec2 0xd0 0x2ec2…2f12 »******************************************************************************* « 0x2f12…2f13 0x81 0x2f13…2f14 »*« 0x2f14…2f15 0x4d 0x2f15…2f16 0x82 0x2f16…2f18 »* « 0x2f18…2f19 0x81 0x2f19…2f1a »*« 0x2f1a…2f1b 0x05 0x2f1b…2f1c 0xb3 0x2f1c…2f4f »AUTOC NAME,INLIB,COMP,PRINT,XREF,MRTMAX,NEP,OUTLIB,« 0x2f4f…2f50 0x15 0x2f50…2f51 0x82 0x2f51…2f53 »* « 0x2f53…2f54 0x81 0x2f54…2f55 »*« 0x2f55…2f56 0x0b 0x2f56…2f57 0xbc 0x2f57…2f93 »SOURCE,DEBUG,OBJSIZE,HALT,REPLACE,LINK,OBJ,SUBLIB,GEN,BLOCKS« 0x2f93…2f94 0x06 0x2f94…2f95 0x82 0x2f95…2f97 »* « 0x2f97…2f98 0x81 0x2f98…2f99 »*« 0x2f99…2f9a 0x4d 0x2f9a…2f9b 0x82 0x2f9b…2f9d »* « 0x2f9d…2f9e 0x81 0x2f9e…2f9f »*« 0x2f9f…2fa0 0x04 0x2fa0…2fa1 0xc0 0x2fa1…2fe1 »THIS PROCEDURE EXECUTES THE AUTO REPORT FUNCTION AND OPTIONALLY,« 0x2fe1…2fe2 0x09 0x2fe2…2fe3 0x82 0x2fe3…2fe5 »* « 0x2fe5…2fe6 0x81 0x2fe6…2fe7 »*« 0x2fe7…2fe8 0x04 0x2fe8…2fe9 0xc5 0x2fe9…302e »EXECUTES THE RPG CROSS REFERENCE PROGRAM, THE RPG CONSOLE FILE FORMAT« 0x302e…302f 0x04 0x302f…3030 0x82 0x3030…3032 »* « 0x3032…3033 0x81 0x3033…3034 »*« 0x3034…3035 0x04 0x3035…3036 0xa0 0x3036…3056 »GENERATOR, AND THE RPG COMPILER.« 0x3056…3057 0x29 0x3057…3058 0x82 0x3058…305a »* « 0x305a…305b 0x81 0x305b…305c »*« 0x305c…305d 0x4d 0x305d…305e 0x82 0x305e…3060 »* « 0x3060…3061 0x81 0x3061…3062 »*« 0x3062…3063 0x05 0x3063…3064 0xb5 0x3064…3099 »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING:« 0x3099…309a 0x13 0x309a…309b 0x82 0x309b…309d »* « 0x309d…309e 0x81 0x309e…309f »*« 0x309f…30a0 0x4d 0x30a0…30a1 0x82 0x30a1…30a3 »* « 0x30a3…30a4 0x81 0x30a4…30a5 »*« 0x30a5…30a6 0x05 0x30a6…30a7 0xa6 0x30a7…30cd »NAME - SOURCE PROGRAM NAME, (REQUIRED)« 0x30cd…30ce 0x22 0x30ce…30cf 0x82 0x30cf…30d1 »* « 0x30d1…30d2 0x81 0x30d2…30d3 »*« 0x30d3…30d4 0x05 0x30d4…30d5 0xb0 0x30d5…3105 »INLIB - INPUT LIBRARY, DEFAULT - CURRENT LIBRARY« 0x3105…3106 0x18 0x3106…3107 0x82 0x3107…3109 »* « 0x3109…310a 0x81 0x310a…310b »*« 0x310b…310c 0x05 0x310c…310d 0xa8 0x310d…3135 »COMP - CALL RPG COMPILER, DEFAULT - COMP« 0x3135…3136 0x20 0x3136…3137 0x82 0x3137…3139 »* « 0x3139…313a 0x81 0x313a…313b »*« 0x313b…313c 0x05 0x313c…313d 0xaf 0x313d…316c »PRINT - LISTING OUTPUT OPTIONS, DEFAULT - PRINT« 0x316c…316d 0x19 0x316d…316e 0x82 0x316e…3170 »* « 0x3170…3171 0x81 0x3171…3172 »*« 0x3172…3173 0x05 0x3173…3174 0xb8 0x3174…31ac »XREF - PROVIDE CROSS-REFERENCE LISTING, DEFAULT - NOXREF« 0x31ac…31ad 0x10 0x31ad…31ae 0x82 0x31ae…31b0 »* « 0x31b0…31b1 0x81 0x31b1…31b2 »*« 0x31b2…31b3 0x05 0x31b3…31b4 0xbb 0x31b4…31ef »MRTMAX - MAX. # OF REQUESTING DISPLAY STATIONS, DEFAULT - 0« 0x31ef…31f0 0x0d 0x31f0…31f1 0x82 0x31f1…31f3 »* « 0x31f3…31f4 0x81 0x31f4…31f5 »*« 0x31f5…31f6 0x05 0x31f6…31f7 0xab 0x31f7…3222 »NEP - NEVER-ENDING PROGRAM, DEFAULT - NONEP« 0x3222…3223 0x1d 0x3223…3224 0x82 0x3224…3226 »* « 0x3226…3227 0x81 0x3227…3228 »*« 0x3228…3229 0x05 0x3229…322a 0xb0 0x322a…325a »OUTLIB - OUTPUT LIBRARY, DEFAULT - INPUT LIBRARY« 0x325a…325b 0x18 0x325b…325c 0x82 0x325c…325e »* « 0x325e…325f 0x81 0x325f…3260 »*« 0x3260…3261 0x05 0x3261…3262 0x9e 0x3262…3280 »SOURCE - SOURCE PRINT OVERRIDE« 0x3280…3281 0x02 0x3281…3282 0x8a 0x3282…328c »(OPTIONAL)« 0x328c…328d 0x1e 0x328d…328e 0x82 0x328e…3290 »* « 0x3290…3291 0x81 0x3291…3292 »*« 0x3292…3293 0x05 0x3293…3294 0x9d 0x3294…32b1 »DEBUG - SOURCE DEBUG OVERRIDE« 0x32b1…32b2 0x02 0x32b2…32b3 0x8a 0x32b3…32bd »(OPTIONAL)« 0x32bd…32be 0x1f 0x32be…32bf 0x82 0x32bf…32c1 »* « 0x32c1…32c2 0x81 0x32c2…32c3 »*« 0x32c3…32c4 0x05 0x32c4…32c5 0xa9 0x32c5…32ee »OBJSIZE - SOURCE SIZE-TO-EXECUTE OVERRIDE« 0x32ee…32ef 0x02 0x32ef…32f0 0x8a 0x32f0…32fa »(OPTIONAL)« 0x32fa…32fb 0x13 0x32fb…32fc 0x82 0x32fc…32fe »* « 0x32fe…32ff 0x81 0x32ff…3300 »*« 0x3300…3301 0x05 0x3301…3302 0xb0 0x3302…3332 »HALT - HALT ON TERMINAL ERRORS, DEFAULT - NOHALT« 0x3332…3333 0x18 0x3333…3334 0x82 0x3334…3336 »* « 0x3336…3337 0x81 0x3337…3338 »*« 0x3338…3339 0x05 0x3339…333a 0xc5 0x333a…337f »REPLACE - REPLACE DUPLICATE MEMBER WITHOUT MESSAGE, DEFAULT - REPLACE« 0x337f…3380 0x03 0x3380…3381 0x82 0x3381…3383 »* « 0x3383…3384 0x81 0x3384…3385 »*« 0x3385…3386 0x05 0x3386…3387 0xaf 0x3387…33b6 »LINK - CREATE EXECUTABLE MODULE, DEFAULT - LINK« 0x33b6…33b7 0x19 0x33b7…33b8 0x82 0x33b8…33ba »* « 0x33ba…33bb 0x81 0x33bb…33bc »*« 0x33bc…33bd 0x05 0x33bd…33be 0xb6 0x33be…33f4 »OBJ - CREATE NON-EXECUTABLE MODULE, DEFAULT - NOOBJECT« 0x33f4…33f5 0x12 0x33f5…33f6 0x82 0x33f6…33f8 »* « 0x33f8…33f9 0x81 0x33f9…33fa »*« 0x33fa…33fb 0x05 0x33fb…33fc 0xba 0x33fc…3436 »SUBLIB - SUBROUTINE INPUT LIBRARY, DEFAULT - INPUT LIBRARY« 0x3436…3437 0x0e 0x3437…3438 0x82 0x3438…343a »* « 0x343a…343b 0x81 0x343b…343c »*« 0x343c…343d 0x05 0x343d…343e 0xb4 0x343e…3472 »GEN - GENERATE CONSOLE SCREEN FORMATS, DEFAULT - GEN« 0x3472…3473 0x14 0x3473…3474 0x82 0x3474…3476 »* « 0x3476…3477 0x81 0x3477…3478 »*« 0x3478…3479 0x05 0x3479…347a 0xc1 0x347a…34bb »BLOCKS - BLOCK SIZE FOR $SOURCE,$WORK,$WORK2,$WORK3, DEFAULT - 40« 0x34bb…34bc 0x07 0x34bc…34bd 0x82 0x34bd…34bf »* « 0x34bf…34c0 0x81 0x34c0…34c1 »*« 0x34c1…34c2 0x05 0x34c2…34c3 0x87 0x34c3…34ca »DATADCT« 0x34ca…34cb 0x02 0x34cb…34cc 0xb5 0x34cc…3501 »- DATA DICTIONARY NAME TO USE WITH COMM. FORMATS FILE« 0x3501…3502 0x0a 0x3502…3503 0x82 0x3503…3505 »* « 0x3505…3506 0x81 0x3506…3507 »*« 0x3507…3508 0x05 0x3508…3509 0xaf 0x3509…3538 »MRO - MEMORY RESIDENT OVERLAYS, DEFAULT - NOMRO« 0x3538…3539 0x19 0x3539…353a 0x82 0x353a…353c »* « 0x353c…353d 0x81 0x353d…353e »*« 0x353e…353f 0x4d 0x353f…3540 0x82 0x3540…3542 »* « 0x3542…3543 0x81 0x3543…3544 »*« 0x3544…3545 0x05 0x3545…3546 0x9b 0x3546…3561 »ADDITIONAL PARAMETER USAGE:« 0x3561…3562 0x2d 0x3562…3563 0x82 0x3563…3565 »* « 0x3565…3566 0x81 0x3566…3567 »*« 0x3567…3568 0x0e 0x3568…3569 0xb0 0x3569…3599 »P21 - USED TO TELL AUTOC NOT TO ISSUE THE 'AUTOC« 0x3599…359a 0x0f 0x359a…359b 0x82 0x359b…359d »* « 0x359d…359e 0x81 0x359e…359f »*« 0x359f…35a0 0x14 0x35a0…35a1 0xaa 0x35a1…35cb »PROCEDURE IS RUNNING' MESSAGE IF CALLED BY« 0x35cb…35cc 0x0f 0x35cc…35cd 0x82 0x35cd…35cf »* « 0x35cf…35d0 0x81 0x35d0…35d1 »*« 0x35d1…35d2 0x14 0x35d2…35d3 0x85 0x35d3…35d8 »AUTO.« 0x35d8…35d9 0x34 0x35d9…35da 0x82 0x35da…35dc »* « 0x35dc…35dd 0x81 0x35dd…35de »*« 0x35de…35df 0x0e 0x35df…35e0 0xb1 0x35e0…3611 »P30 - CONTAINS THE SPOOL-ID RETRIEVED FROM OFFSET« 0x3611…3612 0x0e 0x3612…3613 0x82 0x3613…3615 »* « 0x3615…3616 0x81 0x3616…3617 »*« 0x3617…3618 0x14 0x3618…3619 0xa6 0x3619…363f »181-186 OF THE SYSTEM LOCAL DATA AREA.« 0x363f…3640 0x02 0x3640…3641 0x84 0x3641…3645 »THIS« 0x3645…3646 0x0d 0x3646…3647 0x82 0x3647…3649 »* « 0x3649…364a 0x81 0x364a…364b »*« 0x364b…364c 0x14 0x364c…364d 0xaf 0x364d…367c »INFORMATION IS NEEDED TO VIEW THE HELD COMPILER« 0x367c…367d 0x0a 0x367d…367e 0x82 0x367e…3680 »* « 0x3680…3681 0x81 0x3681…3682 »*« 0x3682…3683 0x14 0x3683…3684 0xa4 0x3684…36a8 »OUTPUT VIA COPYPRT($UASF AND $UASC).« 0x36a8…36a9 0x15 0x36a9…36aa 0x82 0x36aa…36ac »* « 0x36ac…36ad 0x81 0x36ad…36ae »*« 0x36ae…36af 0x0e 0x36af…36b0 0xb2 0x36b0…36e2 »P31 - USED TO STORE THE DSM VALUE PREVIOUSLY USED.« 0x36e2…36e3 0x02 0x36e3…36e4 0x83 0x36e4…36e7 »THE« 0x36e7…36e8 0x08 0x36e8…36e9 0x82 0x36e9…36eb »* « 0x36eb…36ec 0x81 0x36ec…36ed »*« 0x36ed…36ee 0x14 0x36ee…36ef 0xaf 0x36ef…371e »DEFAULT IN RPG WHEN CALLED FROM AUTOC IS NODSM.« 0x371e…371f 0x0a 0x371f…3720 0x82 0x3720…3722 »* « 0x3722…3723 0x81 0x3723…3724 »*« 0x3724…3725 0x14 0x3725…3726 0xb1 0x3726…3757 »THE VALUE MUST BE RESTORED TO INSURE INTEGRITY OF« 0x3757…3758 0x08 0x3758…3759 0x82 0x3759…375b »* « 0x375b…375c 0x81 0x375c…375d »*« 0x375d…375e 0x14 0x375e…375f 0x91 0x375f…3770 »PARAMETER MEMORY.« 0x3770…3771 0x28 0x3771…3772 0x82 0x3772…3774 »* « 0x3774…3775 0x81 0x3775…3776 »*« 0x3776…3777 0x0e 0x3777…3778 0xb0 0x3778…37a8 »P64 - USED TO STORE THE RETURN CODE FROM THE RPG« 0x37a8…37a9 0x0f 0x37a9…37aa 0x82 0x37aa…37ac »* « 0x37ac…37ad 0x81 0x37ad…37ae »*« 0x37ae…37af 0x14 0x37af…37b0 0x89 0x37b0…37b9 »COMPILER.« 0x37b9…37ba 0x02 0x37ba…37bb 0x9f 0x37bb…37da »'0000' MEANS THAT THERE WERE NO« 0x37da…37db 0x0f 0x37db…37dc 0x82 0x37dc…37de »* « 0x37de…37df 0x81 0x37df…37e0 »*« 0x37e0…37e1 0x14 0x37e1…37e2 0xb0 0x37e2…3812 »COMPILE ERRORS AND '1008' MEANS THAT THERE WERE.« 0x3812…3813 0x09 0x3813…3814 0x82 0x3814…3816 »* « 0x3816…3817 0x81 0x3817…3818 »*« 0x3818…3819 0x4d 0x3819…381a 0x82 0x381a…381c »* « 0x381c…381d 0x81 0x381d…381e »*« 0x381e…381f 0x05 0x381f…3820 0xb5 0x3820…3855 »NOTE: PARAMETER 19 CONTAINS THE DATA DICTIONARY NAME.« 0x3855…3856 0x13 0x3856…3857 0x82 0x3857…3859 »* « 0x3859…385a 0x81 0x385a…385b »*« 0x385b…385c 0x0b 0x385c…385d 0xbc 0x385d…3899 »PARAMETER 20 CONTAINS THE MEMORY RESIDENT OVERLAYS PARAMETER« 0x3899…389a 0x06 0x389a…389b 0x82 0x389b…389d »* « 0x389d…389e 0x81 0x389e…389f »*« 0x389f…38a0 0x4f 0x38a0…38a1 0x81 0x38a1…38a2 »*« 0x38a2…38a3 0x05 0x38a3…38a4 0x91 0x38a4…38b5 »LOCAL AREA USAGE:« 0x38b5…38b6 0x02 0x38b6…38b7 0xa7 0x38b7…38de »(SEE LDA LAYOUT DATA IN MEMBER LDADATA)« 0x38de…38df 0x0e 0x38df…38e0 0x82 0x38e0…38e2 »* « 0x38e2…38e3 0x81 0x38e3…38e4 »*« 0x38e4…38e5 0x4d 0x38e5…38e6 0x82 0x38e6…38e8 »* « 0x38e8…38e9 0xd0 0x38e9…3939 »******************************************************************************* « 0x3939…393a 0x00 0x393a…3940 5c 40 81 5c 4d 82 ┆* a*(b┆ 0x3940…3960 5c 40 81 5c 05 9b c1 c4 c4 c9 e3 c9 d6 d5 c1 d3 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 e4 e2 c1 c7 c5 ┆* a* ºADDITIONAL PARAMETER USAGE┆ 0x3960…3980 7a 2d 82 5c 40 81 5c 0e b0 d7 f2 f1 40 60 40 e4 e2 c5 c4 40 e3 d6 40 e3 c5 d3 d3 40 c1 e4 e3 d6 ┆: b* a* ^P21 - USED TO TELL AUTO┆ 0x3980…39a0 c3 40 d5 d6 e3 40 e3 d6 40 c9 e2 e2 e4 c5 40 e3 c8 c5 40 7d c1 e4 e3 d6 c3 0f 82 5c 40 81 5c 14 ┆C NOT TO ISSUE THE 'AUTOC b* a* ┆ 0x39a0…39c0 aa d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c9 e2 40 d9 e4 d5 d5 c9 d5 c7 7d 40 d4 c5 e2 e2 c1 c7 c5 40 c9 ┆¡PROCEDURE IS RUNNING' MESSAGE I┆ 0x39c0…39e0 c6 40 c3 c1 d3 d3 c5 c4 40 c2 e8 0f 82 5c 40 81 5c 14 85 c1 e4 e3 d6 4b 34 82 5c 40 81 5c 0e b1 ┆F CALLED BY b* a* eAUTO. b* a* £┆ 0x39e0…3a00 d7 f3 f0 40 60 40 c3 d6 d5 e3 c1 c9 d5 e2 40 e3 c8 c5 40 e2 d7 d6 d6 d3 60 c9 c4 40 d9 c5 e3 d9 ┆P30 - CONTAINS THE SPOOL-ID RETR┆