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

⟦2e60bec67⟧ 

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

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⟧ ».RPGST   «

Text Member

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

Full view