|
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: »RPGST «
└─⟦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⟧ ».RPGST «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGST'***************** *************************************************************************** * **** * 06/13/83 the screen displayed default for the # of blocks used by the**** * work files is changed from '0040' to '40'. the default for **** * the 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 THE PREVIOUS PROC RUN WAS NOT AN RPG PROC * * THEN 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 ****************************** * RETRIEVE PARMS FROM LDA * ****************************** // TAG RETPARMS // EVALUATE P2='?L'435,8'?' P3='?L'95,1'?' P4='?L'129,8'?' P5='?L'126,3'?' + P6='?L'419,8'?' P1='RPGSEU' **************** * CALL HELP. * **************** // HELP *ALL // RETURN ******************************************************************************* * * THIS PROCEDURE HAS NO PARAMETERS. IT'S PURPOSE IS TO DO THE MEMORY * PROCESSING FOR THE RPGS PROCEDURE. IT IS CALLED IF THE USER CHOOSES * OPTION 2 FROM THE RPG MENU. * *******************************************************************************
0x000…001 0xcb 0x001…04c »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGST'*****************« 0x04c…04d 0x05 0x04d…04e 0xcb 0x04e…099 »***************************************************************************« 0x099…09a 0x05 0x09a…09b 0x81 0x09b…09c »*« 0x09c…09d 0x46 0x09d…09e 0x84 0x09e…0a2 »****« 0x0a2…0a3 0x05 0x0a3…0a4 0xcb 0x0a4…0ef »* 06/13/83 the screen displayed default for the # of blocks used by the****« 0x0ef…0f0 0x05 0x0f0…0f1 0x81 0x0f1…0f2 »*« 0x0f2…0f3 0x0a 0x0f3…0f4 0xba 0x0f4…12e »work files is changed from '0040' to '40'. the default for« 0x12e…12f 0x02 0x12f…130 0x84 0x130…134 »****« 0x134…135 0x05 0x135…136 0x81 0x136…137 »*« 0x137…138 0x0a 0x138…139 0xb9 0x139…172 »the mrt maximum is changed from '00' to '0'. this work is« 0x172…173 0x03 0x173…174 0x84 0x174…178 »****« 0x178…179 0x05 0x179…17a 0x81 0x17a…17b »*« 0x17b…17c 0x0a 0x17c…17d 0x9c 0x17d…199 »performed under ptr ev70958.« 0x199…19a 0x20 0x19a…19b 0x84 0x19b…19f »****« 0x19f…1a0 0x05 0x1a0…1a1 0xbf 0x1a1…1e0 »* 06/03/84 CC6116 The MRO default is written to the LDA - NOMRO« 0x1e0…1e1 0x08 0x1e1…1e2 0x84 0x1e2…1e6 »****« 0x1e6…1e7 0x05 0x1e7…1e8 0x81 0x1e8…1e9 »*« 0x1e9…1ea 0x46 0x1ea…1eb 0x84 0x1eb…1ef »****« 0x1ef…1f0 0x05 0x1f0…1f1 0xcb 0x1f1…23c »***************************************************************************« 0x23c…23d 0x05 0x23d…23e 0x94 0x23e…252 »// LOCAL AREA-SYSTEM« 0x252…253 0x3c 0x253…254 0xc4 0x254…298 »********************************************************************« 0x298…299 0x0c 0x299…29a 0x81 0x29a…29b »*« 0x29b…29c 0x02 0x29c…29d 0xac 0x29d…2c9 »IF THE PREVIOUS PROC RUN WAS NOT AN RPG PROC« 0x2c9…2ca 0x14 0x2ca…2cb 0x81 0x2cb…2cc »*« 0x2cc…2cd 0x0c 0x2cd…2ce 0x81 0x2ce…2cf »*« 0x2cf…2d0 0x02 0x2d0…2d1 0x98 0x2d1…2e9 »THEN INITIALIZE THE LDA.« 0x2e9…2ea 0x28 0x2ea…2eb 0x81 0x2eb…2ec »*« 0x2ec…2ed 0x0c 0x2ed…2ee 0xc4 0x2ee…332 »********************************************************************« 0x332…333 0x0c 0x333…334 0xa4 0x334…358 »// IF '?L'1,3'?'/'RPG' GOTO RETPARMS« 0x358…359 0x2c 0x359…35a 0xaf 0x35a…389 »***********************************************« 0x389…38a 0x21 0x38a…38b 0x81 0x38b…38c »*« 0x38c…38d 0x02 0x38d…38e 0x92 0x38e…3a0 »INITIALIZE THE LDA« 0x3a0…3a1 0x19 0x3a1…3a2 0x81 0x3a2…3a3 »*« 0x3a3…3a4 0x21 0x3a4…3a5 0xaf 0x3a5…3d4 »***********************************************« 0x3d4…3d5 0x21 0x3d5…3d6 0x98 0x3d6…3ee »// LOCAL OFFSET-1,DATA-'« 0x3ee…3ef 0x08 0x3ef…3f0 0x8a 0x3f0…3fa »NODSMPRINT« 0x3fa…3fb 0x02 0x3fb…3fc 0x9a 0x3fc…416 »NOXREF0 NONEP',BLANK-384,+« 0x416…417 0x0a 0x417…418 0x8b 0x418…423 »AREA-SYSTEM« 0x423…424 0x45 0x424…425 0xab 0x425…450 »// LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK« 0x450…451 0x02 0x451…452 0x8b 0x452…45d »NOOBJECTGEN« 0x45d…45e 0x03 0x45e…45f 0x82 0x45f…461 »40« 0x461…462 0x02 0x462…463 0x84 0x463…467 »COMP« 0x467…468 0x02 0x468…469 0x86 0x469…46f »R96',+« 0x46f…470 0x05 0x470…471 0x8b 0x471…47c »AREA-SYSTEM« 0x47c…47d 0x45 0x47d…47e 0xb5 0x47e…4b3 »// LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM« 0x4b3…4b4 0x1b 0x4b4…4b5 0xb4 0x4b5…4e9 »// LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM« 0x4e9…4ea 0x1c 0x4ea…4eb 0x9e 0x4eb…509 »******************************« 0x509…50a 0x32 0x50a…50b 0x81 0x50b…50c »*« 0x50c…50d 0x02 0x50d…50e 0x97 0x50e…525 »RETRIEVE PARMS FROM LDA« 0x525…526 0x03 0x526…527 0x81 0x527…528 »*« 0x528…529 0x32 0x529…52a 0x9e 0x52a…548 »******************************« 0x548…549 0x32 0x549…54a 0x8f 0x54a…559 »// TAG RETPARMS« 0x559…55a 0x41 0x55a…55b 0xcc 0x55b…5a7 »// EVALUATE P2='?L'435,8'?' P3='?L'95,1'?' P4='?L'129,8'?' P5='?L'126,3'?' +« 0x5a7…5a8 0x04 0x5a8…5a9 0x9b 0x5a9…5c4 »P6='?L'419,8'?' P1='RPGSEU'« 0x5c4…5c5 0x35 0x5c5…5c6 0x90 0x5c6…5d6 »****************« 0x5d6…5d7 0x40 0x5d7…5d8 0x81 0x5d8…5d9 »*« 0x5d9…5da 0x02 0x5da…5db 0x8a 0x5db…5e5 »CALL HELP.« 0x5e5…5e6 0x02 0x5e6…5e7 0x81 0x5e7…5e8 »*« 0x5e8…5e9 0x40 0x5e9…5ea 0x90 0x5ea…5fa »****************« 0x5fa…5fb 0x40 0x5fb…5fc 0x8c 0x5fc…608 »// HELP *ALL« 0x608…609 0x44 0x609…60a 0x89 0x60a…613 »// RETURN« 0x613…614 0x47 0x614…615 0xd0 0x615…665 »******************************************************************************* « 0x665…666 0x81 0x666…667 »*« 0x667…668 0x4f 0x668…669 0x81 0x669…66a »*« 0x66a…66b 0x05 0x66b…66c 0xa1 0x66c…68d »THIS PROCEDURE HAS NO PARAMETERS.« 0x68d…68e 0x02 0x68e…68f 0xa0 0x68f…6af »IT'S PURPOSE IS TO DO THE MEMORY« 0x6af…6b0 0x07 0x6b0…6b1 0x81 0x6b1…6b2 »*« 0x6b2…6b3 0x05 0x6b3…6b4 0xa2 0x6b4…6d6 »PROCESSING FOR THE RPGS PROCEDURE.« 0x6d6…6d7 0x02 0x6d7…6d8 0xa0 0x6d8…6f8 »IT IS CALLED IF THE USER CHOOSES« 0x6f8…6f9 0x06 0x6f9…6fa 0x81 0x6fa…6fb »*« 0x6fb…6fc 0x05 0x6fc…6fd 0x9b 0x6fd…718 »OPTION 2 FROM THE RPG MENU.« 0x718…719 0x2f 0x719…71a 0x81 0x71a…71b »*« 0x71b…71c 0x4f 0x71c…71d 0xd0 0x71d…76d »******************************************************************************* « 0x76d…76e 0x00 0x76e…780 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆******************┆ 0x780…7a0 5c 5c 5c 5c 5c 5c 5c 5c 5c 21 81 5c 02 92 c9 d5 c9 e3 c9 c1 d3 c9 e9 c5 40 e3 c8 c5 40 d3 c4 c1 ┆********* a* kINITIALIZE THE LDA┆ 0x7a0…7c0 19 81 5c 21 af 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 ┆ a* ®***************************┆ 0x7c0…7e0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 21 98 61 61 40 d3 d6 c3 c1 d3 40 d6 ┆******************** q// LOCAL O┆ 0x7e0…800 c6 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 ┆FFSET-1,DATA-' «NODSMPRINT ªNOXR┆