|
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 «
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦a01802bb8⟧
└─⟦this⟧ ».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 // 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'?' // LOAD $UASF // RUN // SPOOL SPOOLID-?50?,NAME-RP?50?,RETAIN-J,RELCANS-CANCEL // END // LOAD $UASC // FILE NAME-RP?50?,DISP-SHR // RUN // 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 0xb8 0x14b2…14ea »// COMPILE INLIB-?2?,MRTMAX-?15?,SOURCE-?1?,DATADCT-?4?,« 0x14ea…14eb 0x18 0x14eb…14ec 0x97 0x14ec…1503 »// IF ?14?/NEP NEP-YES,« 0x1503…1504 0x39 0x1504…1505 0x8f 0x1505…1514 »// ELSE NEP-NO,« 0x1514…1515 0x41 0x1515…1516 0x97 0x1516…152d »// IF ?18?/MRO MRO-YES,« 0x152d…152e 0x39 0x152e…152f 0x8f 0x152f…153e »// ELSE MRO-NO,« 0x153e…153f 0x41 0x153f…1540 0x96 0x1540…1556 »// IFF ?3?/ OUTLIB-?3?« 0x1556…1557 0x3a 0x1557…1558 0x92 0x1558…156a »// ELSE OUTLIB-?2?« 0x156a…156b 0x3e 0x156b…156c 0x86 0x156c…1572 »// RUN« 0x1572…1573 0x4a 0x1573…1574 0xb7 0x1574…15ab »// IFF ?CD?/1008 IF ?10?/XREF RPGX,#RPGLIB ?1?,?17?,?2?« 0x15ab…15ac 0x19 0x15ac…15ad 0xc5 0x15ad…15f2 »// IFF ?CD?/1008 IF ?L'238,1'?/0 RPGR,#RPGLIB ?1?,?17?,NOSAVE,?2?,?3?« 0x15f2…15f3 0x0b 0x15f3…15f4 0x96 0x15f4…160a »// PRINTER CONTINUE-NO« 0x160a…160b 0x3a 0x160b…160c 0xa7 0x160c…1633 »// IF PROC-DSU DSU EDIT,?1?,R,,,?2?,?1?« 0x1633…1634 0x29 0x1634…1635 0x9b 0x1635…1650 »// ELSE SEU ?1?,R,,,?2?,?1?« 0x1650…1651 0x35 0x1651…1652 0xba 0x1652…168c »// EVALUATE P32='?1?' P33='?2?' P34='?3?' P35='?4?' P36=''« 0x168c…168d 0x16 0x168d…168e 0x9f 0x168e…16ad »// IF ?34?/ EVALUATE P34='?33?'« 0x16ad…16ae 0x31 0x16ae…16af 0x8e 0x16af…16bd »// TAG SCREEN3« 0x16bd…16be 0x42 0x16be…16bf 0xaf 0x16bf…16ee »// PROMPT FORMAT-RPGONLC,MEMBER-?64?,START-30,+« 0x16ee…16ef 0x21 0x16ef…16f0 0xa7 0x16f0…1717 »LENGTH-'1,1,8,8,8,8,60',LIBRARY-#RPGLIB« 0x1717…1718 0x29 0x1718…1719 0xa0 0x1719…1739 »// IF ?CD?/2007 EVALUATE P48='1'« 0x1739…173a 0x30 0x173a…173b 0xa5 0x173b…1760 »// ELSE IF ?CD?/2014 EVALUATE P48='2'« 0x1760…1761 0x2b 0x1761…1762 0xa5 0x1762…1787 »// ELSE IF ?CD?/2001 EVALUATE P48='3'« 0x1787…1788 0x2b 0x1788…1789 0x98 0x1789…17a1 »// ELSE EVALUATE P48='0'« 0x17a1…17a2 0x38 0x17a2…17a3 0x9c 0x17a3…17bf »// IF ?CD?/2007 GOTO NOCHECK« 0x17bf…17c0 0x02 0x17c0…17c1 0xa6 0x17c1…17e7 »IF CMD KEY 7, DO NOT ERROR CHECK PARMS« 0x17e7…17e8 0x0c 0x17e8…17e9 0x99 0x17e9…1802 »// EVALUATE P62='' P63=''« 0x1802…1803 0x37 0x1803…1804 0xa7 0x1804…182b »// IFF ?30?/N IFF ?30?/Y GOTO SCREEN3 +« 0x182b…182c 0x29 0x182c…182d 0x94 0x182d…1841 »?36F'1030'? ?62F'C'?« 0x1841…1842 0x3c 0x1842…1843 0xa7 0x1843…186a »// IFF ?31?/N IFF ?31?/Y GOTO SCREEN3 +« 0x186a…186b 0x29 0x186b…186c 0x94 0x186c…1880 »?36F'1030'? ?63F'C'?« 0x1880…1881 0x3c 0x1881…1882 0x8e 0x1882…1890 »// TAG NOCHECK« 0x1890…1891 0x42 0x1891…1892 0xa7 0x1892…18b9 »// IFF ?30?/N IFF ?CD?/2007 GOTO NODELT« 0x18b9…18ba 0x29 0x18ba…18bb 0x8e 0x18bb…18c9 »// LOAD #RPSPD« 0x18c9…18ca 0x0b 0x18ca…18cb 0x9f 0x18cb…18ea »THIS SSP MODULE DOES THE DELETE« 0x18ea…18eb 0x18 0x18eb…18ec 0x86 0x18ec…18f2 »// RUN« 0x18f2…18f3 0x4a 0x18f3…18f4 0x8f 0x18f4…1903 »// GOTO ENDPROC« 0x1903…1904 0x41 0x1904…1905 0x8d 0x1905…1912 »// TAG NODELT« 0x1912…1913 0x43 0x1913…1914 0x9a 0x1914…192e »// IFF ?30?/Y GOTO ENDPROC« 0x192e…192f 0x36 0x192f…1930 0x9c 0x1930…194c »// EVALUATE P50='?L'181,6'?'« 0x194c…194d 0x34 0x194d…194e 0x8d 0x194e…195b »// LOAD $UASF« 0x195b…195c 0x43 0x195c…195d 0x86 0x195d…1963 »// RUN« 0x1963…1964 0x4a 0x1964…1965 0xb9 0x1965…199e »// SPOOL SPOOLID-?50?,NAME-RP?50?,RETAIN-J,RELCANS-CANCEL« 0x199e…199f 0x17 0x199f…19a0 0x86 0x19a0…19a6 »// END« 0x19a6…19a7 0x4a 0x19a7…19a8 0x8d 0x19a8…19b5 »// LOAD $UASC« 0x19b5…19b6 0x43 0x19b6…19b7 0x9c 0x19b7…19d3 »// FILE NAME-RP?50?,DISP-SHR« 0x19d3…19d4 0x34 0x19d4…19d5 0x86 0x19d5…19db »// RUN« 0x19db…19dc 0x4a 0x19dc…19dd 0x8e 0x19dd…19eb »// TAG ENDPROC« 0x19eb…19ec 0x42 0x19ec…19ed 0xa0 0x19ed…1a0d »// IF ?48?/3 GOTO SCREEN1 ?6F''?« 0x1a0d…1a0e 0x07 0x1a0e…1a0f 0x84 0x1a0f…1a13 »CMD1« 0x1a13…1a14 0x25 0x1a14…1a15 0x95 0x1a15…1a2a »// IF ?48?/1 GOTO END« 0x1a2a…1a2b 0x12 0x1a2b…1a2c 0x84 0x1a2c…1a30 »CMD7« 0x1a30…1a31 0x25 0x1a31…1a32 0xa1 0x1a32…1a53 »// IF ?48?/2 GOTO SCREEN2 ?20F''?« 0x1a53…1a54 0x06 0x1a54…1a55 0x85 0x1a55…1a5a »CMD14« 0x1a5a…1a5b 0x24 0x1a5b…1a5c 0x96 0x1a5c…1a72 »// IF ?31?/Y GOTO COMP« 0x1a72…1a73 0x11 0x1a73…1a74 0x89 0x1a74…1a7d »Y + ENTER« 0x1a7d…1a7e 0x20 0x1a7e…1a7f 0x8a 0x1a7f…1a89 »// TAG END« 0x1a89…1a8a 0x46 0x1a8a…1a8b 0xb1 0x1a8b…1abc »// LOCAL OFFSET-9,DATA-'?44?',BLANK-5,AREA-SYSTEM« 0x1abc…1abd 0x1f 0x1abd…1abe 0xb2 0x1abe…1af0 »// LOCAL OFFSET-14,DATA-'?45?',BLANK-7,AREA-SYSTEM« 0x1af0…1af1 0x1e 0x1af1…1af2 0xb2 0x1af2…1b24 »// LOCAL OFFSET-51,DATA-'?46?',BLANK-6,AREA-SYSTEM« 0x1b24…1b25 0x1e 0x1b25…1b26 0xb2 0x1b26…1b58 »// LOCAL OFFSET-57,DATA-'?47?',BLANK-8,AREA-SYSTEM« 0x1b58…1b59 0x1e 0x1b59…1b5a 0x89 0x1b5a…1b63 »// RETURN« 0x1b63…1b64 0x47 0x1b64…1b65 0x00 0x1b65…1b80 c5 d3 e2 c5 40 c9 c6 40 6f c3 c4 6f 61 f2 f0 f0 f1 40 c5 e5 c1 d3 e4 c1 e3 c5 40 ┆ELSE IF ?CD?/2001 EVALUATE ┆ 0x1b80…1ba0 d7 f4 f8 7e 7d f3 7d 2b 98 61 61 40 c5 d3 e2 c5 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f4 f8 7e 7d f0 ┆P48='3' q// ELSE EVALUATE P48='0┆ 0x1ba0…1bc0 7d 38 9c 61 61 40 c9 c6 40 6f c3 c4 6f 61 f2 f0 f0 f7 40 c7 d6 e3 d6 40 d5 d6 c3 c8 c5 c3 d2 02 ┆' æ// IF ?CD?/2007 GOTO NOCHECK ┆ 0x1bc0…1be0 a6 c9 c6 40 c3 d4 c4 40 d2 c5 e8 40 f7 6b 40 c4 d6 40 d5 d6 e3 40 c5 d9 d9 d6 d9 40 c3 c8 c5 c3 ┆wIF CMD KEY 7, DO NOT ERROR CHEC┆ 0x1be0…1c00 d2 40 d7 c1 d9 d4 e2 0c 99 61 61 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f6 f2 7e 7d 7d 40 d7 f6 f3 7e ┆K PARMS r// EVALUATE P62='' P63=┆