|
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: 10752 (0x2a00)
Notes: MEMBER_P, Member_Text
Names: »RPGC «
└─⟦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⟧ ».RPGC «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGC'********************** // MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB MESSAGE MEMBER // IFF ?1?/ GOTO PUTPARMS IF P1 SPECIFIED, PROCESS DIRECT // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ IF P1=BLANK AND JOBQ OR EVOKED * ISSUE ERROR MESSAGE // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ * // HELP RPGC ,?2'?CLIB?'?,?3'NODSM'?,?4'PRINT'?,?5'NOXREF'?,+ ?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+ ?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'? // RETURN ************************************************************************ * THE FOLLOWING OCL CHECKS ALL PARAMETERS FOR VALID VALUES AND IF SO * * STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL * * DATA AREA (SEE LAYOUT OF LDA BELOW). EACH PARAMETER IS PROCESSED * * AS SHOWN BELOW: * * * * PARAMETER RESULTS * * INVALID -----> ISSUE PROPER ERROR VIA * * #ERR WITH 0 AND 3 OPTIONS. * * 0 RESPONSE MEANS CONTINUE * * WITH DEFAULT SUBSTITUTED. * * 3 RESPONSE MEANS CANCEL. * * VALID -----> CONTINUE * * * * NOTE: P1 (SOURCE NAME) IS A REQUIRED PARAMETER. THEREFORE * * NO DEFAULT IS ASSUMED AND A 3 OPTION ONLY HALT IS * * ISSUED BY #ERR IF AN INVALID PAREMETER IS DETECTED. * * * ************************************************************************ // TAG PUTPARMS * ******************************************************************* * * IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED * * * OR WAS NOT CALLED FROM THE RPG PROCEDURE THEN ISSUE THE 'RPGC * * * PROCEDURE IS RUNNING' MESSAGE. * * ******************************************************************* // IF JOBQ-NO IF EVOKED-NO IFF RPG/?21? * 1031 // LOCAL OFFSET-1,DATA-'RPGC',BLANK-8,AREA-SYSTEM PROC NAME // LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM USED BY COMPILER // IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'? // IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG // IFF ?3'NODSM'?/NODSM IFF ?3?/DSM #ERR 1032,03,RPG ?3F'NODSM'? // IF ?3?/DSM LOCAL OFFSET-237,DATA-'Y',AREA-SYSTEM FLAG TO CALL $MAINT * TO REPLACE SOURCE * IF DSM REQUESTED. // IFF ?4'PRINT'?/ IFF ?4?/PRINT IFF ?4?/NOPRINT IFF ?4?/CRT + #ERR 1033,03,RPG ?4F'PRINT'? * ******************************************************************* * * JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER. #ERR ISSUES A HALT* * * WITH 0 AND 3 OPTIONS: * * * 0 - CONTINUE WITH P4 = PRINT * * * 3 - CANCEL * * ******************************************************************* // IF JOBQ-NO IF EVOKED-NO GOTO SKIP1 // IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'? // TAG SKIP1 * // IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'? // IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'? // IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'? // IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'? // IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/PSOURCE IFF ?9?/NOSOURCE #ERR 1036,03,RPG + ?9F''? // IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''? // IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''? // ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''? // IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'? // IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'? // IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'? // IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? // IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'? // IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'? // IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM // IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'? ************************************************************ * IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE * * IF IT EXISTS. * ************************************************************ // IF ?19?/ GOTO DCTOK // LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM // LOAD #RPDD // RUN ************************************************************ * IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS * * 1), ISSUE RPG-1066. * ************************************************************ // IF '?L'451,1'?'/'1' #ERR 1066,03,RPG // TAG DCTOK // IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'? *********************************************************** * STORE THE PARAMETER VALUES IN THE PROPER AREA OF THE * * SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA). * *********************************************************** // LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-9,DATA-'?3?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM USED BY RPGSEU ******************************************************************** * THIS BLOCK PREPARES TO CALL THE RPG COMPILER. * * THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS. * * IF PARAMETER 4=CRT, THE PRINT FILE IS GIVE A PRIORITY * * OF 0, HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING. * * PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS * * FROM THE RPG COMPILER, OLE, AND THE CROSS-REFERENCE AND * * CONSOLE FILE FORMAT GENERATOR PROGRAMS. IF THE PRINTER * * IS ALREADY IN CONTINUE MODE, THE RETURN CODE WILL BE 2040. * * STORE THIS CODE AT 189-192 OF THE LOCAL AREA. * * IF PRINT SPOOLING IS NOT ACTIVE, AND CRT IS REQUESTED, * * #RPG WILL ISSUE ERROR MESSAGE RPG-1027. * ******************************************************************* // LOAD #RPG,#RPGLIB // FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // IFF ?3?/DSM GOTO NOTDSM CHECK IF DSM REQUESTED, IF YES * ALLOCATE $WORK2 AND $WORK3 // FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,LABEL-?1?,EXTEND-25 // FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // TAG NOTDSM // PRINTER NAME-$PRINTDM,CONTINUE-YES, // IF ?4?/CRT PRIORITY-0 // ELSE PRIORITY-1 // LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM // MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB // COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+ DATADCT-?19?, // IF ?7?/NEP NEP-YES, // ELSE NEP-NO, // IF ?20?/MRO MRO-YES // ELSE MRO-NO // RUN ************************************************************ * THE RPG COMPILER CAN PUT A VALUE OF 1008 IN THE RETURN * * CODE FIELD OF THE JCB. ANY // RUN STATEMENT PROCESSED * * SUBSEQUENTLY WILL RESET THIS VALUE TO 0000. THEREFORE * * SAVE THE RETURN CODE IN PARAMETER 64. IT WILL BE * * RESTORED TO THE RETURN CODE FIELD IN THE JCB AT THE END * * OF THE PROCEDURE. * ************************************************************ // EVALUATE P64,4=?CD? *********************************************************************** * IF XREF AND PRINT OR CRT ARE SPECIFIED AND NO TERMINAL ERRORS,* * CALL THE RPG XREF PROGRAM. THE COMPILER WILL SET A RETURN * * CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS. * *********************************************************************** // IFF ?CD?/1008 IF ?5?/XREF IFF ?4?/NOPRINT + INCLUDE RPGX,#RPGLIB ?1?,?18?,?2? ********************************************************************** * IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER * * WILL SET BYTE 238 OF LDA TO '1'. IF TERMINAL ERRORS THE * * COMPILER WILL SET A RETURN CODE OF 1008. IF NEITHER OF THESE* * CONDITIONS EXIST AND 'GEN' WAS SPECIFIED, CALL THE * * CONSOLE FILE FORMAT GENERATOR. * ********************************************************************** // IFF ?CD?/1008 IF ?L'238,1'?/0 INCLUDE RPGR,#RPGLIB ?1?,+ ?18?,NOSAVE,?2?,?8?,,?13?,?4? ********************************************* * IF DSM REQUESTED, USE $MAINT TO * * REPLACE THE SOURCE WITH THE DSM * ********************************************* // IFF ?L'237,1'?/Y GOTO SKIPDSM // LOAD $MAINT // FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1? // RUN // COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2 // END // TAG SKIPDSM * ****************************************************************** * IF THE PRINTER WAS NOT IN CONTINUE MODE WHEN THIS PROCEDURE * * WAS ENTERED, OR IF CRT WAS REQUESTED, THEN RESET THE CONTINUE * * STATUS TO NO. * ****************************************************************** // IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2 // PRINTER CONTINUE-NO // TAG SKIP2 ************************************************************ * THE FOLLOWING OCL IS EXECUTED IF PARAMETER 4=CRT. * * USE COPYPRT MODULES TO DO THE DISPLAY OF THE * * HELD PRINT FILE. CANCEL THE SPOOL FILE ENTRY. * * PARAMETER 30 WILL CONTAIN THE SPOOL-ID RETRIEVED * * FROM OFFSET 181-186 OF THE SYSTEM LDA. * ************************************************************ // IFF ?L'14,3'?/CRT GOTO END // EVALUATE P30='?L'181,6'?' ************************************************************************ * 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 // EVALUATE CD=?64? * // RETURN
0x0000…0001 0xd0 0x0001…0051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGC'********************** « 0x0051…0052 0xb7 0x0052…0089 »// MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x0089…008a 0x03 0x008a…008b 0x8e 0x008b…0099 »MESSAGE MEMBER« 0x0099…009a 0x08 0x009a…009b 0x99 0x009b…00b4 »// IFF ?1?/ GOTO PUTPARMS« 0x00b4…00b5 0x11 0x00b5…00b6 0x9f 0x00b6…00d5 »IF P1 SPECIFIED, PROCESS DIRECT« 0x00d5…00d6 0x07 0x00d6…00d7 0xa5 0x00d7…00fc »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x00fc…00fd 0x05 0x00fd…00fe 0x9e 0x00fe…011c »IF P1=BLANK AND JOBQ OR EVOKED« 0x011c…011d 0x08 0x011d…011e 0x81 0x011e…011f »*« 0x011f…0120 0x29 0x0120…0121 0x93 0x0121…0134 »ISSUE ERROR MESSAGE« 0x0134…0135 0x13 0x0135…0136 0x9a 0x0136…0150 »// MSG ?WS?,?M'2100,1,75'?« 0x0150…0151 0x36 0x0151…0152 0x89 0x0152…015b »// RETURN« 0x015b…015c 0x47 0x015c…015d 0x8c 0x015d…0169 »// TAG NJOBQ« 0x0169…016a 0x44 0x016a…016b 0x81 0x016b…016c »*« 0x016c…016d 0x4f 0x016d…016e 0xbd 0x016e…01ab »// HELP RPGC ,?2'?CLIB?'?,?3'NODSM'?,?4'PRINT'?,?5'NOXREF'?,+« 0x01ab…01ac 0x13 0x01ac…01ad 0xc0 0x01ad…01ed »?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+« 0x01ed…01ee 0x10 0x01ee…01ef 0xc2 0x01ef…0231 »?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'?« 0x0231…0232 0x0e 0x0232…0233 0x89 0x0233…023c »// RETURN« 0x023c…023d 0x47 0x023d…023e 0xc8 0x023e…0286 »************************************************************************« 0x0286…0287 0x08 0x0287…0288 0x81 0x0288…0289 »*« 0x0289…028a 0x02 0x028a…028b 0xc2 0x028b…02cd »THE FOLLOWING OCL CHECKS ALL PARAMETERS FOR VALID VALUES AND IF SO« 0x02cd…02ce 0x02 0x02ce…02cf 0x81 0x02cf…02d0 »*« 0x02d0…02d1 0x08 0x02d1…02d2 0x81 0x02d2…02d3 »*« 0x02d3…02d4 0x02 0x02d4…02d5 0xbd 0x02d5…0312 »STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL« 0x0312…0313 0x07 0x0313…0314 0x81 0x0314…0315 »*« 0x0315…0316 0x08 0x0316…0317 0x81 0x0317…0318 »*« 0x0318…0319 0x02 0x0319…031a 0xa4 0x031a…033e »DATA AREA (SEE LAYOUT OF LDA BELOW).« 0x033e…033f 0x02 0x033f…0340 0x9b 0x0340…035b »EACH PARAMETER IS PROCESSED« 0x035b…035c 0x03 0x035c…035d 0x81 0x035d…035e »*« 0x035e…035f 0x08 0x035f…0360 0x81 0x0360…0361 »*« 0x0361…0362 0x02 0x0362…0363 0x8f 0x0363…0372 »AS SHOWN BELOW:« 0x0372…0373 0x35 0x0373…0374 0x81 0x0374…0375 »*« 0x0375…0376 0x08 0x0376…0377 0x81 0x0377…0378 »*« 0x0378…0379 0x46 0x0379…037a 0x81 0x037a…037b »*« 0x037b…037c 0x08 0x037c…037d 0x81 0x037d…037e »*« 0x037e…037f 0x07 0x037f…0380 0x89 0x0380…0389 »PARAMETER« 0x0389…038a 0x17 0x038a…038b 0x87 0x038b…0392 »RESULTS« 0x0392…0393 0x18 0x0393…0394 0x81 0x0394…0395 »*« 0x0395…0396 0x08 0x0396…0397 0x81 0x0397…0398 »*« 0x0398…0399 0x08 0x0399…039a 0x87 0x039a…03a1 »INVALID« 0x03a1…03a2 0x06 0x03a2…03a3 0x86 0x03a3…03a9 »----->« 0x03a9…03aa 0x0d 0x03aa…03ab 0x96 0x03ab…03c1 »ISSUE PROPER ERROR VIA« 0x03c1…03c2 0x08 0x03c2…03c3 0x81 0x03c3…03c4 »*« 0x03c4…03c5 0x08 0x03c5…03c6 0x81 0x03c6…03c7 »*« 0x03c7…03c8 0x28 0x03c8…03c9 0x9a 0x03c9…03e3 »#ERR WITH 0 AND 3 OPTIONS.« 0x03e3…03e4 0x04 0x03e4…03e5 0x81 0x03e5…03e6 »*« 0x03e6…03e7 0x08 0x03e7…03e8 0x81 0x03e8…03e9 »*« 0x03e9…03ea 0x28 0x03ea…03eb 0x99 0x03eb…0404 »0 RESPONSE MEANS CONTINUE« 0x0404…0405 0x05 0x0405…0406 0x81 0x0406…0407 »*« 0x0407…0408 0x08 0x0408…0409 0x81 0x0409…040a »*« 0x040a…040b 0x28 0x040b…040c 0x99 0x040c…0425 »WITH DEFAULT SUBSTITUTED.« 0x0425…0426 0x05 0x0426…0427 0x81 0x0427…0428 »*« 0x0428…0429 0x08 0x0429…042a 0x81 0x042a…042b »*« 0x042b…042c 0x28 0x042c…042d 0x98 0x042d…0445 »3 RESPONSE MEANS CANCEL.« 0x0445…0446 0x06 0x0446…0447 0x81 0x0447…0448 »*« 0x0448…0449 0x08 0x0449…044a 0x81 0x044a…044b »*« 0x044b…044c 0x08 0x044c…044d 0x85 0x044d…0452 »VALID« 0x0452…0453 0x08 0x0453…0454 0x86 0x0454…045a »----->« 0x045a…045b 0x0d 0x045b…045c 0x88 0x045c…0464 »CONTINUE« 0x0464…0465 0x16 0x0465…0466 0x81 0x0466…0467 »*« 0x0467…0468 0x08 0x0468…0469 0x81 0x0469…046a »*« 0x046a…046b 0x46 0x046b…046c 0x81 0x046c…046d »*« 0x046d…046e 0x08 0x046e…046f 0x81 0x046f…0470 »*« 0x0470…0471 0x08 0x0471…0472 0x85 0x0472…0477 »NOTE:« 0x0477…0478 0x02 0x0478…0479 0xa9 0x0479…04a2 »P1 (SOURCE NAME) IS A REQUIRED PARAMETER.« 0x04a2…04a3 0x02 0x04a3…04a4 0x89 0x04a4…04ad »THEREFORE« 0x04ad…04ae 0x03 0x04ae…04af 0x81 0x04af…04b0 »*« 0x04b0…04b1 0x08 0x04b1…04b2 0x81 0x04b2…04b3 »*« 0x04b3…04b4 0x0f 0x04b4…04b5 0xb1 0x04b5…04e6 »NO DEFAULT IS ASSUMED AND A 3 OPTION ONLY HALT IS« 0x04e6…04e7 0x06 0x04e7…04e8 0x81 0x04e8…04e9 »*« 0x04e9…04ea 0x08 0x04ea…04eb 0x81 0x04eb…04ec »*« 0x04ec…04ed 0x0f 0x04ed…04ee 0xb3 0x04ee…0521 »ISSUED BY #ERR IF AN INVALID PAREMETER IS DETECTED.« 0x0521…0522 0x04 0x0522…0523 0x81 0x0523…0524 »*« 0x0524…0525 0x08 0x0525…0526 0x81 0x0526…0527 »*« 0x0527…0528 0x46 0x0528…0529 0x81 0x0529…052a »*« 0x052a…052b 0x08 0x052b…052c 0xc8 0x052c…0574 »************************************************************************« 0x0574…0575 0x08 0x0575…0576 0x8f 0x0576…0585 »// TAG PUTPARMS« 0x0585…0586 0x41 0x0586…0587 0x81 0x0587…0588 »*« 0x0588…0589 0x02 0x0589…058a 0xc3 0x058a…05cd »*******************************************************************« 0x05cd…05ce 0x0a 0x05ce…05cf 0x81 0x05cf…05d0 »*« 0x05d0…05d1 0x02 0x05d1…05d2 0x81 0x05d2…05d3 »*« 0x05d3…05d4 0x02 0x05d4…05d5 0xbd 0x05d5…0612 »IF THIS PROCEDURE WAS NOT RUN FROM THE JOBQ OR WAS NOT EVOKED« 0x0612…0613 0x02 0x0613…0614 0x81 0x0614…0615 »*« 0x0615…0616 0x0a 0x0616…0617 0x81 0x0617…0618 »*« 0x0618…0619 0x02 0x0619…061a 0x81 0x061a…061b »*« 0x061b…061c 0x02 0x061c…061d 0xbd 0x061d…065a »OR WAS NOT CALLED FROM THE RPG PROCEDURE THEN ISSUE THE 'RPGC« 0x065a…065b 0x02 0x065b…065c 0x81 0x065c…065d »*« 0x065d…065e 0x0a 0x065e…065f 0x81 0x065f…0660 »*« 0x0660…0661 0x02 0x0661…0662 0x81 0x0662…0663 »*« 0x0663…0664 0x02 0x0664…0665 0x9e 0x0665…0683 »PROCEDURE IS RUNNING' MESSAGE.« 0x0683…0684 0x21 0x0684…0685 0x81 0x0685…0686 »*« 0x0686…0687 0x0a 0x0687…0688 0x81 0x0688…0689 »*« 0x0689…068a 0x02 0x068a…068b 0xc3 0x068b…06ce »*******************************************************************« 0x06ce…06cf 0x0a 0x06cf…06d0 0xae 0x06d0…06fe »// IF JOBQ-NO IF EVOKED-NO IFF RPG/?21? * 1031« 0x06fe…06ff 0x22 0x06ff…0700 0xb1 0x0700…0731 »// LOCAL OFFSET-1,DATA-'RPGC',BLANK-8,AREA-SYSTEM« 0x0731…0732 0x06 0x0732…0733 0x89 0x0733…073c »PROC NAME« 0x073c…073d 0x10 0x073d…073e 0xaa 0x073e…0768 »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x0768…0769 0x0d 0x0769…076a 0x90 0x076a…077a »USED BY COMPILER« 0x077a…077b 0x09 0x077b…077c 0xb8 0x077c…07b4 »// IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'?« 0x07b4…07b5 0x18 0x07b5…07b6 0xaf 0x07b6…07e5 »// IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG« 0x07e5…07e6 0x21 0x07e6…07e7 0xc0 0x07e7…0827 »// IFF ?3'NODSM'?/NODSM IFF ?3?/DSM #ERR 1032,03,RPG ?3F'NODSM'?« 0x0827…0828 0x10 0x0828…0829 0xb3 0x0829…085c »// IF ?3?/DSM LOCAL OFFSET-237,DATA-'Y',AREA-SYSTEM« 0x085c…085d 0x03 0x085d…085e 0x93 0x085e…0871 »FLAG TO CALL $MAINT« 0x0871…0872 0x07 0x0872…0873 0x81 0x0873…0874 »*« 0x0874…0875 0x35 0x0875…0876 0x91 0x0876…0887 »TO REPLACE SOURCE« 0x0887…0888 0x09 0x0888…0889 0x81 0x0889…088a »*« 0x088a…088b 0x35 0x088b…088c 0x91 0x088c…089d »IF DSM REQUESTED.« 0x089d…089e 0x09 0x089e…089f 0xbe 0x089f…08dd »// IFF ?4'PRINT'?/ IFF ?4?/PRINT IFF ?4?/NOPRINT IFF ?4?/CRT +« 0x08dd…08de 0x12 0x08de…08df 0x9c 0x08df…08fb »#ERR 1033,03,RPG ?4F'PRINT'?« 0x08fb…08fc 0x34 0x08fc…08fd 0x81 0x08fd…08fe »*« 0x08fe…08ff 0x02 0x08ff…0900 0xc3 0x0900…0943 »*******************************************************************« 0x0943…0944 0x0a 0x0944…0945 0x81 0x0945…0946 »*« 0x0946…0947 0x02 0x0947…0948 0xae 0x0948…0976 »* JOBQ OR EVOKED AND CRT ARE INVALID TOGETHER.« 0x0976…0977 0x02 0x0977…0978 0x93 0x0978…098b »#ERR ISSUES A HALT*« 0x098b…098c 0x0a 0x098c…098d 0x81 0x098d…098e »*« 0x098e…098f 0x02 0x098f…0990 0x97 0x0990…09a7 »* WITH 0 AND 3 OPTIONS:« 0x09a7…09a8 0x2b 0x09a8…09a9 0x81 0x09a9…09aa »*« 0x09aa…09ab 0x0a 0x09ab…09ac 0x81 0x09ac…09ad »*« 0x09ad…09ae 0x02 0x09ae…09af 0x81 0x09af…09b0 »*« 0x09b0…09b1 0x15 0x09b1…09b2 0x9c 0x09b2…09ce »0 - CONTINUE WITH P4 = PRINT« 0x09ce…09cf 0x10 0x09cf…09d0 0x81 0x09d0…09d1 »*« 0x09d1…09d2 0x0a 0x09d2…09d3 0x81 0x09d3…09d4 »*« 0x09d4…09d5 0x02 0x09d5…09d6 0x81 0x09d6…09d7 »*« 0x09d7…09d8 0x15 0x09d8…09d9 0x8a 0x09d9…09e3 »3 - CANCEL« 0x09e3…09e4 0x22 0x09e4…09e5 0x81 0x09e5…09e6 »*« 0x09e6…09e7 0x0a 0x09e7…09e8 0x81 0x09e8…09e9 »*« 0x09e9…09ea 0x02 0x09ea…09eb 0xc3 0x09eb…0a2e »*******************************************************************« 0x0a2e…0a2f 0x0a 0x0a2f…0a30 0xa5 0x0a30…0a55 »// IF JOBQ-NO IF EVOKED-NO GOTO SKIP1« 0x0a55…0a56 0x2b 0x0a56…0a57 0xaa 0x0a57…0a81 »// IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'?« 0x0a81…0a82 0x26 0x0a82…0a83 0x8c 0x0a83…0a8f »// TAG SKIP1« 0x0a8f…0a90 0x44 0x0a90…0a91 0x81 0x0a91…0a92 »*« 0x0a92…0a93 0x4f 0x0a93…0a94 0xc4 0x0a94…0ad8 »// IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'?« 0x0ad8…0ad9 0x0c 0x0ad9…0ada 0xa9 0x0ada…0b03 »// IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'?« 0x0b03…0b04 0x27 0x0b04…0b05 0xc0 0x0b05…0b45 »// IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'?« 0x0b45…0b46 0x10 0x0b46…0b47 0xb5 0x0b47…0b7c »// IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'?« 0x0b7c…0b7d 0x1b 0x0b7d…0b7e 0xce 0x0b7e…0bcc »// IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/PSOURCE IFF ?9?/NOSOURCE #ERR 1036,03,RPG +« 0x0bcc…0bcd 0x02 0x0bcd…0bce 0x86 0x0bce…0bd4 »?9F''?« 0x0bd4…0bd5 0x4a 0x0bd5…0bd6 0xc5 0x0bd6…0c1b »// IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''?« 0x0c1b…0c1c 0x0b 0x0c1c…0c1d 0xb1 0x0c1d…0c4e »// IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''?« 0x0c4e…0c4f 0x1f 0x0c4f…0c50 0xb5 0x0c50…0c85 »// ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''?« 0x0c85…0c86 0x1b 0x0c86…0c87 0xc7 0x0c87…0cce »// IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'?« 0x0cce…0ccf 0x09 0x0ccf…0cd0 0xce 0x0cd0…0d1e »// IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'?« 0x0d1e…0d1f 0x02 0x0d1f…0d20 0xc3 0x0d20…0d63 »// IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'?« 0x0d63…0d64 0x0d 0x0d64…0d65 0xd0 0x0d65…0db5 »// IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? « 0x0db5…0db6 0xb8 0x0db6…0dee »// IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'?« 0x0dee…0def 0x18 0x0def…0df0 0xbf 0x0df0…0e2f »// IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'?« 0x0e2f…0e30 0x11 0x0e30…0e31 0xb6 0x0e31…0e67 »// IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x0e67…0e68 0x1a 0x0e68…0e69 0xac 0x0e69…0e95 »// IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'?« 0x0e95…0e96 0x24 0x0e96…0e97 0xbc 0x0e97…0ed3 »************************************************************« 0x0ed3…0ed4 0x14 0x0ed4…0ed5 0x81 0x0ed5…0ed6 »*« 0x0ed6…0ed7 0x02 0x0ed7…0ed8 0xb4 0x0ed8…0f0c »IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE« 0x0f0c…0f0d 0x04 0x0f0d…0f0e 0x81 0x0f0e…0f0f »*« 0x0f0f…0f10 0x14 0x0f10…0f11 0x81 0x0f11…0f12 »*« 0x0f12…0f13 0x02 0x0f13…0f14 0x8d 0x0f14…0f21 »IF IT EXISTS.« 0x0f21…0f22 0x2b 0x0f22…0f23 0x81 0x0f23…0f24 »*« 0x0f24…0f25 0x14 0x0f25…0f26 0xbc 0x0f26…0f62 »************************************************************« 0x0f62…0f63 0x14 0x0f63…0f64 0x96 0x0f64…0f7a »// IF ?19?/ GOTO DCTOK« 0x0f7a…0f7b 0x3a 0x0f7b…0f7c 0xb3 0x0f7c…0faf »// LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x0faf…0fb0 0x1d 0x0fb0…0fb1 0x8d 0x0fb1…0fbe »// LOAD #RPDD« 0x0fbe…0fbf 0x43 0x0fbf…0fc0 0x86 0x0fc0…0fc6 »// RUN« 0x0fc6…0fc7 0x4a 0x0fc7…0fc8 0xbc 0x0fc8…1004 »************************************************************« 0x1004…1005 0x14 0x1005…1006 0x81 0x1006…1007 »*« 0x1007…1008 0x02 0x1008…1009 0xb5 0x1009…103e »IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS« 0x103e…103f 0x03 0x103f…1040 0x81 0x1040…1041 »*« 0x1041…1042 0x14 0x1042…1043 0x81 0x1043…1044 »*« 0x1044…1045 0x02 0x1045…1046 0x93 0x1046…1059 »1), ISSUE RPG-1066.« 0x1059…105a 0x25 0x105a…105b 0x81 0x105b…105c »*« 0x105c…105d 0x14 0x105d…105e 0xbc 0x105e…109a »************************************************************« 0x109a…109b 0x14 0x109b…109c 0xa7 0x109c…10c3 »// IF '?L'451,1'?'/'1' #ERR 1066,03,RPG« 0x10c3…10c4 0x29 0x10c4…10c5 0x8c 0x10c5…10d1 »// TAG DCTOK« 0x10d1…10d2 0x44 0x10d2…10d3 0xc3 0x10d3…1116 »// IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'?« 0x1116…1117 0x0d 0x1117…1118 0xbb 0x1118…1153 »***********************************************************« 0x1153…1154 0x15 0x1154…1155 0x81 0x1155…1156 »*« 0x1156…1157 0x02 0x1157…1158 0xb4 0x1158…118c »STORE THE PARAMETER VALUES IN THE PROPER AREA OF THE« 0x118c…118d 0x03 0x118d…118e 0x81 0x118e…118f »*« 0x118f…1190 0x15 0x1190…1191 0x81 0x1191…1192 »*« 0x1192…1193 0x02 0x1193…1194 0xad 0x1194…11c1 »SYSTEM LOCAL DATA AREA (SEE LDA LAYOUT DATA).« 0x11c1…11c2 0x0a 0x11c2…11c3 0x81 0x11c3…11c4 »*« 0x11c4…11c5 0x15 0x11c5…11c6 0xbb 0x11c6…1201 »***********************************************************« 0x1201…1202 0x15 0x1202…1203 0xb2 0x1203…1235 »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x1235…1236 0x1e 0x1236…1237 0xb2 0x1237…1269 »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x1269…126a 0x1e 0x126a…126b 0xb2 0x126b…129d »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x129d…129e 0x1e 0x129e…129f 0xb2 0x129f…12d1 »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x12d1…12d2 0x1e 0x12d2…12d3 0xb0 0x12d3…1303 »// LOCAL OFFSET-9,DATA-'?3?',BLANK-5,AREA-SYSTEM« 0x1303…1304 0x20 0x1304…1305 0xb1 0x1305…1336 »// LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM« 0x1336…1337 0x1f 0x1337…1338 0xb1 0x1338…1369 »// LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM« 0x1369…136a 0x1f 0x136a…136b 0xb1 0x136b…139c »// LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM« 0x139c…139d 0x1f 0x139d…139e 0xb1 0x139e…13cf »// LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x13cf…13d0 0x1f 0x13d0…13d1 0xb2 0x13d1…1403 »// LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1403…1404 0x1e 0x1404…1405 0xb2 0x1405…1437 »// LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x1437…1438 0x1e 0x1438…1439 0xb1 0x1439…146a »// LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM« 0x146a…146b 0x1f 0x146b…146c 0xb2 0x146c…149e »// LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM« 0x149e…149f 0x1e 0x149f…14a0 0xb2 0x14a0…14d2 »// LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM« 0x14d2…14d3 0x1e 0x14d3…14d4 0xb2 0x14d4…1506 »// LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM« 0x1506…1507 0x1e 0x1507…1508 0xb2 0x1508…153a »// LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x153a…153b 0x1e 0x153b…153c 0xb2 0x153c…156e »// LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM« 0x156e…156f 0x1e 0x156f…1570 0xb2 0x1570…15a2 »// LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x15a2…15a3 0x1e 0x15a3…15a4 0xb3 0x15a4…15d7 »// LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x15d7…15d8 0x1d 0x15d8…15d9 0xb2 0x15d9…160b »// LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x160b…160c 0x1e 0x160c…160d 0xb2 0x160d…163f »// LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM« 0x163f…1640 0x1e 0x1640…1641 0xb3 0x1641…1674 »// LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM« 0x1674…1675 0x1d 0x1675…1676 0xb1 0x1676…16a7 »// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM« 0x16a7…16a8 0x09 0x16a8…16a9 0x8e 0x16a9…16b7 »USED BY RPGSEU« 0x16b7…16b8 0x08 0x16b8…16b9 0xc4 0x16b9…16fd »********************************************************************« 0x16fd…16fe 0x0c 0x16fe…16ff 0x81 0x16ff…1700 »*« 0x1700…1701 0x03 0x1701…1702 0xad 0x1702…172f »THIS BLOCK PREPARES TO CALL THE RPG COMPILER.« 0x172f…1730 0x12 0x1730…1731 0x81 0x1731…1732 »*« 0x1732…1733 0x0c 0x1733…1734 0x81 0x1734…1735 »*« 0x1735…1736 0x03 0x1736…1737 0xb6 0x1737…176d »THE WORK FILES ARE GIVEN AN EXTEND VALUE OF 25 BLOCKS.« 0x176d…176e 0x09 0x176e…176f 0x81 0x176f…1770 »*« 0x1770…1771 0x0c 0x1771…1772 0x81 0x1772…1773 »*« 0x1773…1774 0x03 0x1774…1775 0xb5 0x1775…17aa »IF PARAMETER 4=CRT, THE PRINT FILE IS GIVE A PRIORITY« 0x17aa…17ab 0x0a 0x17ab…17ac 0x81 0x17ac…17ad »*« 0x17ad…17ae 0x0c 0x17ae…17af 0x81 0x17af…17b0 »*« 0x17b0…17b1 0x03 0x17b1…17b2 0xb6 0x17b2…17e8 »OF 0, HOLDING IT ON THE SPOOL QUEUE FOR LATER VIEWING.« 0x17e8…17e9 0x09 0x17e9…17ea 0x81 0x17ea…17eb »*« 0x17eb…17ec 0x0c 0x17ec…17ed 0x81 0x17ed…17ee »*« 0x17ee…17ef 0x03 0x17ef…17f0 0xbc 0x17f0…182c »PUT THE PRINTER IN CONTINUE MODE TO CONCATENATE THE LISTINGS« 0x182c…182d 0x02 0x182d…182e 0x81 0x182e…182f »*« 0x182f…1830 0x0d 0x1830…1831 0x81 0x1831…1832 »*« 0x1832…1833 0x03 0x1833…1834 0xb7 0x1834…186b »FROM THE RPG COMPILER, OLE, AND THE CROSS-REFERENCE AND« 0x186b…186c 0x07 0x186c…186d 0x81 0x186d…186e »*« 0x186e…186f 0x0d 0x186f…1870 0x81 0x1870…1871 »*« 0x1871…1872 0x03 0x1872…1873 0xa7 0x1873…189a »CONSOLE FILE FORMAT GENERATOR PROGRAMS.« 0x189a…189b 0x02 0x189b…189c 0x8e 0x189c…18aa »IF THE PRINTER« 0x18aa…18ab 0x07 0x18ab…18ac 0x81 0x18ac…18ad »*« 0x18ad…18ae 0x0d 0x18ae…18af 0x81 0x18af…18b0 »*« 0x18b0…18b1 0x03 0x18b1…18b2 0xba 0x18b2…18ec »IS ALREADY IN CONTINUE MODE, THE RETURN CODE WILL BE 2040.« 0x18ec…18ed 0x04 0x18ed…18ee 0x81 0x18ee…18ef »*« 0x18ef…18f0 0x0d 0x18f0…18f1 0x81 0x18f1…18f2 »*« 0x18f2…18f3 0x03 0x18f3…18f4 0xad 0x18f4…1921 »STORE THIS CODE AT 189-192 OF THE LOCAL AREA.« 0x1921…1922 0x11 0x1922…1923 0x81 0x1923…1924 »*« 0x1924…1925 0x0d 0x1925…1926 0x81 0x1926…1927 »*« 0x1927…1928 0x03 0x1928…1929 0xb6 0x1929…195f »IF PRINT SPOOLING IS NOT ACTIVE, AND CRT IS REQUESTED,« 0x195f…1960 0x08 0x1960…1961 0x81 0x1961…1962 »*« 0x1962…1963 0x0d 0x1963…1964 0x81 0x1964…1965 »*« 0x1965…1966 0x03 0x1966…1967 0xa7 0x1967…198e »#RPG WILL ISSUE ERROR MESSAGE RPG-1027.« 0x198e…198f 0x17 0x198f…1990 0x81 0x1990…1991 »*« 0x1991…1992 0x0d 0x1992…1993 0xc3 0x1993…19d6 »*******************************************************************« 0x19d6…19d7 0x0d 0x19d7…19d8 0x94 0x19d8…19ec »// LOAD #RPG,#RPGLIB« 0x19ec…19ed 0x3c 0x19ed…19ee 0xbc 0x19ee…1a2a »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x1a2a…1a2b 0x14 0x1a2b…1a2c 0xba 0x1a2c…1a66 »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x1a66…1a67 0x16 0x1a67…1a68 0x9a 0x1a68…1a82 »// IFF ?3?/DSM GOTO NOTDSM« 0x1a82…1a83 0x12 0x1a83…1a84 0x9e 0x1a84…1aa2 »CHECK IF DSM REQUESTED, IF YES« 0x1aa2…1aa3 0x06 0x1aa3…1aa4 0x81 0x1aa4…1aa5 »*« 0x1aa5…1aa6 0x2f 0x1aa6…1aa7 0x9a 0x1aa7…1ac1 »ALLOCATE $WORK2 AND $WORK3« 0x1ac1…1ac2 0x06 0x1ac2…1ac3 0xbc 0x1ac3…1aff »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,LABEL-?1?,EXTEND-25« 0x1aff…1b00 0x14 0x1b00…1b01 0xbb 0x1b01…1b3c »// FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x1b3c…1b3d 0x15 0x1b3d…1b3e 0x8d 0x1b3e…1b4b »// TAG NOTDSM« 0x1b4b…1b4c 0x43 0x1b4c…1b4d 0xa6 0x1b4d…1b73 »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x1b73…1b74 0x2a 0x1b74…1b75 0x98 0x1b75…1b8d »// IF ?4?/CRT PRIORITY-0« 0x1b8d…1b8e 0x38 0x1b8e…1b8f 0x92 0x1b8f…1ba1 »// ELSE PRIORITY-1« 0x1ba1…1ba2 0x3e 0x1ba2…1ba3 0xab 0x1ba3…1bce »// LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM« 0x1bce…1bcf 0x25 0x1bcf…1bd0 0xbd 0x1bd0…1c0d »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x1c0d…1c0e 0x13 0x1c0e…1c0f 0xc4 0x1c0f…1c53 »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+« 0x1c53…1c54 0x0c 0x1c54…1c55 0x8d 0x1c55…1c62 »DATADCT-?19?,« 0x1c62…1c63 0x43 0x1c63…1c64 0x96 0x1c64…1c7a »// IF ?7?/NEP NEP-YES,« 0x1c7a…1c7b 0x3a 0x1c7b…1c7c 0x8f 0x1c7c…1c8b »// ELSE NEP-NO,« 0x1c8b…1c8c 0x41 0x1c8c…1c8d 0x96 0x1c8d…1ca3 »// IF ?20?/MRO MRO-YES« 0x1ca3…1ca4 0x3a 0x1ca4…1ca5 0x8e 0x1ca5…1cb3 »// ELSE MRO-NO« 0x1cb3…1cb4 0x42 0x1cb4…1cb5 0x86 0x1cb5…1cbb »// RUN« 0x1cbb…1cbc 0x4a 0x1cbc…1cbd 0xbc 0x1cbd…1cf9 »************************************************************« 0x1cf9…1cfa 0x14 0x1cfa…1cfb 0x81 0x1cfb…1cfc »*« 0x1cfc…1cfd 0x02 0x1cfd…1cfe 0xb6 0x1cfe…1d34 »THE RPG COMPILER CAN PUT A VALUE OF 1008 IN THE RETURN« 0x1d34…1d35 0x02 0x1d35…1d36 0x81 0x1d36…1d37 »*« 0x1d37…1d38 0x14 0x1d38…1d39 0x81 0x1d39…1d3a »*« 0x1d3a…1d3b 0x02 0x1d3b…1d3c 0x96 0x1d3c…1d52 »CODE FIELD OF THE JCB.« 0x1d52…1d53 0x02 0x1d53…1d54 0x9e 0x1d54…1d72 »ANY // RUN STATEMENT PROCESSED« 0x1d72…1d73 0x02 0x1d73…1d74 0x81 0x1d74…1d75 »*« 0x1d75…1d76 0x14 0x1d76…1d77 0x81 0x1d77…1d78 »*« 0x1d78…1d79 0x02 0x1d79…1d7a 0xab 0x1d7a…1da5 »SUBSEQUENTLY WILL RESET THIS VALUE TO 0000.« 0x1da5…1da6 0x02 0x1da6…1da7 0x89 0x1da7…1db0 »THEREFORE« 0x1db0…1db1 0x02 0x1db1…1db2 0x81 0x1db2…1db3 »*« 0x1db3…1db4 0x14 0x1db4…1db5 0x81 0x1db5…1db6 »*« 0x1db6…1db7 0x02 0x1db7…1db8 0xb0 0x1db8…1de8 »SAVE THE RETURN CODE IN PARAMETER 64. IT WILL BE« 0x1de8…1de9 0x08 0x1de9…1dea 0x81 0x1dea…1deb »*« 0x1deb…1dec 0x14 0x1dec…1ded 0x81 0x1ded…1dee »*« 0x1dee…1def 0x02 0x1def…1df0 0xb9 0x1df0…1e29 »RESTORED TO THE RETURN CODE FIELD IN THE JCB AT THE END *« 0x1e29…1e2a 0x14 0x1e2a…1e2b 0x81 0x1e2b…1e2c »*« 0x1e2c…1e2d 0x02 0x1e2d…1e2e 0x91 0x1e2e…1e3f »OF THE PROCEDURE.« 0x1e3f…1e40 0x27 0x1e40…1e41 0x81 0x1e41…1e42 »*« 0x1e42…1e43 0x14 0x1e43…1e44 0xbc 0x1e44…1e80 »************************************************************« 0x1e80…1e81 0x14 0x1e81…1e82 0x96 0x1e82…1e98 »// EVALUATE P64,4=?CD?« 0x1e98…1e99 0x3a 0x1e99…1e9a 0xc7 0x1e9a…1ee1 »***********************************************************************« 0x1ee1…1ee2 0x09 0x1ee2…1ee3 0x81 0x1ee3…1ee4 »*« 0x1ee4…1ee5 0x07 0x1ee5…1ee6 0xbf 0x1ee6…1f25 »IF XREF AND PRINT OR CRT ARE SPECIFIED AND NO TERMINAL ERRORS,*« 0x1f25…1f26 0x09 0x1f26…1f27 0x81 0x1f27…1f28 »*« 0x1f28…1f29 0x07 0x1f29…1f2a 0x9a 0x1f2a…1f44 »CALL THE RPG XREF PROGRAM.« 0x1f44…1f45 0x02 0x1f45…1f46 0x9e 0x1f46…1f64 »THE COMPILER WILL SET A RETURN« 0x1f64…1f65 0x04 0x1f65…1f66 0x81 0x1f66…1f67 »*« 0x1f67…1f68 0x09 0x1f68…1f69 0x81 0x1f69…1f6a »*« 0x1f6a…1f6b 0x07 0x1f6b…1f6c 0xb5 0x1f6c…1fa1 »CODE OF 1008 IF THE PROGRAM CONTAINS TERMINAL ERRORS.« 0x1fa1…1fa2 0x09 0x1fa2…1fa3 0x81 0x1fa3…1fa4 »*« 0x1fa4…1fa5 0x09 0x1fa5…1fa6 0xc7 0x1fa6…1fed »***********************************************************************« 0x1fed…1fee 0x09 0x1fee…1fef 0xae 0x1fef…201d »// IFF ?CD?/1008 IF ?5?/XREF IFF ?4?/NOPRINT +« 0x201d…201e 0x22 0x201e…201f 0xa1 0x201f…2040 »INCLUDE RPGX,#RPGLIB ?1?,?18?,?2?« 0x2040…2041 0x2f 0x2041…2042 0xc6 0x2042…2088 »**********************************************************************« 0x2088…2089 0x0a 0x2089…208a 0x81 0x208a…208b »*« 0x208b…208c 0x07 0x208c…208d 0xb6 0x208d…20c3 »IF CONSOLE FILES WERE NOT IN THE PROGRAM, THE COMPILER« 0x20c3…20c4 0x07 0x20c4…20c5 0x81 0x20c5…20c6 »*« 0x20c6…20c7 0x0a 0x20c7…20c8 0x81 0x20c8…20c9 »*« 0x20c9…20ca 0x07 0x20ca…20cb 0xb7 0x20cb…2102 »WILL SET BYTE 238 OF LDA TO '1'. IF TERMINAL ERRORS THE« 0x2102…2103 0x06 0x2103…2104 0x81 0x2104…2105 »*« 0x2105…2106 0x0a 0x2106…2107 0x81 0x2107…2108 »*« 0x2108…2109 0x07 0x2109…210a 0xa8 0x210a…2132 »COMPILER WILL SET A RETURN CODE OF 1008.« 0x2132…2133 0x02 0x2133…2134 0x94 0x2134…2148 »IF NEITHER OF THESE*« 0x2148…2149 0x0a 0x2149…214a 0x81 0x214a…214b »*« 0x214b…214c 0x07 0x214c…214d 0xb2 0x214d…217f »CONDITIONS EXIST AND 'GEN' WAS SPECIFIED, CALL THE« 0x217f…2180 0x0b 0x2180…2181 0x81 0x2181…2182 »*« 0x2182…2183 0x0a 0x2183…2184 0x81 0x2184…2185 »*« 0x2185…2186 0x07 0x2186…2187 0x9e 0x2187…21a5 »CONSOLE FILE FORMAT GENERATOR.« 0x21a5…21a6 0x1f 0x21a6…21a7 0x81 0x21a7…21a8 »*« 0x21a8…21a9 0x0a 0x21a9…21aa 0xc6 0x21aa…21f0 »**********************************************************************« 0x21f0…21f1 0x0a 0x21f1…21f2 0xbb 0x21f2…222d »// IFF ?CD?/1008 IF ?L'238,1'?/0 INCLUDE RPGR,#RPGLIB ?1?,+« 0x222d…222e 0x15 0x222e…222f 0x9d 0x222f…224c »?18?,NOSAVE,?2?,?8?,,?13?,?4?« 0x224c…224d 0x33 0x224d…224e 0xad 0x224e…227b »*********************************************« 0x227b…227c 0x23 0x227c…227d 0x81 0x227d…227e »*« 0x227e…227f 0x07 0x227f…2280 0x9f 0x2280…229f »IF DSM REQUESTED, USE $MAINT TO« 0x229f…22a0 0x05 0x22a0…22a1 0x81 0x22a1…22a2 »*« 0x22a2…22a3 0x23 0x22a3…22a4 0x81 0x22a4…22a5 »*« 0x22a5…22a6 0x07 0x22a6…22a7 0x9f 0x22a7…22c6 »REPLACE THE SOURCE WITH THE DSM« 0x22c6…22c7 0x05 0x22c7…22c8 0x81 0x22c8…22c9 »*« 0x22c9…22ca 0x23 0x22ca…22cb 0xad 0x22cb…22f8 »*********************************************« 0x22f8…22f9 0x23 0x22f9…22fa 0xa0 0x22fa…231a »// IFF ?L'237,1'?/Y GOTO SKIPDSM« 0x231a…231b 0x30 0x231b…231c 0x8e 0x231c…232a »// LOAD $MAINT« 0x232a…232b 0x42 0x232b…232c 0xae 0x232c…235a »// FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1?« 0x235a…235b 0x22 0x235b…235c 0x86 0x235c…2362 »// RUN« 0x2362…2363 0x4a 0x2363…2364 0xad 0x2364…2391 »// COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2« 0x2391…2392 0x23 0x2392…2393 0x86 0x2393…2399 »// END« 0x2399…239a 0x4a 0x239a…239b 0x8e 0x239b…23a9 »// TAG SKIPDSM« 0x23a9…23aa 0x42 0x23aa…23ab 0x81 0x23ab…23ac »*« 0x23ac…23ad 0x4f 0x23ad…23ae 0xc2 0x23ae…23f0 »******************************************************************« 0x23f0…23f1 0x0e 0x23f1…23f2 0x81 0x23f2…23f3 »*« 0x23f3…23f4 0x02 0x23f4…23f5 0xbb 0x23f5…2430 »IF THE PRINTER WAS NOT IN CONTINUE MODE WHEN THIS PROCEDURE« 0x2430…2431 0x03 0x2431…2432 0x81 0x2432…2433 »*« 0x2433…2434 0x0e 0x2434…2435 0x81 0x2435…2436 »*« 0x2436…2437 0x02 0x2437…2438 0xbf 0x2438…2477 »WAS ENTERED, OR IF CRT WAS REQUESTED, THEN RESET THE CONTINUE *« 0x2477…2478 0x0e 0x2478…2479 0x81 0x2479…247a »*« 0x247a…247b 0x02 0x247b…247c 0x8d 0x247c…2489 »STATUS TO NO.« 0x2489…248a 0x31 0x248a…248b 0x81 0x248b…248c »*« 0x248c…248d 0x0e 0x248d…248e 0xc2 0x248e…24d0 »******************************************************************« 0x24d0…24d1 0x0e 0x24d1…24d2 0xb6 0x24d2…2508 »// IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2« 0x2508…2509 0x1a 0x2509…250a 0x96 0x250a…2520 »// PRINTER CONTINUE-NO« 0x2520…2521 0x3a 0x2521…2522 0x8c 0x2522…252e »// TAG SKIP2« 0x252e…252f 0x44 0x252f…2530 0xbc 0x2530…256c »************************************************************« 0x256c…256d 0x14 0x256d…256e 0x81 0x256e…256f »*« 0x256f…2570 0x07 0x2570…2571 0xb1 0x2571…25a2 »THE FOLLOWING OCL IS EXECUTED IF PARAMETER 4=CRT.« 0x25a2…25a3 0x02 0x25a3…25a4 0x81 0x25a4…25a5 »*« 0x25a5…25a6 0x14 0x25a6…25a7 0x81 0x25a7…25a8 »*« 0x25a8…25a9 0x07 0x25a9…25aa 0xac 0x25aa…25d6 »USE COPYPRT MODULES TO DO THE DISPLAY OF THE« 0x25d6…25d7 0x07 0x25d7…25d8 0x81 0x25d8…25d9 »*« 0x25d9…25da 0x14 0x25da…25db 0x81 0x25db…25dc »*« 0x25dc…25dd 0x07 0x25dd…25de 0x90 0x25de…25ee »HELD PRINT FILE.« 0x25ee…25ef 0x02 0x25ef…25f0 0x9c 0x25f0…260c »CANCEL THE SPOOL FILE ENTRY.« 0x260c…260d 0x05 0x260d…260e 0x81 0x260e…260f »*« 0x260f…2610 0x14 0x2610…2611 0x81 0x2611…2612 »*« 0x2612…2613 0x07 0x2613…2614 0xb0 0x2614…2644 »PARAMETER 30 WILL CONTAIN THE SPOOL-ID RETRIEVED« 0x2644…2645 0x03 0x2645…2646 0x81 0x2646…2647 »*« 0x2647…2648 0x14 0x2648…2649 0x81 0x2649…264a »*« 0x264a…264b 0x07 0x264b…264c 0xa6 0x264c…2672 »FROM OFFSET 181-186 OF THE SYSTEM LDA.« 0x2672…2673 0x0d 0x2673…2674 0x81 0x2674…2675 »*« 0x2675…2676 0x14 0x2676…2677 0xbc 0x2677…26b3 »************************************************************« 0x26b3…26b4 0x14 0x26b4…26b5 0x9d 0x26b5…26d2 »// IFF ?L'14,3'?/CRT GOTO END« 0x26d2…26d3 0x33 0x26d3…26d4 0x9c 0x26d4…26f0 »// EVALUATE P30='?L'181,6'?'« 0x26f0…26f1 0x34 0x26f1…26f2 0xc8 0x26f2…273a »************************************************************************« 0x273a…273b 0x08 0x273b…273c 0xb0 0x273c…276c »* THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-564« 0x276c…276d 0x02 0x276d…276e 0x8e 0x276e…277c ». THEY REPLACE« 0x277c…277d 0x07 0x277d…277e 0x81 0x277e…277f »*« 0x277f…2780 0x08 0x2780…2781 0x9f 0x2781…27a0 »* THE CALLS TO $UASF AND $UASC.« 0x27a0…27a1 0x28 0x27a1…27a2 0x81 0x27a2…27a3 »*« 0x27a3…27a4 0x08 0x27a4…27a5 0xc8 0x27a5…27ed »************************************************************************« 0x27ed…27ee 0x08 0x27ee…27ef 0x8d 0x27ef…27fc »// INFOMSG NO« 0x27fc…27fd 0x43 0x27fd…27fe 0xb1 0x27fe…282f »// IFT DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1« 0x282f…2830 0x1f 0x2830…2831 0xbd 0x2831…286e »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,RP?L'181,6'?,CANCEL,CRT« 0x286e…286f 0x13 0x286f…2870 0xb0 0x2870…28a0 »// IF DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1« 0x28a0…28a1 0x20 0x28a1…28a2 0xbb 0x28a2…28dd »***********************************************************« 0x28dd…28de 0x15 0x28de…28df 0x81 0x28df…28e0 »*« 0x28e0…28e1 0x02 0x28e1…28e2 0xb8 0x28e2…291a »RESTORE THE RETURN CODE SET BY THE RPG COMPILER TO THE *« 0x291a…291b 0x15 0x291b…291c 0x81 0x291c…291d »*« 0x291d…291e 0x02 0x291e…291f 0x9d 0x291f…293c »RETURN CODE FIELD IN THE JCB.« 0x293c…293d 0x1a 0x293d…293e 0x81 0x293e…293f »*« 0x293f…2940 0x15 0x2940…2941 0xbb 0x2941…297c »***********************************************************« 0x297c…297d 0x15 0x297d…297e 0x8a 0x297e…2988 »// TAG END« 0x2988…2989 0x46 0x2989…298a 0x93 0x298a…299d »// EVALUATE CD=?64?« 0x299d…299e 0x3d 0x299e…299f 0x81 0x299f…29a0 »*« 0x29a0…29a1 0x4f 0x29a1…29a2 0x89 0x29a2…29ab »// RETURN« 0x29ab…29ac 0x47 0x29ac…29ad 0x00 0x29ad…29c0 d6 d9 c5 02 81 5c 14 81 5c 02 b0 e2 c1 e5 c5 40 e3 c8 c5 ┆ORE a* a* ^SAVE THE┆ 0x29c0…29e0 40 d9 c5 e3 e4 d9 d5 40 c3 d6 c4 c5 40 c9 d5 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f6 f4 4b 40 c9 e3 ┆ RETURN CODE IN PARAMETER 64. IT┆ 0x29e0…2a00 40 e6 c9 d3 d3 40 c2 c5 08 81 5c 14 81 5c 02 b9 d9 c5 e2 e3 d6 d9 c5 c4 40 e3 d6 40 e3 c8 c5 40 ┆ WILL BE a* a* ¾RESTORED TO THE ┆