*DECK MERGE 
          PRGM  MERGE;
  
*CALL COPYRIGHT 
          BEGIN 
          XREF
              BEGIN 
              ITEM S$STVAR;            # STATUS VARIABLE               #
              ITEM S$JCRV;             # JOB CONTROL VARIABLE          #
  
              ARRAY S$ARRY[1:15]; 
                  ITEM S$ARRYELEM        I(0, 0, 60); 
  
              PROC  S$LOADM;           # (LOAD AND) EXECUTE SORT/MERGE #
              ITEM  S$SMFLG;   # 1=SORT, 2=MERGE #
              END 
  
          ITEM I     I; 
          XREF
*CALL S$CALLR 
          CONTROL DISJOINT; 
  
          CONTROL INERT;
  
          S$SMFLG = 2;    # THIS IS A MERGE RUN # 
  
          S$JCRV = 0;                  # ZERO OUT STATUS VARIABLE LOC. #
          S$STVAR = 0;                 # ZERO OUT CCL REGISTER LOCATION#
          FOR I=1 STEP 1 UNTIL 15  DO 
              S$ARRYELEM[I] = 0;       # ZERO OUT STATISTICS ARRAY     #
          S$CALLR = 1;                 # INVOKED FROM CONTROL STATEMENT#
          S$LOADM;                     # (LOAD AND) EXECUTE SORT/MERGE #
  
          END  # MERGE #
          TERM
