DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦d0dfb851d⟧ 

    Length: 2048 (0x800)
    Notes: MEMBER_P, Member_Text
    Names: »RPGXT   «

Derivation

└─⟦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   «

Text Member

*** 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.                                               
*                                                                               
*******************************************************************************

Full view