|
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: »RPGCT «
└─⟦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⟧ ».RPGCT «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGCT'*************** ************************************************************************* * ** * 06/13/83 the screen displayed default for the # of blocks used by ** * the work files is changed from '0040' to '40'. the default ** * mrt maximum is changed from '00' to '0'. this work is ** * performed under ev70958. ** * 06/03/84 CC 6116 The MRO parameter was added as parameter 21 ** * ** ************************************************************************* // LOCAL AREA-SYSTEM *************************************************** * IF THE PREVIOUS PROC WAS A 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 R96',+ 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='RPGC' // EVALUATE P2='?L'435,8'?' P3='?L'419,8'?' P4='?L'9,5'?' 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 RPGC PROCEDURE. IT IS CALLED IF THE USER CHOOSES * * OPTION 3 FROM THE RPG MENU. THE NAME RPGCT IS PUT IN THE LDA TO * * TELL RPGC IT WAS CALLED BY RPGCT. * * * *******************************************************************************
0x000…001 0xc9 0x001…04a »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGCT'***************« 0x04a…04b 0x07 0x04b…04c 0xc9 0x04c…095 »*************************************************************************« 0x095…096 0x07 0x096…097 0x81 0x097…098 »*« 0x098…099 0x46 0x099…09a 0x82 0x09a…09c »**« 0x09c…09d 0x07 0x09d…09e 0x81 0x09e…09f »*« 0x09f…0a0 0x02 0x0a0…0a1 0xc1 0x0a1…0e2 »06/13/83 the screen displayed default for the # of blocks used by« 0x0e2…0e3 0x03 0x0e3…0e4 0x82 0x0e4…0e6 »**« 0x0e6…0e7 0x07 0x0e7…0e8 0x81 0x0e8…0e9 »*« 0x0e9…0ea 0x0b 0x0ea…0eb 0xbd 0x0eb…128 »the work files is changed from '0040' to '40'. the default **« 0x128…129 0x07 0x129…12a 0x81 0x12a…12b »*« 0x12b…12c 0x0b 0x12c…12d 0xb5 0x12d…162 »mrt maximum is changed from '00' to '0'. this work is« 0x162…163 0x06 0x163…164 0x82 0x164…166 »**« 0x166…167 0x07 0x167…168 0x81 0x168…169 »*« 0x169…16a 0x0b 0x16a…16b 0x98 0x16b…183 »performed under ev70958.« 0x183…184 0x23 0x184…185 0x82 0x185…187 »**« 0x187…188 0x07 0x188…189 0x81 0x189…18a »*« 0x18a…18b 0x02 0x18b…18c 0xbc 0x18c…1c8 »06/03/84 CC 6116 The MRO parameter was added as parameter 21« 0x1c8…1c9 0x08 0x1c9…1ca 0x82 0x1ca…1cc »**« 0x1cc…1cd 0x07 0x1cd…1ce 0x81 0x1ce…1cf »*« 0x1cf…1d0 0x46 0x1d0…1d1 0x82 0x1d1…1d3 »**« 0x1d3…1d4 0x07 0x1d4…1d5 0xc9 0x1d5…21e »*************************************************************************« 0x21e…21f 0x07 0x21f…220 0x94 0x220…234 »// LOCAL AREA-SYSTEM« 0x234…235 0x3c 0x235…236 0xb3 0x236…269 »***************************************************« 0x269…26a 0x1d 0x26a…26b 0xa8 0x26b…293 »* IF THE PREVIOUS PROC WAS A AN RPG PROC« 0x293…294 0x0a 0x294…295 0x81 0x295…296 »*« 0x296…297 0x1d 0x297…298 0x9f 0x298…2b7 »* THEN LOCAL 1-3 WILL BE 'RPG'.« 0x2b7…2b8 0x13 0x2b8…2b9 0x81 0x2b9…2ba »*« 0x2ba…2bb 0x1d 0x2bb…2bc 0xa2 0x2bc…2de »* IF SO, DON'T INITIALIZE THE LDA.« 0x2de…2df 0x10 0x2df…2e0 0x81 0x2e0…2e1 »*« 0x2e1…2e2 0x1d 0x2e2…2e3 0xb3 0x2e3…316 »***************************************************« 0x316…317 0x1d 0x317…318 0xa4 0x318…33c »// IF '?L'1,3'?'/'RPG' GOTO RETPARMS« 0x33c…33d 0x2c 0x33d…33e 0xa7 0x33e…365 »***************************************« 0x365…366 0x29 0x366…367 0x81 0x367…368 »*« 0x368…369 0x02 0x369…36a 0xa1 0x36a…38b »BLANK THE LDA AND THEN INITIALIZE« 0x38b…38c 0x02 0x38c…38d 0x81 0x38d…38e »*« 0x38e…38f 0x29 0x38f…390 0x81 0x390…391 »*« 0x391…392 0x02 0x392…393 0x8e 0x393…3a1 »(SEE LDADATA.)« 0x3a1…3a2 0x15 0x3a2…3a3 0x81 0x3a3…3a4 »*« 0x3a4…3a5 0x29 0x3a5…3a6 0xa7 0x3a6…3cd »***************************************« 0x3cd…3ce 0x29 0x3ce…3cf 0x98 0x3cf…3e7 »// LOCAL OFFSET-1,DATA-'« 0x3e7…3e8 0x08 0x3e8…3e9 0x8a 0x3e9…3f3 »NODSMPRINT« 0x3f3…3f4 0x02 0x3f4…3f5 0x9a 0x3f5…40f »NOXREF0 NONEP',BLANK-384,+« 0x40f…410 0x0a 0x410…411 0x8b 0x411…41c »AREA-SYSTEM« 0x41c…41d 0x45 0x41d…41e 0xab 0x41e…449 »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK« 0x449…44a 0x02 0x44a…44b 0x8b 0x44b…456 »NOOBJECTGEN« 0x456…457 0x03 0x457…458 0x82 0x458…45a »40« 0x45a…45b 0x02 0x45b…45c 0x84 0x45c…460 »COMP« 0x460…461 0x02 0x461…462 0x86 0x462…468 »R96',+« 0x468…469 0x05 0x469…46a 0x8b 0x46a…475 »AREA-SYSTEM« 0x475…476 0x45 0x476…477 0xb5 0x477…4ac »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x4ac…4ad 0x1b 0x4ad…4ae 0xb4 0x4ae…4e2 »// LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM« 0x4e2…4e3 0x1c 0x4e3…4e4 0xa1 0x4e4…505 »*********************************« 0x505…506 0x2f 0x506…507 0x81 0x507…508 »*« 0x508…509 0x05 0x509…50a 0x97 0x50a…521 »RETRIEVE PARMS FROM LDA« 0x521…522 0x03 0x522…523 0x81 0x523…524 »*« 0x524…525 0x2f 0x525…526 0xa1 0x526…547 »*********************************« 0x547…548 0x2f 0x548…549 0x8f 0x549…558 »// TAG RETPARMS« 0x558…559 0x41 0x559…55a 0x95 0x55a…56f »// EVALUATE P1='RPGC'« 0x56f…570 0x3b 0x570…571 0xca 0x571…5bb »// EVALUATE P2='?L'435,8'?' P3='?L'419,8'?' P4='?L'9,5'?' P5='?L'14,7'?' +« 0x5bb…5bc 0x06 0x5bc…5bd 0xcc 0x5bd…609 »P6='?L'21,6'?' P7='?L'27,2'?' P8='?L'29,5'?' P9='?L'427,8'?' P10='?L'34,8'?'« 0x609…60a 0x04 0x60a…60b 0xcd 0x60b…658 »// EVALUATE P11='?L'42,7'?' P12='?L'49,2'?' P13='?L'51,6'?' P14='?L'57,8'?' +« 0x658…659 0x03 0x659…65a 0xd0 0x65a…6aa »P15='?L'65,6'?' P16='?L'71,8'?' P17='?L'161,8'?' P18='?L'79,6'?' P19='?L'85,4'?'« 0x6aa…6ab 0x9c 0x6ab…6c7 »// EVALUATE P21='?L'453,5'?'« 0x6c7…6c8 0x34 0x6c8…6c9 0x92 0x6c9…6db »******************« 0x6db…6dc 0x3e 0x6dc…6dd 0x81 0x6dd…6de »*« 0x6de…6df 0x03 0x6df…6e0 0x8a 0x6e0…6ea »CALL HELP.« 0x6ea…6eb 0x03 0x6eb…6ec 0x81 0x6ec…6ed »*« 0x6ed…6ee 0x3e 0x6ee…6ef 0x92 0x6ef…701 »******************« 0x701…702 0x3e 0x702…703 0x8c 0x703…70f »// HELP *ALL« 0x70f…710 0x44 0x710…711 0x89 0x711…71a »// RETURN« 0x71a…71b 0x47 0x71b…71c 0xd0 0x71c…76c »******************************************************************************* « 0x76c…76d 0x81 0x76d…76e »*« 0x76e…76f 0x4d 0x76f…770 0x82 0x770…772 »* « 0x772…773 0x81 0x773…774 »*« 0x774…775 0x05 0x775…776 0xa1 0x776…797 »THIS PROCEDURE HAS NO PARAMETERS.« 0x797…798 0x02 0x798…799 0xa0 0x799…7b9 »IT'S PURPOSE IS TO DO THE MEMORY« 0x7b9…7ba 0x05 0x7ba…7bb 0x82 0x7bb…7bd »* « 0x7bd…7be 0x81 0x7be…7bf »*« 0x7bf…7c0 0x05 0x7c0…7c1 0xa2 0x7c1…7e3 »PROCESSING FOR THE RPGC PROCEDURE.« 0x7e3…7e4 0x02 0x7e4…7e5 0xa0 0x7e5…805 »IT IS CALLED IF THE USER CHOOSES« 0x805…806 0x04 0x806…807 0x82 0x807…809 »* « 0x809…80a 0x81 0x80a…80b »*« 0x80b…80c 0x05 0x80c…80d 0xbf 0x80d…84c »OPTION 3 FROM THE RPG MENU. THE NAME RPGCT IS PUT IN THE LDA TO« 0x84c…84d 0x09 0x84d…84e 0x82 0x84e…850 »* « 0x850…851 0x81 0x851…852 »*« 0x852…853 0x05 0x853…854 0xa1 0x854…875 »TELL RPGC IT WAS CALLED BY RPGCT.« 0x875…876 0x27 0x876…877 0x82 0x877…879 »* « 0x879…87a 0x81 0x87a…87b »*« 0x87b…87c 0x4d 0x87c…87d 0x82 0x87d…87f »* « 0x87f…880 0xd0 0x880…8d0 »******************************************************************************* « 0x8d0…8d1 0x00 0x8d1…8e0 c1 d5 d2 60 f5 6b c1 d9 c5 c1 60 e2 e8 e2 e3 ┆ANK-5,AREA-SYST┆ 0x8e0…900 c5 d4 1c a1 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆EM ~****************************┆