|
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: 15872 (0x3e00)
Notes: MEMBER_P, Member_Text
Names: »RPGONL «
└─⟦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⟧ ».RPGONL «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGONL'******************** // LOCAL AREA-SYSTEM // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB ******************************************************* * THIS PROC CANNOT BE RUN FROM THE JOBQ OR BE EVOKED * ******************************************************* // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ ******************************************************* * DSU/SEU MUST BE ON THE SYSTEM * ******************************************************* ***IFF PROC-FSE IFF PROC-SEU #ERR 1064,3,RPG // IFF PROC-DSU IFF PROC-SEU #ERR 1067,3,RPG ******************************************************************* * IF THE USER SIGNED ON TO AN IGC SESSION, SET THE SCREEN FORMAT * * MEMBER NAME TO #RP$FMTS, OTHERWISE USE #RP@FMTS. * ******************************************************************* // IF DSPLY-IGC EVALUATE P64='#RP$FMTS' // ELSE EVALUATE P64='#RP@FMTS' ******************************************************************* * IF THE PRECEDING PROCEDURE WAS AN RPG PROCEDURE * * THEN DO NOT INITIALIZE THE LDA. * ******************************************************************* // IF '?L'1,3'?'/'RPG' GOTO SKIPINIT // LOCAL OFFSET-1,DATA-' NODSMPRINT NOXREF0 NONEP',BLANK-457,+ AREA-SYSTEM // LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK NOOBJECTGEN 40 COMP R96',+ AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM // TAG SKIPINIT ***************************************************************** * IN ORDER TO PRESERVE MEMORY, THE PARAMETERS WHICH ARE ASSUMED* * IN RPGONL (DSM,CRT,NOHALT,REPLACE) MUST BE SAVED AND RESTORED* * WHEN THIS PROCEDURE IS ENDED. USE PARAMETERS 44-47 AS A * * STORAGE AREA FOR THESE VALUES. ALSO INITIALIZE THESE AREAS * * OF THE LDA TO VALUES NEEDED BY RPGONL. * ***************************************************************** // EVALUATE P44='?L'9,5'?' P45='?L'14,7'?' P46='?L'51,6'?' P47='?L'57,8'?' // LOCAL OFFSET-9,DATA-'DSM CRT ',AREA-SYSTEM // LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM * // LOCAL OFFSET-1,DATA-'RPGONL ',AREA-SYSTEM // LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM // LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM // LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM *************************************************************** * MOVE DATA FROM THE LOCAL AREA INTO THE PROPER PARAMETERS * *************************************************************** // EVALUATE P1='?L'435,8'?' P2='?L'419,8'?' P3='?L'427,8'?' P5='?L'177,1'?' + P7='?L'34,8'?' P8='?L'42,7'?' P9='?L'49,2'?' P10='?L'21,6'?' // EVALUATE P11='?L'65,6'?' P12='?L'71,8'?' P13='?L'161,8'?' P14='?L'29,5'?' + P15='?L'27,2'?' P16='?L'79,5'?' P17='?L'85,4'?' P4='?L'443,8'?' P6='' // EVALUATE P18='?L'453,5'?' ********************************** * DISPLAY FIRST PROMPT SCREEN * ********************************** // TAG SCREEN1 ********************************************************************* * PARM 49 IS USED TO CONTROL WHICH * * OVERRIDE FORMAT TO DISPLAY (FORMAT RPGONLO1 ALLOWS CMD2, FORMAT * * RPGONLO2 DOES NOT ALLOW CMD2). IT IS ALSO USED AS A SWITCH TO * * UNCONDITIONALLY SKIP THE DSU/SEU STEP AFTER THE FIRST COMPILATION* * IF P49 NE. 'RPGONLO1' THEN SKIP THE DSU/SEU STEP. * ********************************************************************* // EVALUATE P49='RPGONLO1' // PROMPT FORMAT-RPGONL1,MEMBER-?64?,START-1,LENGTH-'8,8,8,8,1,60',+ LIBRARY-#RPGLIB ************************ * CHECK COMMAND KEYS * ************************ // IF ?CD?/2003 GOTO END PREVIOUS MENU // IF ?CD?/2007 GOTO END CANCEL *************************************************************************** * CHECK PARMS : EACH PARAMETER IS CHECKED FOR VALID VALUES. IF OK, * * THE VALUE IS STORED IN THE PROPER AREA OF THE SYSTEM * * LOCAL DATA AREA. IF NOT OK, THE PROPER ERROR MIC IS * * PUT IN PARAMETER 6 AND SCREEN 1 IS REDISPLAYED. * * PARAMETERS 21-24, 26 ARE USED TO POSITION THE CURSOR ON * * THE PARAMETER IN ERROR (SEE PARAMETER USAGE MAP), AND * * TO REVERSE IMAGE THE INPUT FIELD IN ERROR. * *************************************************************************** // EVALUATE P21='' P22='' P23='' P24='' P26='' // IF ?2?/ GOTO SCREEN1 ?6F'1060'? ?22F'C'? // IFF DATAF1-?2? GOTO SCREEN1 ?6F'1060'? ?22F'C'? // IFF ?3?/ IFF DATAF1-?3? GOTO SCREEN1 ?23F'C'? + ?6F'1061'? // IF ?1?/ GOTO SCREEN1 ?6F'1051'? ?21F'C'? ************************************************************ * IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE * * IF IT EXISTS. * ************************************************************ // IF ?4?/ GOTO DCTOK // EVALUATE P43,4=?CD? // LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM // LOAD #RPDD // RUN ************************************************************ * IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS * * 1), ISSUE RPG-1066 AND HIGHLIGHT THE NAME. * ************************************************************ // IF '?L'451,1'?'/'1' GOTO SCREEN1 ?6F'1066'? ?26F'C'? // EVALUATE CD=?43? // TAG DCTOK // IF ?5?/Y GOTO P1OK IF DSU/SEU=YES, SKIP EXISTENCE CHECK // IFF ?5?/N GOTO SCREEN1 ?6F'1030'? ?24F'C'? // IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'? // TAG P1OK * // IFF ?CD?/2014 GOTO CHKSCR2 ADDITIONAL PARMS REQUESTED? ********************************************** * RESET THE ERROR PARAMETER VALUE TO BLANK * ********************************************** // EVALUATE P20='' ************************************* * DISPLAY OVERRIDE PROMPT SCREEN * ************************************* // TAG SCREEN2 // EVALUATE P19='RPGONL ?1?,?2?,?3?,?4?,?5? // PROMPT FORMAT-?49?,MEMBER-?64?,START-7,+ LENGTH-'8,7,2,6,6,8,8,5,2,5,4,5,44,60',LIBRARY-#RPGLIB // EVALUATE P51='' P52='' P53='' P54='' P55='' P56='' P57='' P58='' + P59='' P60='' P61='' P6='' P25='' ************************* * CHECK COMMAND KEYS * ************************* // IF ?CD?/2002 GOTO SCREEN1 CHECK FOR PAGE BACK // IF ?CD?/2007 GOTO END CHECK FOR END-OF-JOB *************************************************************************** * CHECK PARMS : EACH PARAMETER IS CHECKED FOR VALID VALUES. IF OK, * * THE VALUE IS STORED IN THE PROPER AREA OF THE SYSTEM * * LOCAL DATA AREA. IF NOT OK, THE PROPER ERROR MIC IS * * PUT IN PARAMETER 20 AND SCREEN 2 IS REDISPLAYED. * * PARAMETERS 51-61 ARE USED TO POSITION THE CURSOR * * ON THE PARAMETER IN ERROR. * * PARAMETERS 25 IS USED TO POSITION THE CURSOR WHEN * * THERE IS AN ERROR IN THE MRO PARAMETER * *************************************************************************** // TAG CHKSCR2 // IFF ?7?/ IFF ?7?/SOURCE IFF ?7?/NOSOURCE IFF ?7?/PSOURCE + GOTO SCREEN2 ?20F'1036'? ?51F'C'? // IFF ?8?/ IFF ?8?/DEBUG IFF ?8?/NODEBUG GOTO SCREEN2 + ?20F'1037'? ?52F'C'? // IFF ?9?/ IF 65>?9? IF ?9?>1 EVALUATE // ELSE IFF ?9?/ GOTO SCREEN2 ?20F'1038'? ?53F'C'? // IFF ?10'NOXREF'?/NOXREF IFF ?10?/XREF GOTO SCREEN2 + ?20F'1034'? ?54F'C'? // IFF ?11'LINK'?/LINK IFF ?11?/NOLINK GOTO SCREEN2 + ?20F'1041'? ?55F'C'? // IFF ?12'NOOBJECT'?/OBJECT IFF ?12?/NOOBJECT GOTO SCREEN2 + ?20F'1042'? ?56F'C'? // IFF ?13?/ IFF DATAF1-?13? GOTO SCREEN2 + ?20F'1062'? ?57F'C'? // IFF ?14'NONEP'?/NEP IFF ?14?/NONEP GOTO SCREEN2 + ?20F'1035'? ?58F'C'? // IF 100>?15'0'? IF ?15?>-1 EVALUATE // ELSE GOTO SCREEN2 ?20F'1054'? ?59F'C'? // IFF ?16'GEN'?/GEN IFF ?16?/NOGEN GOTO SCREEN2 + ?20F'1043'? ?60F'C'? // IF ?16?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM // IFF ?17'40'?>0 GOTO SCREEN2 ?20F'1053'? ?61F'C'? // IFF ?18'NOMRO'?/MRO IFF ?18?/NOMRO GOTO SCREEN2 + ?20F'1045'? ?25F'C'? ******************************************************* * STORE ALL THE PARAMETERS IN THE PROPER POSITIONS IN* * THE LOCAL DATA AREA (SEE LDA LAYOUT UNDER RPGCALSO)* ******************************************************* // LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-153,DATA-'?3?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-177,DATA-'?5?',AREA-SYSTEM // LOCAL OFFSET-34,DATA-'?7?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-42,DATA-'?8?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-49,DATA-'?9?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-21,DATA-'?10'NOXREF'?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-65,DATA-'?11'LINK'?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-71,DATA-'?12'NOOBJECT'?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-161,DATA-'?13?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-29,DATA-'?14'NONEP'?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-27,DATA-'?15'0'?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-79,DATA-'?16'GEN'?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-85,DATA-'?17'40'?',BLANK-4,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'?18'NOMRO'?',BLANK-5,AREA-SYSTEM ************************************************ * IF THE VALUE IN P49 (FORMAT TO DISPLAY FOR * * SCREEN 2) IS NOT 'RPGONLO1', THEN THE DSU/ * * SEU STEP IS SKIPPED UNCONDITIONALLY. * * P49 WILL BE 'RPGONLO1' IF THIS IS THE FIRST * * TIME THROUGH THE LOOP FOR THIS MEMBER. * * AFTER THE FIRST TIME THROUGH, P49 IS SET TO * * 'RPGONLO2'. * ************************************************ // IFF ?49?/RPGONLO1 GOTO COMP *************************************** * VIEW SOURCE BEFORE FIRST COMPILE? * *************************************** ***IF Y/?5? IF PROC-FSE FSE ?1?,R,,,?2? YES, CALL FSE TO VIEW SOURCE // IF Y/?5? IF PROC-DSU DSU EDIT,?1?,R,,,?2? YES, CALL DSU TO VIEW SOURCE // ELSE IF Y/?5? SEU ?1?,R,,,?2? YES, CALL SEU TO VIEW SOURCE ******************************************************************** * IF THE OVERRIDE SCREEN IS REQUESTED AGAIN, SHOW THE FORMAT WITH * * CMD2 DISABLED. * ******************************************************************** // EVALUATE P49='RPGONLO2' ******************************************************************* * DO AN EXISTENCE CHECK ON THE SOURCE MEMBER AFTER THE DSU/SEU * * STEP TO INSURE A SOURCE MEMBER WAS CREATED. IF THE MEMBER * * DOES NOT EXIST, ISSUE AN ERROR MESSAGE AND RETURN TO THE * * FIRST PROMPT SCREEN. * ******************************************************************* // IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'? ********************************************************************** * CALL RPG COMPILER TO COMPILE SOURCE AND CREATE DSM. THE LISTING * * GENERATED BY THE COMPILER IS HELD ON THE SPOOL QUEUE BY GIVING * * PRINTER FILE A PRIORITY OF 0. WORK FILES WILL BE EXTENDED BY 25 * * BLOCKS IF NECESSARY. THE LABEL PARAMETER ON $WORK2 IS USED LATER * * BY DSU/SEU. * ********************************************************************** // TAG COMP // * 1016 // LOAD #RPG,#RPGLIB // FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25 // FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25 // FILE NAME-$WORK2,RETAIN-J,BLOCKS-?17?,LABEL-?1?,EXTEND-25 // FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25 // PRINTER NAME-$PRINTDM,CONTINUE-YES,PRIORITY-0 // MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB // COMPILE INLIB-?2?,MRTMAX-?15?,SOURCE-?1?,DATADCT-?4?, // IF ?14?/NEP NEP-YES, // ELSE NEP-NO, // IF ?18?/MRO MRO-YES, // ELSE MRO-NO, // IFF ?3?/ OUTLIB-?3? // ELSE OUTLIB-?2? // RUN ***************************************************************** * IF XREF SPECIFIED AND NO TERMINAL ERRORS, CALL XREF PROGRAM * ***************************************************************** // IFF ?CD?/1008 IF ?10?/XREF RPGX,#RPGLIB ?1?,?17?,?2? ***************************************************************** * IF GEN SPECIFIED AND PROGRAM CONTAINS CONSOLE FILES AND NO * * TERMINAL ERRORS CALL THE CONSOLE FILE GENERATOR PROGRAM * ***************************************************************** // IFF ?CD?/1008 IF ?L'238,1'?/0 RPGR,#RPGLIB ?1?,?17?,NOSAVE,?2?,?3? ********************************* * END PRINTER CONCATENATION * ********************************* // PRINTER CONTINUE-NO ***************************** * USE DSU/SEU TO VIEW DSM * ************************* ***IF PROC-FSE FSE ?1?,R,,,?2?,?1? // IF PROC-DSU DSU EDIT,?1?,R,,,?2?,?1? // ELSE SEU ?1?,R,,,?2?,?1? ********************************** * DISPLAY CONTINUATION SCREEN * ********************************** // EVALUATE P32='?1?' P33='?2?' P34='?3?' P35='?4?' P36='' // IF ?34?/ EVALUATE P34='?33?' // TAG SCREEN3 // PROMPT FORMAT-RPGONLC,MEMBER-?64?,START-30,+ LENGTH-'1,1,8,8,8,8,60',LIBRARY-#RPGLIB ******************************************************* * STORE WHICH COMMAND KEY WAS PRESSED FOR LATER USE * ******************************************************* // IF ?CD?/2007 EVALUATE P48='1' // ELSE IF ?CD?/2014 EVALUATE P48='2' // ELSE IF ?CD?/2001 EVALUATE P48='3' // ELSE EVALUATE P48='0' // IF ?CD?/2007 GOTO NOCHECK IF CMD KEY 7, DO NOT ERROR CHECK PARMS ************************************************************************* * CHECK PARMS : EACH PARAMETER IS CHECKED FOR VALID VALUES. IF OK, * * THE VALUE IS STORED IN THE PROPER AREA OF THE SYSTEM * * LOCAL DATA AREA. IF NOT OK, THE PROPER ERROR MIC IS * * PUT IN PARAMETER 36 AND SCREEN 3 IS REDISPLAYED. * * PARAMETER 62-63 ARE USED TO POSITION THE CURSOR ON * * THE PARAMETER IN ERROR. * ************************************************************************* // EVALUATE P62='' P63='' // IFF ?30?/N IFF ?30?/Y GOTO SCREEN3 + ?36F'1030'? ?62F'C'? // IFF ?31?/N IFF ?31?/Y GOTO SCREEN3 + ?36F'1030'? ?63F'C'? // TAG NOCHECK ******************************************************************* * IF DELETE REQUESTED OR CMD KEY 7, DELETE THE HELD SPOOL FILE * * AND GO TO END OF CYCLE PROCESSING * ******************************************************************* // IFF ?30?/N IFF ?CD?/2007 GOTO NODELT // LOAD #RPSPD THIS SSP MODULE DOES THE DELETE // RUN // GOTO ENDPROC // TAG NODELT ************************** * DO THE PRINT OR VIEW * ************************** // IFF ?30?/Y GOTO ENDPROC // EVALUATE P50='?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 ************************************************************* * END OF CYCLE PROCESSING: CMD7 : RETURN * * CMD14 : OVERRIDE SCREEN * * CMD1 : RETURN TO SCREEN1 * * PROCEED + ENTER : RECOMPILE * * ELSE PROCEDURE ENDS. * ************************************************************* // TAG ENDPROC // IF ?48?/3 GOTO SCREEN1 ?6F''? CMD1 // IF ?48?/1 GOTO END CMD7 // IF ?48?/2 GOTO SCREEN2 ?20F''? CMD14 // IF ?31?/Y GOTO COMP Y + ENTER // TAG END ************************************************************** * RESTORE THE PARAMETERS STORED AT BEGINNING OF PROCEDURE * ************************************************************** // LOCAL OFFSET-9,DATA-'?44?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-14,DATA-'?45?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-51,DATA-'?46?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-57,DATA-'?47?',BLANK-8,AREA-SYSTEM * // RETURN
0x0000…0001 0xd0 0x0001…0051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGONL'******************** « 0x0051…0052 0x94 0x0052…0066 »// LOCAL AREA-SYSTEM« 0x0066…0067 0x3c 0x0067…0068 0xa8 0x0068…0090 »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x0090…0091 0x28 0x0091…0092 0xb7 0x0092…00c9 »*******************************************************« 0x00c9…00ca 0x19 0x00ca…00cb 0x81 0x00cb…00cc »*« 0x00cc…00cd 0x02 0x00cd…00ce 0xb4 0x00ce…0102 »THIS PROC CANNOT BE RUN FROM THE JOBQ OR BE EVOKED *« 0x0102…0103 0x19 0x0103…0104 0xb7 0x0104…013b »*******************************************************« 0x013b…013c 0x19 0x013c…013d 0xa5 0x013d…0162 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x0162…0163 0x2b 0x0163…0164 0x9a 0x0164…017e »// MSG ?WS?,?M'2100,1,75'?« 0x017e…017f 0x36 0x017f…0180 0x89 0x0180…0189 »// RETURN« 0x0189…018a 0x47 0x018a…018b 0x8c 0x018b…0197 »// TAG NJOBQ« 0x0197…0198 0x44 0x0198…0199 0xb7 0x0199…01d0 »*******************************************************« 0x01d0…01d1 0x19 0x01d1…01d2 0x81 0x01d2…01d3 »*« 0x01d3…01d4 0x02 0x01d4…01d5 0x9d 0x01d5…01f2 »DSU/SEU MUST BE ON THE SYSTEM« 0x01f2…01f3 0x16 0x01f3…01f4 0x81 0x01f4…01f5 »*« 0x01f5…01f6 0x19 0x01f6…01f7 0xb7 0x01f7…022e »*******************************************************« 0x022e…022f 0x19 0x022f…0230 0xac 0x0230…025c »***IFF PROC-FSE IFF PROC-SEU #ERR 1064,3,RPG« 0x025c…025d 0x24 0x025d…025e 0xac 0x025e…028a »// IFF PROC-DSU IFF PROC-SEU #ERR 1067,3,RPG« 0x028a…028b 0x24 0x028b…028c 0xc3 0x028c…02cf »*******************************************************************« 0x02cf…02d0 0x0d 0x02d0…02d1 0x81 0x02d1…02d2 »*« 0x02d2…02d3 0x02 0x02d3…02d4 0xc0 0x02d4…0314 »IF THE USER SIGNED ON TO AN IGC SESSION, SET THE SCREEN FORMAT *« 0x0314…0315 0x0d 0x0315…0316 0x81 0x0316…0317 »*« 0x0317…0318 0x02 0x0318…0319 0xb0 0x0319…0349 »MEMBER NAME TO #RP$FMTS, OTHERWISE USE #RP@FMTS.« 0x0349…034a 0x0f 0x034a…034b 0x81 0x034b…034c »*« 0x034c…034d 0x0d 0x034d…034e 0xc3 0x034e…0391 »*******************************************************************« 0x0391…0392 0x0d 0x0392…0393 0xa7 0x0393…03ba »// IF DSPLY-IGC EVALUATE P64='#RP$FMTS'« 0x03ba…03bb 0x29 0x03bb…03bc 0x9f 0x03bc…03db »// ELSE EVALUATE P64='#RP@FMTS'« 0x03db…03dc 0x31 0x03dc…03dd 0xc3 0x03dd…0420 »*******************************************************************« 0x0420…0421 0x0d 0x0421…0422 0x81 0x0422…0423 »*« 0x0423…0424 0x02 0x0424…0425 0xaf 0x0425…0454 »IF THE PRECEDING PROCEDURE WAS AN RPG PROCEDURE« 0x0454…0455 0x10 0x0455…0456 0x81 0x0456…0457 »*« 0x0457…0458 0x0d 0x0458…0459 0x81 0x0459…045a »*« 0x045a…045b 0x02 0x045b…045c 0x9f 0x045c…047b »THEN DO NOT INITIALIZE THE LDA.« 0x047b…047c 0x20 0x047c…047d 0x81 0x047d…047e »*« 0x047e…047f 0x0d 0x047f…0480 0xc3 0x0480…04c3 »*******************************************************************« 0x04c3…04c4 0x0d 0x04c4…04c5 0xa4 0x04c5…04e9 »// IF '?L'1,3'?'/'RPG' GOTO SKIPINIT« 0x04e9…04ea 0x2c 0x04ea…04eb 0x98 0x04eb…0503 »// LOCAL OFFSET-1,DATA-'« 0x0503…0504 0x08 0x0504…0505 0x8a 0x0505…050f »NODSMPRINT« 0x050f…0510 0x02 0x0510…0511 0x9a 0x0511…052b »NOXREF0 NONEP',BLANK-457,+« 0x052b…052c 0x0a 0x052c…052d 0x8b 0x052d…0538 »AREA-SYSTEM« 0x0538…0539 0x45 0x0539…053a 0xab 0x053a…0565 »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK« 0x0565…0566 0x02 0x0566…0567 0x8b 0x0567…0572 »NOOBJECTGEN« 0x0572…0573 0x03 0x0573…0574 0x82 0x0574…0576 »40« 0x0576…0577 0x02 0x0577…0578 0x84 0x0578…057c »COMP« 0x057c…057d 0x02 0x057d…057e 0x86 0x057e…0584 »R96',+« 0x0584…0585 0x05 0x0585…0586 0x8b 0x0586…0591 »AREA-SYSTEM« 0x0591…0592 0x45 0x0592…0593 0xb5 0x0593…05c8 »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x05c8…05c9 0x1b 0x05c9…05ca 0x8f 0x05ca…05d9 »// TAG SKIPINIT« 0x05d9…05da 0x41 0x05da…05db 0xc1 0x05db…061c »*****************************************************************« 0x061c…061d 0x0f 0x061d…061e 0x81 0x061e…061f »*« 0x061f…0620 0x02 0x0620…0621 0xbe 0x0621…065f »IN ORDER TO PRESERVE MEMORY, THE PARAMETERS WHICH ARE ASSUMED*« 0x065f…0660 0x0f 0x0660…0661 0x81 0x0661…0662 »*« 0x0662…0663 0x02 0x0663…0664 0xbe 0x0664…06a2 »IN RPGONL (DSM,CRT,NOHALT,REPLACE) MUST BE SAVED AND RESTORED*« 0x06a2…06a3 0x0f 0x06a3…06a4 0x81 0x06a4…06a5 »*« 0x06a5…06a6 0x02 0x06a6…06a7 0xb7 0x06a7…06de »WHEN THIS PROCEDURE IS ENDED. USE PARAMETERS 44-47 AS A« 0x06de…06df 0x06 0x06df…06e0 0x81 0x06e0…06e1 »*« 0x06e1…06e2 0x0f 0x06e2…06e3 0x81 0x06e3…06e4 »*« 0x06e4…06e5 0x02 0x06e5…06e6 0x9e 0x06e6…0704 »STORAGE AREA FOR THESE VALUES.« 0x0704…0705 0x02 0x0705…0706 0x9b 0x0706…0721 »ALSO INITIALIZE THESE AREAS« 0x0721…0722 0x02 0x0722…0723 0x81 0x0723…0724 »*« 0x0724…0725 0x0f 0x0725…0726 0x81 0x0726…0727 »*« 0x0727…0728 0x02 0x0728…0729 0xa6 0x0729…074f »OF THE LDA TO VALUES NEEDED BY RPGONL.« 0x074f…0750 0x17 0x0750…0751 0x81 0x0751…0752 »*« 0x0752…0753 0x0f 0x0753…0754 0xc1 0x0754…0795 »*****************************************************************« 0x0795…0796 0x0f 0x0796…0797 0xca 0x0797…07e1 »// EVALUATE P44='?L'9,5'?' P45='?L'14,7'?' P46='?L'51,6'?' P47='?L'57,8'?'« 0x07e1…07e2 0x06 0x07e2…07e3 0x9b 0x07e3…07fe »// LOCAL OFFSET-9,DATA-'DSM« 0x07fe…07ff 0x02 0x07ff…0800 0x83 0x0800…0803 »CRT« 0x0803…0804 0x04 0x0804…0805 0x8d 0x0805…0812 »',AREA-SYSTEM« 0x0812…0813 0x1f 0x0813…0814 0xb4 0x0814…0848 »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM« 0x0848…0849 0x1c 0x0849…084a 0x81 0x084a…084b »*« 0x084b…084c 0x4f 0x084c…084d 0x9e 0x084d…086b »// LOCAL OFFSET-1,DATA-'RPGONL« 0x086b…086c 0x02 0x086c…086d 0x8d 0x086d…087a »',AREA-SYSTEM« 0x087a…087b 0x23 0x087b…087c 0xaa 0x087c…08a6 »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x08a6…08a7 0x26 0x08a7…08a8 0xab 0x08a8…08d3 »// LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM« 0x08d3…08d4 0x25 0x08d4…08d5 0xb1 0x08d5…0906 »// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM« 0x0906…0907 0x1f 0x0907…0908 0xbf 0x0908…0947 »***************************************************************« 0x0947…0948 0x11 0x0948…0949 0x81 0x0949…094a »*« 0x094a…094b 0x02 0x094b…094c 0xb8 0x094c…0984 »MOVE DATA FROM THE LOCAL AREA INTO THE PROPER PARAMETERS« 0x0984…0985 0x03 0x0985…0986 0x81 0x0986…0987 »*« 0x0987…0988 0x11 0x0988…0989 0xbf 0x0989…09c8 »***************************************************************« 0x09c8…09c9 0x11 0x09c9…09ca 0xcd 0x09ca…0a17 »// EVALUATE P1='?L'435,8'?' P2='?L'419,8'?' P3='?L'427,8'?' P5='?L'177,1'?' +« 0x0a17…0a18 0x03 0x0a18…0a19 0xbc 0x0a19…0a55 »P7='?L'34,8'?' P8='?L'42,7'?' P9='?L'49,2'?' P10='?L'21,6'?'« 0x0a55…0a56 0x14 0x0a56…0a57 0xce 0x0a57…0aa5 »// EVALUATE P11='?L'65,6'?' P12='?L'71,8'?' P13='?L'161,8'?' P14='?L'29,5'?' +« 0x0aa5…0aa6 0x02 0x0aa6…0aa7 0xc5 0x0aa7…0aec »P15='?L'27,2'?' P16='?L'79,5'?' P17='?L'85,4'?' P4='?L'443,8'?' P6=''« 0x0aec…0aed 0x0b 0x0aed…0aee 0x9c 0x0aee…0b0a »// EVALUATE P18='?L'453,5'?'« 0x0b0a…0b0b 0x34 0x0b0b…0b0c 0xa2 0x0b0c…0b2e »**********************************« 0x0b2e…0b2f 0x2e 0x0b2f…0b30 0x81 0x0b30…0b31 »*« 0x0b31…0b32 0x02 0x0b32…0b33 0x9b 0x0b33…0b4e »DISPLAY FIRST PROMPT SCREEN« 0x0b4e…0b4f 0x03 0x0b4f…0b50 0x81 0x0b50…0b51 »*« 0x0b51…0b52 0x2e 0x0b52…0b53 0xa2 0x0b53…0b75 »**********************************« 0x0b75…0b76 0x2e 0x0b76…0b77 0x8e 0x0b77…0b85 »// TAG SCREEN1« 0x0b85…0b86 0x42 0x0b86…0b87 0xc5 0x0b87…0bcc »*********************************************************************« 0x0bcc…0bcd 0x0b 0x0bcd…0bce 0x81 0x0bce…0bcf »*« 0x0bcf…0bd0 0x02 0x0bd0…0bd1 0xa0 0x0bd1…0bf1 »PARM 49 IS USED TO CONTROL WHICH« 0x0bf1…0bf2 0x21 0x0bf2…0bf3 0x81 0x0bf3…0bf4 »*« 0x0bf4…0bf5 0x0b 0x0bf5…0bf6 0x81 0x0bf6…0bf7 »*« 0x0bf7…0bf8 0x02 0x0bf8…0bf9 0xbf 0x0bf9…0c38 »OVERRIDE FORMAT TO DISPLAY (FORMAT RPGONLO1 ALLOWS CMD2, FORMAT« 0x0c38…0c39 0x02 0x0c39…0c3a 0x81 0x0c3a…0c3b »*« 0x0c3b…0c3c 0x0b 0x0c3c…0c3d 0x81 0x0c3d…0c3e »*« 0x0c3e…0c3f 0x02 0x0c3f…0c40 0x9e 0x0c40…0c5e »RPGONLO2 DOES NOT ALLOW CMD2).« 0x0c5e…0c5f 0x02 0x0c5f…0c60 0x9e 0x0c60…0c7e »IT IS ALSO USED AS A SWITCH TO« 0x0c7e…0c7f 0x03 0x0c7f…0c80 0x81 0x0c80…0c81 »*« 0x0c81…0c82 0x0b 0x0c82…0c83 0x81 0x0c83…0c84 »*« 0x0c84…0c85 0x02 0x0c85…0c86 0xc2 0x0c86…0cc8 »UNCONDITIONALLY SKIP THE DSU/SEU STEP AFTER THE FIRST COMPILATION*« 0x0cc8…0cc9 0x0b 0x0cc9…0cca 0x81 0x0cca…0ccb »*« 0x0ccb…0ccc 0x02 0x0ccc…0ccd 0xb1 0x0ccd…0cfe »IF P49 NE. 'RPGONLO1' THEN SKIP THE DSU/SEU STEP.« 0x0cfe…0cff 0x10 0x0cff…0d00 0x81 0x0d00…0d01 »*« 0x0d01…0d02 0x0b 0x0d02…0d03 0xc5 0x0d03…0d48 »*********************************************************************« 0x0d48…0d49 0x0b 0x0d49…0d4a 0x9a 0x0d4a…0d64 »// EVALUATE P49='RPGONLO1'« 0x0d64…0d65 0x36 0x0d65…0d66 0xc4 0x0d66…0daa »// PROMPT FORMAT-RPGONL1,MEMBER-?64?,START-1,LENGTH-'8,8,8,8,1,60',+« 0x0daa…0dab 0x0c 0x0dab…0dac 0x8f 0x0dac…0dbb »LIBRARY-#RPGLIB« 0x0dbb…0dbc 0x41 0x0dbc…0dbd 0x98 0x0dbd…0dd5 »************************« 0x0dd5…0dd6 0x38 0x0dd6…0dd7 0x81 0x0dd7…0dd8 »*« 0x0dd8…0dd9 0x02 0x0dd9…0dda 0x92 0x0dda…0dec »CHECK COMMAND KEYS« 0x0dec…0ded 0x02 0x0ded…0dee 0x81 0x0dee…0def »*« 0x0def…0df0 0x38 0x0df0…0df1 0x98 0x0df1…0e09 »************************« 0x0e09…0e0a 0x38 0x0e0a…0e0b 0x98 0x0e0b…0e23 »// IF ?CD?/2003 GOTO END« 0x0e23…0e24 0x07 0x0e24…0e25 0x8d 0x0e25…0e32 »PREVIOUS MENU« 0x0e32…0e33 0x24 0x0e33…0e34 0x98 0x0e34…0e4c »// IF ?CD?/2007 GOTO END« 0x0e4c…0e4d 0x07 0x0e4d…0e4e 0x86 0x0e4e…0e54 »CANCEL« 0x0e54…0e55 0x2b 0x0e55…0e56 0xcb 0x0e56…0ea1 »***************************************************************************« 0x0ea1…0ea2 0x05 0x0ea2…0ea3 0x81 0x0ea3…0ea4 »*« 0x0ea4…0ea5 0x02 0x0ea5…0ea6 0x8d 0x0ea6…0eb3 »CHECK PARMS :« 0x0eb3…0eb4 0x02 0x0eb4…0eb5 0xab 0x0eb5…0ee0 »EACH PARAMETER IS CHECKED FOR VALID VALUES.« 0x0ee0…0ee1 0x02 0x0ee1…0ee2 0x86 0x0ee2…0ee8 »IF OK,« 0x0ee8…0ee9 0x05 0x0ee9…0eea 0x81 0x0eea…0eeb »*« 0x0eeb…0eec 0x05 0x0eec…0eed 0x81 0x0eed…0eee »*« 0x0eee…0eef 0x11 0x0eef…0ef0 0xb4 0x0ef0…0f24 »THE VALUE IS STORED IN THE PROPER AREA OF THE SYSTEM« 0x0f24…0f25 0x04 0x0f25…0f26 0x81 0x0f26…0f27 »*« 0x0f27…0f28 0x05 0x0f28…0f29 0x81 0x0f29…0f2a »*« 0x0f2a…0f2b 0x11 0x0f2b…0f2c 0x90 0x0f2c…0f3c »LOCAL DATA AREA.« 0x0f3c…0f3d 0x02 0x0f3d…0f3e 0xa2 0x0f3e…0f60 »IF NOT OK, THE PROPER ERROR MIC IS« 0x0f60…0f61 0x04 0x0f61…0f62 0x81 0x0f62…0f63 »*« 0x0f63…0f64 0x05 0x0f64…0f65 0x81 0x0f65…0f66 »*« 0x0f66…0f67 0x11 0x0f67…0f68 0xaf 0x0f68…0f97 »PUT IN PARAMETER 6 AND SCREEN 1 IS REDISPLAYED.« 0x0f97…0f98 0x09 0x0f98…0f99 0x81 0x0f99…0f9a »*« 0x0f9a…0f9b 0x05 0x0f9b…0f9c 0x81 0x0f9c…0f9d »*« 0x0f9d…0f9e 0x11 0x0f9e…0f9f 0xb9 0x0f9f…0fd8 »PARAMETERS 21-24, 26 ARE USED TO POSITION THE CURSOR ON *« 0x0fd8…0fd9 0x05 0x0fd9…0fda 0x81 0x0fda…0fdb »*« 0x0fdb…0fdc 0x11 0x0fdc…0fdd 0xb5 0x0fdd…1012 »THE PARAMETER IN ERROR (SEE PARAMETER USAGE MAP), AND« 0x1012…1013 0x03 0x1013…1014 0x81 0x1014…1015 »*« 0x1015…1016 0x05 0x1016…1017 0x81 0x1017…1018 »*« 0x1018…1019 0x11 0x1019…101a 0xaa 0x101a…1044 »TO REVERSE IMAGE THE INPUT FIELD IN ERROR.« 0x1044…1045 0x0e 0x1045…1046 0x81 0x1046…1047 »*« 0x1047…1048 0x05 0x1048…1049 0xcb 0x1049…1094 »***************************************************************************« 0x1094…1095 0x05 0x1095…1096 0xae 0x1096…10c4 »// EVALUATE P21='' P22='' P23='' P24='' P26=''« 0x10c4…10c5 0x22 0x10c5…10c6 0xab 0x10c6…10f1 »// IF ?2?/ GOTO SCREEN1 ?6F'1060'? ?22F'C'?« 0x10f1…10f2 0x25 0x10f2…10f3 0xb2 0x10f3…1125 »// IFF DATAF1-?2? GOTO SCREEN1 ?6F'1060'? ?22F'C'?« 0x1125…1126 0x1e 0x1126…1127 0xb2 0x1127…1159 »// IFF ?3?/ IFF DATAF1-?3? GOTO SCREEN1 ?23F'C'? +« 0x1159…115a 0x1e 0x115a…115b 0x8a 0x115b…1165 »?6F'1061'?« 0x1165…1166 0x46 0x1166…1167 0xab 0x1167…1192 »// IF ?1?/ GOTO SCREEN1 ?6F'1051'? ?21F'C'?« 0x1192…1193 0x25 0x1193…1194 0xbc 0x1194…11d0 »************************************************************« 0x11d0…11d1 0x14 0x11d1…11d2 0x81 0x11d2…11d3 »*« 0x11d3…11d4 0x02 0x11d4…11d5 0xb4 0x11d5…1209 »IF A DATA DICTIONARY NAME IS SPECIFIED, CHECK TO SEE« 0x1209…120a 0x04 0x120a…120b 0x81 0x120b…120c »*« 0x120c…120d 0x14 0x120d…120e 0x81 0x120e…120f »*« 0x120f…1210 0x02 0x1210…1211 0x8d 0x1211…121e »IF IT EXISTS.« 0x121e…121f 0x2b 0x121f…1220 0x81 0x1220…1221 »*« 0x1221…1222 0x14 0x1222…1223 0xbc 0x1223…125f »************************************************************« 0x125f…1260 0x14 0x1260…1261 0x95 0x1261…1276 »// IF ?4?/ GOTO DCTOK« 0x1276…1277 0x3b 0x1277…1278 0x96 0x1278…128e »// EVALUATE P43,4=?CD?« 0x128e…128f 0x3a 0x128f…1290 0xb2 0x1290…12c2 »// LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM« 0x12c2…12c3 0x1e 0x12c3…12c4 0x8d 0x12c4…12d1 »// LOAD #RPDD« 0x12d1…12d2 0x43 0x12d2…12d3 0x86 0x12d3…12d9 »// RUN« 0x12d9…12da 0x4a 0x12da…12db 0xbc 0x12db…1317 »************************************************************« 0x1317…1318 0x14 0x1318…1319 0x81 0x1319…131a »*« 0x131a…131b 0x02 0x131b…131c 0xb5 0x131c…1351 »IF THE DATA DICTIONARY DOES NOT EXIST (RETURN CODE IS« 0x1351…1352 0x03 0x1352…1353 0x81 0x1353…1354 »*« 0x1354…1355 0x14 0x1355…1356 0x81 0x1356…1357 »*« 0x1357…1358 0x02 0x1358…1359 0xaa 0x1359…1383 »1), ISSUE RPG-1066 AND HIGHLIGHT THE NAME.« 0x1383…1384 0x0e 0x1384…1385 0x81 0x1385…1386 »*« 0x1386…1387 0x14 0x1387…1388 0xbc 0x1388…13c4 »************************************************************« 0x13c4…13c5 0x14 0x13c5…13c6 0xb7 0x13c6…13fd »// IF '?L'451,1'?'/'1' GOTO SCREEN1 ?6F'1066'? ?26F'C'?« 0x13fd…13fe 0x19 0x13fe…13ff 0x93 0x13ff…1412 »// EVALUATE CD=?43?« 0x1412…1413 0x3d 0x1413…1414 0x8c 0x1414…1420 »// TAG DCTOK« 0x1420…1421 0x44 0x1421…1422 0x95 0x1422…1437 »// IF ?5?/Y GOTO P1OK« 0x1437…1438 0x0f 0x1438…1439 0xa4 0x1439…145d »IF DSU/SEU=YES, SKIP EXISTENCE CHECK« 0x145d…145e 0x08 0x145e…145f 0xad 0x145f…148c »// IFF ?5?/N GOTO SCREEN1 ?6F'1030'? ?24F'C'?« 0x148c…148d 0x23 0x148d…148e 0xb8 0x148e…14c6 »// IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'?« 0x14c6…14c7 0x18 0x14c7…14c8 0x8b 0x14c8…14d3 »// TAG P1OK« 0x14d3…14d4 0x45 0x14d4…14d5 0x81 0x14d5…14d6 »*« 0x14d6…14d7 0x4f 0x14d7…14d8 0x9d 0x14d8…14f5 »// IFF ?CD?/2014 GOTO CHKSCR2« 0x14f5…14f6 0x0d 0x14f6…14f7 0x9b 0x14f7…1512 »ADDITIONAL PARMS REQUESTED?« 0x1512…1513 0x0b 0x1513…1514 0xae 0x1514…1542 »**********************************************« 0x1542…1543 0x22 0x1543…1544 0x81 0x1544…1545 »*« 0x1545…1546 0x02 0x1546…1547 0xa8 0x1547…156f »RESET THE ERROR PARAMETER VALUE TO BLANK« 0x156f…1570 0x02 0x1570…1571 0x81 0x1571…1572 »*« 0x1572…1573 0x22 0x1573…1574 0xae 0x1574…15a2 »**********************************************« 0x15a2…15a3 0x22 0x15a3…15a4 0x92 0x15a4…15b6 »// EVALUATE P20=''« 0x15b6…15b7 0x3e 0x15b7…15b8 0xa5 0x15b8…15dd »*************************************« 0x15dd…15de 0x2b 0x15de…15df 0x81 0x15df…15e0 »*« 0x15e0…15e1 0x02 0x15e1…15e2 0x9e 0x15e2…1600 »DISPLAY OVERRIDE PROMPT SCREEN« 0x1600…1601 0x03 0x1601…1602 0x81 0x1602…1603 »*« 0x1603…1604 0x2b 0x1604…1605 0xa5 0x1605…162a »*************************************« 0x162a…162b 0x2b 0x162b…162c 0x8e 0x162c…163a »// TAG SCREEN2« 0x163a…163b 0x42 0x163b…163c 0xab 0x163c…1667 »// EVALUATE P19='RPGONL ?1?,?2?,?3?,?4?,?5?« 0x1667…1668 0x25 0x1668…1669 0xab 0x1669…1694 »// PROMPT FORMAT-?49?,MEMBER-?64?,START-7,+« 0x1694…1695 0x25 0x1695…1696 0xb6 0x1696…16cc »LENGTH-'8,7,2,6,6,8,8,5,2,5,4,5,44,60',LIBRARY-#RPGLIB« 0x16cc…16cd 0x1a 0x16cd…16ce 0xc5 0x16ce…1713 »// EVALUATE P51='' P52='' P53='' P54='' P55='' P56='' P57='' P58='' +« 0x1713…1714 0x0b 0x1714…1715 0xa1 0x1715…1736 »P59='' P60='' P61='' P6='' P25=''« 0x1736…1737 0x2f 0x1737…1738 0x99 0x1738…1751 »*************************« 0x1751…1752 0x37 0x1752…1753 0x81 0x1753…1754 »*« 0x1754…1755 0x02 0x1755…1756 0x92 0x1756…1768 »CHECK COMMAND KEYS« 0x1768…1769 0x03 0x1769…176a 0x81 0x176a…176b »*« 0x176b…176c 0x37 0x176c…176d 0x99 0x176d…1786 »*************************« 0x1786…1787 0x37 0x1787…1788 0x9c 0x1788…17a4 »// IF ?CD?/2002 GOTO SCREEN1« 0x17a4…17a5 0x10 0x17a5…17a6 0x93 0x17a6…17b9 »CHECK FOR PAGE BACK« 0x17b9…17ba 0x11 0x17ba…17bb 0x98 0x17bb…17d3 »// IF ?CD?/2007 GOTO END« 0x17d3…17d4 0x14 0x17d4…17d5 0x94 0x17d5…17e9 »CHECK FOR END-OF-JOB« 0x17e9…17ea 0x10 0x17ea…17eb 0xcb 0x17eb…1836 »***************************************************************************« 0x1836…1837 0x05 0x1837…1838 0x81 0x1838…1839 »*« 0x1839…183a 0x02 0x183a…183b 0x8d 0x183b…1848 »CHECK PARMS :« 0x1848…1849 0x02 0x1849…184a 0xab 0x184a…1875 »EACH PARAMETER IS CHECKED FOR VALID VALUES.« 0x1875…1876 0x02 0x1876…1877 0x86 0x1877…187d »IF OK,« 0x187d…187e 0x05 0x187e…187f 0x81 0x187f…1880 »*« 0x1880…1881 0x05 0x1881…1882 0x81 0x1882…1883 »*« 0x1883…1884 0x11 0x1884…1885 0xb4 0x1885…18b9 »THE VALUE IS STORED IN THE PROPER AREA OF THE SYSTEM« 0x18b9…18ba 0x04 0x18ba…18bb 0x81 0x18bb…18bc »*« 0x18bc…18bd 0x05 0x18bd…18be 0x81 0x18be…18bf »*« 0x18bf…18c0 0x11 0x18c0…18c1 0x90 0x18c1…18d1 »LOCAL DATA AREA.« 0x18d1…18d2 0x02 0x18d2…18d3 0xa2 0x18d3…18f5 »IF NOT OK, THE PROPER ERROR MIC IS« 0x18f5…18f6 0x04 0x18f6…18f7 0x81 0x18f7…18f8 »*« 0x18f8…18f9 0x05 0x18f9…18fa 0x81 0x18fa…18fb »*« 0x18fb…18fc 0x11 0x18fc…18fd 0xb0 0x18fd…192d »PUT IN PARAMETER 20 AND SCREEN 2 IS REDISPLAYED.« 0x192d…192e 0x08 0x192e…192f 0x81 0x192f…1930 »*« 0x1930…1931 0x05 0x1931…1932 0x81 0x1932…1933 »*« 0x1933…1934 0x11 0x1934…1935 0xb0 0x1935…1965 »PARAMETERS 51-61 ARE USED TO POSITION THE CURSOR« 0x1965…1966 0x08 0x1966…1967 0x81 0x1967…1968 »*« 0x1968…1969 0x05 0x1969…196a 0x81 0x196a…196b »*« 0x196b…196c 0x11 0x196c…196d 0x9a 0x196d…1987 »ON THE PARAMETER IN ERROR.« 0x1987…1988 0x1e 0x1988…1989 0x81 0x1989…198a »*« 0x198a…198b 0x05 0x198b…198c 0x81 0x198c…198d »*« 0x198d…198e 0x11 0x198e…198f 0xb1 0x198f…19c0 »PARAMETERS 25 IS USED TO POSITION THE CURSOR WHEN« 0x19c0…19c1 0x07 0x19c1…19c2 0x81 0x19c2…19c3 »*« 0x19c3…19c4 0x05 0x19c4…19c5 0x81 0x19c5…19c6 »*« 0x19c6…19c7 0x11 0x19c7…19c8 0xa6 0x19c8…19ee »THERE IS AN ERROR IN THE MRO PARAMETER« 0x19ee…19ef 0x12 0x19ef…19f0 0x81 0x19f0…19f1 »*« 0x19f1…19f2 0x05 0x19f2…19f3 0xcb 0x19f3…1a3e »***************************************************************************« 0x1a3e…1a3f 0x05 0x1a3f…1a40 0x8e 0x1a40…1a4e »// TAG CHKSCR2« 0x1a4e…1a4f 0x42 0x1a4f…1a50 0xbd 0x1a50…1a8d »// IFF ?7?/ IFF ?7?/SOURCE IFF ?7?/NOSOURCE IFF ?7?/PSOURCE +« 0x1a8d…1a8e 0x13 0x1a8e…1a8f 0xa1 0x1a8f…1ab0 »GOTO SCREEN2 ?20F'1036'? ?51F'C'?« 0x1ab0…1ab1 0x2f 0x1ab1…1ab2 0xb8 0x1ab2…1aea »// IFF ?8?/ IFF ?8?/DEBUG IFF ?8?/NODEBUG GOTO SCREEN2 +« 0x1aea…1aeb 0x18 0x1aeb…1aec 0x94 0x1aec…1b00 »?20F'1037'? ?52F'C'?« 0x1b00…1b01 0x3c 0x1b01…1b02 0xa7 0x1b02…1b29 »// IFF ?9?/ IF 65>?9? IF ?9?>1 EVALUATE« 0x1b29…1b2a 0x29 0x1b2a…1b2b 0xb2 0x1b2b…1b5d »// ELSE IFF ?9?/ GOTO SCREEN2 ?20F'1038'? ?53F'C'?« 0x1b5d…1b5e 0x1e 0x1b5e…1b5f 0xb7 0x1b5f…1b96 »// IFF ?10'NOXREF'?/NOXREF IFF ?10?/XREF GOTO SCREEN2 +« 0x1b96…1b97 0x19 0x1b97…1b98 0x94 0x1b98…1bac »?20F'1034'? ?54F'C'?« 0x1bac…1bad 0x3c 0x1bad…1bae 0xb5 0x1bae…1be3 »// IFF ?11'LINK'?/LINK IFF ?11?/NOLINK GOTO SCREEN2 +« 0x1be3…1be4 0x1b 0x1be4…1be5 0x94 0x1be5…1bf9 »?20F'1041'? ?55F'C'?« 0x1bf9…1bfa 0x3c 0x1bfa…1bfb 0xbd 0x1bfb…1c38 »// IFF ?12'NOOBJECT'?/OBJECT IFF ?12?/NOOBJECT GOTO SCREEN2 +« 0x1c38…1c39 0x13 0x1c39…1c3a 0x94 0x1c3a…1c4e »?20F'1042'? ?56F'C'?« 0x1c4e…1c4f 0x3c 0x1c4f…1c50 0xab 0x1c50…1c7b »// IFF ?13?/ IFF DATAF1-?13? GOTO SCREEN2 +« 0x1c7b…1c7c 0x25 0x1c7c…1c7d 0x94 0x1c7d…1c91 »?20F'1062'? ?57F'C'?« 0x1c91…1c92 0x3c 0x1c92…1c93 0xb4 0x1c93…1cc7 »// IFF ?14'NONEP'?/NEP IFF ?14?/NONEP GOTO SCREEN2 +« 0x1cc7…1cc8 0x1c 0x1cc8…1cc9 0x94 0x1cc9…1cdd »?20F'1035'? ?58F'C'?« 0x1cdd…1cde 0x3c 0x1cde…1cdf 0xa5 0x1cdf…1d04 »// IF 100>?15'0'? IF ?15?>-1 EVALUATE« 0x1d04…1d05 0x2b 0x1d05…1d06 0xa9 0x1d06…1d2f »// ELSE GOTO SCREEN2 ?20F'1054'? ?59F'C'?« 0x1d2f…1d30 0x27 0x1d30…1d31 0xb2 0x1d31…1d63 »// IFF ?16'GEN'?/GEN IFF ?16?/NOGEN GOTO SCREEN2 +« 0x1d63…1d64 0x1e 0x1d64…1d65 0x94 0x1d65…1d79 »?20F'1043'? ?60F'C'?« 0x1d79…1d7a 0x3c 0x1d7a…1d7b 0xb6 0x1d7b…1db1 »// IF ?16?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x1db1…1db2 0x1a 0x1db2…1db3 0xb3 0x1db3…1de6 »// IFF ?17'40'?>0 GOTO SCREEN2 ?20F'1053'? ?61F'C'?« 0x1de6…1de7 0x1d 0x1de7…1de8 0xb4 0x1de8…1e1c »// IFF ?18'NOMRO'?/MRO IFF ?18?/NOMRO GOTO SCREEN2 +« 0x1e1c…1e1d 0x1c 0x1e1d…1e1e 0x94 0x1e1e…1e32 »?20F'1045'? ?25F'C'?« 0x1e32…1e33 0x3c 0x1e33…1e34 0xb7 0x1e34…1e6b »*******************************************************« 0x1e6b…1e6c 0x19 0x1e6c…1e6d 0x81 0x1e6d…1e6e »*« 0x1e6e…1e6f 0x02 0x1e6f…1e70 0xb4 0x1e70…1ea4 »STORE ALL THE PARAMETERS IN THE PROPER POSITIONS IN*« 0x1ea4…1ea5 0x19 0x1ea5…1ea6 0x81 0x1ea6…1ea7 »*« 0x1ea7…1ea8 0x02 0x1ea8…1ea9 0xb4 0x1ea9…1edd »THE LOCAL DATA AREA (SEE LDA LAYOUT UNDER RPGCALSO)*« 0x1edd…1ede 0x19 0x1ede…1edf 0xb7 0x1edf…1f16 »*******************************************************« 0x1f16…1f17 0x19 0x1f17…1f18 0xb2 0x1f18…1f4a »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x1f4a…1f4b 0x1e 0x1f4b…1f4c 0xb2 0x1f4c…1f7e »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x1f7e…1f7f 0x1e 0x1f7f…1f80 0xb2 0x1f80…1fb2 »// LOCAL OFFSET-153,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x1fb2…1fb3 0x1e 0x1fb3…1fb4 0xb2 0x1fb4…1fe6 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x1fe6…1fe7 0x1e 0x1fe7…1fe8 0xb2 0x1fe8…201a »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x201a…201b 0x1e 0x201b…201c 0xb2 0x201c…204e »// LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x204e…204f 0x1e 0x204f…2050 0xb2 0x2050…2082 »// LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM« 0x2082…2083 0x1e 0x2083…2084 0xaa 0x2084…20ae »// LOCAL OFFSET-177,DATA-'?5?',AREA-SYSTEM« 0x20ae…20af 0x26 0x20af…20b0 0xb1 0x20b0…20e1 »// LOCAL OFFSET-34,DATA-'?7?',BLANK-8,AREA-SYSTEM« 0x20e1…20e2 0x1f 0x20e2…20e3 0xb1 0x20e3…2114 »// LOCAL OFFSET-42,DATA-'?8?',BLANK-7,AREA-SYSTEM« 0x2114…2115 0x1f 0x2115…2116 0xb1 0x2116…2147 »// LOCAL OFFSET-49,DATA-'?9?',BLANK-2,AREA-SYSTEM« 0x2147…2148 0x1f 0x2148…2149 0xba 0x2149…2183 »// LOCAL OFFSET-21,DATA-'?10'NOXREF'?',BLANK-6,AREA-SYSTEM« 0x2183…2184 0x16 0x2184…2185 0xb8 0x2185…21bd »// LOCAL OFFSET-65,DATA-'?11'LINK'?',BLANK-6,AREA-SYSTEM« 0x21bd…21be 0x18 0x21be…21bf 0xbc 0x21bf…21fb »// LOCAL OFFSET-71,DATA-'?12'NOOBJECT'?',BLANK-8,AREA-SYSTEM« 0x21fb…21fc 0x14 0x21fc…21fd 0xb3 0x21fd…2230 »// LOCAL OFFSET-161,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x2230…2231 0x1d 0x2231…2232 0xb9 0x2232…226b »// LOCAL OFFSET-29,DATA-'?14'NONEP'?',BLANK-5,AREA-SYSTEM« 0x226b…226c 0x17 0x226c…226d 0xb5 0x226d…22a2 »// LOCAL OFFSET-27,DATA-'?15'0'?',BLANK-2,AREA-SYSTEM« 0x22a2…22a3 0x1b 0x22a3…22a4 0xb7 0x22a4…22db »// LOCAL OFFSET-79,DATA-'?16'GEN'?',BLANK-5,AREA-SYSTEM« 0x22db…22dc 0x19 0x22dc…22dd 0xb6 0x22dd…2313 »// LOCAL OFFSET-85,DATA-'?17'40'?',BLANK-4,AREA-SYSTEM« 0x2313…2314 0x1a 0x2314…2315 0xba 0x2315…234f »// LOCAL OFFSET-453,DATA-'?18'NOMRO'?',BLANK-5,AREA-SYSTEM« 0x234f…2350 0x16 0x2350…2351 0xb0 0x2351…2381 »************************************************« 0x2381…2382 0x20 0x2382…2383 0x81 0x2383…2384 »*« 0x2384…2385 0x02 0x2385…2386 0xaa 0x2386…23b0 »IF THE VALUE IN P49 (FORMAT TO DISPLAY FOR« 0x23b0…23b1 0x02 0x23b1…23b2 0x81 0x23b2…23b3 »*« 0x23b3…23b4 0x20 0x23b4…23b5 0x81 0x23b5…23b6 »*« 0x23b6…23b7 0x02 0x23b7…23b8 0xaa 0x23b8…23e2 »SCREEN 2) IS NOT 'RPGONLO1', THEN THE DSU/« 0x23e2…23e3 0x02 0x23e3…23e4 0x81 0x23e4…23e5 »*« 0x23e5…23e6 0x20 0x23e6…23e7 0x81 0x23e7…23e8 »*« 0x23e8…23e9 0x02 0x23e9…23ea 0xa4 0x23ea…240e »SEU STEP IS SKIPPED UNCONDITIONALLY.« 0x240e…240f 0x08 0x240f…2410 0x81 0x2410…2411 »*« 0x2411…2412 0x20 0x2412…2413 0x81 0x2413…2414 »*« 0x2414…2415 0x02 0x2415…2416 0xad 0x2416…2443 »P49 WILL BE 'RPGONLO1' IF THIS IS THE FIRST *« 0x2443…2444 0x20 0x2444…2445 0x81 0x2445…2446 »*« 0x2446…2447 0x02 0x2447…2448 0xa6 0x2448…246e »TIME THROUGH THE LOOP FOR THIS MEMBER.« 0x246e…246f 0x06 0x246f…2470 0x81 0x2470…2471 »*« 0x2471…2472 0x20 0x2472…2473 0x81 0x2473…2474 »*« 0x2474…2475 0x02 0x2475…2476 0xad 0x2476…24a3 »AFTER THE FIRST TIME THROUGH, P49 IS SET TO *« 0x24a3…24a4 0x20 0x24a4…24a5 0x81 0x24a5…24a6 »*« 0x24a6…24a7 0x02 0x24a7…24a8 0x8b 0x24a8…24b3 »'RPGONLO2'.« 0x24b3…24b4 0x21 0x24b4…24b5 0x81 0x24b5…24b6 »*« 0x24b6…24b7 0x20 0x24b7…24b8 0xb0 0x24b8…24e8 »************************************************« 0x24e8…24e9 0x20 0x24e9…24ea 0x9e 0x24ea…2508 »// IFF ?49?/RPGONLO1 GOTO COMP« 0x2508…2509 0x32 0x2509…250a 0xa7 0x250a…2531 »***************************************« 0x2531…2532 0x29 0x2532…2533 0x81 0x2533…2534 »*« 0x2534…2535 0x02 0x2535…2536 0xa1 0x2536…2557 »VIEW SOURCE BEFORE FIRST COMPILE?« 0x2557…2558 0x02 0x2558…2559 0x81 0x2559…255a »*« 0x255a…255b 0x29 0x255b…255c 0xa7 0x255c…2583 »***************************************« 0x2583…2584 0x29 0x2584…2585 0xa7 0x2585…25ac »***IF Y/?5? IF PROC-FSE FSE ?1?,R,,,?2?« 0x25ac…25ad 0x0b 0x25ad…25ae 0x9c 0x25ae…25ca »YES, CALL FSE TO VIEW SOURCE« 0x25ca…25cb 0x02 0x25cb…25cc 0xac 0x25cc…25f8 »// IF Y/?5? IF PROC-DSU DSU EDIT,?1?,R,,,?2?« 0x25f8…25f9 0x06 0x25f9…25fa 0x9c 0x25fa…2616 »YES, CALL DSU TO VIEW SOURCE« 0x2616…2617 0x02 0x2617…2618 0xa0 0x2618…2638 »// ELSE IF Y/?5? SEU ?1?,R,,,?2?« 0x2638…2639 0x12 0x2639…263a 0x9c 0x263a…2656 »YES, CALL SEU TO VIEW SOURCE« 0x2656…2657 0x02 0x2657…2658 0xc4 0x2658…269c »********************************************************************« 0x269c…269d 0x0c 0x269d…269e 0x81 0x269e…269f »*« 0x269f…26a0 0x02 0x26a0…26a1 0xc1 0x26a1…26e2 »IF THE OVERRIDE SCREEN IS REQUESTED AGAIN, SHOW THE FORMAT WITH *« 0x26e2…26e3 0x0c 0x26e3…26e4 0x81 0x26e4…26e5 »*« 0x26e5…26e6 0x02 0x26e6…26e7 0x8e 0x26e7…26f5 »CMD2 DISABLED.« 0x26f5…26f6 0x32 0x26f6…26f7 0x81 0x26f7…26f8 »*« 0x26f8…26f9 0x0c 0x26f9…26fa 0xc4 0x26fa…273e »********************************************************************« 0x273e…273f 0x0c 0x273f…2740 0x9a 0x2740…275a »// EVALUATE P49='RPGONLO2'« 0x275a…275b 0x36 0x275b…275c 0xc3 0x275c…279f »*******************************************************************« 0x279f…27a0 0x0d 0x27a0…27a1 0x81 0x27a1…27a2 »*« 0x27a2…27a3 0x02 0x27a3…27a4 0xbc 0x27a4…27e0 »DO AN EXISTENCE CHECK ON THE SOURCE MEMBER AFTER THE DSU/SEU« 0x27e0…27e1 0x03 0x27e1…27e2 0x81 0x27e2…27e3 »*« 0x27e3…27e4 0x0d 0x27e4…27e5 0x81 0x27e5…27e6 »*« 0x27e6…27e7 0x02 0x27e7…27e8 0xab 0x27e8…2813 »STEP TO INSURE A SOURCE MEMBER WAS CREATED.« 0x2813…2814 0x02 0x2814…2815 0x8d 0x2815…2822 »IF THE MEMBER« 0x2822…2823 0x05 0x2823…2824 0x81 0x2824…2825 »*« 0x2825…2826 0x0d 0x2826…2827 0x81 0x2827…2828 »*« 0x2828…2829 0x02 0x2829…282a 0xb8 0x282a…2862 »DOES NOT EXIST, ISSUE AN ERROR MESSAGE AND RETURN TO THE« 0x2862…2863 0x07 0x2863…2864 0x81 0x2864…2865 »*« 0x2865…2866 0x0d 0x2866…2867 0x81 0x2867…2868 »*« 0x2868…2869 0x02 0x2869…286a 0x94 0x286a…287e »FIRST PROMPT SCREEN.« 0x287e…287f 0x2b 0x287f…2880 0x81 0x2880…2881 »*« 0x2881…2882 0x0d 0x2882…2883 0xc3 0x2883…28c6 »*******************************************************************« 0x28c6…28c7 0x0d 0x28c7…28c8 0xb8 0x28c8…2900 »// IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'?« 0x2900…2901 0x18 0x2901…2902 0xc6 0x2902…2948 »**********************************************************************« 0x2948…2949 0x0a 0x2949…294a 0x81 0x294a…294b »*« 0x294b…294c 0x02 0x294c…294d 0xb3 0x294d…2980 »CALL RPG COMPILER TO COMPILE SOURCE AND CREATE DSM.« 0x2980…2981 0x02 0x2981…2982 0x8b 0x2982…298d »THE LISTING« 0x298d…298e 0x02 0x298e…298f 0x81 0x298f…2990 »*« 0x2990…2991 0x0a 0x2991…2992 0x81 0x2992…2993 »*« 0x2993…2994 0x02 0x2994…2995 0xbe 0x2995…29d3 »GENERATED BY THE COMPILER IS HELD ON THE SPOOL QUEUE BY GIVING« 0x29d3…29d4 0x04 0x29d4…29d5 0x81 0x29d5…29d6 »*« 0x29d6…29d7 0x0a 0x29d7…29d8 0x81 0x29d8…29d9 »*« 0x29d9…29da 0x02 0x29da…29db 0x9d 0x29db…29f8 »PRINTER FILE A PRIORITY OF 0.« 0x29f8…29f9 0x02 0x29f9…29fa 0xa1 0x29fa…2a1b »WORK FILES WILL BE EXTENDED BY 25« 0x2a1b…2a1c 0x02 0x2a1c…2a1d 0x81 0x2a1d…2a1e »*« 0x2a1e…2a1f 0x0a 0x2a1f…2a20 0x81 0x2a20…2a21 »*« 0x2a21…2a22 0x02 0x2a22…2a23 0x94 0x2a23…2a37 »BLOCKS IF NECESSARY.« 0x2a37…2a38 0x02 0x2a38…2a39 0xad 0x2a39…2a66 »THE LABEL PARAMETER ON $WORK2 IS USED LATER *« 0x2a66…2a67 0x0a 0x2a67…2a68 0x81 0x2a68…2a69 »*« 0x2a69…2a6a 0x02 0x2a6a…2a6b 0x8b 0x2a6b…2a76 »BY DSU/SEU.« 0x2a76…2a77 0x37 0x2a77…2a78 0x81 0x2a78…2a79 »*« 0x2a79…2a7a 0x0a 0x2a7a…2a7b 0xc6 0x2a7b…2ac1 »**********************************************************************« 0x2ac1…2ac2 0x0a 0x2ac2…2ac3 0x8b 0x2ac3…2ace »// TAG COMP« 0x2ace…2acf 0x45 0x2acf…2ad0 0x89 0x2ad0…2ad9 »// * 1016« 0x2ad9…2ada 0x47 0x2ada…2adb 0x94 0x2adb…2aef »// LOAD #RPG,#RPGLIB« 0x2aef…2af0 0x3c 0x2af0…2af1 0xbc 0x2af1…2b2d »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25« 0x2b2d…2b2e 0x14 0x2b2e…2b2f 0xba 0x2b2f…2b69 »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25« 0x2b69…2b6a 0x16 0x2b6a…2b6b 0xbc 0x2b6b…2ba7 »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?17?,LABEL-?1?,EXTEND-25« 0x2ba7…2ba8 0x14 0x2ba8…2ba9 0xbb 0x2ba9…2be4 »// FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25« 0x2be4…2be5 0x15 0x2be5…2be6 0xb0 0x2be6…2c16 »// PRINTER NAME-$PRINTDM,CONTINUE-YES,PRIORITY-0« 0x2c16…2c17 0x20 0x2c17…2c18 0xbd 0x2c18…2c55 »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x2c55…2c56 0x13 0x2c56…2c57 0xb8 0x2c57…2c8f »// COMPILE INLIB-?2?,MRTMAX-?15?,SOURCE-?1?,DATADCT-?4?,« 0x2c8f…2c90 0x18 0x2c90…2c91 0x97 0x2c91…2ca8 »// IF ?14?/NEP NEP-YES,« 0x2ca8…2ca9 0x39 0x2ca9…2caa 0x8f 0x2caa…2cb9 »// ELSE NEP-NO,« 0x2cb9…2cba 0x41 0x2cba…2cbb 0x97 0x2cbb…2cd2 »// IF ?18?/MRO MRO-YES,« 0x2cd2…2cd3 0x39 0x2cd3…2cd4 0x8f 0x2cd4…2ce3 »// ELSE MRO-NO,« 0x2ce3…2ce4 0x41 0x2ce4…2ce5 0x96 0x2ce5…2cfb »// IFF ?3?/ OUTLIB-?3?« 0x2cfb…2cfc 0x3a 0x2cfc…2cfd 0x92 0x2cfd…2d0f »// ELSE OUTLIB-?2?« 0x2d0f…2d10 0x3e 0x2d10…2d11 0x86 0x2d11…2d17 »// RUN« 0x2d17…2d18 0x4a 0x2d18…2d19 0xc1 0x2d19…2d5a »*****************************************************************« 0x2d5a…2d5b 0x0f 0x2d5b…2d5c 0x81 0x2d5c…2d5d »*« 0x2d5d…2d5e 0x02 0x2d5e…2d5f 0xbb 0x2d5f…2d9a »IF XREF SPECIFIED AND NO TERMINAL ERRORS, CALL XREF PROGRAM« 0x2d9a…2d9b 0x02 0x2d9b…2d9c 0x81 0x2d9c…2d9d »*« 0x2d9d…2d9e 0x0f 0x2d9e…2d9f 0xc1 0x2d9f…2de0 »*****************************************************************« 0x2de0…2de1 0x0f 0x2de1…2de2 0xb7 0x2de2…2e19 »// IFF ?CD?/1008 IF ?10?/XREF RPGX,#RPGLIB ?1?,?17?,?2?« 0x2e19…2e1a 0x19 0x2e1a…2e1b 0xc1 0x2e1b…2e5c »*****************************************************************« 0x2e5c…2e5d 0x0f 0x2e5d…2e5e 0x81 0x2e5e…2e5f »*« 0x2e5f…2e60 0x02 0x2e60…2e61 0xba 0x2e61…2e9b »IF GEN SPECIFIED AND PROGRAM CONTAINS CONSOLE FILES AND NO« 0x2e9b…2e9c 0x03 0x2e9c…2e9d 0x81 0x2e9d…2e9e »*« 0x2e9e…2e9f 0x0f 0x2e9f…2ea0 0x81 0x2ea0…2ea1 »*« 0x2ea1…2ea2 0x02 0x2ea2…2ea3 0xb7 0x2ea3…2eda »TERMINAL ERRORS CALL THE CONSOLE FILE GENERATOR PROGRAM« 0x2eda…2edb 0x06 0x2edb…2edc 0x81 0x2edc…2edd »*« 0x2edd…2ede 0x0f 0x2ede…2edf 0xc1 0x2edf…2f20 »*****************************************************************« 0x2f20…2f21 0x0f 0x2f21…2f22 0xc5 0x2f22…2f67 »// IFF ?CD?/1008 IF ?L'238,1'?/0 RPGR,#RPGLIB ?1?,?17?,NOSAVE,?2?,?3?« 0x2f67…2f68 0x0b 0x2f68…2f69 0xa1 0x2f69…2f8a »*********************************« 0x2f8a…2f8b 0x2f 0x2f8b…2f8c 0x81 0x2f8c…2f8d »*« 0x2f8d…2f8e 0x02 0x2f8e…2f8f 0x99 0x2f8f…2fa8 »END PRINTER CONCATENATION« 0x2fa8…2fa9 0x04 0x2fa9…2faa 0x81 0x2faa…2fab »*« 0x2fab…2fac 0x2f 0x2fac…2fad 0xa1 0x2fad…2fce »*********************************« 0x2fce…2fcf 0x2f 0x2fcf…2fd0 0x96 0x2fd0…2fe6 »// PRINTER CONTINUE-NO« 0x2fe6…2fe7 0x3a 0x2fe7…2fe8 0x9d 0x2fe8…3005 »*****************************« 0x3005…3006 0x33 0x3006…3007 0x81 0x3007…3008 »*« 0x3008…3009 0x02 0x3009…300a 0x97 0x300a…3021 »USE DSU/SEU TO VIEW DSM« 0x3021…3022 0x02 0x3022…3023 0x81 0x3023…3024 »*« 0x3024…3025 0x33 0x3025…3026 0x99 0x3026…303f »*************************« 0x303f…3040 0x37 0x3040…3041 0xa2 0x3041…3063 »***IF PROC-FSE FSE ?1?,R,,,?2?,?1?« 0x3063…3064 0x2e 0x3064…3065 0xa7 0x3065…308c »// IF PROC-DSU DSU EDIT,?1?,R,,,?2?,?1?« 0x308c…308d 0x29 0x308d…308e 0x9b 0x308e…30a9 »// ELSE SEU ?1?,R,,,?2?,?1?« 0x30a9…30aa 0x35 0x30aa…30ab 0xa2 0x30ab…30cd »**********************************« 0x30cd…30ce 0x2e 0x30ce…30cf 0x81 0x30cf…30d0 »*« 0x30d0…30d1 0x03 0x30d1…30d2 0x9b 0x30d2…30ed »DISPLAY CONTINUATION SCREEN« 0x30ed…30ee 0x02 0x30ee…30ef 0x81 0x30ef…30f0 »*« 0x30f0…30f1 0x2e 0x30f1…30f2 0xa2 0x30f2…3114 »**********************************« 0x3114…3115 0x2e 0x3115…3116 0xba 0x3116…3150 »// EVALUATE P32='?1?' P33='?2?' P34='?3?' P35='?4?' P36=''« 0x3150…3151 0x16 0x3151…3152 0x9f 0x3152…3171 »// IF ?34?/ EVALUATE P34='?33?'« 0x3171…3172 0x31 0x3172…3173 0x8e 0x3173…3181 »// TAG SCREEN3« 0x3181…3182 0x42 0x3182…3183 0xaf 0x3183…31b2 »// PROMPT FORMAT-RPGONLC,MEMBER-?64?,START-30,+« 0x31b2…31b3 0x21 0x31b3…31b4 0xa7 0x31b4…31db »LENGTH-'1,1,8,8,8,8,60',LIBRARY-#RPGLIB« 0x31db…31dc 0x29 0x31dc…31dd 0xb7 0x31dd…3214 »*******************************************************« 0x3214…3215 0x19 0x3215…3216 0x81 0x3216…3217 »*« 0x3217…3218 0x02 0x3218…3219 0xb1 0x3219…324a »STORE WHICH COMMAND KEY WAS PRESSED FOR LATER USE« 0x324a…324b 0x02 0x324b…324c 0x81 0x324c…324d »*« 0x324d…324e 0x19 0x324e…324f 0xb7 0x324f…3286 »*******************************************************« 0x3286…3287 0x19 0x3287…3288 0xa0 0x3288…32a8 »// IF ?CD?/2007 EVALUATE P48='1'« 0x32a8…32a9 0x30 0x32a9…32aa 0xa5 0x32aa…32cf »// ELSE IF ?CD?/2014 EVALUATE P48='2'« 0x32cf…32d0 0x2b 0x32d0…32d1 0xa5 0x32d1…32f6 »// ELSE IF ?CD?/2001 EVALUATE P48='3'« 0x32f6…32f7 0x2b 0x32f7…32f8 0x98 0x32f8…3310 »// ELSE EVALUATE P48='0'« 0x3310…3311 0x38 0x3311…3312 0x9c 0x3312…332e »// IF ?CD?/2007 GOTO NOCHECK« 0x332e…332f 0x02 0x332f…3330 0xa6 0x3330…3356 »IF CMD KEY 7, DO NOT ERROR CHECK PARMS« 0x3356…3357 0x0c 0x3357…3358 0xc9 0x3358…33a1 »*************************************************************************« 0x33a1…33a2 0x07 0x33a2…33a3 0x81 0x33a3…33a4 »*« 0x33a4…33a5 0x02 0x33a5…33a6 0x8d 0x33a6…33b3 »CHECK PARMS :« 0x33b3…33b4 0x02 0x33b4…33b5 0xab 0x33b5…33e0 »EACH PARAMETER IS CHECKED FOR VALID VALUES.« 0x33e0…33e1 0x02 0x33e1…33e2 0x86 0x33e2…33e8 »IF OK,« 0x33e8…33e9 0x03 0x33e9…33ea 0x81 0x33ea…33eb »*« 0x33eb…33ec 0x07 0x33ec…33ed 0x81 0x33ed…33ee »*« 0x33ee…33ef 0x11 0x33ef…33f0 0xb4 0x33f0…3424 »THE VALUE IS STORED IN THE PROPER AREA OF THE SYSTEM« 0x3424…3425 0x02 0x3425…3426 0x81 0x3426…3427 »*« 0x3427…3428 0x07 0x3428…3429 0x81 0x3429…342a »*« 0x342a…342b 0x11 0x342b…342c 0x90 0x342c…343c »LOCAL DATA AREA.« 0x343c…343d 0x02 0x343d…343e 0xa2 0x343e…3460 »IF NOT OK, THE PROPER ERROR MIC IS« 0x3460…3461 0x02 0x3461…3462 0x81 0x3462…3463 »*« 0x3463…3464 0x07 0x3464…3465 0x81 0x3465…3466 »*« 0x3466…3467 0x11 0x3467…3468 0xb0 0x3468…3498 »PUT IN PARAMETER 36 AND SCREEN 3 IS REDISPLAYED.« 0x3498…3499 0x06 0x3499…349a 0x81 0x349a…349b »*« 0x349b…349c 0x07 0x349c…349d 0x81 0x349d…349e »*« 0x349e…349f 0x11 0x349f…34a0 0xb2 0x34a0…34d2 »PARAMETER 62-63 ARE USED TO POSITION THE CURSOR ON« 0x34d2…34d3 0x04 0x34d3…34d4 0x81 0x34d4…34d5 »*« 0x34d5…34d6 0x07 0x34d6…34d7 0x81 0x34d7…34d8 »*« 0x34d8…34d9 0x11 0x34d9…34da 0x97 0x34da…34f1 »THE PARAMETER IN ERROR.« 0x34f1…34f2 0x1f 0x34f2…34f3 0x81 0x34f3…34f4 »*« 0x34f4…34f5 0x07 0x34f5…34f6 0xc9 0x34f6…353f »*************************************************************************« 0x353f…3540 0x07 0x3540…3541 0x99 0x3541…355a »// EVALUATE P62='' P63=''« 0x355a…355b 0x37 0x355b…355c 0xa7 0x355c…3583 »// IFF ?30?/N IFF ?30?/Y GOTO SCREEN3 +« 0x3583…3584 0x29 0x3584…3585 0x94 0x3585…3599 »?36F'1030'? ?62F'C'?« 0x3599…359a 0x3c 0x359a…359b 0xa7 0x359b…35c2 »// IFF ?31?/N IFF ?31?/Y GOTO SCREEN3 +« 0x35c2…35c3 0x29 0x35c3…35c4 0x94 0x35c4…35d8 »?36F'1030'? ?63F'C'?« 0x35d8…35d9 0x3c 0x35d9…35da 0x8e 0x35da…35e8 »// TAG NOCHECK« 0x35e8…35e9 0x42 0x35e9…35ea 0xc3 0x35ea…362d »*******************************************************************« 0x362d…362e 0x0d 0x362e…362f 0x81 0x362f…3630 »*« 0x3630…3631 0x02 0x3631…3632 0xbc 0x3632…366e »IF DELETE REQUESTED OR CMD KEY 7, DELETE THE HELD SPOOL FILE« 0x366e…366f 0x03 0x366f…3670 0x81 0x3670…3671 »*« 0x3671…3672 0x0d 0x3672…3673 0x81 0x3673…3674 »*« 0x3674…3675 0x02 0x3675…3676 0xa1 0x3676…3697 »AND GO TO END OF CYCLE PROCESSING« 0x3697…3698 0x1e 0x3698…3699 0x81 0x3699…369a »*« 0x369a…369b 0x0d 0x369b…369c 0xc3 0x369c…36df »*******************************************************************« 0x36df…36e0 0x0d 0x36e0…36e1 0xa7 0x36e1…3708 »// IFF ?30?/N IFF ?CD?/2007 GOTO NODELT« 0x3708…3709 0x29 0x3709…370a 0x8e 0x370a…3718 »// LOAD #RPSPD« 0x3718…3719 0x0b 0x3719…371a 0x9f 0x371a…3739 »THIS SSP MODULE DOES THE DELETE« 0x3739…373a 0x18 0x373a…373b 0x86 0x373b…3741 »// RUN« 0x3741…3742 0x4a 0x3742…3743 0x8f 0x3743…3752 »// GOTO ENDPROC« 0x3752…3753 0x41 0x3753…3754 0x8d 0x3754…3761 »// TAG NODELT« 0x3761…3762 0x43 0x3762…3763 0x9a 0x3763…377d »**************************« 0x377d…377e 0x36 0x377e…377f 0x81 0x377f…3780 »*« 0x3780…3781 0x02 0x3781…3782 0x94 0x3782…3796 »DO THE PRINT OR VIEW« 0x3796…3797 0x02 0x3797…3798 0x81 0x3798…3799 »*« 0x3799…379a 0x36 0x379a…379b 0x9a 0x379b…37b5 »**************************« 0x37b5…37b6 0x36 0x37b6…37b7 0x9a 0x37b7…37d1 »// IFF ?30?/Y GOTO ENDPROC« 0x37d1…37d2 0x36 0x37d2…37d3 0x9c 0x37d3…37ef »// EVALUATE P50='?L'181,6'?'« 0x37ef…37f0 0x34 0x37f0…37f1 0xc8 0x37f1…3839 »************************************************************************« 0x3839…383a 0x08 0x383a…383b 0xb0 0x383b…386b »* THE FOLLOWING 4 LINES ARE ADDED FOR PTF 52-564« 0x386b…386c 0x02 0x386c…386d 0x8e 0x386d…387b ». THEY REPLACE« 0x387b…387c 0x07 0x387c…387d 0x81 0x387d…387e »*« 0x387e…387f 0x08 0x387f…3880 0x9f 0x3880…389f »* THE CALLS TO $UASF AND $UASC.« 0x389f…38a0 0x28 0x38a0…38a1 0x81 0x38a1…38a2 »*« 0x38a2…38a3 0x08 0x38a3…38a4 0xc8 0x38a4…38ec »************************************************************************« 0x38ec…38ed 0x08 0x38ed…38ee 0x8d 0x38ee…38fb »// INFOMSG NO« 0x38fb…38fc 0x43 0x38fc…38fd 0xb1 0x38fd…392e »// IFT DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1« 0x392e…392f 0x1f 0x392f…3930 0xbd 0x3930…396d »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,RP?L'181,6'?,CANCEL,CRT« 0x396d…396e 0x13 0x396e…396f 0xb0 0x396f…399f »// IF DATAF1-RP?L'181,6'? DELETE RP?L'181,6'?,F1« 0x399f…39a0 0x20 0x39a0…39a1 0xbd 0x39a1…39de »*************************************************************« 0x39de…39df 0x13 0x39df…39e0 0x81 0x39e0…39e1 »*« 0x39e1…39e2 0x02 0x39e2…39e3 0x98 0x39e3…39fb »END OF CYCLE PROCESSING:« 0x39fb…39fc 0x02 0x39fc…39fd 0x8d 0x39fd…3a0a »CMD7 : RETURN« 0x3a0a…3a0b 0x12 0x3a0b…3a0c 0x81 0x3a0c…3a0d »*« 0x3a0d…3a0e 0x13 0x3a0e…3a0f 0x81 0x3a0f…3a10 »*« 0x3a10…3a11 0x1c 0x3a11…3a12 0x97 0x3a12…3a29 »CMD14 : OVERRIDE SCREEN« 0x3a29…3a2a 0x08 0x3a2a…3a2b 0x81 0x3a2b…3a2c »*« 0x3a2c…3a2d 0x13 0x3a2d…3a2e 0x81 0x3a2e…3a2f »*« 0x3a2f…3a30 0x1c 0x3a30…3a31 0x98 0x3a31…3a49 »CMD1 : RETURN TO SCREEN1« 0x3a49…3a4a 0x07 0x3a4a…3a4b 0x81 0x3a4b…3a4c »*« 0x3a4c…3a4d 0x13 0x3a4d…3a4e 0x81 0x3a4e…3a4f »*« 0x3a4f…3a50 0x1c 0x3a50…3a51 0x9b 0x3a51…3a6c »PROCEED + ENTER : RECOMPILE« 0x3a6c…3a6d 0x04 0x3a6d…3a6e 0x81 0x3a6e…3a6f »*« 0x3a6f…3a70 0x13 0x3a70…3a71 0x81 0x3a71…3a72 »*« 0x3a72…3a73 0x1c 0x3a73…3a74 0x94 0x3a74…3a88 »ELSE PROCEDURE ENDS.« 0x3a88…3a89 0x0b 0x3a89…3a8a 0x81 0x3a8a…3a8b »*« 0x3a8b…3a8c 0x13 0x3a8c…3a8d 0xbd 0x3a8d…3aca »*************************************************************« 0x3aca…3acb 0x13 0x3acb…3acc 0x8e 0x3acc…3ada »// TAG ENDPROC« 0x3ada…3adb 0x42 0x3adb…3adc 0xa0 0x3adc…3afc »// IF ?48?/3 GOTO SCREEN1 ?6F''?« 0x3afc…3afd 0x07 0x3afd…3afe 0x84 0x3afe…3b02 »CMD1« 0x3b02…3b03 0x25 0x3b03…3b04 0x95 0x3b04…3b19 »// IF ?48?/1 GOTO END« 0x3b19…3b1a 0x12 0x3b1a…3b1b 0x84 0x3b1b…3b1f »CMD7« 0x3b1f…3b20 0x25 0x3b20…3b21 0xa1 0x3b21…3b42 »// IF ?48?/2 GOTO SCREEN2 ?20F''?« 0x3b42…3b43 0x06 0x3b43…3b44 0x85 0x3b44…3b49 »CMD14« 0x3b49…3b4a 0x24 0x3b4a…3b4b 0x96 0x3b4b…3b61 »// IF ?31?/Y GOTO COMP« 0x3b61…3b62 0x11 0x3b62…3b63 0x89 0x3b63…3b6c »Y + ENTER« 0x3b6c…3b6d 0x20 0x3b6d…3b6e 0x8a 0x3b6e…3b78 »// TAG END« 0x3b78…3b79 0x46 0x3b79…3b7a 0xbe 0x3b7a…3bb8 »**************************************************************« 0x3bb8…3bb9 0x12 0x3bb9…3bba 0x81 0x3bba…3bbb »*« 0x3bbb…3bbc 0x02 0x3bbc…3bbd 0xb7 0x3bbd…3bf4 »RESTORE THE PARAMETERS STORED AT BEGINNING OF PROCEDURE« 0x3bf4…3bf5 0x03 0x3bf5…3bf6 0x81 0x3bf6…3bf7 »*« 0x3bf7…3bf8 0x12 0x3bf8…3bf9 0xbe 0x3bf9…3c37 »**************************************************************« 0x3c37…3c38 0x12 0x3c38…3c39 0xb1 0x3c39…3c6a »// LOCAL OFFSET-9,DATA-'?44?',BLANK-5,AREA-SYSTEM« 0x3c6a…3c6b 0x1f 0x3c6b…3c6c 0xb2 0x3c6c…3c9e »// LOCAL OFFSET-14,DATA-'?45?',BLANK-7,AREA-SYSTEM« 0x3c9e…3c9f 0x1e 0x3c9f…3ca0 0xb2 0x3ca0…3cd2 »// LOCAL OFFSET-51,DATA-'?46?',BLANK-6,AREA-SYSTEM« 0x3cd2…3cd3 0x1e 0x3cd3…3cd4 0xb2 0x3cd4…3d06 »// LOCAL OFFSET-57,DATA-'?47?',BLANK-8,AREA-SYSTEM« 0x3d06…3d07 0x1e 0x3d07…3d08 0x81 0x3d08…3d09 »*« 0x3d09…3d0a 0x4f 0x3d0a…3d0b 0x89 0x3d0b…3d14 »// RETURN« 0x3d14…3d15 0x47 0x3d15…3d16 0x00 0x3d16…3d20 61 61 40 c5 e5 c1 d3 e4 c1 e3 ┆// EVALUAT┆ 0x3d20…3d40 c5 40 d7 f3 f2 7e 7d 6f f1 6f 7d 40 d7 f3 f3 7e 7d 6f f2 6f 7d 40 d7 f3 f4 7e 7d 6f f3 6f 7d 40 ┆E P32='?1?' P33='?2?' P34='?3?' ┆ 0x3d40…3d60 d7 f3 f5 7e 7d 6f f4 6f 7d 40 d7 f3 f6 7e 7d 7d 16 9f 61 61 40 c9 c6 40 6f f3 f4 6f 61 40 c5 e5 ┆P35='?4?' P36='' ¤// IF ?34?/ EV┆ 0x3d60…3d80 c1 d3 e4 c1 e3 c5 40 d7 f3 f4 7e 7d 6f f3 f3 6f 7d 31 8e 61 61 40 e3 c1 c7 40 e2 c3 d9 c5 c5 d5 ┆ALUATE P34='?33?' þ// TAG SCREEN┆ 0x3d80…3da0 f3 42 af 61 61 40 d7 d9 d6 d4 d7 e3 40 c6 d6 d9 d4 c1 e3 60 d9 d7 c7 d6 d5 d3 c3 6b d4 c5 d4 c2 ┆3â®// PROMPT FORMAT-RPGONLC,MEMB┆ 0x3da0…3dc0 c5 d9 60 6f f6 f4 6f 6b e2 e3 c1 d9 e3 60 f3 f0 6b 4e 21 a7 d3 c5 d5 c7 e3 c8 60 7d f1 6b f1 6b ┆ER-?64?,START-30,+ xLENGTH-'1,1,┆ 0x3dc0…3de0 f8 6b f8 6b f8 6b f8 6b f6 f0 7d 6b d3 c9 c2 d9 c1 d9 e8 60 7b d9 d7 c7 d3 c9 c2 29 b7 5c 5c 5c ┆8,8,8,8,60',LIBRARY-#RPGLIB ¼***┆ 0x3de0…3e00 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 ┆********************************┆