|
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: 3840 (0xf00)
Notes: MEMBER_P, Member_Text
Names: »RPG «
└─⟦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⟧ ».RPG «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPG' ******************** * * * THIS PROCEDURE IS SUPPORTED ONLY FOR COMPATIBILITY WITH S/34. IT * * STORES ANY PARAMETER VALUES UNIQUE TO THIS PROCEDURE AND THEN * * CALLS THE RPGC PROCEDURE. PARAMETERS 4, 8, AND 10 REQUIRE * * 'TRANSLATION' SO THAT RPGC CAN HANDLE THEM. * * * * RPG RPGC * * P4=NOHALT P12=HOHALT, P13=NOREPLAC * * P4=NOSTOP P12=NOHALT, P13=REPLACE * * P4=REPLACE P12=HALT, P13=REPLACE * * P4=HALT P12=HALT, P13=NOREPLAC * * * * P8=YES P7=NEP * * P8=NO P7=NONEP * * * * P10(SPECIAL OPTIONS) * * ='10' (PUT ON JOBQ IN RPG) * * ='01' P5=XREF * * * * CHANGE ACTIVITY: * * 06/03/84 CC6116 'RPG' IS PASSED AS PARAMETER 21 TO RPGC * ***************************************************************************** // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB // IFF ?1?/ GOTO NAMPRES ************************************************* * IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR * ************************************************* // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ ********************************************** * ELSE CALL HELP * ********************************************** // HELP RPG // RETURN ********************************************** * PUT POSITIONAL PARMETERS IN THE LOCAL AREA * ********************************************** // TAG NAMPRES // LOCAL OFFSET-1,DATA-'RPG',BLANK-384,AREA-SYSTEM // LOCAL OFFSET-229,DATA-'?10'00000000'?',AREA-SYSTEM // IFF ?L'229,1'?/1 LOCAL OFFSET-229,DATA-'0',AREA-SYSTEM // ELSE JOBQ #RPGLIB,RPG,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,0?L'230,7'? // IF ?L'229,1'?/1 RETURN // IF JOBQ-NO IF EVOKED-NO * 1017 // LOCAL OFFSET-51,DATA-'HALT NOREPLAC',AREA-SYSTEM // IF ?4?/NOHALT LOCAL OFFSET-51,DATA-'?4?',AREA-SYSTEM // IF ?4?/NOSTOP LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM // IF ?4?/REPLACE LOCAL OFFSET-57,DATA-'REPLACE ',AREA-SYSTEM // IF ?8?/YES LOCAL OFFSET-29,DATA-'NEP ',AREA-SYSTEM // ELSE LOCAL OFFSET-29,DATA-'NONEP',AREA-SYSTEM // IF ?L'230,1'?/1 LOCAL OFFSET-21,DATA-'XREF ',AREA-SYSTEM // ELSE LOCAL OFFSET-21,DATA-'NOXREF',AREA-SYSTEM ************************************************************* * PASS CONTROL TO THE PROCEDURE RPGC. TELL RPGC THAT IT * * WAS CALLED BY RPG BY PASSING 'RPG' AS PARAMETER 21. * ************************************************************* // INCLUDE RPGC,#RPGLIB ?1?,?5'?CLIB?'?,,,?L'21,6'?,?7?,?L'29,5'?,+ ?6'?CLIB?'?,,,,?L'51,6'?,?L'57,8'?,,,,?9?,?2?,,,RPG // RETURN ***************************************************************************** * * * RPG PGNAME,$SOURCE,$WORK,NOHALT,INLIB,OUTLIB,MRTMAX,NEP,NOGEN,SPCLOPT * * * * THIS PROCEDURE EXECUTES THE RPG AUTO REPORT PROGRAM AND CONDITIONALLY * * EXECUTES THE RPG COMPILER, THE RPG CROSS-REFERENCE PROGRAM, AND THE * * CONSOLE SCREEN FORMAT GENERATOR. * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING- * * 1ST - PROGRAM NAME, (REQUIRED), * * 2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40, * * 3RD - # BLOCKS FOR $WORK FILE, DEFAULT- 40, * * 4TH - HALT OPTIONS, TERMINAL DIAGS AND/OR DUP MEMBERS. DEFAULT-HALT * * 5TH - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY * * 6TH - OUTPUT LIBRARY, DEFAULT- CURRENT LIBRARY * * 7TH - (MRT) MAX # OF ACTIVE REQUESTING WORKSTATIONS, DEFAULT- 0, * * 8TH - NEP ATTRIBUTE, DEFAULT- NO, * * 9TH - GENERATE CONSOLE SCREEN FORMATS, DEFAULT- YES, * * 10TH - SPECIAL OPTIONS CHOICES, DEFAULT- 00000000 (NONE) * * * * RPG AND AUTO REPORT ARE RESERVING BYTES 1 - 256 OF THE LOCAL AREA * * FOR THEIR USE. * * * *****************************************************************************
0x000…001 0xcd 0x001…04e »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPG' ********************« 0x04e…04f 0x03 0x04f…050 0x81 0x050…051 »*« 0x051…052 0x4b 0x052…053 0x81 0x053…054 »*« 0x054…055 0x03 0x055…056 0x81 0x056…057 »*« 0x057…058 0x02 0x058…059 0xbd 0x059…096 »THIS PROCEDURE IS SUPPORTED ONLY FOR COMPATIBILITY WITH S/34.« 0x096…097 0x02 0x097…098 0x82 0x098…09a »IT« 0x09a…09b 0x08 0x09b…09c 0x81 0x09c…09d »*« 0x09d…09e 0x03 0x09e…09f 0x81 0x09f…0a0 »*« 0x0a0…0a1 0x02 0x0a1…0a2 0xbd 0x0a2…0df »STORES ANY PARAMETER VALUES UNIQUE TO THIS PROCEDURE AND THEN« 0x0df…0e0 0x0c 0x0e0…0e1 0x81 0x0e1…0e2 »*« 0x0e2…0e3 0x03 0x0e3…0e4 0x81 0x0e4…0e5 »*« 0x0e5…0e6 0x02 0x0e6…0e7 0x99 0x0e7…100 »CALLS THE RPGC PROCEDURE.« 0x100…101 0x02 0x101…102 0x9f 0x102…121 »PARAMETERS 4, 8, AND 10 REQUIRE« 0x121…122 0x0f 0x122…123 0x81 0x123…124 »*« 0x124…125 0x03 0x125…126 0x81 0x126…127 »*« 0x127…128 0x02 0x128…129 0xab 0x129…154 »'TRANSLATION' SO THAT RPGC CAN HANDLE THEM.« 0x154…155 0x1e 0x155…156 0x81 0x156…157 »*« 0x157…158 0x03 0x158…159 0x81 0x159…15a »*« 0x15a…15b 0x4b 0x15b…15c 0x81 0x15c…15d »*« 0x15d…15e 0x03 0x15e…15f 0x81 0x15f…160 »*« 0x160…161 0x0a 0x161…162 0x83 0x162…165 »RPG« 0x165…166 0x20 0x166…167 0x84 0x167…16b »RPGC« 0x16b…16c 0x1a 0x16c…16d 0x81 0x16d…16e »*« 0x16e…16f 0x03 0x16f…170 0x81 0x170…171 »*« 0x171…172 0x05 0x172…173 0x89 0x173…17c »P4=NOHALT« 0x17c…17d 0x16 0x17d…17e 0x98 0x17e…196 »P12=HOHALT, P13=NOREPLAC« 0x196…197 0x0f 0x197…198 0x81 0x198…199 »*« 0x199…19a 0x03 0x19a…19b 0x81 0x19b…19c »*« 0x19c…19d 0x05 0x19d…19e 0x89 0x19e…1a7 »P4=NOSTOP« 0x1a7…1a8 0x16 0x1a8…1a9 0x97 0x1a9…1c0 »P12=NOHALT, P13=REPLACE« 0x1c0…1c1 0x10 0x1c1…1c2 0x81 0x1c2…1c3 »*« 0x1c3…1c4 0x03 0x1c4…1c5 0x81 0x1c5…1c6 »*« 0x1c6…1c7 0x05 0x1c7…1c8 0x8a 0x1c8…1d2 »P4=REPLACE« 0x1d2…1d3 0x15 0x1d3…1d4 0x95 0x1d4…1e9 »P12=HALT, P13=REPLACE« 0x1e9…1ea 0x12 0x1ea…1eb 0x81 0x1eb…1ec »*« 0x1ec…1ed 0x03 0x1ed…1ee 0x81 0x1ee…1ef »*« 0x1ef…1f0 0x05 0x1f0…1f1 0x87 0x1f1…1f8 »P4=HALT« 0x1f8…1f9 0x18 0x1f9…1fa 0x96 0x1fa…210 »P12=HALT, P13=NOREPLAC« 0x210…211 0x11 0x211…212 0x81 0x212…213 »*« 0x213…214 0x03 0x214…215 0x81 0x215…216 »*« 0x216…217 0x4b 0x217…218 0x81 0x218…219 »*« 0x219…21a 0x03 0x21a…21b 0x81 0x21b…21c »*« 0x21c…21d 0x05 0x21d…21e 0x86 0x21e…224 »P8=YES« 0x224…225 0x19 0x225…226 0x86 0x226…22c »P7=NEP« 0x22c…22d 0x21 0x22d…22e 0x81 0x22e…22f »*« 0x22f…230 0x03 0x230…231 0x81 0x231…232 »*« 0x232…233 0x05 0x233…234 0x85 0x234…239 »P8=NO« 0x239…23a 0x1a 0x23a…23b 0x88 0x23b…243 »P7=NONEP« 0x243…244 0x1f 0x244…245 0x81 0x245…246 »*« 0x246…247 0x03 0x247…248 0x81 0x248…249 »*« 0x249…24a 0x4b 0x24a…24b 0x81 0x24b…24c »*« 0x24c…24d 0x03 0x24d…24e 0x81 0x24e…24f »*« 0x24f…250 0x05 0x250…251 0x94 0x251…265 »P10(SPECIAL OPTIONS)« 0x265…266 0x32 0x266…267 0x81 0x267…268 »*« 0x268…269 0x03 0x269…26a 0x81 0x26a…26b »*« 0x26b…26c 0x08 0x26c…26d 0x9a 0x26d…287 »='10' (PUT ON JOBQ IN RPG)« 0x287…288 0x29 0x288…289 0x81 0x289…28a »*« 0x28a…28b 0x03 0x28b…28c 0x81 0x28c…28d »*« 0x28d…28e 0x08 0x28e…28f 0x85 0x28f…294 »='01'« 0x294…295 0x17 0x295…296 0x87 0x296…29d »P5=XREF« 0x29d…29e 0x20 0x29e…29f 0x81 0x29f…2a0 »*« 0x2a0…2a1 0x03 0x2a1…2a2 0x81 0x2a2…2a3 »*« 0x2a3…2a4 0x4b 0x2a4…2a5 0x81 0x2a5…2a6 »*« 0x2a6…2a7 0x03 0x2a7…2a8 0x81 0x2a8…2a9 »*« 0x2a9…2aa 0x05 0x2aa…2ab 0x90 0x2ab…2bb »CHANGE ACTIVITY:« 0x2bb…2bc 0x36 0x2bc…2bd 0x81 0x2bd…2be »*« 0x2be…2bf 0x03 0x2bf…2c0 0x81 0x2c0…2c1 »*« 0x2c1…2c2 0x05 0x2c2…2c3 0xb7 0x2c3…2fa »06/03/84 CC6116 'RPG' IS PASSED AS PARAMETER 21 TO RPGC« 0x2fa…2fb 0x0f 0x2fb…2fc 0x81 0x2fc…2fd »*« 0x2fd…2fe 0x03 0x2fe…2ff 0xcd 0x2ff…34c »*****************************************************************************« 0x34c…34d 0x03 0x34d…34e 0xa8 0x34e…376 »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x376…377 0x28 0x377…378 0x8b 0x378…383 »// IFF ?1?/« 0x383…384 0x02 0x384…385 0x8c 0x385…391 »GOTO NAMPRES« 0x391…392 0x37 0x392…393 0xb1 0x393…3c4 »*************************************************« 0x3c4…3c5 0x1f 0x3c5…3c6 0x81 0x3c6…3c7 »*« 0x3c7…3c8 0x02 0x3c8…3c9 0xab 0x3c9…3f4 »IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR« 0x3f4…3f5 0x02 0x3f5…3f6 0x81 0x3f6…3f7 »*« 0x3f7…3f8 0x1f 0x3f8…3f9 0xb1 0x3f9…42a »*************************************************« 0x42a…42b 0x1f 0x42b…42c 0xa5 0x42c…451 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x451…452 0x2b 0x452…453 0x9a 0x453…46d »// MSG ?WS?,?M'2100,1,75'?« 0x46d…46e 0x36 0x46e…46f 0x89 0x46f…478 »// RETURN« 0x478…479 0x47 0x479…47a 0x8c 0x47a…486 »// TAG NJOBQ« 0x486…487 0x44 0x487…488 0xae 0x488…4b6 »**********************************************« 0x4b6…4b7 0x22 0x4b7…4b8 0x81 0x4b8…4b9 »*« 0x4b9…4ba 0x02 0x4ba…4bb 0x8e 0x4bb…4c9 »ELSE CALL HELP« 0x4c9…4ca 0x1c 0x4ca…4cb 0x81 0x4cb…4cc »*« 0x4cc…4cd 0x22 0x4cd…4ce 0xae 0x4ce…4fc »**********************************************« 0x4fc…4fd 0x22 0x4fd…4fe 0x8b 0x4fe…509 »// HELP RPG« 0x509…50a 0x45 0x50a…50b 0x89 0x50b…514 »// RETURN« 0x514…515 0x47 0x515…516 0xae 0x516…544 »**********************************************« 0x544…545 0x22 0x545…546 0xae 0x546…574 »* PUT POSITIONAL PARMETERS IN THE LOCAL AREA *« 0x574…575 0x22 0x575…576 0xae 0x576…5a4 »**********************************************« 0x5a4…5a5 0x22 0x5a5…5a6 0x8e 0x5a6…5b4 »// TAG NAMPRES« 0x5b4…5b5 0x42 0x5b5…5b6 0xb2 0x5b6…5e8 »// LOCAL OFFSET-1,DATA-'RPG',BLANK-384,AREA-SYSTEM« 0x5e8…5e9 0x1e 0x5e9…5ea 0xb5 0x5ea…61f »// LOCAL OFFSET-229,DATA-'?10'00000000'?',AREA-SYSTEM« 0x61f…620 0x1b 0x620…621 0xb9 0x621…65a »// IFF ?L'229,1'?/1 LOCAL OFFSET-229,DATA-'0',AREA-SYSTEM« 0x65a…65b 0x17 0x65b…65c 0xc8 0x65c…6a4 »// ELSE JOBQ #RPGLIB,RPG,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,0?L'230,7'?« 0x6a4…6a5 0x08 0x6a5…6a6 0x99 0x6a6…6bf »// IF ?L'229,1'?/1 RETURN« 0x6bf…6c0 0x37 0x6c0…6c1 0xa1 0x6c1…6e2 »// IF JOBQ-NO IF EVOKED-NO * 1017« 0x6e2…6e3 0x2f 0x6e3…6e4 0x9d 0x6e4…701 »// LOCAL OFFSET-51,DATA-'HALT« 0x701…702 0x02 0x702…703 0x95 0x703…718 »NOREPLAC',AREA-SYSTEM« 0x718…719 0x1c 0x719…71a 0xb7 0x71a…751 »// IF ?4?/NOHALT LOCAL OFFSET-51,DATA-'?4?',AREA-SYSTEM« 0x751…752 0x19 0x752…753 0xc2 0x753…795 »// IF ?4?/NOSTOP LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM« 0x795…796 0x0e 0x796…797 0xbd 0x797…7d4 »// IF ?4?/REPLACE LOCAL OFFSET-57,DATA-'REPLACE ',AREA-SYSTEM« 0x7d4…7d5 0x13 0x7d5…7d6 0xa7 0x7d6…7fd »// IF ?8?/YES LOCAL OFFSET-29,DATA-'NEP« 0x7fd…7fe 0x02 0x7fe…7ff 0x8d 0x7ff…80c »',AREA-SYSTEM« 0x80c…80d 0x1a 0x80d…80e 0xb0 0x80e…83e »// ELSE LOCAL OFFSET-29,DATA-'NONEP',AREA-SYSTEM« 0x83e…83f 0x20 0x83f…840 0xad 0x840…86d »// IF ?L'230,1'?/1 LOCAL OFFSET-21,DATA-'XREF« 0x86d…86e 0x02 0x86e…86f 0x8d 0x86f…87c »',AREA-SYSTEM« 0x87c…87d 0x14 0x87d…87e 0xb1 0x87e…8af »// ELSE LOCAL OFFSET-21,DATA-'NOXREF',AREA-SYSTEM« 0x8af…8b0 0x1f 0x8b0…8b1 0xbd 0x8b1…8ee »*************************************************************« 0x8ee…8ef 0x13 0x8ef…8f0 0x81 0x8f0…8f1 »*« 0x8f1…8f2 0x02 0x8f2…8f3 0xa3 0x8f3…916 »PASS CONTROL TO THE PROCEDURE RPGC.« 0x916…917 0x02 0x917…918 0x91 0x918…929 »TELL RPGC THAT IT« 0x929…92a 0x03 0x92a…92b 0x81 0x92b…92c »*« 0x92c…92d 0x13 0x92d…92e 0x81 0x92e…92f »*« 0x92f…930 0x02 0x930…931 0xb3 0x931…964 »WAS CALLED BY RPG BY PASSING 'RPG' AS PARAMETER 21.« 0x964…965 0x06 0x965…966 0x81 0x966…967 »*« 0x967…968 0x13 0x968…969 0xbd 0x969…9a6 »*************************************************************« 0x9a6…9a7 0x13 0x9a7…9a8 0xc3 0x9a8…9eb »// INCLUDE RPGC,#RPGLIB ?1?,?5'?CLIB?'?,,,?L'21,6'?,?7?,?L'29,5'?,+« 0x9eb…9ec 0x0d 0x9ec…9ed 0xb3 0x9ed…a20 »?6'?CLIB?'?,,,,?L'51,6'?,?L'57,8'?,,,,?9?,?2?,,,RPG« 0xa20…a21 0x1d 0xa21…a22 0x89 0xa22…a2b »// RETURN« 0xa2b…a2c 0x47 0xa2c…a2d 0xcd 0xa2d…a7a »*****************************************************************************« 0xa7a…a7b 0x03 0xa7b…a7c 0x81 0xa7c…a7d »*« 0xa7d…a7e 0x4b 0xa7e…a7f 0x81 0xa7f…a80 »*« 0xa80…a81 0x03 0xa81…a82 0x81 0xa82…a83 »*« 0xa83…a84 0x03 0xa84…a85 0xc5 0xa85…aca »RPG PGNAME,$SOURCE,$WORK,NOHALT,INLIB,OUTLIB,MRTMAX,NEP,NOGEN,SPCLOPT« 0xaca…acb 0x03 0xacb…acc 0x81 0xacc…acd »*« 0xacd…ace 0x03 0xace…acf 0x81 0xacf…ad0 »*« 0xad0…ad1 0x4b 0xad1…ad2 0x81 0xad2…ad3 »*« 0xad3…ad4 0x03 0xad4…ad5 0x81 0xad5…ad6 »*« 0xad6…ad7 0x03 0xad7…ad8 0xc5 0xad8…b1d »THIS PROCEDURE EXECUTES THE RPG AUTO REPORT PROGRAM AND CONDITIONALLY« 0xb1d…b1e 0x03 0xb1e…b1f 0x81 0xb1f…b20 »*« 0xb20…b21 0x03 0xb21…b22 0x81 0xb22…b23 »*« 0xb23…b24 0x03 0xb24…b25 0xc3 0xb25…b68 »EXECUTES THE RPG COMPILER, THE RPG CROSS-REFERENCE PROGRAM, AND THE« 0xb68…b69 0x05 0xb69…b6a 0x81 0xb6a…b6b »*« 0xb6b…b6c 0x03 0xb6c…b6d 0x81 0xb6d…b6e »*« 0xb6e…b6f 0x03 0xb6f…b70 0xa0 0xb70…b90 »CONSOLE SCREEN FORMAT GENERATOR.« 0xb90…b91 0x28 0xb91…b92 0x81 0xb92…b93 »*« 0xb93…b94 0x03 0xb94…b95 0x81 0xb95…b96 »*« 0xb96…b97 0x4b 0xb97…b98 0x81 0xb98…b99 »*« 0xb99…b9a 0x03 0xb9a…b9b 0x81 0xb9b…b9c »*« 0xb9c…b9d 0x03 0xb9d…b9e 0xb5 0xb9e…bd3 »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING-« 0xbd3…bd4 0x13 0xbd4…bd5 0x81 0xbd5…bd6 »*« 0xbd6…bd7 0x03 0xbd7…bd8 0x81 0xbd8…bd9 »*« 0xbd9…bda 0x06 0xbda…bdb 0x9f 0xbdb…bfa »1ST - PROGRAM NAME, (REQUIRED),« 0xbfa…bfb 0x26 0xbfb…bfc 0x81 0xbfc…bfd »*« 0xbfd…bfe 0x03 0xbfe…bff 0x81 0xbff…c00 »*« 0xc00…c01 0x06 0xc01…c02 0xad 0xc02…c2f »2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40,« 0xc2f…c30 0x18 0xc30…c31 0x81 0xc31…c32 »*« 0xc32…c33 0x03 0xc33…c34 0x81 0xc34…c35 »*« 0xc35…c36 0x06 0xc36…c37 0xab 0xc37…c62 »3RD - # BLOCKS FOR $WORK FILE, DEFAULT- 40,« 0xc62…c63 0x1a 0xc63…c64 0x81 0xc64…c65 »*« 0xc65…c66 0x03 0xc66…c67 0x81 0xc67…c68 »*« 0xc68…c69 0x06 0xc69…c6a 0xc3 0xc6a…cad »4TH - HALT OPTIONS, TERMINAL DIAGS AND/OR DUP MEMBERS. DEFAULT-HALT« 0xcad…cae 0x02 0xcae…caf 0x81 0xcaf…cb0 »*« 0xcb0…cb1 0x03 0xcb1…cb2 0x81 0xcb2…cb3 »*« 0xcb3…cb4 0x06 0xcb4…cb5 0xad 0xcb5…ce2 »5TH - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0xce2…ce3 0x18 0xce3…ce4 0x81 0xce4…ce5 »*« 0xce5…ce6 0x03 0xce6…ce7 0x81 0xce7…ce8 »*« 0xce8…ce9 0x06 0xce9…cea 0xae 0xcea…d18 »6TH - OUTPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0xd18…d19 0x17 0xd19…d1a 0x81 0xd1a…d1b »*« 0xd1b…d1c 0x03 0xd1c…d1d 0x81 0xd1d…d1e »*« 0xd1e…d1f 0x06 0xd1f…d20 0xc0 0xd20…d60 »7TH - (MRT) MAX # OF ACTIVE REQUESTING WORKSTATIONS, DEFAULT- 0,« 0xd60…d61 0x05 0xd61…d62 0x81 0xd62…d63 »*« 0xd63…d64 0x03 0xd64…d65 0x81 0xd65…d66 »*« 0xd66…d67 0x06 0xd67…d68 0xa1 0xd68…d89 »8TH - NEP ATTRIBUTE, DEFAULT- NO,« 0xd89…d8a 0x24 0xd8a…d8b 0x81 0xd8b…d8c »*« 0xd8c…d8d 0x03 0xd8d…d8e 0x81 0xd8e…d8f »*« 0xd8f…d90 0x06 0xd90…d91 0xb4 0xd91…dc5 »9TH - GENERATE CONSOLE SCREEN FORMATS, DEFAULT- YES,« 0xdc5…dc6 0x11 0xdc6…dc7 0x81 0xdc7…dc8 »*« 0xdc8…dc9 0x03 0xdc9…dca 0x81 0xdca…dcb »*« 0xdcb…dcc 0x06 0xdcc…dcd 0xb8 0xdcd…e05 »10TH - SPECIAL OPTIONS CHOICES, DEFAULT- 00000000 (NONE)« 0xe05…e06 0x0d 0xe06…e07 0x81 0xe07…e08 »*« 0xe08…e09 0x03 0xe09…e0a 0x81 0xe0a…e0b »*« 0xe0b…e0c 0x4b 0xe0c…e0d 0x81 0xe0d…e0e »*« 0xe0e…e0f 0x03 0xe0f…e10 0x81 0xe10…e11 »*« 0xe11…e12 0x03 0xe12…e13 0xc1 0xe13…e54 »RPG AND AUTO REPORT ARE RESERVING BYTES 1 - 256 OF THE LOCAL AREA« 0xe54…e55 0x07 0xe55…e56 0x81 0xe56…e57 »*« 0xe57…e58 0x03 0xe58…e59 0x81 0xe59…e5a »*« 0xe5a…e5b 0x03 0xe5b…e5c 0x8e 0xe5c…e6a »FOR THEIR USE.« 0xe6a…e6b 0x3a 0xe6b…e6c 0x81 0xe6c…e6d »*« 0xe6d…e6e 0x03 0xe6e…e6f 0x81 0xe6f…e70 »*« 0xe70…e71 0x4b 0xe71…e72 0x81 0xe72…e73 »*« 0xe73…e74 0x03 0xe74…e75 0xcd 0xe75…ec2 »*****************************************************************************« 0xec2…ec3 0x03 0xec3…ec4 0x00 0xec4…ee0 d7 c3 d3 d6 d7 e3 03 81 5c 03 81 5c 4b 81 5c 03 81 5c 03 c5 e3 c8 c9 e2 40 d7 d9 d6 ┆PCLOPT a* a*.a* a* ETHIS PRO┆ 0xee0…f00 c3 c5 c4 e4 d9 c5 40 c5 e7 c5 c3 e4 e3 c5 e2 40 e3 c8 c5 40 d9 d7 c7 40 c1 e4 e3 d6 40 d9 c5 d7 ┆CEDURE EXECUTES THE RPG AUTO REP┆