|
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: »AUTOC «
└─⟦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⟧ ».AUTOC «
// 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 IS BLANK AND JOBQ OR // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ // HELP AUTOC ,?2'?CLIB?'?,?3'COMP'?,?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 AUTO/?21? * 1046 // LOCAL OFFSET-1,DATA-'RPGAUTOC',AREA-SYSTEM PROC NAME // EVALUATE P31='?L'9,5'?' STORE THE DSM VALUE USED // LOCAL OFFSET-9,DATA-'NODSM',AREA-SYSTEM SET THE DEFAULT FOR AUTOC // 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'COMP'?/COMP IFF ?3?/NOCOMP #ERR 1049,03,RPG ?3F'COMP'? // IFF ?4'PRINT'?/ IFF ?4?/CRT IFF ?4?/PRINT IFF ?4?/NOPRINT + #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?/NOSOURCE IFF ?9?/PSOURCE #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'? // LIBRARY NAME-#RPGLIB // 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-213,DATA-'?1?',BLANK-8,AREA-SYSTEM #AUTO WILL OVERLAY THIS // LOCAL OFFSET-221,DATA-'?2?',BLANK-8,AREA-SYSTEM AREA IF SOURCE IS CATALOGED // LOCAL OFFSET-89,DATA-'?3?',BLANK-6,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-'A96',BLANK-4,AREA-SYSTEM USED BY RPGSEU // LOAD #AUTO,#RPGLIB // FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25 // FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,EXTEND-25 // 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 @D1A // 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 // EVALUATE P64,4=?CD? // MEMBER USER2-#RP#CPL2,LIBRARY-#RPGLIB RESTORE USER2 LEVEL @D1A // IF ?5?/XREF IFF ?CD?/1008 IFF ?4?/NOPRINT + INCLUDE RPGX,#RPGLIB ?L'213,8'?,?18?,?L'221,8'?,?L'169,8'? // IF ?L'238,1'?/0 IFF ?CD?/1008 INCLUDE RPGR,#RPGLIB + ?L'213,8'?,?18?,NOSAVE,?L'221,8'?,?8?,,?13?,?4?,?L'169,8'? // 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 // IFT DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1 // IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,?WS??L'181,6'?,CANCEL,CRT // IF DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1 // TAG END // LOCAL OFFSET-9,DATA-'?31?',BLANK-5,AREA-SYSTEM RESET DSM VALUE // 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 0x9e 0x0065…0083 »IF P1 SPECIFIED PROCESS DIRECT« 0x0083…0084 0x08 0x0084…0085 0xa5 0x0085…00aa »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x00aa…00ab 0x05 0x00ab…00ac 0x9a 0x00ac…00c6 »IF P1 IS BLANK AND JOBQ OR« 0x00c6…00c7 0x0c 0x00c7…00c8 0x9a 0x00c8…00e2 »// MSG ?WS?,?M'2100,1,75'?« 0x00e2…00e3 0x36 0x00e3…00e4 0x89 0x00e4…00ed »// RETURN« 0x00ed…00ee 0x47 0x00ee…00ef 0x8c 0x00ef…00fb »// TAG NJOBQ« 0x00fb…00fc 0x44 0x00fc…00fd 0xbd 0x00fd…013a »// HELP AUTOC ,?2'?CLIB?'?,?3'COMP'?,?4'PRINT'?,?5'NOXREF'?,+« 0x013a…013b 0x13 0x013b…013c 0xc0 0x013c…017c »?6'0'?,?7'NONEP'?,?8?,?9?,?10?,?11?,?12'NOHALT'?,?13'REPLACE'?,+« 0x017c…017d 0x10 0x017d…017e 0xc2 0x017e…01c0 »?14'LINK'?,?15'NOOBJECT'?,?16?,?17'GEN'?,?18'40'?,?19?,?20'NOMRO'?« 0x01c0…01c1 0x0e 0x01c1…01c2 0x89 0x01c2…01cb »// RETURN« 0x01cb…01cc 0x47 0x01cc…01cd 0x8f 0x01cd…01dc »// TAG PUTPARMS« 0x01dc…01dd 0x41 0x01dd…01de 0xaf 0x01de…020d »// IF JOBQ-NO IF EVOKED-NO IFF AUTO/?21? * 1046« 0x020d…020e 0x21 0x020e…020f 0xad 0x020f…023c »// LOCAL OFFSET-1,DATA-'RPGAUTOC',AREA-SYSTEM« 0x023c…023d 0x0b 0x023d…023e 0x89 0x023e…0247 »PROC NAME« 0x0247…0248 0x0f 0x0248…0249 0x9a 0x0249…0263 »// EVALUATE P31='?L'9,5'?'« 0x0263…0264 0x16 0x0264…0265 0x98 0x0265…027d »STORE THE DSM VALUE USED« 0x027d…027e 0x08 0x027e…027f 0xaa 0x027f…02a9 »// LOCAL OFFSET-9,DATA-'NODSM',AREA-SYSTEM« 0x02a9…02aa 0x06 0x02aa…02ab 0x99 0x02ab…02c4 »SET THE DEFAULT FOR AUTOC« 0x02c4…02c5 0x07 0x02c5…02c6 0xaa 0x02c6…02f0 »// LOCAL OFFSET-237,DATA-'N00',AREA-SYSTEM« 0x02f0…02f1 0x0e 0x02f1…02f2 0x90 0x02f2…0302 »USED BY COMPILER« 0x0302…0303 0x08 0x0303…0304 0xb8 0x0304…033c »// IFF ?2?/ IFF DATAF1-?2? #ERR 1060,03,RPG ?2F'?CLIB?'?« 0x033c…033d 0x18 0x033d…033e 0xaf 0x033e…036d »// IFF SOURCE-'?1?,?2'?CLIB?'?' #ERR 1051,3,RPG« 0x036d…036e 0x21 0x036e…036f 0xc0 0x036f…03af »// IFF ?3'COMP'?/COMP IFF ?3?/NOCOMP #ERR 1049,03,RPG ?3F'COMP'?« 0x03af…03b0 0x10 0x03b0…03b1 0xbe 0x03b1…03ef »// IFF ?4'PRINT'?/ IFF ?4?/CRT IFF ?4?/PRINT IFF ?4?/NOPRINT +« 0x03ef…03f0 0x12 0x03f0…03f1 0x9c 0x03f1…040d »#ERR 1033,03,RPG ?4F'PRINT'?« 0x040d…040e 0x34 0x040e…040f 0xa5 0x040f…0434 »// IF JOBQ-NO IF EVOKED-NO GOTO SKIP1« 0x0434…0435 0x2b 0x0435…0436 0xaa 0x0436…0460 »// IF ?4?/CRT #ERR 1065,03,RPG ?4F'PRINT'?« 0x0460…0461 0x26 0x0461…0462 0x8c 0x0462…046e »// TAG SKIP1« 0x046e…046f 0x44 0x046f…0470 0xc4 0x0470…04b4 »// IFF ?5'NOXREF'?/NOXREF IFF ?5?/XREF #ERR 1034,03,RPG ?5F'NOXREF'?« 0x04b4…04b5 0x0c 0x04b5…04b6 0xa9 0x04b6…04df »// IFF ?6'0'?>-1 #ERR 1054,03,RPG ?6F'0'?« 0x04df…04e0 0x27 0x04e0…04e1 0xc0 0x04e1…0521 »// IFF ?7'NONEP'?/NONEP IFF ?7?/NEP #ERR 1035,03,RPG ?7F'NONEP'?« 0x0521…0522 0x10 0x0522…0523 0xb5 0x0523…0558 »// IFF ?8?/ IFF DATAF1-?8? #ERR 1061,03,RPG ?8F'?2?'?« 0x0558…0559 0x1b 0x0559…055a 0xce 0x055a…05a8 »// IFF ?9?/ IFF ?9?/SOURCE IFF ?9?/NOSOURCE IFF ?9?/PSOURCE #ERR 1036,03,RPG +« 0x05a8…05a9 0x02 0x05a9…05aa 0x86 0x05aa…05b0 »?9F''?« 0x05b0…05b1 0x4a 0x05b1…05b2 0xc5 0x05b2…05f7 »// IFF ?10?/ IFF ?10?/DEBUG IFF ?10?/NODEBUG #ERR 1037,03,RPG ?10F''?« 0x05f7…05f8 0x0b 0x05f8…05f9 0xb1 0x05f9…062a »// IFF ?11?/ IFF 65>?11? #ERR 1038,03,RPG ?11F''?« 0x062a…062b 0x1f 0x062b…062c 0xb5 0x062c…0661 »// ELSE IFF ?11?/ IFF ?11?>1 #ERR 1038,03,RPG ?11F''?« 0x0661…0662 0x1b 0x0662…0663 0xc7 0x0663…06aa »// IFF ?12'NOHALT'?/NOHALT IFF ?12?/HALT #ERR 1039,03,RPG ?12F'NOHALT'?« 0x06aa…06ab 0x09 0x06ab…06ac 0xce 0x06ac…06fa »// IFF ?13'REPLACE'?/REPLACE IFF ?13?/NOREPLAC #ERR 1040,03,RPG ?13F'REPLACE'?« 0x06fa…06fb 0x02 0x06fb…06fc 0xc3 0x06fc…073f »// IFF ?14'LINK'?/LINK IFF ?14?/NOLINK #ERR 1041,03,RPG ?14F'LINK'?« 0x073f…0740 0x0d 0x0740…0741 0xd0 0x0741…0791 »// IFF ?15'NOOBJECT'?/NOOBJECT IFF ?15?/OBJECT #ERR 1042,03,RPG ?15F'NOOBJECT'? « 0x0791…0792 0xb8 0x0792…07ca »// IFF ?16?/ IFF DATAF1-?16? #ERR 1062,03,RPG ?16F'?2?'?« 0x07ca…07cb 0x18 0x07cb…07cc 0xbf 0x07cc…080b »// IFF ?17'GEN'?/GEN IFF ?17?/NOGEN #ERR 1043,03,RPG ?17F'GEN'?« 0x080b…080c 0x11 0x080c…080d 0xb6 0x080d…0843 »// IF ?17?/NOGEN LOCAL OFFSET-238,DATA-'1',AREA-SYSTEM« 0x0843…0844 0x1a 0x0844…0845 0xac 0x0845…0871 »// IFF ?18'40'?>0 #ERR 1053,03,RPG ?18F'40'?« 0x0871…0872 0x24 0x0872…0873 0x96 0x0873…0889 »// IF ?19?/ GOTO DCTOK« 0x0889…088a 0x3a 0x088a…088b 0xb3 0x088b…08be »// LOCAL OFFSET-443,DATA-'?19?',BLANK-8,AREA-SYSTEM« 0x08be…08bf 0x1d 0x08bf…08c0 0x8d 0x08c0…08cd »// LOAD #RPDD« 0x08cd…08ce 0x43 0x08ce…08cf 0x86 0x08cf…08d5 »// RUN« 0x08d5…08d6 0x4a 0x08d6…08d7 0xa7 0x08d7…08fe »// IF '?L'451,1'?'/'1' #ERR 1066,03,RPG« 0x08fe…08ff 0x29 0x08ff…0900 0x8c 0x0900…090c »// TAG DCTOK« 0x090c…090d 0x44 0x090d…090e 0xc3 0x090e…0951 »// IFF ?20'NOMRO'?/NOMRO IFF ?20?/MRO #ERR 1045,03,RPG ?20F'NOMRO'?« 0x0951…0952 0x0d 0x0952…0953 0x97 0x0953…096a »// LIBRARY NAME-#RPGLIB« 0x096a…096b 0x39 0x096b…096c 0xb2 0x096c…099e »// LOCAL OFFSET-137,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x099e…099f 0x1e 0x099f…09a0 0xb2 0x09a0…09d2 »// LOCAL OFFSET-145,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x09d2…09d3 0x1e 0x09d3…09d4 0xb2 0x09d4…0a06 »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x0a06…0a07 0x1e 0x0a07…0a08 0xb2 0x0a08…0a3a »// LOCAL OFFSET-419,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x0a3a…0a3b 0x1e 0x0a3b…0a3c 0xb2 0x0a3c…0a6e »// LOCAL OFFSET-213,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x0a6e…0a6f 0x02 0x0a6f…0a70 0x97 0x0a70…0a87 »#AUTO WILL OVERLAY THIS« 0x0a87…0a88 0x05 0x0a88…0a89 0xb2 0x0a89…0abb »// LOCAL OFFSET-221,DATA-'?2?',BLANK-8,AREA-SYSTEM« 0x0abb…0abc 0x02 0x0abc…0abd 0x9c 0x0abd…0ad9 »AREA IF SOURCE IS CATALOGED « 0x0ad9…0ada 0xb1 0x0ada…0b0b »// LOCAL OFFSET-89,DATA-'?3?',BLANK-6,AREA-SYSTEM« 0x0b0b…0b0c 0x1f 0x0b0c…0b0d 0xb1 0x0b0d…0b3e »// LOCAL OFFSET-14,DATA-'?4?',BLANK-7,AREA-SYSTEM« 0x0b3e…0b3f 0x1f 0x0b3f…0b40 0xb1 0x0b40…0b71 »// LOCAL OFFSET-21,DATA-'?5?',BLANK-6,AREA-SYSTEM« 0x0b71…0b72 0x1f 0x0b72…0b73 0xb1 0x0b73…0ba4 »// LOCAL OFFSET-27,DATA-'?6?',BLANK-2,AREA-SYSTEM« 0x0ba4…0ba5 0x1f 0x0ba5…0ba6 0xb1 0x0ba6…0bd7 »// LOCAL OFFSET-29,DATA-'?7?',BLANK-5,AREA-SYSTEM« 0x0bd7…0bd8 0x1f 0x0bd8…0bd9 0xb2 0x0bd9…0c0b »// LOCAL OFFSET-153,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x0c0b…0c0c 0x1e 0x0c0c…0c0d 0xb2 0x0c0d…0c3f »// LOCAL OFFSET-427,DATA-'?8?',BLANK-8,AREA-SYSTEM« 0x0c3f…0c40 0x1e 0x0c40…0c41 0xb1 0x0c41…0c72 »// LOCAL OFFSET-34,DATA-'?9?',BLANK-8,AREA-SYSTEM« 0x0c72…0c73 0x1f 0x0c73…0c74 0xb2 0x0c74…0ca6 »// LOCAL OFFSET-42,DATA-'?10?',BLANK-7,AREA-SYSTEM« 0x0ca6…0ca7 0x1e 0x0ca7…0ca8 0xb2 0x0ca8…0cda »// LOCAL OFFSET-49,DATA-'?11?',BLANK-2,AREA-SYSTEM« 0x0cda…0cdb 0x1e 0x0cdb…0cdc 0xb2 0x0cdc…0d0e »// LOCAL OFFSET-51,DATA-'?12?',BLANK-6,AREA-SYSTEM« 0x0d0e…0d0f 0x1e 0x0d0f…0d10 0xb2 0x0d10…0d42 »// LOCAL OFFSET-57,DATA-'?13?',BLANK-8,AREA-SYSTEM« 0x0d42…0d43 0x1e 0x0d43…0d44 0xb2 0x0d44…0d76 »// LOCAL OFFSET-65,DATA-'?14?',BLANK-6,AREA-SYSTEM« 0x0d76…0d77 0x1e 0x0d77…0d78 0xb2 0x0d78…0daa »// LOCAL OFFSET-71,DATA-'?15?',BLANK-8,AREA-SYSTEM« 0x0daa…0dab 0x1e 0x0dab…0dac 0xb3 0x0dac…0ddf »// LOCAL OFFSET-161,DATA-'?16?',BLANK-8,AREA-SYSTEM« 0x0ddf…0de0 0x1d 0x0de0…0de1 0xb2 0x0de1…0e13 »// LOCAL OFFSET-79,DATA-'?17?',BLANK-6,AREA-SYSTEM« 0x0e13…0e14 0x1e 0x0e14…0e15 0xb2 0x0e15…0e47 »// LOCAL OFFSET-85,DATA-'?18?',BLANK-4,AREA-SYSTEM« 0x0e47…0e48 0x1e 0x0e48…0e49 0xb3 0x0e49…0e7c »// LOCAL OFFSET-453,DATA-'?20?',BLANK-5,AREA-SYSTEM« 0x0e7c…0e7d 0x1d 0x0e7d…0e7e 0xb1 0x0e7e…0eaf »// LOCAL OFFSET-95,DATA-'A96',BLANK-4,AREA-SYSTEM« 0x0eaf…0eb0 0x06 0x0eb0…0eb1 0x8e 0x0eb1…0ebf »USED BY RPGSEU« 0x0ebf…0ec0 0x0b 0x0ec0…0ec1 0x95 0x0ec1…0ed6 »// LOAD #AUTO,#RPGLIB« 0x0ed6…0ed7 0x3b 0x0ed7…0ed8 0xbc 0x0ed8…0f14 »// FILE NAME-$SOURCE,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x0f14…0f15 0x14 0x0f15…0f16 0xba 0x0f16…0f50 »// FILE NAME-$WORK,RETAIN-S,DISP-NEW,BLOCKS-?18?,EXTEND-25« 0x0f50…0f51 0x16 0x0f51…0f52 0xb2 0x0f52…0f84 »// FILE NAME-$WORK2,RETAIN-J,BLOCKS-?18?,EXTEND-25« 0x0f84…0f85 0x1e 0x0f85…0f86 0xa6 0x0f86…0fac »// PRINTER NAME-$PRINTDM,CONTINUE-YES,« 0x0fac…0fad 0x2a 0x0fad…0fae 0x98 0x0fae…0fc6 »// IF ?4?/CRT PRIORITY-0« 0x0fc6…0fc7 0x38 0x0fc7…0fc8 0x92 0x0fc8…0fda »// ELSE PRIORITY-1« 0x0fda…0fdb 0x3e 0x0fdb…0fdc 0xab 0x0fdc…1007 »// LOCAL OFFSET-189,DATA-'?CD?',AREA-SYSTEM« 0x1007…1008 0x25 0x1008…1009 0xbd 0x1009…1046 »// MEMBER PROGRAM1-#RP#CPL1,PROGRAM2-#RP#CPL2,LIBRARY-#RPGLIB« 0x1046…1047 0x13 0x1047…1048 0xa8 0x1048…1070 »// MEMBER USER2-#RP#RXL2,LIBRARY-#RPGLIB« 0x1070…1071 0x1b 0x1071…1072 0x84 0x1072…1076 »@D1A« 0x1076…1077 0x09 0x1077…1078 0xc4 0x1078…10bc »// COMPILE INLIB-?2'?CLIB?'?,OUTLIB-?8'?2?'?,MRTMAX-?6?,SOURCE-?1?,+« 0x10bc…10bd 0x0c 0x10bd…10be 0x8d 0x10be…10cb »DATADCT-?19?,« 0x10cb…10cc 0x43 0x10cc…10cd 0x96 0x10cd…10e3 »// IF ?7?/NEP NEP-YES,« 0x10e3…10e4 0x3a 0x10e4…10e5 0x8f 0x10e5…10f4 »// ELSE NEP-NO,« 0x10f4…10f5 0x41 0x10f5…10f6 0x96 0x10f6…110c »// IF ?20?/MRO MRO-YES« 0x110c…110d 0x3a 0x110d…110e 0x8e 0x110e…111c »// ELSE MRO-NO« 0x111c…111d 0x42 0x111d…111e 0x86 0x111e…1124 »// RUN« 0x1124…1125 0x4a 0x1125…1126 0x96 0x1126…113c »// EVALUATE P64,4=?CD?« 0x113c…113d 0x3a 0x113d…113e 0xa8 0x113e…1166 »// MEMBER USER2-#RP#CPL2,LIBRARY-#RPGLIB« 0x1166…1167 0x03 0x1167…1168 0x93 0x1168…117b »RESTORE USER2 LEVEL« 0x117b…117c 0x06 0x117c…117d 0x84 0x117d…1181 »@D1A« 0x1181…1182 0x08 0x1182…1183 0xae 0x1183…11b1 »// IF ?5?/XREF IFF ?CD?/1008 IFF ?4?/NOPRINT +« 0x11b1…11b2 0x22 0x11b2…11b3 0xba 0x11b3…11ed »INCLUDE RPGX,#RPGLIB ?L'213,8'?,?18?,?L'221,8'?,?L'169,8'?« 0x11ed…11ee 0x16 0x11ee…11ef 0xb7 0x11ef…1226 »// IF ?L'238,1'?/0 IFF ?CD?/1008 INCLUDE RPGR,#RPGLIB +« 0x1226…1227 0x19 0x1227…1228 0xba 0x1228…1262 »?L'213,8'?,?18?,NOSAVE,?L'221,8'?,?8?,,?13?,?4?,?L'169,8'?« 0x1262…1263 0x16 0x1263…1264 0xb6 0x1264…129a »// IF '?L'189,4'?'/'2040' IFF ?L'14,3'?/CRT GOTO SKIP2« 0x129a…129b 0x1a 0x129b…129c 0x96 0x129c…12b2 »// PRINTER CONTINUE-NO« 0x12b2…12b3 0x3a 0x12b3…12b4 0x8c 0x12b4…12c0 »// TAG SKIP2« 0x12c0…12c1 0x44 0x12c1…12c2 0x9d 0x12c2…12df »// IFF ?L'14,3'?/CRT GOTO END« 0x12df…12e0 0x33 0x12e0…12e1 0x9c 0x12e1…12fd »// EVALUATE P30='?L'181,6'?'« 0x12fd…12fe 0x34 0x12fe…12ff 0x8d 0x12ff…130c »// INFOMSG NO« 0x130c…130d 0x43 0x130d…130e 0xb5 0x130e…1343 »// IFT DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1« 0x1343…1344 0x1b 0x1344…1345 0xbf 0x1345…1384 »// IFF ?L'181,6'?/ COPYPRT ?L'181,6'?,?WS??L'181,6'?,CANCEL,CRT« 0x1384…1385 0x11 0x1385…1386 0xb4 0x1386…13ba »// IF DATAF1-?WS??L'181,6'? DELETE ?WS??L'181,6'?,F1« 0x13ba…13bb 0x1c 0x13bb…13bc 0x8a 0x13bc…13c6 »// TAG END« 0x13c6…13c7 0x46 0x13c7…13c8 0xb1 0x13c8…13f9 »// LOCAL OFFSET-9,DATA-'?31?',BLANK-5,AREA-SYSTEM« 0x13f9…13fa 0x04 0x13fa…13fb 0x8f 0x13fb…140a »RESET DSM VALUE« 0x140a…140b 0x0c 0x140b…140c 0x93 0x140c…141f »// EVALUATE CD=?64?« 0x141f…1420 0x3d 0x1420…1421 0x89 0x1421…142a »// RETURN« 0x142a…142b 0x47 0x142b…142c 0x00 0x142c…1440 f3 f8 6b c4 c1 e3 c1 60 7d f1 7d 6b c1 d9 c5 c1 60 e2 e8 e2 ┆38,DATA-'1',AREA-SYS┆ 0x1440…1460 e3 c5 d4 1a ac 61 61 40 c9 c6 c6 40 6f f1 f8 7d f4 f0 7d 6f 6e f0 40 7b c5 d9 d9 40 f1 f0 f5 f3 ┆TEM Ð// IFF ?18'40'?>0 #ERR 1053┆ 0x1460…1480 6b f0 f3 6b d9 d7 c7 40 6f f1 f8 c6 7d f4 f0 7d 6f 24 96 61 61 40 c9 c6 40 6f f1 f9 6f 61 40 c7 ┆,03,RPG ?18F'40'? o// IF ?19?/ G┆ 0x1480…14a0 d6 e3 d6 40 c4 c3 e3 d6 d2 3a b3 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f4 f3 6b c4 ┆OTO DCTOK ·// LOCAL OFFSET-443,D┆ 0x14a0…14c0 c1 e3 c1 60 7d 6f f1 f9 6f 7d 6b c2 d3 c1 d5 d2 60 f8 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1d 8d ┆ATA-'?19?',BLANK-8,AREA-SYSTEM ý┆ 0x14c0…14e0 61 61 40 d3 d6 c1 c4 40 7b d9 d7 c4 c4 43 86 61 61 40 d9 e4 d5 4a a7 61 61 40 c9 c6 40 7d 6f d3 ┆// LOAD #RPDDäf// RUN¢x// IF '?L┆ 0x14e0…1500 7d f4 f5 f1 6b f1 7d 6f 7d 61 7d f1 7d 40 7b c5 d9 d9 40 f1 f0 f6 f6 6b f0 f3 6b d9 d7 c7 29 8c ┆'451,1'?'/'1' #ERR 1066,03,RPG ð┆