|
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: 4096 (0x1000)
Notes: MEMBER_P, Member_Text
Names: »AUTO «
└─⟦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⟧ ».AUTO «
* *** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTO' ****************** * * * THIS PROCEDURE IS SUPPORTED ONLY FOR COMPATIBILITY WITH S/34. IT * * STORES ANY PARAMETER VALUES UNIQUE TO THIS PROCEDURE AND THEN * * CALLS THE AUTOC PROCEDURE. PARAMETERS 4, 8, AND 10 REQUIRE * * 'TRANSLATION' SO THAT AUTOC CAN HANDLE THEM. * * * * AUTO AUTOC * * P4=NOHALT P12=NOHALT, P13=NOREPLAC * * P4=NOSTOP P12=NOHALT, P13=REPLACE * * P4=REPLACE P12=HALT, P13=REPLACE * * P4=HALT(DEFAULT) P12=HALT, P13=NOREPLAC * * * * P8=YES P7=NEP * * P8=NO P7=NONEP * * * * P10(SPECIAL OPTIONS) * * ='100' (PUT ON JOBQ IN AUTO) * * ='010' P5=XREF * * ='001' P3=NOCOMP * * * * CHANGE ACTIVITY: * * 06/03/84 CC6116 'AUTO' IS PASSED AS PARAMETER 21 TO AUTOC * **************************************************************************** // 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 AUTO // RETURN ************************************************* * PUT POSITIONAL PARMETERS IN THE LOCAL AREA * * (SEE MEMBER LDADATA) * ************************************************* // TAG NAMPRES // LOCAL OFFSET-1,DATA-'RPGAUTO',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,AUTO,?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 * 1018 // 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 // IF ?L'231,1'?/1 LOCAL OFFSET-89,DATA-'NOCOMP',AREA-SYSTEM // ELSE LOCAL OFFSET-89,DATA-'COMP ',AREA-SYSTEM ********************************************************** * PASS CONTROL TO PROCEDURE AUTOC. TELL AUTOC THAT IT * * WAS CALLED BY AUTO BY PASSING 'AUTO' AS PARAMETER 21 * ********************************************************** // INCLUDE AUTOC,#RPGLIB ?1?,?5'?CLIB?'?,?L'89,6'?,,?L'21,6'?,?7?,+ ?L'29,5'?,?6'?CLIB?'?,,,,?L'51,6'?,?L'57,8'?,,,,?9?,?2?,,,AUTO // RETURN ***************************************************************************** * * * AUTO 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. * * * *****************************************************************************
0x0000…0001 0x81 0x0001…0002 »*« 0x0002…0003 0x4f 0x0003…0004 0xcc 0x0004…0050 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTO' ******************« 0x0050…0051 0x04 0x0051…0052 0x81 0x0052…0053 »*« 0x0053…0054 0x4a 0x0054…0055 0x81 0x0055…0056 »*« 0x0056…0057 0x04 0x0057…0058 0x81 0x0058…0059 »*« 0x0059…005a 0x02 0x005a…005b 0xbd 0x005b…0098 »THIS PROCEDURE IS SUPPORTED ONLY FOR COMPATIBILITY WITH S/34.« 0x0098…0099 0x02 0x0099…009a 0x82 0x009a…009c »IT« 0x009c…009d 0x07 0x009d…009e 0x81 0x009e…009f »*« 0x009f…00a0 0x04 0x00a0…00a1 0x81 0x00a1…00a2 »*« 0x00a2…00a3 0x02 0x00a3…00a4 0xbd 0x00a4…00e1 »STORES ANY PARAMETER VALUES UNIQUE TO THIS PROCEDURE AND THEN« 0x00e1…00e2 0x0b 0x00e2…00e3 0x81 0x00e3…00e4 »*« 0x00e4…00e5 0x04 0x00e5…00e6 0x81 0x00e6…00e7 »*« 0x00e7…00e8 0x02 0x00e8…00e9 0x9a 0x00e9…0103 »CALLS THE AUTOC PROCEDURE.« 0x0103…0104 0x02 0x0104…0105 0x9f 0x0105…0124 »PARAMETERS 4, 8, AND 10 REQUIRE« 0x0124…0125 0x0d 0x0125…0126 0x81 0x0126…0127 »*« 0x0127…0128 0x04 0x0128…0129 0x81 0x0129…012a »*« 0x012a…012b 0x02 0x012b…012c 0xac 0x012c…0158 »'TRANSLATION' SO THAT AUTOC CAN HANDLE THEM.« 0x0158…0159 0x1c 0x0159…015a 0x81 0x015a…015b »*« 0x015b…015c 0x04 0x015c…015d 0x81 0x015d…015e »*« 0x015e…015f 0x4a 0x015f…0160 0x81 0x0160…0161 »*« 0x0161…0162 0x04 0x0162…0163 0x81 0x0163…0164 »*« 0x0164…0165 0x08 0x0165…0166 0x84 0x0166…016a »AUTO« 0x016a…016b 0x1f 0x016b…016c 0x85 0x016c…0171 »AUTOC« 0x0171…0172 0x1a 0x0172…0173 0x81 0x0173…0174 »*« 0x0174…0175 0x04 0x0175…0176 0x81 0x0176…0177 »*« 0x0177…0178 0x03 0x0178…0179 0x89 0x0179…0182 »P4=NOHALT« 0x0182…0183 0x17 0x0183…0184 0x98 0x0184…019c »P12=NOHALT, P13=NOREPLAC« 0x019c…019d 0x0f 0x019d…019e 0x81 0x019e…019f »*« 0x019f…01a0 0x04 0x01a0…01a1 0x81 0x01a1…01a2 »*« 0x01a2…01a3 0x03 0x01a3…01a4 0x89 0x01a4…01ad »P4=NOSTOP« 0x01ad…01ae 0x17 0x01ae…01af 0x97 0x01af…01c6 »P12=NOHALT, P13=REPLACE« 0x01c6…01c7 0x10 0x01c7…01c8 0x81 0x01c8…01c9 »*« 0x01c9…01ca 0x04 0x01ca…01cb 0x81 0x01cb…01cc »*« 0x01cc…01cd 0x03 0x01cd…01ce 0x8a 0x01ce…01d8 »P4=REPLACE« 0x01d8…01d9 0x16 0x01d9…01da 0x95 0x01da…01ef »P12=HALT, P13=REPLACE« 0x01ef…01f0 0x12 0x01f0…01f1 0x81 0x01f1…01f2 »*« 0x01f2…01f3 0x04 0x01f3…01f4 0x81 0x01f4…01f5 »*« 0x01f5…01f6 0x03 0x01f6…01f7 0x90 0x01f7…0207 »P4=HALT(DEFAULT)« 0x0207…0208 0x10 0x0208…0209 0x96 0x0209…021f »P12=HALT, P13=NOREPLAC« 0x021f…0220 0x11 0x0220…0221 0x81 0x0221…0222 »*« 0x0222…0223 0x04 0x0223…0224 0x81 0x0224…0225 »*« 0x0225…0226 0x4a 0x0226…0227 0x81 0x0227…0228 »*« 0x0228…0229 0x04 0x0229…022a 0x81 0x022a…022b »*« 0x022b…022c 0x03 0x022c…022d 0x86 0x022d…0233 »P8=YES« 0x0233…0234 0x1a 0x0234…0235 0x86 0x0235…023b »P7=NEP« 0x023b…023c 0x21 0x023c…023d 0x81 0x023d…023e »*« 0x023e…023f 0x04 0x023f…0240 0x81 0x0240…0241 »*« 0x0241…0242 0x03 0x0242…0243 0x85 0x0243…0248 »P8=NO« 0x0248…0249 0x1b 0x0249…024a 0x88 0x024a…0252 »P7=NONEP« 0x0252…0253 0x1f 0x0253…0254 0x81 0x0254…0255 »*« 0x0255…0256 0x04 0x0256…0257 0x81 0x0257…0258 »*« 0x0258…0259 0x4a 0x0259…025a 0x81 0x025a…025b »*« 0x025b…025c 0x04 0x025c…025d 0x81 0x025d…025e »*« 0x025e…025f 0x03 0x025f…0260 0x94 0x0260…0274 »P10(SPECIAL OPTIONS)« 0x0274…0275 0x33 0x0275…0276 0x81 0x0276…0277 »*« 0x0277…0278 0x04 0x0278…0279 0x81 0x0279…027a »*« 0x027a…027b 0x06 0x027b…027c 0x9c 0x027c…0298 »='100' (PUT ON JOBQ IN AUTO)« 0x0298…0299 0x28 0x0299…029a 0x81 0x029a…029b »*« 0x029b…029c 0x04 0x029c…029d 0x81 0x029d…029e »*« 0x029e…029f 0x06 0x029f…02a0 0x86 0x02a0…02a6 »='010'« 0x02a6…02a7 0x17 0x02a7…02a8 0x87 0x02a8…02af »P5=XREF« 0x02af…02b0 0x20 0x02b0…02b1 0x81 0x02b1…02b2 »*« 0x02b2…02b3 0x04 0x02b3…02b4 0x81 0x02b4…02b5 »*« 0x02b5…02b6 0x06 0x02b6…02b7 0x86 0x02b7…02bd »='001'« 0x02bd…02be 0x17 0x02be…02bf 0x89 0x02bf…02c8 »P3=NOCOMP« 0x02c8…02c9 0x1e 0x02c9…02ca 0x81 0x02ca…02cb »*« 0x02cb…02cc 0x04 0x02cc…02cd 0x81 0x02cd…02ce »*« 0x02ce…02cf 0x4a 0x02cf…02d0 0x81 0x02d0…02d1 »*« 0x02d1…02d2 0x04 0x02d2…02d3 0x81 0x02d3…02d4 »*« 0x02d4…02d5 0x03 0x02d5…02d6 0x90 0x02d6…02e6 »CHANGE ACTIVITY:« 0x02e6…02e7 0x37 0x02e7…02e8 0x81 0x02e8…02e9 »*« 0x02e9…02ea 0x04 0x02ea…02eb 0x81 0x02eb…02ec »*« 0x02ec…02ed 0x03 0x02ed…02ee 0xb9 0x02ee…0327 »06/03/84 CC6116 'AUTO' IS PASSED AS PARAMETER 21 TO AUTOC« 0x0327…0328 0x0e 0x0328…0329 0x81 0x0329…032a »*« 0x032a…032b 0x04 0x032b…032c 0xcc 0x032c…0378 »****************************************************************************« 0x0378…0379 0x04 0x0379…037a 0xa8 0x037a…03a2 »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x03a2…03a3 0x28 0x03a3…03a4 0x8b 0x03a4…03af »// IFF ?1?/« 0x03af…03b0 0x02 0x03b0…03b1 0x8c 0x03b1…03bd »GOTO NAMPRES« 0x03bd…03be 0x37 0x03be…03bf 0xb1 0x03bf…03f0 »*************************************************« 0x03f0…03f1 0x1f 0x03f1…03f2 0x81 0x03f2…03f3 »*« 0x03f3…03f4 0x02 0x03f4…03f5 0xab 0x03f5…0420 »IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR« 0x0420…0421 0x02 0x0421…0422 0x81 0x0422…0423 »*« 0x0423…0424 0x1f 0x0424…0425 0xb1 0x0425…0456 »*************************************************« 0x0456…0457 0x1f 0x0457…0458 0xa5 0x0458…047d »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x047d…047e 0x2b 0x047e…047f 0x9a 0x047f…0499 »// MSG ?WS?,?M'2100,1,75'?« 0x0499…049a 0x36 0x049a…049b 0x89 0x049b…04a4 »// RETURN« 0x04a4…04a5 0x47 0x04a5…04a6 0x8c 0x04a6…04b2 »// TAG NJOBQ« 0x04b2…04b3 0x44 0x04b3…04b4 0xb1 0x04b4…04e5 »*************************************************« 0x04e5…04e6 0x1f 0x04e6…04e7 0x81 0x04e7…04e8 »*« 0x04e8…04e9 0x02 0x04e9…04ea 0x8e 0x04ea…04f8 »ELSE CALL HELP« 0x04f8…04f9 0x1f 0x04f9…04fa 0x81 0x04fa…04fb »*« 0x04fb…04fc 0x1f 0x04fc…04fd 0xb1 0x04fd…052e »*************************************************« 0x052e…052f 0x1f 0x052f…0530 0x8c 0x0530…053c »// HELP AUTO« 0x053c…053d 0x44 0x053d…053e 0x89 0x053e…0547 »// RETURN« 0x0547…0548 0x47 0x0548…0549 0xb1 0x0549…057a »*************************************************« 0x057a…057b 0x1f 0x057b…057c 0xac 0x057c…05a8 »* PUT POSITIONAL PARMETERS IN THE LOCAL AREA« 0x05a8…05a9 0x04 0x05a9…05aa 0x81 0x05aa…05ab »*« 0x05ab…05ac 0x1f 0x05ac…05ad 0x96 0x05ad…05c3 »* (SEE MEMBER LDADATA)« 0x05c3…05c4 0x1a 0x05c4…05c5 0x81 0x05c5…05c6 »*« 0x05c6…05c7 0x1f 0x05c7…05c8 0xb1 0x05c8…05f9 »*************************************************« 0x05f9…05fa 0x1f 0x05fa…05fb 0x8e 0x05fb…0609 »// TAG NAMPRES« 0x0609…060a 0x42 0x060a…060b 0xb6 0x060b…0641 »// LOCAL OFFSET-1,DATA-'RPGAUTO',BLANK-384,AREA-SYSTEM« 0x0641…0642 0x1a 0x0642…0643 0xb5 0x0643…0678 »// LOCAL OFFSET-229,DATA-'?10'00000000'?',AREA-SYSTEM« 0x0678…0679 0x1b 0x0679…067a 0xb9 0x067a…06b3 »// IFF ?L'229,1'?/1 LOCAL OFFSET-229,DATA-'0',AREA-SYSTEM« 0x06b3…06b4 0x17 0x06b4…06b5 0xc9 0x06b5…06fe »// ELSE JOBQ #RPGLIB,AUTO,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,0?L'230,7'?« 0x06fe…06ff 0x07 0x06ff…0700 0x99 0x0700…0719 »// IF ?L'229,1'?/1 RETURN« 0x0719…071a 0x37 0x071a…071b 0xa1 0x071b…073c »// IF JOBQ-NO IF EVOKED-NO * 1018« 0x073c…073d 0x2f 0x073d…073e 0x9d 0x073e…075b »// LOCAL OFFSET-51,DATA-'HALT« 0x075b…075c 0x02 0x075c…075d 0x95 0x075d…0772 »NOREPLAC',AREA-SYSTEM« 0x0772…0773 0x1c 0x0773…0774 0xb7 0x0774…07ab »// IF ?4?/NOHALT LOCAL OFFSET-51,DATA-'?4?',AREA-SYSTEM« 0x07ab…07ac 0x19 0x07ac…07ad 0xc2 0x07ad…07ef »// IF ?4?/NOSTOP LOCAL OFFSET-51,DATA-'NOHALTREPLACE ',AREA-SYSTEM« 0x07ef…07f0 0x0e 0x07f0…07f1 0xbd 0x07f1…082e »// IF ?4?/REPLACE LOCAL OFFSET-57,DATA-'REPLACE ',AREA-SYSTEM« 0x082e…082f 0x13 0x082f…0830 0xa7 0x0830…0857 »// IF ?8?/YES LOCAL OFFSET-29,DATA-'NEP« 0x0857…0858 0x02 0x0858…0859 0x8d 0x0859…0866 »',AREA-SYSTEM« 0x0866…0867 0x1a 0x0867…0868 0xb0 0x0868…0898 »// ELSE LOCAL OFFSET-29,DATA-'NONEP',AREA-SYSTEM« 0x0898…0899 0x20 0x0899…089a 0xad 0x089a…08c7 »// IF ?L'230,1'?/1 LOCAL OFFSET-21,DATA-'XREF« 0x08c7…08c8 0x02 0x08c8…08c9 0x8d 0x08c9…08d6 »',AREA-SYSTEM« 0x08d6…08d7 0x14 0x08d7…08d8 0xb1 0x08d8…0909 »// ELSE LOCAL OFFSET-21,DATA-'NOXREF',AREA-SYSTEM« 0x0909…090a 0x1f 0x090a…090b 0xbc 0x090b…0947 »// IF ?L'231,1'?/1 LOCAL OFFSET-89,DATA-'NOCOMP',AREA-SYSTEM« 0x0947…0948 0x14 0x0948…0949 0xa2 0x0949…096b »// ELSE LOCAL OFFSET-89,DATA-'COMP« 0x096b…096c 0x02 0x096c…096d 0x8d 0x096d…097a »',AREA-SYSTEM« 0x097a…097b 0x1f 0x097b…097c 0xba 0x097c…09b6 »**********************************************************« 0x09b6…09b7 0x16 0x09b7…09b8 0x81 0x09b8…09b9 »*« 0x09b9…09ba 0x02 0x09ba…09bb 0xa0 0x09bb…09db »PASS CONTROL TO PROCEDURE AUTOC.« 0x09db…09dc 0x02 0x09dc…09dd 0x92 0x09dd…09ef »TELL AUTOC THAT IT« 0x09ef…09f0 0x02 0x09f0…09f1 0x81 0x09f1…09f2 »*« 0x09f2…09f3 0x16 0x09f3…09f4 0x81 0x09f4…09f5 »*« 0x09f5…09f6 0x02 0x09f6…09f7 0xb4 0x09f7…0a2b »WAS CALLED BY AUTO BY PASSING 'AUTO' AS PARAMETER 21« 0x0a2b…0a2c 0x02 0x0a2c…0a2d 0x81 0x0a2d…0a2e »*« 0x0a2e…0a2f 0x16 0x0a2f…0a30 0xba 0x0a30…0a6a »**********************************************************« 0x0a6a…0a6b 0x16 0x0a6b…0a6c 0xc3 0x0a6c…0aaf »// INCLUDE AUTOC,#RPGLIB ?1?,?5'?CLIB?'?,?L'89,6'?,,?L'21,6'?,?7?,+« 0x0aaf…0ab0 0x0d 0x0ab0…0ab1 0xbe 0x0ab1…0aef »?L'29,5'?,?6'?CLIB?'?,,,,?L'51,6'?,?L'57,8'?,,,,?9?,?2?,,,AUTO« 0x0aef…0af0 0x12 0x0af0…0af1 0x89 0x0af1…0afa »// RETURN« 0x0afa…0afb 0x47 0x0afb…0afc 0xcd 0x0afc…0b49 »*****************************************************************************« 0x0b49…0b4a 0x03 0x0b4a…0b4b 0x81 0x0b4b…0b4c »*« 0x0b4c…0b4d 0x4b 0x0b4d…0b4e 0x81 0x0b4e…0b4f »*« 0x0b4f…0b50 0x03 0x0b50…0b51 0x81 0x0b51…0b52 »*« 0x0b52…0b53 0x03 0x0b53…0b54 0xc6 0x0b54…0b9a »AUTO PGNAME,$SOURCE,$WORK,NOHALT,INLIB,OUTLIB,MRTMAX,NEP,NOGEN,SPCLOPT« 0x0b9a…0b9b 0x02 0x0b9b…0b9c 0x81 0x0b9c…0b9d »*« 0x0b9d…0b9e 0x03 0x0b9e…0b9f 0x81 0x0b9f…0ba0 »*« 0x0ba0…0ba1 0x4b 0x0ba1…0ba2 0x81 0x0ba2…0ba3 »*« 0x0ba3…0ba4 0x03 0x0ba4…0ba5 0x81 0x0ba5…0ba6 »*« 0x0ba6…0ba7 0x03 0x0ba7…0ba8 0xc5 0x0ba8…0bed »THIS PROCEDURE EXECUTES THE RPG AUTO REPORT PROGRAM AND CONDITIONALLY« 0x0bed…0bee 0x03 0x0bee…0bef 0x81 0x0bef…0bf0 »*« 0x0bf0…0bf1 0x03 0x0bf1…0bf2 0x81 0x0bf2…0bf3 »*« 0x0bf3…0bf4 0x03 0x0bf4…0bf5 0xc3 0x0bf5…0c38 »EXECUTES THE RPG COMPILER, THE RPG CROSS-REFERENCE PROGRAM, AND THE« 0x0c38…0c39 0x05 0x0c39…0c3a 0x81 0x0c3a…0c3b »*« 0x0c3b…0c3c 0x03 0x0c3c…0c3d 0x81 0x0c3d…0c3e »*« 0x0c3e…0c3f 0x03 0x0c3f…0c40 0xa0 0x0c40…0c60 »CONSOLE SCREEN FORMAT GENERATOR.« 0x0c60…0c61 0x28 0x0c61…0c62 0x81 0x0c62…0c63 »*« 0x0c63…0c64 0x03 0x0c64…0c65 0x81 0x0c65…0c66 »*« 0x0c66…0c67 0x4b 0x0c67…0c68 0x81 0x0c68…0c69 »*« 0x0c69…0c6a 0x03 0x0c6a…0c6b 0x81 0x0c6b…0c6c »*« 0x0c6c…0c6d 0x03 0x0c6d…0c6e 0xb5 0x0c6e…0ca3 »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING-« 0x0ca3…0ca4 0x13 0x0ca4…0ca5 0x81 0x0ca5…0ca6 »*« 0x0ca6…0ca7 0x03 0x0ca7…0ca8 0x81 0x0ca8…0ca9 »*« 0x0ca9…0caa 0x06 0x0caa…0cab 0x9f 0x0cab…0cca »1ST - PROGRAM NAME, (REQUIRED),« 0x0cca…0ccb 0x26 0x0ccb…0ccc 0x81 0x0ccc…0ccd »*« 0x0ccd…0cce 0x03 0x0cce…0ccf 0x81 0x0ccf…0cd0 »*« 0x0cd0…0cd1 0x06 0x0cd1…0cd2 0xad 0x0cd2…0cff »2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40,« 0x0cff…0d00 0x18 0x0d00…0d01 0x81 0x0d01…0d02 »*« 0x0d02…0d03 0x03 0x0d03…0d04 0x81 0x0d04…0d05 »*« 0x0d05…0d06 0x06 0x0d06…0d07 0xab 0x0d07…0d32 »3RD - # BLOCKS FOR $WORK FILE, DEFAULT- 40,« 0x0d32…0d33 0x1a 0x0d33…0d34 0x81 0x0d34…0d35 »*« 0x0d35…0d36 0x03 0x0d36…0d37 0x81 0x0d37…0d38 »*« 0x0d38…0d39 0x06 0x0d39…0d3a 0xc3 0x0d3a…0d7d »4TH - HALT OPTIONS, TERMINAL DIAGS AND/OR DUP MEMBERS. DEFAULT-HALT« 0x0d7d…0d7e 0x02 0x0d7e…0d7f 0x81 0x0d7f…0d80 »*« 0x0d80…0d81 0x03 0x0d81…0d82 0x81 0x0d82…0d83 »*« 0x0d83…0d84 0x06 0x0d84…0d85 0xad 0x0d85…0db2 »5TH - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0x0db2…0db3 0x18 0x0db3…0db4 0x81 0x0db4…0db5 »*« 0x0db5…0db6 0x03 0x0db6…0db7 0x81 0x0db7…0db8 »*« 0x0db8…0db9 0x06 0x0db9…0dba 0xae 0x0dba…0de8 »6TH - OUTPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0x0de8…0de9 0x17 0x0de9…0dea 0x81 0x0dea…0deb »*« 0x0deb…0dec 0x03 0x0dec…0ded 0x81 0x0ded…0dee »*« 0x0dee…0def 0x06 0x0def…0df0 0xc0 0x0df0…0e30 »7TH - (MRT) MAX # OF ACTIVE REQUESTING WORKSTATIONS, DEFAULT- 0,« 0x0e30…0e31 0x05 0x0e31…0e32 0x81 0x0e32…0e33 »*« 0x0e33…0e34 0x03 0x0e34…0e35 0x81 0x0e35…0e36 »*« 0x0e36…0e37 0x06 0x0e37…0e38 0xa1 0x0e38…0e59 »8TH - NEP ATTRIBUTE, DEFAULT- NO,« 0x0e59…0e5a 0x24 0x0e5a…0e5b 0x81 0x0e5b…0e5c »*« 0x0e5c…0e5d 0x03 0x0e5d…0e5e 0x81 0x0e5e…0e5f »*« 0x0e5f…0e60 0x06 0x0e60…0e61 0xb4 0x0e61…0e95 »9TH - GENERATE CONSOLE SCREEN FORMATS, DEFAULT- YES,« 0x0e95…0e96 0x11 0x0e96…0e97 0x81 0x0e97…0e98 »*« 0x0e98…0e99 0x03 0x0e99…0e9a 0x81 0x0e9a…0e9b »*« 0x0e9b…0e9c 0x06 0x0e9c…0e9d 0xb8 0x0e9d…0ed5 »10TH - SPECIAL OPTIONS CHOICES, DEFAULT- 00000000 (NONE)« 0x0ed5…0ed6 0x0d 0x0ed6…0ed7 0x81 0x0ed7…0ed8 »*« 0x0ed8…0ed9 0x03 0x0ed9…0eda 0x81 0x0eda…0edb »*« 0x0edb…0edc 0x4b 0x0edc…0edd 0x81 0x0edd…0ede »*« 0x0ede…0edf 0x03 0x0edf…0ee0 0x81 0x0ee0…0ee1 »*« 0x0ee1…0ee2 0x03 0x0ee2…0ee3 0xc1 0x0ee3…0f24 »RPG AND AUTO REPORT ARE RESERVING BYTES 1 - 256 OF THE LOCAL AREA« 0x0f24…0f25 0x07 0x0f25…0f26 0x81 0x0f26…0f27 »*« 0x0f27…0f28 0x03 0x0f28…0f29 0x81 0x0f29…0f2a »*« 0x0f2a…0f2b 0x03 0x0f2b…0f2c 0x8e 0x0f2c…0f3a »FOR THEIR USE.« 0x0f3a…0f3b 0x3a 0x0f3b…0f3c 0x81 0x0f3c…0f3d »*« 0x0f3d…0f3e 0x03 0x0f3e…0f3f 0x81 0x0f3f…0f40 »*« 0x0f40…0f41 0x4b 0x0f41…0f42 0x81 0x0f42…0f43 »*« 0x0f43…0f44 0x03 0x0f44…0f45 0xcd 0x0f45…0f92 »*****************************************************************************« 0x0f92…0f93 0x03 0x0f93…0f94 0x00 0x0f94…0fa0 d7 c3 d3 d6 d7 e3 02 81 5c 03 81 5c ┆PCLOPT a* a*┆ 0x0fa0…0fc0 4b 81 5c 03 81 5c 03 c5 e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c5 e7 c5 c3 e4 e3 c5 e2 40 ┆.a* a* ETHIS PROCEDURE EXECUTES ┆ 0x0fc0…0fe0 e3 c8 c5 40 d9 d7 c7 40 c1 e4 e3 d6 40 d9 c5 d7 d6 d9 e3 40 d7 d9 d6 c7 d9 c1 d4 40 c1 d5 c4 40 ┆THE RPG AUTO REPORT PROGRAM AND ┆ 0x0fe0…1000 c3 d6 d5 c4 c9 e3 c9 d6 d5 c1 d3 d3 e8 03 81 5c 03 81 5c 03 c3 c5 e7 c5 c3 e4 e3 c5 e2 40 e3 c8 ┆CONDITIONALLY a* a* CEXECUTES TH┆