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

⟦b2bb5fa98⟧ 

    Length: 2304 (0x900)
    Notes: MEMBER_P, Member_Text
    Names: »RPGCT   «

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

Text Member

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

Full view