|
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: 7168 (0x1c00)
Notes: MEMBER_P, Member_Text
Names: »RPGONL «
└─⟦7674f3f85⟧ Bits:30009796 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 002 of 002
└─⟦3370584df⟧
└─⟦this⟧ ».RPGONL «
// LOCAL AREA-SYSTEM // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ // IFF PROC-DSU IFF PROC-SEU #ERR 1067,3,RPG // IF DSPLY-IGC EVALUATE P64='#RP$FMTS' // ELSE EVALUATE P64='#RP@FMTS' // 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 // 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 // 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'?' // TAG SCREEN1 // EVALUATE P49='RPGONLO1' // PROMPT FORMAT-RPGONL1,MEMBER-?64?,START-1,LENGTH-'8,8,8,8,1,60',+ LIBRARY-#RPGLIB // IF ?CD?/2003 GOTO END PREVIOUS MENU // IF ?CD?/2007 GOTO END CANCEL // 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 ?4?/ GOTO DCTOK // EVALUATE P43,4=?CD? // LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM // LOAD #RPDD // RUN // 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? // EVALUATE P20='' // 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='' // IF ?CD?/2002 GOTO SCREEN1 CHECK FOR PAGE BACK // IF ?CD?/2007 GOTO END CHECK FOR END-OF-JOB // 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'? // 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 // IFF ?49?/RPGONLO1 GOTO COMP // 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 // EVALUATE P49='RPGONLO2' // IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'? // 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 // MEMBER USER2-#RP#RXL2,LIBRARY-#RPGLIB @C1A // 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 // IFF ?CD?/1008 IF ?10?/XREF RPGX,#RPGLIB ?1?,?17?,?2? // IFF ?CD?/1008 IF ?L'238,1'?/0 RPGR,#RPGLIB ?1?,?17?,NOSAVE,?2?,?3? // PRINTER CONTINUE-NO // IF PROC-DSU DSU EDIT,?1?,R,,,?2?,?1? // ELSE SEU ?1?,R,,,?2?,?1? // 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 // 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 // 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 // IFF ?30?/N IFF ?CD?/2007 GOTO NODELT // LOAD #RPSPD THIS SSP MODULE DOES THE DELETE // RUN // GOTO ENDPROC // TAG NODELT // IFF ?30?/Y GOTO ENDPROC // EVALUATE P50='?L'181,6'?' // INFOMSG NO @D1A // IFT DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1 @D1A // IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,?WS??L'181,6'?,CANCEL,CRT @D1A // IF DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1 @D1A // 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 // 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 0x94 0x0001…0015 »// LOCAL AREA-SYSTEM« 0x0015…0016 0x3c 0x0016…0017 0xa8 0x0017…003f »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x003f…0040 0x28 0x0040…0041 0xa5 0x0041…0066 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x0066…0067 0x2b 0x0067…0068 0x9a 0x0068…0082 »// MSG ?WS?,?M'2100,1,75'?« 0x0082…0083 0x36 0x0083…0084 0x89 0x0084…008d »// RETURN« 0x008d…008e 0x47 0x008e…008f 0x8c 0x008f…009b »// TAG NJOBQ« 0x009b…009c 0x44 0x009c…009d 0xac 0x009d…00c9 »// IFF PROC-DSU IFF PROC-SEU #ERR 1067,3,RPG« 0x00c9…00ca 0x24 0x00ca…00cb 0xa7 0x00cb…00f2 »// IF DSPLY-IGC EVALUATE P64='#RP$FMTS'« 0x00f2…00f3 0x29 0x00f3…00f4 0x9f 0x00f4…0113 »// ELSE EVALUATE P64='#RP@FMTS'« 0x0113…0114 0x31 0x0114…0115 0xa4 0x0115…0139 »// IF '?L'1,3'?'/'RPG' GOTO SKIPINIT« 0x0139…013a 0x2c 0x013a…013b 0x98 0x013b…0153 »// LOCAL OFFSET-1,DATA-'« 0x0153…0154 0x08 0x0154…0155 0x8a 0x0155…015f »NODSMPRINT« 0x015f…0160 0x02 0x0160…0161 0x9a 0x0161…017b »NOXREF0 NONEP',BLANK-457,+« 0x017b…017c 0x0a 0x017c…017d 0x8b 0x017d…0188 »AREA-SYSTEM« 0x0188…0189 0x45 0x0189…018a 0xab 0x018a…01b5 »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK« 0x01b5…01b6 0x02 0x01b6…01b7 0x8b 0x01b7…01c2 »NOOBJECTGEN« 0x01c2…01c3 0x03 0x01c3…01c4 0x82 0x01c4…01c6 »40« 0x01c6…01c7 0x02 0x01c7…01c8 0x84 0x01c8…01cc »COMP« 0x01cc…01cd 0x02 0x01cd…01ce 0x86 0x01ce…01d4 »R96',+« 0x01d4…01d5 0x05 0x01d5…01d6 0x8b 0x01d6…01e1 »AREA-SYSTEM« 0x01e1…01e2 0x45 0x01e2…01e3 0xb5 0x01e3…0218 »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x0218…0219 0x1b 0x0219…021a 0x8f 0x021a…0229 »// TAG SKIPINIT« 0x0229…022a 0x41 0x022a…022b 0xca 0x022b…0275 »// EVALUATE P44='?L'9,5'?' P45='?L'14,7'?' P46='?L'51,6'?' P47='?L'57,8'?'« 0x0275…0276 0x06 0x0276…0277 0x9b 0x0277…0292 »// LOCAL OFFSET-9,DATA-'DSM« 0x0292…0293 0x02 0x0293…0294 0x83 0x0294…0297 »CRT« 0x0297…0298 0x04 0x0298…0299 0x8d 0x0299…02a6 »',AREA-SYSTEM« 0x02a6…02a7 0x1f 0x02a7…02a8 0xb4 0x02a8…02dc »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM« 0x02dc…02dd 0x1c 0x02dd…02de 0x9e 0x02de…02fc »// LOCAL OFFSET-1,DATA-'RPGONL« 0x02fc…02fd 0x02 0x02fd…02fe 0x8d 0x02fe…030b »',AREA-SYSTEM« 0x030b…030c 0x23 0x030c…030d 0xaa 0x030d…0337 »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x0337…0338 0x26 0x0338…0339 0xab 0x0339…0364 »// LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM« 0x0364…0365 0x25 0x0365…0366 0xb1 0x0366…0397 »// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM« 0x0397…0398 0x1f 0x0398…0399 0xcd 0x0399…03e6 »// EVALUATE P1='?L'435,8'?' P2='?L'419,8'?' P3='?L'427,8'?' P5='?L'177,1'?' +« 0x03e6…03e7 0x03 0x03e7…03e8 0xbc 0x03e8…0424 »P7='?L'34,8'?' P8='?L'42,7'?' P9='?L'49,2'?' P10='?L'21,6'?'« 0x0424…0425 0x14 0x0425…0426 0xce 0x0426…0474 »// EVALUATE P11='?L'65,6'?' P12='?L'71,8'?' P13='?L'161,8'?' P14='?L'29,5'?' +« 0x0474…0475 0x02 0x0475…0476 0xc5 0x0476…04bb »P15='?L'27,2'?' P16='?L'79,5'?' P17='?L'85,4'?' P4='?L'443,8'?' P6=''« 0x04bb…04bc 0x0b 0x04bc…04bd 0x9c 0x04bd…04d9 »// EVALUATE P18='?L'453,5'?'« 0x04d9…04da 0x34 0x04da…04db 0x8e 0x04db…04e9 »// TAG SCREEN1« 0x04e9…04ea 0x42 0x04ea…04eb 0x9a 0x04eb…0505 »// EVALUATE P49='RPGONLO1'« 0x0505…0506 0x36 0x0506…0507 0xc4 0x0507…054b »// PROMPT FORMAT-RPGONL1,MEMBER-?64?,START-1,LENGTH-'8,8,8,8,1,60',+« 0x054b…054c 0x0c 0x054c…054d 0x8f 0x054d…055c »LIBRARY-#RPGLIB« 0x055c…055d 0x41 0x055d…055e 0x98 0x055e…0576 »// IF ?CD?/2003 GOTO END« 0x0576…0577 0x07 0x0577…0578 0x8d 0x0578…0585 »PREVIOUS MENU« 0x0585…0586 0x24 0x0586…0587 0x98 0x0587…059f »// IF ?CD?/2007 GOTO END« 0x059f…05a0 0x07 0x05a0…05a1 0x86 0x05a1…05a7 »CANCEL« 0x05a7…05a8 0x2b 0x05a8…05a9 0xae 0x05a9…05d7 »// EVALUATE P21='' P22='' P23='' P24='' P26=''« 0x05d7…05d8 0x22 0x05d8…05d9 0xab 0x05d9…0604 »// IF ?2?/ GOTO SCREEN1 ?6F'1060'? ?22F'C'?« 0x0604…0605 0x25 0x0605…0606 0xb2 0x0606…0638 »// IFF DATAF1-?2? GOTO SCREEN1 ?6F'1060'? ?22F'C'?« 0x0638…0639 0x1e 0x0639…063a 0xb2 0x063a…066c »// IFF ?3?/ IFF DATAF1-?3? GOTO SCREEN1 ?23F'C'? +« 0x066c…066d 0x1e 0x066d…066e 0x8a 0x066e…0678 »?6F'1061'?« 0x0678…0679 0x46 0x0679…067a 0xab 0x067a…06a5 »// IF ?1?/ GOTO SCREEN1 ?6F'1051'? ?21F'C'?« 0x06a5…06a6 0x25 0x06a6…06a7 0x95 0x06a7…06bc »// IF ?4?/ GOTO DCTOK« 0x06bc…06bd 0x3b 0x06bd…06be 0x96 0x06be…06d4 »// EVALUATE P43,4=?CD?« 0x06d4…06d5 0x3a 0x06d5…06d6 0xb2 0x06d6…0708 »// LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM« 0x0708…0709 0x1e 0x0709…070a 0x8d 0x070a…0717 »// LOAD #RPDD« 0x0717…0718 0x43 0x0718…0719 0x86 0x0719…071f »// RUN« 0x071f…0720 0x4a 0x0720…0721 0xb7 0x0721…0758 »// IF '?L'451,1'?'/'1' GOTO SCREEN1 ?6F'1066'? ?26F'C'?« 0x0758…0759 0x19 0x0759…075a 0x93 0x075a…076d »// EVALUATE CD=?43?« 0x076d…076e 0x3d 0x076e…076f 0x8c 0x076f…077b »// TAG DCTOK« 0x077b…077c 0x44 0x077c…077d 0x95 0x077d…0792 »// IF ?5?/Y GOTO P1OK« 0x0792…0793 0x0f 0x0793…0794 0xa4 0x0794…07b8 »IF DSU/SEU=YES, SKIP EXISTENCE CHECK« 0x07b8…07b9 0x08 0x07b9…07ba 0xad 0x07ba…07e7 »// IFF ?5?/N GOTO SCREEN1 ?6F'1030'? ?24F'C'?« 0x07e7…07e8 0x23 0x07e8…07e9 0xb8 0x07e9…0821 »// IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'?« 0x0821…0822 0x18 0x0822…0823 0x8b 0x0823…082e »// TAG P1OK« 0x082e…082f 0x45 0x082f…0830 0x9d 0x0830…084d »// IFF ?CD?/2014 GOTO CHKSCR2« 0x084d…084e 0x0d 0x084e…084f 0x9b 0x084f…086a »ADDITIONAL PARMS REQUESTED?« 0x086a…086b 0x0b 0x086b…086c 0x92 0x086c…087e »// EVALUATE P20=''« 0x087e…087f 0x3e 0x087f…0880 0x8e 0x0880…088e »// TAG SCREEN2« 0x088e…088f 0x42 0x088f…0890 0xab 0x0890…08bb »// EVALUATE P19='RPGONL ?1?,?2?,?3?,?4?,?5?« 0x08bb…08bc 0x25 0x08bc…08bd 0xab 0x08bd…08e8 »// PROMPT FORMAT-?49?,MEMBER-?64?,START-7,+« 0x08e8…08e9 0x25 0x08e9…08ea 0xb6 0x08ea…0920 »LENGTH-'8,7,2,6,6,8,8,5,2,5,4,5,44,60',LIBRARY-#RPGLIB« 0x0920…0921 0x1a 0x0921…0922 0xc5 0x0922…0967 »// EVALUATE P51='' P52='' P53='' P54='' P55='' P56='' P57='' P58='' +« 0x0967…0968 0x0b 0x0968…0969 0xa1 0x0969…098a »P59='' P60='' P61='' P6='' P25=''« 0x098a…098b 0x2f 0x098b…098c 0x9c 0x098c…09a8 »// IF ?CD?/2002 GOTO SCREEN1« 0x09a8…09a9 0x10 0x09a9…09aa 0x93 0x09aa…09bd »CHECK FOR PAGE BACK« 0x09bd…09be 0x11 0x09be…09bf 0x98 0x09bf…09d7 »// IF ?CD?/2007 GOTO END« 0x09d7…09d8 0x14 0x09d8…09d9 0x94 0x09d9…09ed »CHECK FOR END-OF-JOB« 0x09ed…09ee 0x10 0x09ee…09ef 0x8e 0x09ef…09fd »// TAG CHKSCR2« 0x09fd…09fe 0x42 0x09fe…09ff 0xbd 0x09ff…0a3c »// IFF ?7?/ IFF ?7?/SOURCE IFF ?7?/NOSOURCE IFF ?7?/PSOURCE +« 0x0a3c…0a3d 0x13 0x0a3d…0a3e 0xa1 0x0a3e…0a5f »GOTO SCREEN2 ?20F'1036'? ?51F'C'?« 0x0a5f…0a60 0x2f 0x0a60…0a61 0xb8 0x0a61…0a99 »// IFF ?8?/ IFF ?8?/DEBUG IFF ?8?/NODEBUG GOTO SCREEN2 +« 0x0a99…0a9a 0x18 0x0a9a…0a9b 0x94 0x0a9b…0aaf »?20F'1037'? ?52F'C'?« 0x0aaf…0ab0 0x3c 0x0ab0…0ab1 0xa7 0x0ab1…0ad8 »// IFF ?9?/ IF 65>?9? IF ?9?>1 EVALUATE« 0x0ad8…0ad9 0x29 0x0ad9…0ada 0xb2 0x0ada…0b0c »// ELSE IFF ?9?/ GOTO SCREEN2 ?20F'1038'? ?53F'C'?« 0x0b0c…0b0d 0x1e 0x0b0d…0b0e 0xb7 0x0b0e…0b45 »// IFF ?10'NOXREF'?/NOXREF IFF ?10?/XREF GOTO SCREEN2 +« 0x0b45…0b46 0x19 0x0b46…0b47 0x94 0x0b47…0b5b »?20F'1034'? ?54F'C'?« 0x0b5b…0b5c 0x3c 0x0b5c…0b5d 0xb5 0x0b5d…0b92 »// IFF ?11'LINK'?/LINK IFF ?11?/NOLINK GOTO SCREEN2 +« 0x0b92…0b93 0x1b 0x0b93…0b94 0x94 0x0b94…0ba8 »?20F'1041'? ?55F'C'?« 0x0ba8…0ba9 0x3c 0x0ba9…0baa 0xbd 0x0baa…0be7 »// IFF ?12'NOOBJECT'?/OBJECT IFF ?12?/NOOBJECT GOTO SCREEN2 +« 0x0be7…0be8 0x13 0x0be8…0be9 0x94 0x0be9…0bfd »?20F'1042'? ?56F'C'?« 0x0bfd…0bfe 0x3c 0x0bfe…0bff 0xab 0x0bff…0c2a »// IFF ?13?/ IFF DATAF1-?13? GOTO SCREEN2 +« 0x0c2a…0c2b 0x25 0x0c2b…0c2c 0x94 0x0c2c…0c40 »?20F'1062'? ?57F'C'?« 0x0c40…0c41 0x3c 0x0c41…0c42 0xb4 0x0c42…0c76 »// IFF ?14'NONEP'?/NEP IFF ?14?/NONEP GOTO SCREEN2 +« 0x0c76…0c77 0x1c 0x0c77…0c78 0x94 0x0c78…0c8c »?20F'1035'? ?58F'C'?« 0x0c8c…0c8d 0x3c 0x0c8d…0c8e 0xa5 0x0c8e…0cb3 »// IF 100>?15'0'? IF ?15?>-1 EVALUATE« 0x0cb3…0cb4 0x2b 0x0cb4…0cb5 0xa9 0x0cb5…0cde »// ELSE GOTO SCREEN2 ?20F'1054'? ?59F'C'?« 0x0cde…0cdf 0x27 0x0cdf…0ce0 0xb2 0x0ce0…0d12 »// IFF ?16'GEN'?/GEN IFF ?16?/NOGEN GOTO SCREEN2 +« 0x0d12…0d13 0x1e 0x0d13…0d14 0x94 0x0d14…0d28 »?20F'1043'? ?60F'C'?« 0x0d28…0d29 0x3c 0x0d29…0d2a 0xb6 0x0d2a…0d60 »// IF ?16?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x0d60…0d61 0x1a 0x0d61…0d62 0xb3 0x0d62…0d95 »// IFF ?17'40'?>0 GOTO SCREEN2 ?20F'1053'? ?61F'C'?« 0x0d95…0d96 0x1d 0x0d96…0d97 0xb4 0x0d97…0dcb »// IFF ?18'NOMRO'?/MRO IFF ?18?/NOMRO GOTO SCREEN2 +« 0x0dcb…0dcc 0x1c 0x0dcc…0dcd 0x94 0x0dcd…0de1 »?20F'1045'? ?25F'C'?« 0x0de1…0de2 0x3c 0x0de2…0de3 0xb2 0x0de3…0e15 »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x0e15…0e16 0x1e 0x0e16…0e17 0xb2 0x0e17…0e49 »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x0e49…0e4a 0x1e 0x0e4a…0e4b 0xb2 0x0e4b…0e7d »// LOCAL OFFSET-153,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x0e7d…0e7e 0x1e 0x0e7e…0e7f 0xb2 0x0e7f…0eb1 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x0eb1…0eb2 0x1e 0x0eb2…0eb3 0xb2 0x0eb3…0ee5 »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x0ee5…0ee6 0x1e 0x0ee6…0ee7 0xb2 0x0ee7…0f19 »// LOCAL OFFSET-427,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x0f19…0f1a 0x1e 0x0f1a…0f1b 0xb2 0x0f1b…0f4d »// LOCAL OFFSET-443,DATA-'?4?',BLANK-8,AREA-SYSTEM« 0x0f4d…0f4e 0x1e 0x0f4e…0f4f 0xaa 0x0f4f…0f79 »// LOCAL OFFSET-177,DATA-'?5?',AREA-SYSTEM« 0x0f79…0f7a 0x26 0x0f7a…0f7b 0xb1 0x0f7b…0fac »// LOCAL OFFSET-34,DATA-'?7?',BLANK-8,AREA-SYSTEM« 0x0fac…0fad 0x1f 0x0fad…0fae 0xb1 0x0fae…0fdf »// LOCAL OFFSET-42,DATA-'?8?',BLANK-7,AREA-SYSTEM« 0x0fdf…0fe0 0x1f 0x0fe0…0fe1 0xb1 0x0fe1…1012 »// LOCAL OFFSET-49,DATA-'?9?',BLANK-2,AREA-SYSTEM« 0x1012…1013 0x1f 0x1013…1014 0xba 0x1014…104e »// LOCAL OFFSET-21,DATA-'?10'NOXREF'?',BLANK-6,AREA-SYSTEM« 0x104e…104f 0x16 0x104f…1050 0xb8 0x1050…1088 »// LOCAL OFFSET-65,DATA-'?11'LINK'?',BLANK-6,AREA-SYSTEM« 0x1088…1089 0x18 0x1089…108a 0xbc 0x108a…10c6 »// LOCAL OFFSET-71,DATA-'?12'NOOBJECT'?',BLANK-8,AREA-SYSTEM« 0x10c6…10c7 0x14 0x10c7…10c8 0xb3 0x10c8…10fb »// LOCAL OFFSET-161,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x10fb…10fc 0x1d 0x10fc…10fd 0xb9 0x10fd…1136 »// LOCAL OFFSET-29,DATA-'?14'NONEP'?',BLANK-5,AREA-SYSTEM« 0x1136…1137 0x17 0x1137…1138 0xb5 0x1138…116d »// LOCAL OFFSET-27,DATA-'?15'0'?',BLANK-2,AREA-SYSTEM« 0x116d…116e 0x1b 0x116e…116f 0xb7 0x116f…11a6 »// LOCAL OFFSET-79,DATA-'?16'GEN'?',BLANK-5,AREA-SYSTEM« 0x11a6…11a7 0x19 0x11a7…11a8 0xb6 0x11a8…11de »// LOCAL OFFSET-85,DATA-'?17'40'?',BLANK-4,AREA-SYSTEM« 0x11de…11df 0x1a 0x11df…11e0 0xba 0x11e0…121a »// LOCAL OFFSET-453,DATA-'?18'NOMRO'?',BLANK-5,AREA-SYSTEM« 0x121a…121b 0x16 0x121b…121c 0x9e 0x121c…123a »// IFF ?49?/RPGONLO1 GOTO COMP« 0x123a…123b 0x32 0x123b…123c 0xac 0x123c…1268 »// IF Y/?5? IF PROC-DSU DSU EDIT,?1?,R,,,?2?« 0x1268…1269 0x06 0x1269…126a 0x9c 0x126a…1286 »YES, CALL DSU TO VIEW SOURCE« 0x1286…1287 0x02 0x1287…1288 0xa0 0x1288…12a8 »// ELSE IF Y/?5? SEU ?1?,R,,,?2?« 0x12a8…12a9 0x12 0x12a9…12aa 0x9c 0x12aa…12c6 »YES, CALL SEU TO VIEW SOURCE« 0x12c6…12c7 0x02 0x12c7…12c8 0x9a 0x12c8…12e2 »// EVALUATE P49='RPGONLO2'« 0x12e2…12e3 0x36 0x12e3…12e4 0xb8 0x12e4…131c »// IFF SOURCE-'?1?,?2?' GOTO SCREEN1 ?6F'1051'? ?21F'C'?« 0x131c…131d 0x18 0x131d…131e 0x8b 0x131e…1329 »// TAG COMP« 0x1329…132a 0x45 0x132a…132b 0x89 0x132b…1334 »// * 1016« 0x1334…1335 0x47 0x1335…1336 0x94 0x1336…134a »// LOAD #RPG,#RPGLIB« 0x134a…134b 0x3c 0x134b…134c 0xbc 0x134c…1388 »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25« 0x1388…1389 0x14 0x1389…138a 0xba 0x138a…13c4 »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25« 0x13c4…13c5 0x16 0x13c5…13c6 0xbc 0x13c6…1402 »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?17?,LABEL-?1?,EXTEND-25« 0x1402…1403 0x14 0x1403…1404 0xbb 0x1404…143f »// FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?17?,EXTEND-25« 0x143f…1440 0x15 0x1440…1441 0xb0 0x1441…1471 »// PRINTER NAME-$PRINTDM,CONTINUE-YES,PRIORITY-0« 0x1471…1472 0x20 0x1472…1473 0xbd 0x1473…14b0 »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x14b0…14b1 0x13 0x14b1…14b2 0xa8 0x14b2…14da »// MEMBER USER2-#RP#RXL2,LIBRARY-#RPGLIB« 0x14da…14db 0x1b 0x14db…14dc 0x84 0x14dc…14e0 »@C1A« 0x14e0…14e1 0x09 0x14e1…14e2 0xb8 0x14e2…151a »// COMPILE INLIB-?2?,MRTMAX-?15?,SOURCE-?1?,DATADCT-?4?,« 0x151a…151b 0x18 0x151b…151c 0x97 0x151c…1533 »// IF ?14?/NEP NEP-YES,« 0x1533…1534 0x39 0x1534…1535 0x8f 0x1535…1544 »// ELSE NEP-NO,« 0x1544…1545 0x41 0x1545…1546 0x97 0x1546…155d »// IF ?18?/MRO MRO-YES,« 0x155d…155e 0x39 0x155e…155f 0x8f 0x155f…156e »// ELSE MRO-NO,« 0x156e…156f 0x41 0x156f…1570 0x96 0x1570…1586 »// IFF ?3?/ OUTLIB-?3?« 0x1586…1587 0x3a 0x1587…1588 0x92 0x1588…159a »// ELSE OUTLIB-?2?« 0x159a…159b 0x3e 0x159b…159c 0x86 0x159c…15a2 »// RUN« 0x15a2…15a3 0x4a 0x15a3…15a4 0xb7 0x15a4…15db »// IFF ?CD?/1008 IF ?10?/XREF RPGX,#RPGLIB ?1?,?17?,?2?« 0x15db…15dc 0x19 0x15dc…15dd 0xc5 0x15dd…1622 »// IFF ?CD?/1008 IF ?L'238,1'?/0 RPGR,#RPGLIB ?1?,?17?,NOSAVE,?2?,?3?« 0x1622…1623 0x0b 0x1623…1624 0x96 0x1624…163a »// PRINTER CONTINUE-NO« 0x163a…163b 0x3a 0x163b…163c 0xa7 0x163c…1663 »// IF PROC-DSU DSU EDIT,?1?,R,,,?2?,?1?« 0x1663…1664 0x29 0x1664…1665 0x9b 0x1665…1680 »// ELSE SEU ?1?,R,,,?2?,?1?« 0x1680…1681 0x35 0x1681…1682 0xba 0x1682…16bc »// EVALUATE P32='?1?' P33='?2?' P34='?3?' P35='?4?' P36=''« 0x16bc…16bd 0x16 0x16bd…16be 0x9f 0x16be…16dd »// IF ?34?/ EVALUATE P34='?33?'« 0x16dd…16de 0x31 0x16de…16df 0x8e 0x16df…16ed »// TAG SCREEN3« 0x16ed…16ee 0x42 0x16ee…16ef 0xaf 0x16ef…171e »// PROMPT FORMAT-RPGONLC,MEMBER-?64?,START-30,+« 0x171e…171f 0x21 0x171f…1720 0xa7 0x1720…1747 »LENGTH-'1,1,8,8,8,8,60',LIBRARY-#RPGLIB« 0x1747…1748 0x29 0x1748…1749 0xa0 0x1749…1769 »// IF ?CD?/2007 EVALUATE P48='1'« 0x1769…176a 0x30 0x176a…176b 0xa5 0x176b…1790 »// ELSE IF ?CD?/2014 EVALUATE P48='2'« 0x1790…1791 0x2b 0x1791…1792 0xa5 0x1792…17b7 »// ELSE IF ?CD?/2001 EVALUATE P48='3'« 0x17b7…17b8 0x2b 0x17b8…17b9 0x98 0x17b9…17d1 »// ELSE EVALUATE P48='0'« 0x17d1…17d2 0x38 0x17d2…17d3 0x9c 0x17d3…17ef »// IF ?CD?/2007 GOTO NOCHECK« 0x17ef…17f0 0x02 0x17f0…17f1 0xa6 0x17f1…1817 »IF CMD KEY 7, DO NOT ERROR CHECK PARMS« 0x1817…1818 0x0c 0x1818…1819 0x99 0x1819…1832 »// EVALUATE P62='' P63=''« 0x1832…1833 0x37 0x1833…1834 0xa7 0x1834…185b »// IFF ?30?/N IFF ?30?/Y GOTO SCREEN3 +« 0x185b…185c 0x29 0x185c…185d 0x94 0x185d…1871 »?36F'1030'? ?62F'C'?« 0x1871…1872 0x3c 0x1872…1873 0xa7 0x1873…189a »// IFF ?31?/N IFF ?31?/Y GOTO SCREEN3 +« 0x189a…189b 0x29 0x189b…189c 0x94 0x189c…18b0 »?36F'1030'? ?63F'C'?« 0x18b0…18b1 0x3c 0x18b1…18b2 0x8e 0x18b2…18c0 »// TAG NOCHECK« 0x18c0…18c1 0x42 0x18c1…18c2 0xa7 0x18c2…18e9 »// IFF ?30?/N IFF ?CD?/2007 GOTO NODELT« 0x18e9…18ea 0x29 0x18ea…18eb 0x8e 0x18eb…18f9 »// LOAD #RPSPD« 0x18f9…18fa 0x0b 0x18fa…18fb 0x9f 0x18fb…191a »THIS SSP MODULE DOES THE DELETE« 0x191a…191b 0x18 0x191b…191c 0x86 0x191c…1922 »// RUN« 0x1922…1923 0x4a 0x1923…1924 0x8f 0x1924…1933 »// GOTO ENDPROC« 0x1933…1934 0x41 0x1934…1935 0x8d 0x1935…1942 »// TAG NODELT« 0x1942…1943 0x43 0x1943…1944 0x9a 0x1944…195e »// IFF ?30?/Y GOTO ENDPROC« 0x195e…195f 0x36 0x195f…1960 0x9c 0x1960…197c »// EVALUATE P50='?L'181,6'?'« 0x197c…197d 0x34 0x197d…197e 0x8d 0x197e…198b »// INFOMSG NO« 0x198b…198c 0x36 0x198c…198d 0x84 0x198d…1991 »@D1A« 0x1991…1992 0x09 0x1992…1993 0xb5 0x1993…19c8 »// IFT DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1« 0x19c8…19c9 0x0e 0x19c9…19ca 0x84 0x19ca…19ce »@D1A« 0x19ce…19cf 0x09 0x19cf…19d0 0xbf 0x19d0…1a0f »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,?WS??L'181,6'?,CANCEL,CRT« 0x1a0f…1a10 0x04 0x1a10…1a11 0x84 0x1a11…1a15 »@D1A« 0x1a15…1a16 0x09 0x1a16…1a17 0xb4 0x1a17…1a4b »// IF DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1« 0x1a4b…1a4c 0x0f 0x1a4c…1a4d 0x84 0x1a4d…1a51 »@D1A« 0x1a51…1a52 0x09 0x1a52…1a53 0x8e 0x1a53…1a61 »// TAG ENDPROC« 0x1a61…1a62 0x42 0x1a62…1a63 0xa0 0x1a63…1a83 »// IF ?48?/3 GOTO SCREEN1 ?6F''?« 0x1a83…1a84 0x07 0x1a84…1a85 0x84 0x1a85…1a89 »CMD1« 0x1a89…1a8a 0x25 0x1a8a…1a8b 0x95 0x1a8b…1aa0 »// IF ?48?/1 GOTO END« 0x1aa0…1aa1 0x12 0x1aa1…1aa2 0x84 0x1aa2…1aa6 »CMD7« 0x1aa6…1aa7 0x25 0x1aa7…1aa8 0xa1 0x1aa8…1ac9 »// IF ?48?/2 GOTO SCREEN2 ?20F''?« 0x1ac9…1aca 0x06 0x1aca…1acb 0x85 0x1acb…1ad0 »CMD14« 0x1ad0…1ad1 0x24 0x1ad1…1ad2 0x96 0x1ad2…1ae8 »// IF ?31?/Y GOTO COMP« 0x1ae8…1ae9 0x11 0x1ae9…1aea 0x89 0x1aea…1af3 »Y + ENTER« 0x1af3…1af4 0x20 0x1af4…1af5 0x8a 0x1af5…1aff »// TAG END« 0x1aff…1b00 0x46 0x1b00…1b01 0xb1 0x1b01…1b32 »// LOCAL OFFSET-9,DATA-'?44?',BLANK-5,AREA-SYSTEM« 0x1b32…1b33 0x1f 0x1b33…1b34 0xb2 0x1b34…1b66 »// LOCAL OFFSET-14,DATA-'?45?',BLANK-7,AREA-SYSTEM« 0x1b66…1b67 0x1e 0x1b67…1b68 0xb2 0x1b68…1b9a »// LOCAL OFFSET-51,DATA-'?46?',BLANK-6,AREA-SYSTEM« 0x1b9a…1b9b 0x1e 0x1b9b…1b9c 0xb2 0x1b9c…1bce »// LOCAL OFFSET-57,DATA-'?47?',BLANK-8,AREA-SYSTEM« 0x1bce…1bcf 0x1e 0x1bcf…1bd0 0x89 0x1bd0…1bd9 »// RETURN« 0x1bd9…1bda 0x47 0x1bda…1bdb 0x00 0x1bdb…1be0 e2 e3 c5 d4 1f ┆STEM ┆ 0x1be0…1c00 b1 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f9 6b c4 c1 e3 c1 60 7d 6f f9 6f 7d 6b c2 ┆£// LOCAL OFFSET-49,DATA-'?9?',B┆