*DECK GLOADP1 
          PROC  CGLODP1;
  
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
 #                                                                     #
 #        CGLODP1 -  LOAD P1_P4 INTO PARM1_PARM4                       #
 #                                                                     #
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
  
          BEGIN 
*CALL M$
*CALL FIXCOM
*CALL FIXED 
  
          COMMON  PARMS;
              BEGIN 
              ITEM  PARM1    I; 
              ITEM  PARM2    I; 
              ITEM  PARM3    I; 
              ITEM  PARM4    I; 
              END  #PARMS#
  
  
          PARM1 = FIXEDCELL[FIXED"P1"]; 
          PARM2 = FIXEDCELL[FIXED"P2"]; 
          PARM3 = FIXEDCELL[FIXED"P3"]; 
          PARM4 = FIXEDCELL[FIXED"P4"]; 
  
          RETURN; 
  
          END 
          TERM
