|
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: 2304 (0x900)
Notes: MEMBER_P, Member_Text
Names: »AUTOCT «
└─⟦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⟧ ».AUTOCT «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTOCT'************* ************************************************************************ * * * 06/13/83 the screen displayed default value for the # of blocks for * * work files is changed from '0040' to '40'. the default for * * mrt maximum is changed from '00' to '0'. this work is * * performed under ptr ev70958. * * 06/03/84 CC6116 The MRO parameter was added as parameter 21 * * * ************************************************************************ // LOCAL AREA-SYSTEM ********************************************* * IF THE PREVIOUS PROC WAS AN RPG PROC, * * THEN LOCAL 1-3 WILL BE 'RPG'. * * IF SO, DON'T INITIALIZE THE LDA. * ********************************************* // IF '?L'1,3'?'/'RPG' GOTO RETPARMS *************************************** * BLANK THE LDA AND THEN INITIALIZE * * (SEE LDADATA.) * *************************************** // LOCAL OFFSET-1,DATA-' NODSMPRINT NOXREF0 NONEP',BLANK-384,+ AREA-SYSTEM // LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK NOOBJECTGEN 40 COMP A96',+ AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM ********************************** * RETRIEVE PARMS FROM LDA * ********************************** // TAG RETPARMS // EVALUATE P1='AUTOC' // EVALUATE P2='?L'435,8'?' P3='?L'419,8'?' P4='?L'89,6'?' P5='?L'14,7'?' + P6='?L'21,6'?' P7='?L'27,2'?' P8='?L'29,5'?' P9='?L'427,8'?' P10='?L'34,8'?' // EVALUATE P11='?L'42,7'?' P12='?L'49,2'?' P13='?L'51,6'?' P14='?L'57,8'?' + P15='?L'65,6'?' P16='?L'71,8'?' P17='?L'161,8'?' P18='?L'79,6'?' P19='?L'85,4'?' // EVALUATE P21='?L'453,5'?' ************* * CALL HELP * ************* // HELP *ALL // RETURN ******************************************************************************* * * * THIS PROCEDURE HAS NO PARAMETERS. IT'S PURPOSE IS TO DO THE MEMORY * * PROCESSING FOR THE AUTOC PROCEDURE. IT IS CALLED IF THE USER CHOOSES * * OPTION 5 FROM THE RPG MENU. * * * *******************************************************************************
0x000…001 0xc8 0x001…049 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTOCT'*************« 0x049…04a 0x08 0x04a…04b 0xc8 0x04b…093 »************************************************************************« 0x093…094 0x08 0x094…095 0x81 0x095…096 »*« 0x096…097 0x46 0x097…098 0x81 0x098…099 »*« 0x099…09a 0x08 0x09a…09b 0x81 0x09b…09c »*« 0x09c…09d 0x02 0x09d…09e 0xc5 0x09e…0e3 »06/13/83 the screen displayed default value for the # of blocks for *« 0x0e3…0e4 0x08 0x0e4…0e5 0x81 0x0e5…0e6 »*« 0x0e6…0e7 0x0b 0x0e7…0e8 0xbc 0x0e8…124 »work files is changed from '0040' to '40'. the default for *« 0x124…125 0x08 0x125…126 0x81 0x126…127 »*« 0x127…128 0x0b 0x128…129 0xb5 0x129…15e »mrt maximum is changed from '00' to '0'. this work is« 0x15e…15f 0x06 0x15f…160 0x81 0x160…161 »*« 0x161…162 0x08 0x162…163 0x81 0x163…164 »*« 0x164…165 0x0b 0x165…166 0x9c 0x166…182 »performed under ptr ev70958.« 0x182…183 0x1f 0x183…184 0x81 0x184…185 »*« 0x185…186 0x08 0x186…187 0x81 0x187…188 »*« 0x188…189 0x02 0x189…18a 0xbb 0x18a…1c5 »06/03/84 CC6116 The MRO parameter was added as parameter 21« 0x1c5…1c6 0x09 0x1c6…1c7 0x81 0x1c7…1c8 »*« 0x1c8…1c9 0x08 0x1c9…1ca 0x81 0x1ca…1cb »*« 0x1cb…1cc 0x46 0x1cc…1cd 0x81 0x1cd…1ce »*« 0x1ce…1cf 0x08 0x1cf…1d0 0xc8 0x1d0…218 »************************************************************************« 0x218…219 0x08 0x219…21a 0x94 0x21a…22e »// LOCAL AREA-SYSTEM« 0x22e…22f 0x3c 0x22f…230 0xad 0x230…25d »*********************************************« 0x25d…25e 0x23 0x25e…25f 0xa7 0x25f…286 »* IF THE PREVIOUS PROC WAS AN RPG PROC,« 0x286…287 0x05 0x287…288 0x81 0x288…289 »*« 0x289…28a 0x23 0x28a…28b 0x9f 0x28b…2aa »* THEN LOCAL 1-3 WILL BE 'RPG'.« 0x2aa…2ab 0x0d 0x2ab…2ac 0x81 0x2ac…2ad »*« 0x2ad…2ae 0x23 0x2ae…2af 0xa2 0x2af…2d1 »* IF SO, DON'T INITIALIZE THE LDA.« 0x2d1…2d2 0x0a 0x2d2…2d3 0x81 0x2d3…2d4 »*« 0x2d4…2d5 0x23 0x2d5…2d6 0xad 0x2d6…303 »*********************************************« 0x303…304 0x23 0x304…305 0xa4 0x305…329 »// IF '?L'1,3'?'/'RPG' GOTO RETPARMS« 0x329…32a 0x2c 0x32a…32b 0xa7 0x32b…352 »***************************************« 0x352…353 0x29 0x353…354 0xa3 0x354…377 »* BLANK THE LDA AND THEN INITIALIZE« 0x377…378 0x03 0x378…379 0x81 0x379…37a »*« 0x37a…37b 0x29 0x37b…37c 0x90 0x37c…38c »* (SEE LDADATA.)« 0x38c…38d 0x16 0x38d…38e 0x81 0x38e…38f »*« 0x38f…390 0x29 0x390…391 0xa7 0x391…3b8 »***************************************« 0x3b8…3b9 0x29 0x3b9…3ba 0x98 0x3ba…3d2 »// LOCAL OFFSET-1,DATA-'« 0x3d2…3d3 0x08 0x3d3…3d4 0x8a 0x3d4…3de »NODSMPRINT« 0x3de…3df 0x02 0x3df…3e0 0x9a 0x3e0…3fa »NOXREF0 NONEP',BLANK-384,+« 0x3fa…3fb 0x0a 0x3fb…3fc 0x8b 0x3fc…407 »AREA-SYSTEM« 0x407…408 0x45 0x408…409 0xab 0x409…434 »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK« 0x434…435 0x02 0x435…436 0x8b 0x436…441 »NOOBJECTGEN« 0x441…442 0x03 0x442…443 0x82 0x443…445 »40« 0x445…446 0x02 0x446…447 0x84 0x447…44b »COMP« 0x44b…44c 0x02 0x44c…44d 0x86 0x44d…453 »A96',+« 0x453…454 0x05 0x454…455 0x8b 0x455…460 »AREA-SYSTEM« 0x460…461 0x45 0x461…462 0xb5 0x462…497 »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x497…498 0x1b 0x498…499 0xb4 0x499…4cd »// LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM« 0x4cd…4ce 0x1c 0x4ce…4cf 0xa2 0x4cf…4f1 »**********************************« 0x4f1…4f2 0x2e 0x4f2…4f3 0x99 0x4f3…50c »* RETRIEVE PARMS FROM LDA« 0x50c…50d 0x08 0x50d…50e 0x81 0x50e…50f »*« 0x50f…510 0x2e 0x510…511 0xa2 0x511…533 »**********************************« 0x533…534 0x2e 0x534…535 0x8f 0x535…544 »// TAG RETPARMS« 0x544…545 0x41 0x545…546 0x96 0x546…55c »// EVALUATE P1='AUTOC'« 0x55c…55d 0x3a 0x55d…55e 0xcb 0x55e…5a9 »// EVALUATE P2='?L'435,8'?' P3='?L'419,8'?' P4='?L'89,6'?' P5='?L'14,7'?' +« 0x5a9…5aa 0x05 0x5aa…5ab 0xcc 0x5ab…5f7 »P6='?L'21,6'?' P7='?L'27,2'?' P8='?L'29,5'?' P9='?L'427,8'?' P10='?L'34,8'?'« 0x5f7…5f8 0x04 0x5f8…5f9 0xcd 0x5f9…646 »// EVALUATE P11='?L'42,7'?' P12='?L'49,2'?' P13='?L'51,6'?' P14='?L'57,8'?' +« 0x646…647 0x03 0x647…648 0xd0 0x648…698 »P15='?L'65,6'?' P16='?L'71,8'?' P17='?L'161,8'?' P18='?L'79,6'?' P19='?L'85,4'?'« 0x698…699 0x9c 0x699…6b5 »// EVALUATE P21='?L'453,5'?'« 0x6b5…6b6 0x34 0x6b6…6b7 0x8d 0x6b7…6c4 »*************« 0x6c4…6c5 0x43 0x6c5…6c6 0x8d 0x6c6…6d3 »* CALL HELP *« 0x6d3…6d4 0x43 0x6d4…6d5 0x8d 0x6d5…6e2 »*************« 0x6e2…6e3 0x43 0x6e3…6e4 0x8c 0x6e4…6f0 »// HELP *ALL« 0x6f0…6f1 0x44 0x6f1…6f2 0x89 0x6f2…6fb »// RETURN« 0x6fb…6fc 0x47 0x6fc…6fd 0xd0 0x6fd…74d »******************************************************************************* « 0x74d…74e 0x81 0x74e…74f »*« 0x74f…750 0x4d 0x750…751 0x82 0x751…753 »* « 0x753…754 0xa3 0x754…777 »* THIS PROCEDURE HAS NO PARAMETERS.« 0x777…778 0x02 0x778…779 0xa0 0x779…799 »IT'S PURPOSE IS TO DO THE MEMORY« 0x799…79a 0x09 0x79a…79b 0x82 0x79b…79d »* « 0x79d…79e 0xa5 0x79e…7c3 »* PROCESSING FOR THE AUTOC PROCEDURE.« 0x7c3…7c4 0x02 0x7c4…7c5 0xa0 0x7c5…7e5 »IT IS CALLED IF THE USER CHOOSES« 0x7e5…7e6 0x07 0x7e6…7e7 0x82 0x7e7…7e9 »* « 0x7e9…7ea 0x9d 0x7ea…807 »* OPTION 5 FROM THE RPG MENU.« 0x807…808 0x31 0x808…809 0x82 0x809…80b »* « 0x80b…80c 0x81 0x80c…80d »*« 0x80d…80e 0x4d 0x80e…80f 0x82 0x80f…811 »* « 0x811…812 0xd0 0x812…862 »******************************************************************************* « 0x862…863 0x00 0x863…880 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f1 f9 6b c4 c1 e3 c1 60 7d 6f c3 d3 c9 ┆/ LOCAL OFFSET-419,DATA-'?CLI┆ 0x880…8a0 c2 6f 7d 6b c2 d3 c1 d5 d2 60 f8 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1b b4 61 61 40 d3 d6 c3 c1 ┆B?',BLANK-8,AREA-SYSTEM ©// LOCA┆ 0x8a0…8c0 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f5 f3 6b c4 c1 e3 c1 60 7d d5 d6 d4 d9 d6 7d 6b c2 d3 c1 d5 d2 60 ┆L OFFSET-453,DATA-'NOMRO',BLANK-┆ 0x8c0…8e0 f5 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1c a2 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆5,AREA-SYSTEM s*****************┆ 0x8e0…900 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 2e 99 5c 40 d9 c5 e3 d9 c9 c5 e5 c5 40 d7 c1 ┆***************** r* RETRIEVE PA┆