*DECK S$SMFLG 
          IDENT  S$SMFLG
          TITLE  S$SMFLG - FLAG SORT OR MERGE 
          COMMENT  FLAG SORT OR MERGE 
          ENTRY  S$SMFLG
          SPACE  4
*         THIS IS A ONE-WORD DATA AREA TACKED ON TO SORT5 AS AN 
*         AFTERTHOUGHT. SINCE WE ONLY SORT AND DON'T CARE WHAT THE
*         USER WANTS (SORT OR MERGE) - WE HAD NEGLECTED TO REMEMBER 
*         IT (WHAT THE USER WANTED).
*         WE WERE FORCED TO REMEMBER BY THE NEED TO IMPLEMENT 
*         MERGE WITH VERIFY, SO THIS CLUTZY FLAG WAS IMPLEMENTED. 
  
*                 * CONVENTIONS * 
  
*          S$SMFLG = 0 IS ITS INITIAL STATE 
*          S$SMFLG = 1 MEANS A SORT 
*          S$SMFLG = 2 MEANS A MERGE
  
*         IF THE FLAG IS STILL ZERO (OR SOMETHING NOT 1 OR 2) 
*         BY THE TIME WE GET TO S$SETWH, AN INTERNAL ABORT WILL OCCUR.
  
S$SMFLG   DATA   0
  
          END 
