|
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: 11008 (0x2b00)
Notes: MEMBER_P, Member_Text
Names: »AUTOC «
└─⟦e184f8357⟧ Bits:30009822 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 7 Created 19950301 Level 01 Seq 001 of 011
└─⟦d35f72f1f⟧
└─⟦this⟧ ».AUTOC «
******************************************************************************* * THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTOC' * ******************************************************************************* // 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'?' ************************************************************************ * THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-564 . THEY REPLACE * * THE CALLS TO $UASF AND $UASC. * ************************************************************************ // INFOMSG NO // IFT DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1 // IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,RP?L'181,6'?,CANCEL,CRT // IF DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1 *********************************************************** * 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
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 0xd0 0x0090…00e0 »******************************************************************************* « 0x00e0…00e1 0xb7 0x00e1…0118 »// MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x0118…0119 0x03 0x0119…011a 0x8e 0x011a…0128 »MESSAGE MEMBER« 0x0128…0129 0x08 0x0129…012a 0x99 0x012a…0143 »// IFF ?1?/ GOTO PUTPARMS« 0x0143…0144 0x11 0x0144…0145 0x9e 0x0145…0163 »IF P1 SPECIFIED PROCESS DIRECT« 0x0163…0164 0x08 0x0164…0165 0xa5 0x0165…018a »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x018a…018b 0x05 0x018b…018c 0x9a 0x018c…01a6 »IF P1 IS BLANK AND JOBQ OR« 0x01a6…01a7 0x0c 0x01a7…01a8 0x81 0x01a8…01a9 »*« 0x01a9…01aa 0x29 0x01aa…01ab 0x9a 0x01ab…01c5 »EVOKED ISSUE ERROR MESSAGE« 0x01c5…01c6 0x0c 0x01c6…01c7 0x9a 0x01c7…01e1 »// MSG ?WS?,?M'2100,1,75'?« 0x01e1…01e2 0x36 0x01e2…01e3 0x89 0x01e3…01ec »// RETURN« 0x01ec…01ed 0x47 0x01ed…01ee 0x81 0x01ee…01ef »*« 0x01ef…01f0 0x4f 0x01f0…01f1 0x8c 0x01f1…01fd »// TAG NJOBQ« 0x01fd…01fe 0x44 0x01fe…01ff 0xbd 0x01ff…023c »// HELP AUTOC ,?2'?CLIB?'?,?3'COMP'?,?4'PRINT'?,?5'NOXREF'?,+« 0x023c…023d 0x13 0x023d…023e 0xc0 0x023e…027e »?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+« 0x027e…027f 0x10 0x027f…0280 0xc2 0x0280…02c2 »?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'?« 0x02c2…02c3 0x0e 0x02c3…02c4 0x89 0x02c4…02cd »// RETURN« 0x02cd…02ce 0x47 0x02ce…02cf 0xca 0x02cf…0319 »**************************************************************************« 0x0319…031a 0x06 0x031a…031b 0x81 0x031b…031c »*« 0x031c…031d 0x48 0x031d…031e 0x81 0x031e…031f »*« 0x031f…0320 0x06 0x0320…0321 0x81 0x0321…0322 »*« 0x0322…0323 0x02 0x0323…0324 0xb6 0x0324…035a »THE FOLLOWING OCL CHECKS PARAMETERS FOR VALID ENTRIES.« 0x035a…035b 0x10 0x035b…035c 0x81 0x035c…035d »*« 0x035d…035e 0x06 0x035e…035f 0x81 0x035f…0360 »*« 0x0360…0361 0x02 0x0361…0362 0xab 0x0362…038d »EACH PARAMETER IS PROCESSED AS SHOWN BELOW:« 0x038d…038e 0x1b 0x038e…038f 0x81 0x038f…0390 »*« 0x0390…0391 0x06 0x0391…0392 0x81 0x0392…0393 »*« 0x0393…0394 0x48 0x0394…0395 0x81 0x0395…0396 »*« 0x0396…0397 0x06 0x0397…0398 0x81 0x0398…0399 »*« 0x0399…039a 0x0b 0x039a…039b 0x89 0x039b…03a4 »PARAMETER« 0x03a4…03a5 0x19 0x03a5…03a6 0x86 0x03a6…03ac »RESULT« 0x03ac…03ad 0x15 0x03ad…03ae 0x81 0x03ae…03af »*« 0x03af…03b0 0x06 0x03b0…03b1 0x81 0x03b1…03b2 »*« 0x03b2…03b3 0x0c 0x03b3…03b4 0x87 0x03b4…03bb »INVALID« 0x03bb…03bc 0x03 0x03bc…03bd 0x86 0x03bd…03c3 »----->« 0x03c3…03c4 0x11 0x03c4…03c5 0x96 0x03c5…03db »ISSUE PROPER ERROR VIA« 0x03db…03dc 0x05 0x03dc…03dd 0x81 0x03dd…03de »*« 0x03de…03df 0x06 0x03df…03e0 0x81 0x03e0…03e1 »*« 0x03e1…03e2 0x2d 0x03e2…03e3 0x9c 0x03e3…03ff »#ERR WITH 0 AND 3 OPTIONS. *« 0x03ff…0400 0x06 0x0400…0401 0x81 0x0401…0402 »*« 0x0402…0403 0x2d 0x0403…0404 0x99 0x0404…041d »0 RESPONSE MEANS CONTIUNE« 0x041d…041e 0x02 0x041e…041f 0x81 0x041f…0420 »*« 0x0420…0421 0x06 0x0421…0422 0x81 0x0422…0423 »*« 0x0423…0424 0x2d 0x0424…0425 0x99 0x0425…043e »WITH DEFAULT SUBSTITUTED.« 0x043e…043f 0x02 0x043f…0440 0x81 0x0440…0441 »*« 0x0441…0442 0x06 0x0442…0443 0x81 0x0443…0444 »*« 0x0444…0445 0x2d 0x0445…0446 0x98 0x0446…045e »3 RESPONSE MEANS CANCEL.« 0x045e…045f 0x03 0x045f…0460 0x81 0x0460…0461 »*« 0x0461…0462 0x06 0x0462…0463 0x81 0x0463…0464 »*« 0x0464…0465 0x0c 0x0465…0466 0x85 0x0466…046b »VALID« 0x046b…046c 0x05 0x046c…046d 0x86 0x046d…0473 »----->« 0x0473…0474 0x11 0x0474…0475 0x88 0x0475…047d »CONTINUE« 0x047d…047e 0x13 0x047e…047f 0x81 0x047f…0480 »*« 0x0480…0481 0x06 0x0481…0482 0x81 0x0482…0483 »*« 0x0483…0484 0x48 0x0484…0485 0x81 0x0485…0486 »*« 0x0486…0487 0x06 0x0487…0488 0x81 0x0488…0489 »*« 0x0489…048a 0x0c 0x048a…048b 0x85 0x048b…0490 »NOTE:« 0x0490…0491 0x02 0x0491…0492 0xa8 0x0492…04ba »P1(SOURCE NAME) IS A REQUIRED PARAMETER.« 0x04ba…04bb 0x02 0x04bb…04bc 0x89 0x04bc…04c5 »THEREFORE« 0x04c5…04c6 0x02 0x04c6…04c7 0x81 0x04c7…04c8 »*« 0x04c8…04c9 0x06 0x04c9…04ca 0x81 0x04ca…04cb »*« 0x04cb…04cc 0x13 0x04cc…04cd 0xb1 0x04cd…04fe »NO DEFAULT IS ASSUMED AND A 3 OPTION ONLY HALT IS« 0x04fe…04ff 0x04 0x04ff…0500 0x81 0x0500…0501 »*« 0x0501…0502 0x06 0x0502…0503 0x81 0x0503…0504 »*« 0x0504…0505 0x13 0x0505…0506 0xb3 0x0506…0539 »ISSUED BY #ERR IF AN INVALID PARAMETER IS DETECTED.« 0x0539…053a 0x02 0x053a…053b 0x81 0x053b…053c »*« 0x053c…053d 0x06 0x053d…053e 0x81 0x053e…053f »*« 0x053f…0540 0x48 0x0540…0541 0x81 0x0541…0542 »*« 0x0542…0543 0x06 0x0543…0544 0xca 0x0544…058e »**************************************************************************« 0x058e…058f 0x06 0x058f…0590 0x8f 0x0590…059f »// TAG PUTPARMS« 0x059f…05a0 0x41 0x05a0…05a1 0x81 0x05a1…05a2 »*« 0x05a2…05a3 0x02 0x05a3…05a4 0xc2 0x05a4…05e6 »******************************************************************« 0x05e6…05e7 0x0b 0x05e7…05e8 0x81 0x05e8…05e9 »*« 0x05e9…05ea 0x02 0x05ea…05eb 0xbf 0x05eb…062a »* IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED« 0x062a…062b 0x02 0x062b…062c 0x81 0x062c…062d »*« 0x062d…062e 0x0b 0x062e…062f 0x81 0x062f…0630 »*« 0x0630…0631 0x02 0x0631…0632 0xbb 0x0632…066d »* OR WAS NOT CALLED FROM THE AUTO PROCEDURE, THEN ISSUE THE« 0x066d…066e 0x06 0x066e…066f 0x81 0x066f…0670 »*« 0x0670…0671 0x0b 0x0671…0672 0x81 0x0672…0673 »*« 0x0673…0674 0x02 0x0674…0675 0xa7 0x0675…069c »* 'AUTOC PROCEDURE IS RUNNING' MESSAGE.« 0x069c…069d 0x1a 0x069d…069e 0x81 0x069e…069f »*« 0x069f…06a0 0x0b 0x06a0…06a1 0x81 0x06a1…06a2 »*« 0x06a2…06a3 0x02 0x06a3…06a4 0xc2 0x06a4…06e6 »******************************************************************« 0x06e6…06e7 0x0b 0x06e7…06e8 0xaf 0x06e8…0717 »// IF JOBQ-NO IF EVOKED-NO IFF AUTO/?21? * 1046« 0x0717…0718 0x21 0x0718…0719 0x81 0x0719…071a »*« 0x071a…071b 0x4f 0x071b…071c 0xad 0x071c…0749 »// LOCAL OFFSET-1,DATA-'RPGAUTOC',AREA-SYSTEM« 0x0749…074a 0x0b 0x074a…074b 0x89 0x074b…0754 »PROC NAME« 0x0754…0755 0x0f 0x0755…0756 0x9a 0x0756…0770 »// EVALUATE P31='?L'9,5'?'« 0x0770…0771 0x16 0x0771…0772 0x98 0x0772…078a »STORE THE DSM VALUE USED« 0x078a…078b 0x08 0x078b…078c 0xaa 0x078c…07b6 »// LOCAL OFFSET-9,DATA-'NODSM',AREA-SYSTEM« 0x07b6…07b7 0x06 0x07b7…07b8 0x99 0x07b8…07d1 »SET THE DEFAULT FOR AUTOC« 0x07d1…07d2 0x07 0x07d2…07d3 0xaa 0x07d3…07fd »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x07fd…07fe 0x0e 0x07fe…07ff 0x90 0x07ff…080f »USED BY COMPILER« 0x080f…0810 0x08 0x0810…0811 0xb8 0x0811…0849 »// IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'?« 0x0849…084a 0x18 0x084a…084b 0xaf 0x084b…087a »// IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG« 0x087a…087b 0x21 0x087b…087c 0xc0 0x087c…08bc »// IFF ?3'COMP'?/COMP IFF ?3?/NOCOMP #ERR 1049,03,RPG ?3F'COMP'?« 0x08bc…08bd 0x10 0x08bd…08be 0xbe 0x08be…08fc »// IFF ?4'PRINT'?/ IFF ?4?/CRT IFF ?4?/PRINT IFF ?4?/NOPRINT +« 0x08fc…08fd 0x12 0x08fd…08fe 0x9c 0x08fe…091a »#ERR 1033,03,RPG ?4F'PRINT'?« 0x091a…091b 0x34 0x091b…091c 0x81 0x091c…091d »*« 0x091d…091e 0x02 0x091e…091f 0xc3 0x091f…0962 »*******************************************************************« 0x0962…0963 0x0a 0x0963…0964 0x81 0x0964…0965 »*« 0x0965…0966 0x02 0x0966…0967 0x81 0x0967…0968 »*« 0x0968…0969 0x02 0x0969…096a 0xac 0x096a…0996 »JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER.« 0x0996…0997 0x02 0x0997…0998 0x92 0x0998…09aa »AN ERROR MESSAGE *« 0x09aa…09ab 0x0a 0x09ab…09ac 0x81 0x09ac…09ad »*« 0x09ad…09ae 0x02 0x09ae…09af 0x81 0x09af…09b0 »*« 0x09b0…09b1 0x02 0x09b1…09b2 0xad 0x09b2…09df »IS ISSUED BY #ERR WITH THE FOLLOWING OPTIONS:« 0x09df…09e0 0x12 0x09e0…09e1 0x81 0x09e1…09e2 »*« 0x09e2…09e3 0x0a 0x09e3…09e4 0x81 0x09e4…09e5 »*« 0x09e5…09e6 0x02 0x09e6…09e7 0x81 0x09e7…09e8 »*« 0x09e8…09e9 0x10 0x09e9…09ea 0x9c 0x09ea…0a06 »0 - CONTINUE WITH P4 = PRINT« 0x0a06…0a07 0x15 0x0a07…0a08 0x81 0x0a08…0a09 »*« 0x0a09…0a0a 0x0a 0x0a0a…0a0b 0x81 0x0a0b…0a0c »*« 0x0a0c…0a0d 0x02 0x0a0d…0a0e 0x81 0x0a0e…0a0f »*« 0x0a0f…0a10 0x10 0x0a10…0a11 0x8a 0x0a11…0a1b »3 - CANCEL« 0x0a1b…0a1c 0x27 0x0a1c…0a1d 0x81 0x0a1d…0a1e »*« 0x0a1e…0a1f 0x0a 0x0a1f…0a20 0x81 0x0a20…0a21 »*« 0x0a21…0a22 0x02 0x0a22…0a23 0xc3 0x0a23…0a66 »*******************************************************************« 0x0a66…0a67 0x0a 0x0a67…0a68 0xa5 0x0a68…0a8d »// IF JOBQ-NO IF EVOKED-NO GOTO SKIP1« 0x0a8d…0a8e 0x2b 0x0a8e…0a8f 0xaa 0x0a8f…0ab9 »// IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'?« 0x0ab9…0aba 0x26 0x0aba…0abb 0x8c 0x0abb…0ac7 »// TAG SKIP1« 0x0ac7…0ac8 0x44 0x0ac8…0ac9 0x81 0x0ac9…0aca »*« 0x0aca…0acb 0x4f 0x0acb…0acc 0xc4 0x0acc…0b10 »// IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'?« 0x0b10…0b11 0x0c 0x0b11…0b12 0xa9 0x0b12…0b3b »// IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'?« 0x0b3b…0b3c 0x27 0x0b3c…0b3d 0xc0 0x0b3d…0b7d »// IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'?« 0x0b7d…0b7e 0x10 0x0b7e…0b7f 0xb5 0x0b7f…0bb4 »// IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'?« 0x0bb4…0bb5 0x1b 0x0bb5…0bb6 0xce 0x0bb6…0c04 »// IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/NOSOURCE IFF ?9?/PSOURCE #ERR 1036,03,RPG +« 0x0c04…0c05 0x02 0x0c05…0c06 0x86 0x0c06…0c0c »?9F''?« 0x0c0c…0c0d 0x4a 0x0c0d…0c0e 0xc5 0x0c0e…0c53 »// IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''?« 0x0c53…0c54 0x0b 0x0c54…0c55 0xb1 0x0c55…0c86 »// IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''?« 0x0c86…0c87 0x1f 0x0c87…0c88 0xb5 0x0c88…0cbd »// ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''?« 0x0cbd…0cbe 0x1b 0x0cbe…0cbf 0xc7 0x0cbf…0d06 »// IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'?« 0x0d06…0d07 0x09 0x0d07…0d08 0xce 0x0d08…0d56 »// IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'?« 0x0d56…0d57 0x02 0x0d57…0d58 0xc3 0x0d58…0d9b »// IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'?« 0x0d9b…0d9c 0x0d 0x0d9c…0d9d 0xd0 0x0d9d…0ded »// IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? « 0x0ded…0dee 0xb8 0x0dee…0e26 »// IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'?« 0x0e26…0e27 0x18 0x0e27…0e28 0xbf 0x0e28…0e67 »// IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'?« 0x0e67…0e68 0x11 0x0e68…0e69 0xb6 0x0e69…0e9f »// IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x0e9f…0ea0 0x1a 0x0ea0…0ea1 0xac 0x0ea1…0ecd »// IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'?« 0x0ecd…0ece 0x24 0x0ece…0ecf 0xbc 0x0ecf…0f0b »************************************************************« 0x0f0b…0f0c 0x14 0x0f0c…0f0d 0x81 0x0f0d…0f0e »*« 0x0f0e…0f0f 0x02 0x0f0f…0f10 0xb4 0x0f10…0f44 »IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE« 0x0f44…0f45 0x04 0x0f45…0f46 0x81 0x0f46…0f47 »*« 0x0f47…0f48 0x14 0x0f48…0f49 0x81 0x0f49…0f4a »*« 0x0f4a…0f4b 0x02 0x0f4b…0f4c 0x8d 0x0f4c…0f59 »IF IT EXISTS.« 0x0f59…0f5a 0x2b 0x0f5a…0f5b 0x81 0x0f5b…0f5c »*« 0x0f5c…0f5d 0x14 0x0f5d…0f5e 0xbc 0x0f5e…0f9a »************************************************************« 0x0f9a…0f9b 0x14 0x0f9b…0f9c 0x96 0x0f9c…0fb2 »// IF ?19?/ GOTO DCTOK« 0x0fb2…0fb3 0x3a 0x0fb3…0fb4 0xb3 0x0fb4…0fe7 »// LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x0fe7…0fe8 0x1d 0x0fe8…0fe9 0x8d 0x0fe9…0ff6 »// LOAD #RPDD« 0x0ff6…0ff7 0x43 0x0ff7…0ff8 0x86 0x0ff8…0ffe »// RUN« 0x0ffe…0fff 0x4a 0x0fff…1000 0xbc 0x1000…103c »************************************************************« 0x103c…103d 0x14 0x103d…103e 0x81 0x103e…103f »*« 0x103f…1040 0x02 0x1040…1041 0xb5 0x1041…1076 »IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS« 0x1076…1077 0x03 0x1077…1078 0x81 0x1078…1079 »*« 0x1079…107a 0x14 0x107a…107b 0x81 0x107b…107c »*« 0x107c…107d 0x02 0x107d…107e 0x93 0x107e…1091 »1), ISSUE RPG-1066.« 0x1091…1092 0x25 0x1092…1093 0x81 0x1093…1094 »*« 0x1094…1095 0x14 0x1095…1096 0xbc 0x1096…10d2 »************************************************************« 0x10d2…10d3 0x14 0x10d3…10d4 0xa7 0x10d4…10fb »// IF '?L'451,1'?'/'1' #ERR 1066,03,RPG« 0x10fb…10fc 0x29 0x10fc…10fd 0x8c 0x10fd…1109 »// TAG DCTOK« 0x1109…110a 0x44 0x110a…110b 0xc3 0x110b…114e »// IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'?« 0x114e…114f 0x0d 0x114f…1150 0xbc 0x1150…118c »************************************************************« 0x118c…118d 0x14 0x118d…118e 0x81 0x118e…118f »*« 0x118f…1190 0x02 0x1190…1191 0xb5 0x1191…11c6 »STORE ALL PARAMETER VALUES IN THE PROPER AREAS OF THE« 0x11c6…11c7 0x03 0x11c7…11c8 0x81 0x11c8…11c9 »*« 0x11c9…11ca 0x14 0x11ca…11cb 0x81 0x11cb…11cc »*« 0x11cc…11cd 0x02 0x11cd…11ce 0xad 0x11ce…11fb »SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA).« 0x11fb…11fc 0x0b 0x11fc…11fd 0x81 0x11fd…11fe »*« 0x11fe…11ff 0x14 0x11ff…1200 0xbc 0x1200…123c »************************************************************« 0x123c…123d 0x14 0x123d…123e 0x97 0x123e…1255 »// LIBRARY NAME-#RPGLIB« 0x1255…1256 0x39 0x1256…1257 0xb2 0x1257…1289 »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x1289…128a 0x1e 0x128a…128b 0xb2 0x128b…12bd »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x12bd…12be 0x1e 0x12be…12bf 0xb2 0x12bf…12f1 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x12f1…12f2 0x1e 0x12f2…12f3 0xb2 0x12f3…1325 »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x1325…1326 0x1e 0x1326…1327 0xb2 0x1327…1359 »// LOCAL OFFSET-213,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x1359…135a 0x02 0x135a…135b 0x97 0x135b…1372 »#AUTO WILL OVERLAY THIS« 0x1372…1373 0x05 0x1373…1374 0xb2 0x1374…13a6 »// LOCAL OFFSET-221,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x13a6…13a7 0x02 0x13a7…13a8 0x9c 0x13a8…13c4 »AREA IF SOURCE IS CATALOGED « 0x13c4…13c5 0xb1 0x13c5…13f6 »// LOCAL OFFSET-89,DATA-'?3?',BLANK-6,AREA-SYSTEM« 0x13f6…13f7 0x1f 0x13f7…13f8 0xb1 0x13f8…1429 »// LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM« 0x1429…142a 0x1f 0x142a…142b 0xb1 0x142b…145c »// LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM« 0x145c…145d 0x1f 0x145d…145e 0xb1 0x145e…148f »// LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM« 0x148f…1490 0x1f 0x1490…1491 0xb1 0x1491…14c2 »// LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x14c2…14c3 0x1f 0x14c3…14c4 0xb2 0x14c4…14f6 »// LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x14f6…14f7 0x1e 0x14f7…14f8 0xb2 0x14f8…152a »// LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x152a…152b 0x1e 0x152b…152c 0xb1 0x152c…155d »// LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM« 0x155d…155e 0x1f 0x155e…155f 0xb2 0x155f…1591 »// LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM« 0x1591…1592 0x1e 0x1592…1593 0xb2 0x1593…15c5 »// LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM« 0x15c5…15c6 0x1e 0x15c6…15c7 0xb2 0x15c7…15f9 »// LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM« 0x15f9…15fa 0x1e 0x15fa…15fb 0xb2 0x15fb…162d »// LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x162d…162e 0x1e 0x162e…162f 0xb2 0x162f…1661 »// LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM« 0x1661…1662 0x1e 0x1662…1663 0xb2 0x1663…1695 »// LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x1695…1696 0x1e 0x1696…1697 0xb3 0x1697…16ca »// LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x16ca…16cb 0x1d 0x16cb…16cc 0xb2 0x16cc…16fe »// LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x16fe…16ff 0x1e 0x16ff…1700 0xb2 0x1700…1732 »// LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM« 0x1732…1733 0x1e 0x1733…1734 0xb3 0x1734…1767 »// LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM« 0x1767…1768 0x1d 0x1768…1769 0xb1 0x1769…179a »// LOCAL OFFSET-95,DATA-'A96',BLANK-4,AREA-SYSTEM« 0x179a…179b 0x06 0x179b…179c 0x8e 0x179c…17aa »USED BY RPGSEU« 0x17aa…17ab 0x0b 0x17ab…17ac 0xc7 0x17ac…17f3 »***********************************************************************« 0x17f3…17f4 0x09 0x17f4…17f5 0x81 0x17f5…17f6 »*« 0x17f6…17f7 0x02 0x17f7…17f8 0xb5 0x17f8…182d »THIS BLOCK PREPARES TO CALL THE AUTO REPORT COMPILER.« 0x182d…182e 0x0e 0x182e…182f 0x81 0x182f…1830 »*« 0x1830…1831 0x09 0x1831…1832 0x81 0x1832…1833 »*« 0x1833…1834 0x02 0x1834…1835 0xb6 0x1835…186b »THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS.« 0x186b…186c 0x0d 0x186c…186d 0x81 0x186d…186e »*« 0x186e…186f 0x09 0x186f…1870 0x81 0x1870…1871 »*« 0x1871…1872 0x02 0x1872…1873 0xbc 0x1873…18af »IF PARAMETER 4=CRT, THE PRINT FILE IS GIVEN A PRIORITY OF 0,« 0x18af…18b0 0x07 0x18b0…18b1 0x81 0x18b1…18b2 »*« 0x18b2…18b3 0x09 0x18b3…18b4 0x81 0x18b4…18b5 »*« 0x18b5…18b6 0x02 0x18b6…18b7 0xb0 0x18b7…18e7 »HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING.« 0x18e7…18e8 0x13 0x18e8…18e9 0x81 0x18e9…18ea »*« 0x18ea…18eb 0x09 0x18eb…18ec 0x81 0x18ec…18ed »*« 0x18ed…18ee 0x02 0x18ee…18ef 0xbc 0x18ef…192b »PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS« 0x192b…192c 0x07 0x192c…192d 0x81 0x192d…192e »*« 0x192e…192f 0x09 0x192f…1930 0x81 0x1930…1931 »*« 0x1931…1932 0x02 0x1932…1933 0xbc 0x1933…196f »FROM AUTO REPORT, RPG COMPILER, OLE, AND THE CROSS-REFERENCE« 0x196f…1970 0x07 0x1970…1971 0x81 0x1971…1972 »*« 0x1972…1973 0x09 0x1973…1974 0x81 0x1974…1975 »*« 0x1975…1976 0x02 0x1976…1977 0xab 0x1977…19a2 »AND CONSOLE FILE FORMAT GENERATOR PROGRAMS.« 0x19a2…19a3 0x18 0x19a3…19a4 0x81 0x19a4…19a5 »*« 0x19a5…19a6 0x09 0x19a6…19a7 0x81 0x19a7…19a8 »*« 0x19a8…19a9 0x02 0x19a9…19aa 0xab 0x19aa…19d5 »IF THE PRINTER IS ALREADY IN CONTINUE MODE,« 0x19d5…19d6 0x18 0x19d6…19d7 0x81 0x19d7…19d8 »*« 0x19d8…19d9 0x09 0x19d9…19da 0x81 0x19da…19db »*« 0x19db…19dc 0x02 0x19dc…19dd 0x9d 0x19dd…19fa »THE RETURN CODE WILL BE 2040.« 0x19fa…19fb 0x02 0x19fb…19fc 0x8f 0x19fc…1a0b »STORE THIS CODE« 0x1a0b…1a0c 0x15 0x1a0c…1a0d 0x81 0x1a0d…1a0e »*« 0x1a0e…1a0f 0x09 0x1a0f…1a10 0x81 0x1a10…1a11 »*« 0x1a11…1a12 0x02 0x1a12…1a13 0x9d 0x1a13…1a30 »AT 189-192 OF THE LOCAL AREA.« 0x1a30…1a31 0x02 0x1a31…1a32 0xa0 0x1a32…1a52 »IF PRINT SPOOLING IS NOT ACTIVE,« 0x1a52…1a53 0x04 0x1a53…1a54 0x81 0x1a54…1a55 »*« 0x1a55…1a56 0x09 0x1a56…1a57 0x81 0x1a57…1a58 »*« 0x1a58…1a59 0x02 0x1a59…1a5a 0xb0 0x1a5a…1a8a »AND CRT IS REQUESTED, #AUTO WILL ISSUE RPG-1027.« 0x1a8a…1a8b 0x13 0x1a8b…1a8c 0x81 0x1a8c…1a8d »*« 0x1a8d…1a8e 0x09 0x1a8e…1a8f 0xc7 0x1a8f…1ad6 »***********************************************************************« 0x1ad6…1ad7 0x09 0x1ad7…1ad8 0x95 0x1ad8…1aed »// LOAD #AUTO,#RPGLIB« 0x1aed…1aee 0x3b 0x1aee…1aef 0xbc 0x1aef…1b2b »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x1b2b…1b2c 0x14 0x1b2c…1b2d 0xba 0x1b2d…1b67 »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x1b67…1b68 0x16 0x1b68…1b69 0xb2 0x1b69…1b9b »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,EXTEND-25« 0x1b9b…1b9c 0x1e 0x1b9c…1b9d 0xa6 0x1b9d…1bc3 »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x1bc3…1bc4 0x2a 0x1bc4…1bc5 0x98 0x1bc5…1bdd »// IF ?4?/CRT PRIORITY-0« 0x1bdd…1bde 0x38 0x1bde…1bdf 0x92 0x1bdf…1bf1 »// ELSE PRIORITY-1« 0x1bf1…1bf2 0x3e 0x1bf2…1bf3 0xab 0x1bf3…1c1e »// LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM« 0x1c1e…1c1f 0x25 0x1c1f…1c20 0xbd 0x1c20…1c5d »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x1c5d…1c5e 0x13 0x1c5e…1c5f 0xc4 0x1c5f…1ca3 »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+« 0x1ca3…1ca4 0x0c 0x1ca4…1ca5 0x8d 0x1ca5…1cb2 »DATADCT-?19?,« 0x1cb2…1cb3 0x43 0x1cb3…1cb4 0x96 0x1cb4…1cca »// IF ?7?/NEP NEP-YES,« 0x1cca…1ccb 0x3a 0x1ccb…1ccc 0x8f 0x1ccc…1cdb »// ELSE NEP-NO,« 0x1cdb…1cdc 0x41 0x1cdc…1cdd 0x96 0x1cdd…1cf3 »// IF ?20?/MRO MRO-YES« 0x1cf3…1cf4 0x3a 0x1cf4…1cf5 0x8e 0x1cf5…1d03 »// ELSE MRO-NO« 0x1d03…1d04 0x42 0x1d04…1d05 0x86 0x1d05…1d0b »// RUN« 0x1d0b…1d0c 0x4a 0x1d0c…1d0d 0xbc 0x1d0d…1d49 »************************************************************« 0x1d49…1d4a 0x14 0x1d4a…1d4b 0x81 0x1d4b…1d4c »*« 0x1d4c…1d4d 0x02 0x1d4d…1d4e 0xb6 0x1d4e…1d84 »THE RPG COMPILER CAN PUT A VALUE OF 1008 IN THE RETURN« 0x1d84…1d85 0x02 0x1d85…1d86 0x81 0x1d86…1d87 »*« 0x1d87…1d88 0x14 0x1d88…1d89 0x81 0x1d89…1d8a »*« 0x1d8a…1d8b 0x02 0x1d8b…1d8c 0x96 0x1d8c…1da2 »CODE FIELD OF THE JCB.« 0x1da2…1da3 0x02 0x1da3…1da4 0x9e 0x1da4…1dc2 »ANY // RUN STATEMENT PROCESSED« 0x1dc2…1dc3 0x02 0x1dc3…1dc4 0x81 0x1dc4…1dc5 »*« 0x1dc5…1dc6 0x14 0x1dc6…1dc7 0x81 0x1dc7…1dc8 »*« 0x1dc8…1dc9 0x02 0x1dc9…1dca 0xab 0x1dca…1df5 »SUBSEQUENTLY WILL RESET THIS VALUE TO 0000.« 0x1df5…1df6 0x02 0x1df6…1df7 0x89 0x1df7…1e00 »THEREFORE« 0x1e00…1e01 0x02 0x1e01…1e02 0x81 0x1e02…1e03 »*« 0x1e03…1e04 0x14 0x1e04…1e05 0x81 0x1e05…1e06 »*« 0x1e06…1e07 0x02 0x1e07…1e08 0xa5 0x1e08…1e2d »SAVE THE RETURN CODE IN PARAMETER 64.« 0x1e2d…1e2e 0x02 0x1e2e…1e2f 0x8a 0x1e2f…1e39 »IT WILL BE« 0x1e39…1e3a 0x07 0x1e3a…1e3b 0x81 0x1e3b…1e3c »*« 0x1e3c…1e3d 0x14 0x1e3d…1e3e 0x81 0x1e3e…1e3f »*« 0x1e3f…1e40 0x02 0x1e40…1e41 0xb9 0x1e41…1e7a »RESTORED TO THE RETURN CODE FIELD IN THE JCB AT THE END *« 0x1e7a…1e7b 0x14 0x1e7b…1e7c 0x81 0x1e7c…1e7d »*« 0x1e7d…1e7e 0x02 0x1e7e…1e7f 0x91 0x1e7f…1e90 »OF THE PROCEDURE.« 0x1e90…1e91 0x27 0x1e91…1e92 0x81 0x1e92…1e93 »*« 0x1e93…1e94 0x14 0x1e94…1e95 0xbc 0x1e95…1ed1 »************************************************************« 0x1ed1…1ed2 0x14 0x1ed2…1ed3 0x96 0x1ed3…1ee9 »// EVALUATE P64,4=?CD?« 0x1ee9…1eea 0x3a 0x1eea…1eeb 0xc3 0x1eeb…1f2e »*******************************************************************« 0x1f2e…1f2f 0x0d 0x1f2f…1f30 0x81 0x1f30…1f31 »*« 0x1f31…1f32 0x02 0x1f32…1f33 0xb6 0x1f33…1f69 »IF XREF AND PRINT OR CRT ARE SPECIFIED AND NO TERMINAL« 0x1f69…1f6a 0x09 0x1f6a…1f6b 0x81 0x1f6b…1f6c »*« 0x1f6c…1f6d 0x0d 0x1f6d…1f6e 0x81 0x1f6e…1f6f »*« 0x1f6f…1f70 0x02 0x1f70…1f71 0x9e 0x1f71…1f8f »ERRORS, CALL THE XREF PROGRAM.« 0x1f8f…1f90 0x02 0x1f90…1f91 0xa0 0x1f91…1fb1 »THE COMPILER WILL SET A RETURN *« 0x1fb1…1fb2 0x0d 0x1fb2…1fb3 0x81 0x1fb3…1fb4 »*« 0x1fb4…1fb5 0x02 0x1fb5…1fb6 0xb5 0x1fb6…1feb »CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS.« 0x1feb…1fec 0x0a 0x1fec…1fed 0x81 0x1fed…1fee »*« 0x1fee…1fef 0x0d 0x1fef…1ff0 0x81 0x1ff0…1ff1 »*« 0x1ff1…1ff2 0x02 0x1ff2…1ff3 0xb8 0x1ff3…202b »IF THE SOURCE TO BE XREFED IS ALREADY IN THE $WORK2 FILE« 0x202b…202c 0x07 0x202c…202d 0x81 0x202d…202e »*« 0x202e…202f 0x0d 0x202f…2030 0x81 0x2030…2031 »*« 0x2031…2032 0x02 0x2032…2033 0xad 0x2033…2060 »LOCAL OFFSET 169-176 WILL CONTAIN '11111111'.« 0x2060…2061 0x12 0x2061…2062 0x81 0x2062…2063 »*« 0x2063…2064 0x0d 0x2064…2065 0xc3 0x2065…20a8 »*******************************************************************« 0x20a8…20a9 0x0d 0x20a9…20aa 0xae 0x20aa…20d8 »// IF ?5?/XREF IFF ?CD?/1008 IFF ?4?/NOPRINT +« 0x20d8…20d9 0x22 0x20d9…20da 0xba 0x20da…2114 »INCLUDE RPGX,#RPGLIB ?L'213,8'?,?18?,?L'221,8'?,?L'169,8'?« 0x2114…2115 0x16 0x2115…2116 0xbd 0x2116…2153 »*************************************************************« 0x2153…2154 0x13 0x2154…2155 0x81 0x2155…2156 »*« 0x2156…2157 0x02 0x2157…2158 0xb6 0x2158…218e »IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER« 0x218e…218f 0x03 0x218f…2190 0x81 0x2190…2191 »*« 0x2191…2192 0x13 0x2192…2193 0x81 0x2193…2194 »*« 0x2194…2195 0x02 0x2195…2196 0xba 0x2196…21d0 »WILL SET BYTE 238 OF LDA TO '1'. IF THE PROGRAM CONTAINS *« 0x21d0…21d1 0x13 0x21d1…21d2 0x81 0x21d2…21d3 »*« 0x21d3…21d4 0x02 0x21d4…21d5 0xb7 0x21d5…220c »TERMINAL ERRORS, THE COMPILER WILL SET A RETURN CODE OF« 0x220c…220d 0x02 0x220d…220e 0x81 0x220e…220f »*« 0x220f…2210 0x13 0x2210…2211 0x81 0x2211…2212 »*« 0x2212…2213 0x02 0x2213…2214 0x85 0x2214…2219 »1008.« 0x2219…221a 0x02 0x221a…221b 0xad 0x221b…2248 »IF NEITHER OF THESE CONDITIONS EXIST, AND GEN« 0x2248…2249 0x05 0x2249…224a 0x81 0x224a…224b »*« 0x224b…224c 0x13 0x224c…224d 0x81 0x224d…224e »*« 0x224e…224f 0x02 0x224f…2250 0xb5 0x2250…2285 »WAS SPECIFIED CALL THE CONSOLE FILE FORMAT GENERATOR.« 0x2285…2286 0x04 0x2286…2287 0x81 0x2287…2288 »*« 0x2288…2289 0x13 0x2289…228a 0x81 0x228a…228b »*« 0x228b…228c 0x02 0x228c…228d 0xb6 0x228d…22c3 »IF THE SOURCE TO HAVE FORMATS GENERATED FOR IS ALREADY« 0x22c3…22c4 0x03 0x22c4…22c5 0x81 0x22c5…22c6 »*« 0x22c6…22c7 0x13 0x22c7…22c8 0x81 0x22c8…22c9 »*« 0x22c9…22ca 0x02 0x22ca…22cb 0xb4 0x22cb…22ff »IN THE $WORK2 FILE LOCAL OFFSET 169-176 WILL CONTAIN« 0x22ff…2300 0x05 0x2300…2301 0x81 0x2301…2302 »*« 0x2302…2303 0x13 0x2303…2304 0x81 0x2304…2305 »*« 0x2305…2306 0x02 0x2306…2307 0x8b 0x2307…2312 »'11111111'.« 0x2312…2313 0x2e 0x2313…2314 0x81 0x2314…2315 »*« 0x2315…2316 0x13 0x2316…2317 0xbd 0x2317…2354 »*************************************************************« 0x2354…2355 0x13 0x2355…2356 0xb7 0x2356…238d »// IF ?L'238,1'?/0 IFF ?CD?/1008 INCLUDE RPGR,#RPGLIB +« 0x238d…238e 0x19 0x238e…238f 0xba 0x238f…23c9 »?L'213,8'?,?18?,NOSAVE,?L'221,8'?,?8?,,?13?,?4?,?L'169,8'?« 0x23c9…23ca 0x16 0x23ca…23cb 0xc2 0x23cb…240d »******************************************************************« 0x240d…240e 0x0e 0x240e…240f 0x81 0x240f…2410 »*« 0x2410…2411 0x02 0x2411…2412 0xbb 0x2412…244d »IF THE PRINTER WAS NOT IN CONTINUE MODE WHEN THIS PROCEDURE« 0x244d…244e 0x03 0x244e…244f 0x81 0x244f…2450 »*« 0x2450…2451 0x0e 0x2451…2452 0x81 0x2452…2453 »*« 0x2453…2454 0x02 0x2454…2455 0xbf 0x2455…2494 »WAS ENTERED, OR IF CRT WAS REQUESTED, THEN RESET THE CONTINUE *« 0x2494…2495 0x0e 0x2495…2496 0x81 0x2496…2497 »*« 0x2497…2498 0x02 0x2498…2499 0x8d 0x2499…24a6 »STATUS TO NO.« 0x24a6…24a7 0x31 0x24a7…24a8 0x81 0x24a8…24a9 »*« 0x24a9…24aa 0x0e 0x24aa…24ab 0xc2 0x24ab…24ed »******************************************************************« 0x24ed…24ee 0x0e 0x24ee…24ef 0xb6 0x24ef…2525 »// IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2« 0x2525…2526 0x1a 0x2526…2527 0x96 0x2527…253d »// PRINTER CONTINUE-NO« 0x253d…253e 0x3a 0x253e…253f 0x8c 0x253f…254b »// TAG SKIP2« 0x254b…254c 0x44 0x254c…254d 0xbc 0x254d…2589 »************************************************************« 0x2589…258a 0x14 0x258a…258b 0x81 0x258b…258c »*« 0x258c…258d 0x02 0x258d…258e 0xb1 0x258e…25bf »THE FOLLOWING OCL IS EXECUTED IF PARAMETER 4=CRT.« 0x25bf…25c0 0x07 0x25c0…25c1 0x81 0x25c1…25c2 »*« 0x25c2…25c3 0x14 0x25c3…25c4 0x81 0x25c4…25c5 »*« 0x25c5…25c6 0x02 0x25c6…25c7 0xb4 0x25c7…25fb »CALL THE COPYPRT MODULES PROCEDURE TO DO THE DISPLAY« 0x25fb…25fc 0x04 0x25fc…25fd 0x81 0x25fd…25fe »*« 0x25fe…25ff 0x14 0x25ff…2600 0x81 0x2600…2601 »*« 0x2601…2602 0x02 0x2602…2603 0x97 0x2603…261a »OF THE HELD PRINT FILE.« 0x261a…261b 0x02 0x261b…261c 0x9c 0x261c…2638 »CANCEL THE SPOOL FILE ENTRY.« 0x2638…2639 0x03 0x2639…263a 0x81 0x263a…263b »*« 0x263b…263c 0x14 0x263c…263d 0x81 0x263d…263e »*« 0x263e…263f 0x02 0x263f…2640 0xb5 0x2640…2675 »PARAMETER 30 WILL CONTAIN THE SPOOL-ID RETRIEVED FROM« 0x2675…2676 0x03 0x2676…2677 0x81 0x2677…2678 »*« 0x2678…2679 0x14 0x2679…267a 0x81 0x267a…267b »*« 0x267b…267c 0x02 0x267c…267d 0xa1 0x267d…269e »OFFSET 181-186 OF THE SYSTEM LDA.« 0x269e…269f 0x17 0x269f…26a0 0x81 0x26a0…26a1 »*« 0x26a1…26a2 0x14 0x26a2…26a3 0xbc 0x26a3…26df »************************************************************« 0x26df…26e0 0x14 0x26e0…26e1 0x9d 0x26e1…26fe »// IFF ?L'14,3'?/CRT GOTO END« 0x26fe…26ff 0x33 0x26ff…2700 0x9c 0x2700…271c »// EVALUATE P30='?L'181,6'?'« 0x271c…271d 0x34 0x271d…271e 0xc8 0x271e…2766 »************************************************************************« 0x2766…2767 0x08 0x2767…2768 0xb0 0x2768…2798 »* THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-564« 0x2798…2799 0x02 0x2799…279a 0x8e 0x279a…27a8 ». THEY REPLACE« 0x27a8…27a9 0x07 0x27a9…27aa 0x81 0x27aa…27ab »*« 0x27ab…27ac 0x08 0x27ac…27ad 0x9f 0x27ad…27cc »* THE CALLS TO $UASF AND $UASC.« 0x27cc…27cd 0x28 0x27cd…27ce 0x81 0x27ce…27cf »*« 0x27cf…27d0 0x08 0x27d0…27d1 0xc8 0x27d1…2819 »************************************************************************« 0x2819…281a 0x08 0x281a…281b 0x8d 0x281b…2828 »// INFOMSG NO« 0x2828…2829 0x43 0x2829…282a 0xb1 0x282a…285b »// IFT DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1« 0x285b…285c 0x1f 0x285c…285d 0xbd 0x285d…289a »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,RP?L'181,6'?,CANCEL,CRT« 0x289a…289b 0x13 0x289b…289c 0xb0 0x289c…28cc »// IF DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1« 0x28cc…28cd 0x20 0x28cd…28ce 0xbb 0x28ce…2909 »***********************************************************« 0x2909…290a 0x15 0x290a…290b 0x81 0x290b…290c »*« 0x290c…290d 0x02 0x290d…290e 0xb8 0x290e…2946 »RESTORE THE RETURN CODE SET BY THE RPG COMPILER TO THE *« 0x2946…2947 0x15 0x2947…2948 0x81 0x2948…2949 »*« 0x2949…294a 0x02 0x294a…294b 0x9d 0x294b…2968 »RETURN CODE FIELD IN THE JCB.« 0x2968…2969 0x1a 0x2969…296a 0x81 0x296a…296b »*« 0x296b…296c 0x15 0x296c…296d 0xbb 0x296d…29a8 »***********************************************************« 0x29a8…29a9 0x15 0x29a9…29aa 0x8a 0x29aa…29b4 »// TAG END« 0x29b4…29b5 0x46 0x29b5…29b6 0xb1 0x29b6…29e7 »// LOCAL OFFSET-9,DATA-'?31?',BLANK-5,AREA-SYSTEM« 0x29e7…29e8 0x04 0x29e8…29e9 0x8f 0x29e9…29f8 »RESET DSM VALUE« 0x29f8…29f9 0x0c 0x29f9…29fa 0x93 0x29fa…2a0d »// EVALUATE CD=?64?« 0x2a0d…2a0e 0x3d 0x2a0e…2a0f 0x81 0x2a0f…2a10 »*« 0x2a10…2a11 0x4f 0x2a11…2a12 0x89 0x2a12…2a1b »// RETURN« 0x2a1b…2a1c 0x47 0x2a1c…2a1d 0x00 0x2a1d…2a20 c9 d5 40 ┆IN ┆ 0x2a20…2a40 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f6 f4 4b 02 8a c9 e3 40 e6 c9 d3 d3 40 c2 c5 07 81 5c 14 81 5c 02 ┆PARAMETER 64. «IT WILL BE a* a* ┆ 0x2a40…2a60 b9 d9 c5 e2 e3 d6 d9 c5 c4 40 e3 d6 40 e3 c8 c5 40 d9 c5 e3 e4 d9 d5 40 c3 d6 c4 c5 40 c6 c9 c5 ┆¾RESTORED TO THE RETURN CODE FIE┆ 0x2a60…2a80 d3 c4 40 c9 d5 40 e3 c8 c5 40 d1 c3 c2 40 c1 e3 40 e3 c8 c5 40 c5 d5 c4 40 5c 14 81 5c 02 91 d6 ┆LD IN THE JCB AT THE END * a* jO┆ 0x2a80…2aa0 c6 40 e3 c8 c5 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 4b 27 81 5c 14 bc 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆F THE PROCEDURE. a* ¯***********┆ 0x2aa0…2ac0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆ 0x2ac0…2ae0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 14 96 61 61 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 ┆***************** o// EVALUATE P┆ 0x2ae0…2b00 f6 f4 6b f4 7e 6f c3 c4 6f 3a c3 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆64,4=?CD? C*********************┆