|
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: 2048 (0x800)
Notes: MEMBER_P, Member_Text
Names: »RPGXT «
└─⟦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⟧ ».RPGXT «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGXT'******************** ****************************************************************************** * ******* * 06/13/83 the screen displayed default for # of blocks used by the ******* * 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 default is written to the LDA - NOMRO ******* * ******* ****************************************************************************** // LOCAL AREA-SYSTEM ****************************************************************************** * IF PARAMETER MEMORY IN EFFECT, THEN DO NOT INITIALIZE THE LDA. * ****************************************************************************** // IF '?L'1,3'?'/'RPG' GOTO RETPARMS ****************************** * INITIALIZE THE LDA * ****************************** // 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 ****************************** * RETREIVE PARMS FROM LDA * ****************************** // TAG RETPARMS // EVALUATE P1='RPGX' P2='?L'435,8'?' P3='?L'85,4'?' P4='?L'419,8'?' **************** * CALL HELP. * **************** HELP *ALL // RETURN ******************************************************************************* * * THIS PROCEDURE HAS NO PARAMETERS. IT'S PURPOSE IS TO DO THE MEMORY * PROCESSING FOR THE RPGX PROCEDURE. IT IS CALLED IF THE USER CHOOSES * OPTION 4 FROM THE RPG MENU. * *******************************************************************************
0x000…001 0xce 0x001…04f »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGXT'********************« 0x04f…050 0x02 0x050…051 0xce 0x051…09f »******************************************************************************« 0x09f…0a0 0x02 0x0a0…0a1 0x81 0x0a1…0a2 »*« 0x0a2…0a3 0x46 0x0a3…0a4 0x87 0x0a4…0ab »*******« 0x0ab…0ac 0x02 0x0ac…0ad 0x81 0x0ad…0ae »*« 0x0ae…0af 0x02 0x0af…0b0 0xc1 0x0b0…0f1 »06/13/83 the screen displayed default for # of blocks used by the« 0x0f1…0f2 0x03 0x0f2…0f3 0x87 0x0f3…0fa »*******« 0x0fa…0fb 0x02 0x0fb…0fc 0x81 0x0fc…0fd »*« 0x0fd…0fe 0x0b 0x0fe…0ff 0xaa 0x0ff…129 »work files is changed from '0040' to '40'.« 0x129…12a 0x02 0x12a…12b 0x8b 0x12b…136 »the default« 0x136…137 0x04 0x137…138 0x87 0x138…13f »*******« 0x13f…140 0x02 0x140…141 0x81 0x141…142 »*« 0x142…143 0x0b 0x143…144 0xb9 0x144…17d »for mrt maximum is changed from '00' to '0'. this work is« 0x17d…17e 0x02 0x17e…17f 0x87 0x17f…186 »*******« 0x186…187 0x02 0x187…188 0x81 0x188…189 »*« 0x189…18a 0x0b 0x18a…18b 0x9c 0x18b…1a7 »performed under ptr ev70958.« 0x1a7…1a8 0x1f 0x1a8…1a9 0x87 0x1a9…1b0 »*******« 0x1b0…1b1 0x02 0x1b1…1b2 0x81 0x1b2…1b3 »*« 0x1b3…1b4 0x02 0x1b4…1b5 0xbd 0x1b5…1f2 »06/03/84 CC6116 The MRO default is written to the LDA - NOMRO« 0x1f2…1f3 0x07 0x1f3…1f4 0x87 0x1f4…1fb »*******« 0x1fb…1fc 0x02 0x1fc…1fd 0x81 0x1fd…1fe »*« 0x1fe…1ff 0x46 0x1ff…200 0x87 0x200…207 »*******« 0x207…208 0x02 0x208…209 0xce 0x209…257 »******************************************************************************« 0x257…258 0x02 0x258…259 0x94 0x259…26d »// LOCAL AREA-SYSTEM« 0x26d…26e 0x3c 0x26e…26f 0xce 0x26f…2bd »******************************************************************************« 0x2bd…2be 0x02 0x2be…2bf 0x81 0x2bf…2c0 »*« 0x2c0…2c1 0x02 0x2c1…2c2 0xbe 0x2c2…300 »IF PARAMETER MEMORY IN EFFECT, THEN DO NOT INITIALIZE THE LDA.« 0x300…301 0x0c 0x301…302 0x81 0x302…303 »*« 0x303…304 0x02 0x304…305 0xce 0x305…353 »******************************************************************************« 0x353…354 0x02 0x354…355 0xa4 0x355…379 »// IF '?L'1,3'?'/'RPG' GOTO RETPARMS« 0x379…37a 0x2c 0x37a…37b 0x9e 0x37b…399 »******************************« 0x399…39a 0x32 0x39a…39b 0x81 0x39b…39c »*« 0x39c…39d 0x02 0x39d…39e 0x92 0x39e…3b0 »INITIALIZE THE LDA« 0x3b0…3b1 0x08 0x3b1…3b2 0x81 0x3b2…3b3 »*« 0x3b3…3b4 0x32 0x3b4…3b5 0x9e 0x3b5…3d3 »******************************« 0x3d3…3d4 0x32 0x3d4…3d5 0x98 0x3d5…3ed »// LOCAL OFFSET-1,DATA-'« 0x3ed…3ee 0x08 0x3ee…3ef 0x8a 0x3ef…3f9 »NODSMPRINT« 0x3f9…3fa 0x02 0x3fa…3fb 0x9a 0x3fb…415 »NOXREF0 NONEP',BLANK-384,+« 0x415…416 0x0a 0x416…417 0x8b 0x417…422 »AREA-SYSTEM« 0x422…423 0x45 0x423…424 0xab 0x424…44f »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK« 0x44f…450 0x02 0x450…451 0x8b 0x451…45c »NOOBJECTGEN« 0x45c…45d 0x03 0x45d…45e 0x82 0x45e…460 »40« 0x460…461 0x02 0x461…462 0x84 0x462…466 »COMP« 0x466…467 0x02 0x467…468 0x86 0x468…46e »R96',+« 0x46e…46f 0x05 0x46f…470 0x8b 0x470…47b »AREA-SYSTEM« 0x47b…47c 0x45 0x47c…47d 0xb5 0x47d…4b2 »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x4b2…4b3 0x1b 0x4b3…4b4 0xb4 0x4b4…4e8 »// LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM« 0x4e8…4e9 0x1c 0x4e9…4ea 0x9e 0x4ea…508 »******************************« 0x508…509 0x32 0x509…50a 0x81 0x50a…50b »*« 0x50b…50c 0x02 0x50c…50d 0x97 0x50d…524 »RETREIVE PARMS FROM LDA« 0x524…525 0x03 0x525…526 0x81 0x526…527 »*« 0x527…528 0x32 0x528…529 0x9e 0x529…547 »******************************« 0x547…548 0x32 0x548…549 0x8f 0x549…558 »// TAG RETPARMS« 0x558…559 0x41 0x559…55a 0xc4 0x55a…59e »// EVALUATE P1='RPGX' P2='?L'435,8'?' P3='?L'85,4'?' P4='?L'419,8'?'« 0x59e…59f 0x0c 0x59f…5a0 0x90 0x5a0…5b0 »****************« 0x5b0…5b1 0x40 0x5b1…5b2 0x81 0x5b2…5b3 »*« 0x5b3…5b4 0x02 0x5b4…5b5 0x8a 0x5b5…5bf »CALL HELP.« 0x5bf…5c0 0x02 0x5c0…5c1 0x81 0x5c1…5c2 »*« 0x5c2…5c3 0x40 0x5c3…5c4 0x90 0x5c4…5d4 »****************« 0x5d4…5d5 0x40 0x5d5…5d6 0x89 0x5d6…5df »HELP *ALL« 0x5df…5e0 0x47 0x5e0…5e1 0x89 0x5e1…5ea »// RETURN« 0x5ea…5eb 0x47 0x5eb…5ec 0xd0 0x5ec…63c »******************************************************************************* « 0x63c…63d 0x81 0x63d…63e »*« 0x63e…63f 0x4f 0x63f…640 0x81 0x640…641 »*« 0x641…642 0x05 0x642…643 0xa1 0x643…664 »THIS PROCEDURE HAS NO PARAMETERS.« 0x664…665 0x02 0x665…666 0xa0 0x666…686 »IT'S PURPOSE IS TO DO THE MEMORY« 0x686…687 0x07 0x687…688 0x81 0x688…689 »*« 0x689…68a 0x05 0x68a…68b 0xa2 0x68b…6ad »PROCESSING FOR THE RPGX PROCEDURE.« 0x6ad…6ae 0x02 0x6ae…6af 0xa0 0x6af…6cf »IT IS CALLED IF THE USER CHOOSES« 0x6cf…6d0 0x06 0x6d0…6d1 0x81 0x6d1…6d2 »*« 0x6d2…6d3 0x05 0x6d3…6d4 0x9b 0x6d4…6ef »OPTION 4 FROM THE RPG MENU.« 0x6ef…6f0 0x2f 0x6f0…6f1 0x81 0x6f1…6f2 »*« 0x6f2…6f3 0x4f 0x6f3…6f4 0xd0 0x6f4…744 »******************************************************************************* « 0x744…745 0x00 0x745…760 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 02 a4 61 61 40 c9 c6 40 7d 6f d3 7d f1 ┆************** u// IF '?L'1┆ 0x760…780 6b f3 7d 6f 7d 61 7d d9 d7 c7 7d 40 c7 d6 e3 d6 40 d9 c5 e3 d7 c1 d9 d4 e2 2c 9e 5c 5c 5c 5c 5c ┆,3'?'/'RPG' GOTO RETPARMS Æ*****┆ 0x780…7a0 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 32 81 5c 02 92 c9 d5 ┆************************* a* kIN┆ 0x7a0…7c0 c9 e3 c9 c1 d3 c9 e9 c5 40 e3 c8 c5 40 d3 c4 c1 08 81 5c 32 9e 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ITIALIZE THE LDA a* Æ***********┆ 0x7c0…7e0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 32 98 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 ┆******************* q// LOCAL OF┆ 0x7e0…800 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d 08 8a d5 d6 c4 e2 d4 d7 d9 c9 d5 e3 02 9a d5 d6 e7 d9 c5 ┆FSET-1,DATA-' «NODSMPRINT ªNOXRE┆