|
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: 5376 (0x1500)
Notes: MEMBER_P, Member_Text
Names: »RPGC «
└─⟦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⟧ ».RPGC «
// MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB MESSAGE MEMBER // IFF ?1?/ GOTO PUTPARMS IF P1 SPECIFIED, PROCESS DIRECT // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ IF P1=BLANK AND JOBQ OR EVOKED // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ // HELP RPGC ,?2'?CLIB?'?,?3'NODSM'?,?4'PRINT'?,?5'NOXREF'?,+ ?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+ ?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'? // RETURN // TAG PUTPARMS // IF JOBQ-NO IF EVOKED-NO IFF RPG/?21? * 1031 // LOCAL OFFSET-1,DATA-'RPGC',BLANK-8,AREA-SYSTEM PROC NAME // LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM USED BY COMPILER // IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'? // IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG // IFF ?3'NODSM'?/NODSM IFF ?3?/DSM #ERR 1032,03,RPG ?3F'NODSM'? // IF ?3?/DSM LOCAL OFFSET-237,DATA-'Y',AREA-SYSTEM FLAG TO CALL $MAINT // IFF ?4'PRINT'?/ IFF ?4?/PRINT IFF ?4?/NOPRINT IFF ?4?/CRT + #ERR 1033,03,RPG ?4F'PRINT'? // IF JOBQ-NO IF EVOKED-NO GOTO SKIP1 // IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'? // TAG SKIP1 // IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'? // IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'? // IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'? // IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'? // IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/PSOURCE IFF ?9?/NOSOURCE #ERR 1036,03,RPG + ?9F''? // IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''? // IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''? // ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''? // IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'? // IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'? // IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'? // IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? // IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'? // IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'? // IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM // IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'? // IF ?19?/ GOTO DCTOK // LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM // LOAD #RPDD // RUN // IF '?L'451,1'?'/'1' #ERR 1066,03,RPG // TAG DCTOK // IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'? // LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-9,DATA-'?3?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM // LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM // LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM // LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM // LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM USED BY RPGSEU // LOAD #RPG,#RPGLIB // FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // IFF ?3?/DSM GOTO NOTDSM CHECK IF DSM REQUESTED, IF YES // FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,LABEL-?1?,EXTEND-25 // FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // TAG NOTDSM // PRINTER NAME-$PRINTDM,CONTINUE-YES, // IF ?4?/CRT PRIORITY-0 // ELSE PRIORITY-1 // LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM // MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB // MEMBER USER2-#RP#RXL2,LIBRARY-#RPGLIB @C1A // COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+ DATADCT-?19?, // IF ?7?/NEP NEP-YES, // ELSE NEP-NO, // IF ?20?/MRO MRO-YES // ELSE MRO-NO // RUN // MEMBER USER2-#RP#CPL2,LIBRARY-#RPGLIB RESET USER2 @C1A // EVALUATE P64,4=?CD? // IFF ?CD?/1008 IF ?5?/XREF IFF ?4?/NOPRINT + INCLUDE RPGX,#RPGLIB ?1?,?18?,?2? // IFF ?CD?/1008 IF ?L'238,1'?/0 INCLUDE RPGR,#RPGLIB ?1?,+ ?18?,NOSAVE,?2?,?8?,,?13?,?4? // IFF ?L'237,1'?/Y GOTO SKIPDSM // LOAD $MAINT // FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1? // RUN // COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2 // END // TAG SKIPDSM // IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2 // PRINTER CONTINUE-NO // TAG SKIP2 // IFF ?L'14,3'?/CRT GOTO END // EVALUATE P30='?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 END // EVALUATE CD=?64? // RETURN
0x0000…0001 0xb7 0x0001…0038 »// MEMBER USER1-#RP#CPL1,USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x0038…0039 0x03 0x0039…003a 0x8e 0x003a…0048 »MESSAGE MEMBER« 0x0048…0049 0x08 0x0049…004a 0x99 0x004a…0063 »// IFF ?1?/ GOTO PUTPARMS« 0x0063…0064 0x11 0x0064…0065 0x9f 0x0065…0084 »IF P1 SPECIFIED, PROCESS DIRECT« 0x0084…0085 0x07 0x0085…0086 0xa5 0x0086…00ab »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x00ab…00ac 0x05 0x00ac…00ad 0x9e 0x00ad…00cb »IF P1=BLANK AND JOBQ OR EVOKED« 0x00cb…00cc 0x08 0x00cc…00cd 0x9a 0x00cd…00e7 »// MSG ?WS?,?M'2100,1,75'?« 0x00e7…00e8 0x36 0x00e8…00e9 0x89 0x00e9…00f2 »// RETURN« 0x00f2…00f3 0x47 0x00f3…00f4 0x8c 0x00f4…0100 »// TAG NJOBQ« 0x0100…0101 0x44 0x0101…0102 0xbd 0x0102…013f »// HELP RPGC ,?2'?CLIB?'?,?3'NODSM'?,?4'PRINT'?,?5'NOXREF'?,+« 0x013f…0140 0x13 0x0140…0141 0xc0 0x0141…0181 »?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+« 0x0181…0182 0x10 0x0182…0183 0xc2 0x0183…01c5 »?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'?« 0x01c5…01c6 0x0e 0x01c6…01c7 0x89 0x01c7…01d0 »// RETURN« 0x01d0…01d1 0x47 0x01d1…01d2 0x8f 0x01d2…01e1 »// TAG PUTPARMS« 0x01e1…01e2 0x41 0x01e2…01e3 0xae 0x01e3…0211 »// IF JOBQ-NO IF EVOKED-NO IFF RPG/?21? * 1031« 0x0211…0212 0x22 0x0212…0213 0xb1 0x0213…0244 »// LOCAL OFFSET-1,DATA-'RPGC',BLANK-8,AREA-SYSTEM« 0x0244…0245 0x06 0x0245…0246 0x89 0x0246…024f »PROC NAME« 0x024f…0250 0x10 0x0250…0251 0xaa 0x0251…027b »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x027b…027c 0x0d 0x027c…027d 0x90 0x027d…028d »USED BY COMPILER« 0x028d…028e 0x09 0x028e…028f 0xb8 0x028f…02c7 »// IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'?« 0x02c7…02c8 0x18 0x02c8…02c9 0xaf 0x02c9…02f8 »// IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG« 0x02f8…02f9 0x21 0x02f9…02fa 0xc0 0x02fa…033a »// IFF ?3'NODSM'?/NODSM IFF ?3?/DSM #ERR 1032,03,RPG ?3F'NODSM'?« 0x033a…033b 0x10 0x033b…033c 0xb3 0x033c…036f »// IF ?3?/DSM LOCAL OFFSET-237,DATA-'Y',AREA-SYSTEM« 0x036f…0370 0x03 0x0370…0371 0x93 0x0371…0384 »FLAG TO CALL $MAINT« 0x0384…0385 0x07 0x0385…0386 0xbe 0x0386…03c4 »// IFF ?4'PRINT'?/ IFF ?4?/PRINT IFF ?4?/NOPRINT IFF ?4?/CRT +« 0x03c4…03c5 0x12 0x03c5…03c6 0x9c 0x03c6…03e2 »#ERR 1033,03,RPG ?4F'PRINT'?« 0x03e2…03e3 0x34 0x03e3…03e4 0xa5 0x03e4…0409 »// IF JOBQ-NO IF EVOKED-NO GOTO SKIP1« 0x0409…040a 0x2b 0x040a…040b 0xaa 0x040b…0435 »// IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'?« 0x0435…0436 0x26 0x0436…0437 0x8c 0x0437…0443 »// TAG SKIP1« 0x0443…0444 0x44 0x0444…0445 0xc4 0x0445…0489 »// IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'?« 0x0489…048a 0x0c 0x048a…048b 0xa9 0x048b…04b4 »// IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'?« 0x04b4…04b5 0x27 0x04b5…04b6 0xc0 0x04b6…04f6 »// IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'?« 0x04f6…04f7 0x10 0x04f7…04f8 0xb5 0x04f8…052d »// IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'?« 0x052d…052e 0x1b 0x052e…052f 0xce 0x052f…057d »// IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/PSOURCE IFF ?9?/NOSOURCE #ERR 1036,03,RPG +« 0x057d…057e 0x02 0x057e…057f 0x86 0x057f…0585 »?9F''?« 0x0585…0586 0x4a 0x0586…0587 0xc5 0x0587…05cc »// IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''?« 0x05cc…05cd 0x0b 0x05cd…05ce 0xb1 0x05ce…05ff »// IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''?« 0x05ff…0600 0x1f 0x0600…0601 0xb5 0x0601…0636 »// ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''?« 0x0636…0637 0x1b 0x0637…0638 0xc7 0x0638…067f »// IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'?« 0x067f…0680 0x09 0x0680…0681 0xce 0x0681…06cf »// IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'?« 0x06cf…06d0 0x02 0x06d0…06d1 0xc3 0x06d1…0714 »// IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'?« 0x0714…0715 0x0d 0x0715…0716 0xd0 0x0716…0766 »// IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? « 0x0766…0767 0xb8 0x0767…079f »// IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'?« 0x079f…07a0 0x18 0x07a0…07a1 0xbf 0x07a1…07e0 »// IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'?« 0x07e0…07e1 0x11 0x07e1…07e2 0xb6 0x07e2…0818 »// IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x0818…0819 0x1a 0x0819…081a 0xac 0x081a…0846 »// IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'?« 0x0846…0847 0x24 0x0847…0848 0x96 0x0848…085e »// IF ?19?/ GOTO DCTOK« 0x085e…085f 0x3a 0x085f…0860 0xb3 0x0860…0893 »// LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x0893…0894 0x1d 0x0894…0895 0x8d 0x0895…08a2 »// LOAD #RPDD« 0x08a2…08a3 0x43 0x08a3…08a4 0x86 0x08a4…08aa »// RUN« 0x08aa…08ab 0x4a 0x08ab…08ac 0xa7 0x08ac…08d3 »// IF '?L'451,1'?'/'1' #ERR 1066,03,RPG« 0x08d3…08d4 0x29 0x08d4…08d5 0x8c 0x08d5…08e1 »// TAG DCTOK« 0x08e1…08e2 0x44 0x08e2…08e3 0xc3 0x08e3…0926 »// IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'?« 0x0926…0927 0x0d 0x0927…0928 0xb2 0x0928…095a »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x095a…095b 0x1e 0x095b…095c 0xb2 0x095c…098e »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x098e…098f 0x1e 0x098f…0990 0xb2 0x0990…09c2 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x09c2…09c3 0x1e 0x09c3…09c4 0xb2 0x09c4…09f6 »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x09f6…09f7 0x1e 0x09f7…09f8 0xb0 0x09f8…0a28 »// LOCAL OFFSET-9,DATA-'?3?',BLANK-5,AREA-SYSTEM« 0x0a28…0a29 0x20 0x0a29…0a2a 0xb1 0x0a2a…0a5b »// LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM« 0x0a5b…0a5c 0x1f 0x0a5c…0a5d 0xb1 0x0a5d…0a8e »// LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM« 0x0a8e…0a8f 0x1f 0x0a8f…0a90 0xb1 0x0a90…0ac1 »// LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM« 0x0ac1…0ac2 0x1f 0x0ac2…0ac3 0xb1 0x0ac3…0af4 »// LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x0af4…0af5 0x1f 0x0af5…0af6 0xb2 0x0af6…0b28 »// LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x0b28…0b29 0x1e 0x0b29…0b2a 0xb2 0x0b2a…0b5c »// LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x0b5c…0b5d 0x1e 0x0b5d…0b5e 0xb1 0x0b5e…0b8f »// LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM« 0x0b8f…0b90 0x1f 0x0b90…0b91 0xb2 0x0b91…0bc3 »// LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM« 0x0bc3…0bc4 0x1e 0x0bc4…0bc5 0xb2 0x0bc5…0bf7 »// LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM« 0x0bf7…0bf8 0x1e 0x0bf8…0bf9 0xb2 0x0bf9…0c2b »// LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM« 0x0c2b…0c2c 0x1e 0x0c2c…0c2d 0xb2 0x0c2d…0c5f »// LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x0c5f…0c60 0x1e 0x0c60…0c61 0xb2 0x0c61…0c93 »// LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM« 0x0c93…0c94 0x1e 0x0c94…0c95 0xb2 0x0c95…0cc7 »// LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x0cc7…0cc8 0x1e 0x0cc8…0cc9 0xb3 0x0cc9…0cfc »// LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x0cfc…0cfd 0x1d 0x0cfd…0cfe 0xb2 0x0cfe…0d30 »// LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x0d30…0d31 0x1e 0x0d31…0d32 0xb2 0x0d32…0d64 »// LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM« 0x0d64…0d65 0x1e 0x0d65…0d66 0xb3 0x0d66…0d99 »// LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM« 0x0d99…0d9a 0x1d 0x0d9a…0d9b 0xb1 0x0d9b…0dcc »// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM« 0x0dcc…0dcd 0x09 0x0dcd…0dce 0x8e 0x0dce…0ddc »USED BY RPGSEU« 0x0ddc…0ddd 0x08 0x0ddd…0dde 0x94 0x0dde…0df2 »// LOAD #RPG,#RPGLIB« 0x0df2…0df3 0x3c 0x0df3…0df4 0xbc 0x0df4…0e30 »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x0e30…0e31 0x14 0x0e31…0e32 0xba 0x0e32…0e6c »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x0e6c…0e6d 0x16 0x0e6d…0e6e 0x9a 0x0e6e…0e88 »// IFF ?3?/DSM GOTO NOTDSM« 0x0e88…0e89 0x12 0x0e89…0e8a 0x9e 0x0e8a…0ea8 »CHECK IF DSM REQUESTED, IF YES« 0x0ea8…0ea9 0x06 0x0ea9…0eaa 0xbc 0x0eaa…0ee6 »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,LABEL-?1?,EXTEND-25« 0x0ee6…0ee7 0x14 0x0ee7…0ee8 0xbb 0x0ee8…0f23 »// FILE NAME-$WORK3,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x0f23…0f24 0x15 0x0f24…0f25 0x8d 0x0f25…0f32 »// TAG NOTDSM« 0x0f32…0f33 0x43 0x0f33…0f34 0xa6 0x0f34…0f5a »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x0f5a…0f5b 0x2a 0x0f5b…0f5c 0x98 0x0f5c…0f74 »// IF ?4?/CRT PRIORITY-0« 0x0f74…0f75 0x38 0x0f75…0f76 0x92 0x0f76…0f88 »// ELSE PRIORITY-1« 0x0f88…0f89 0x3e 0x0f89…0f8a 0xab 0x0f8a…0fb5 »// LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM« 0x0fb5…0fb6 0x25 0x0fb6…0fb7 0xbd 0x0fb7…0ff4 »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x0ff4…0ff5 0x13 0x0ff5…0ff6 0xa8 0x0ff6…101e »// MEMBER USER2-#RP#RXL2,LIBRARY-#RPGLIB« 0x101e…101f 0x1b 0x101f…1020 0x84 0x1020…1024 »@C1A« 0x1024…1025 0x09 0x1025…1026 0xc4 0x1026…106a »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+« 0x106a…106b 0x0c 0x106b…106c 0x8d 0x106c…1079 »DATADCT-?19?,« 0x1079…107a 0x43 0x107a…107b 0x96 0x107b…1091 »// IF ?7?/NEP NEP-YES,« 0x1091…1092 0x3a 0x1092…1093 0x8f 0x1093…10a2 »// ELSE NEP-NO,« 0x10a2…10a3 0x41 0x10a3…10a4 0x96 0x10a4…10ba »// IF ?20?/MRO MRO-YES« 0x10ba…10bb 0x3a 0x10bb…10bc 0x8e 0x10bc…10ca »// ELSE MRO-NO« 0x10ca…10cb 0x42 0x10cb…10cc 0x86 0x10cc…10d2 »// RUN« 0x10d2…10d3 0x4a 0x10d3…10d4 0xa8 0x10d4…10fc »// MEMBER USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x10fc…10fd 0x08 0x10fd…10fe 0x8b 0x10fe…1109 »RESET USER2« 0x1109…110a 0x08 0x110a…110b 0x84 0x110b…110f »@C1A« 0x110f…1110 0x09 0x1110…1111 0x96 0x1111…1127 »// EVALUATE P64,4=?CD?« 0x1127…1128 0x3a 0x1128…1129 0xae 0x1129…1157 »// IFF ?CD?/1008 IF ?5?/XREF IFF ?4?/NOPRINT +« 0x1157…1158 0x22 0x1158…1159 0xa1 0x1159…117a »INCLUDE RPGX,#RPGLIB ?1?,?18?,?2?« 0x117a…117b 0x2f 0x117b…117c 0xbb 0x117c…11b7 »// IFF ?CD?/1008 IF ?L'238,1'?/0 INCLUDE RPGR,#RPGLIB ?1?,+« 0x11b7…11b8 0x15 0x11b8…11b9 0x9d 0x11b9…11d6 »?18?,NOSAVE,?2?,?8?,,?13?,?4?« 0x11d6…11d7 0x33 0x11d7…11d8 0xa0 0x11d8…11f8 »// IFF ?L'237,1'?/Y GOTO SKIPDSM« 0x11f8…11f9 0x30 0x11f9…11fa 0x8e 0x11fa…1208 »// LOAD $MAINT« 0x1208…1209 0x42 0x1209…120a 0xae 0x120a…1238 »// FILE NAME-$WORK2,UNIT-F1,RETAIN-S,LABEL-?1?« 0x1238…1239 0x22 0x1239…123a 0x86 0x123a…1240 »// RUN« 0x1240…1241 0x4a 0x1241…1242 0xad 0x1242…126f »// COPY FROM-DISK,TO-?2?,RETAIN-R,FILE-$WORK2« 0x126f…1270 0x23 0x1270…1271 0x86 0x1271…1277 »// END« 0x1277…1278 0x4a 0x1278…1279 0x8e 0x1279…1287 »// TAG SKIPDSM« 0x1287…1288 0x42 0x1288…1289 0xb6 0x1289…12bf »// IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2« 0x12bf…12c0 0x1a 0x12c0…12c1 0x96 0x12c1…12d7 »// PRINTER CONTINUE-NO« 0x12d7…12d8 0x3a 0x12d8…12d9 0x8c 0x12d9…12e5 »// TAG SKIP2« 0x12e5…12e6 0x44 0x12e6…12e7 0x9d 0x12e7…1304 »// IFF ?L'14,3'?/CRT GOTO END« 0x1304…1305 0x33 0x1305…1306 0x9c 0x1306…1322 »// EVALUATE P30='?L'181,6'?'« 0x1322…1323 0x34 0x1323…1324 0x8d 0x1324…1331 »// INFOMSG NO« 0x1331…1332 0x36 0x1332…1333 0x84 0x1333…1337 »@D1A« 0x1337…1338 0x09 0x1338…1339 0xb5 0x1339…136e »// IFT DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1« 0x136e…136f 0x0e 0x136f…1370 0x84 0x1370…1374 »@D1A« 0x1374…1375 0x09 0x1375…1376 0xbf 0x1376…13b5 »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,?WS??L'181,6'?,CANCEL,CRT« 0x13b5…13b6 0x04 0x13b6…13b7 0x84 0x13b7…13bb »@D1A« 0x13bb…13bc 0x09 0x13bc…13bd 0xb4 0x13bd…13f1 »// IF DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1« 0x13f1…13f2 0x0f 0x13f2…13f3 0x84 0x13f3…13f7 »@D1A« 0x13f7…13f8 0x09 0x13f8…13f9 0x8a 0x13f9…1403 »// TAG END« 0x1403…1404 0x46 0x1404…1405 0x93 0x1405…1418 »// EVALUATE CD=?64?« 0x1418…1419 0x3d 0x1419…141a 0x89 0x141a…1423 »// RETURN« 0x1423…1424 0x47 0x1424…1425 0x00 0x1425…1440 f4 f0 7d 6f 6e f0 40 7b c5 d9 d9 40 f1 f0 f5 f3 6b f0 f3 6b d9 d7 c7 40 6f f1 f8 ┆40'?>0 #ERR 1053,03,RPG ?18┆ 0x1440…1460 c6 7d f4 f0 7d 6f 24 96 61 61 40 c9 c6 40 6f f1 f9 6f 61 40 c7 d6 e3 d6 40 c4 c3 e3 d6 d2 3a b3 ┆F'40'? o// IF ?19?/ GOTO DCTOK ·┆ 0x1460…1480 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f4 f3 6b c4 c1 e3 c1 60 7d 6f f1 f9 6f 7d 6b ┆// LOCAL OFFSET-443,DATA-'?19?',┆ 0x1480…14a0 c2 d3 c1 d5 d2 60 f8 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1d 8d 61 61 40 d3 d6 c1 c4 40 7b d9 d7 ┆BLANK-8,AREA-SYSTEM ý// LOAD #RP┆ 0x14a0…14c0 c4 c4 43 86 61 61 40 d9 e4 d5 4a a7 61 61 40 c9 c6 40 7d 6f d3 7d f4 f5 f1 6b f1 7d 6f 7d 61 7d ┆DDäf// RUN¢x// IF '?L'451,1'?'/'┆ 0x14c0…14e0 f1 7d 40 7b c5 d9 d9 40 f1 f0 f6 f6 6b f0 f3 6b d9 d7 c7 29 8c 61 61 40 e3 c1 c7 40 c4 c3 e3 d6 ┆1' #ERR 1066,03,RPG ð// TAG DCTO┆ 0x14e0…1500 d2 44 c3 61 61 40 c9 c6 c6 40 6f f2 f0 7d d5 d6 d4 d9 d6 7d 6f 61 d5 d6 d4 d9 d6 40 c9 c6 c6 40 ┆KàC// IFF ?20'NOMRO'?/NOMRO IFF ┆