*DECK GSTORP1 
          PROC  CGSTOP1;
  
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
 #                                                                     #
 #        CGSTOP1 -  STORE INTO P1_P4 FROM 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#
  
  
          FIXEDCELL[FIXED"P1"] = PARM1; 
          FIXEDCELL[FIXED"P2"] = PARM2; 
          FIXEDCELL[FIXED"P3"] = PARM3; 
          FIXEDCELL[FIXED"P4"] = PARM4; 
  
          RETURN; 
  
          END 
          TERM
