*DECK S$GNSMF 
          IDENT  S$GNSMF
          TITLE GENERATE SUMMING FIELD SETUP CODE 
          COMMENT GENERATE SUMMING FIELD SETUP CODE 
*CALL LBLPTR
  
  
**        S$GNSMF- GENERATE SUMMING FIELD SETUP CODE
* 
*      CALLING SEQUENCE-
*         S$GNSMF;
* 
*      DOES-
*         GENERATE CODE TO SET UP FOR EACH SUM FIELD- 
*                SETS X3,X5 TO 0 FOR USE BY S$GNSMI 1ST TIME
* 
  
          ENTRY  S$GNSMF
 S$GNSMF  SUBR
  
          SB1    1           CONSTANT 1 
  
*         SET X3,X5 TO 0
  
          GEN    (MX7 0)
          GEN    (SA7 "SUMSVX3")
          GEN    (SA7 "SUMSVX5")
  
          EXIT
          END 
