*DECK S$CALLER
          IDENT  S$CALLR
          TITLE  S$CALLR -  TYPE OF CALLER OF SORT/MERGE
          COMMENT  TYPE OF CALLER OF SORT/MERGE 
          SPACE  4
**        S$CALLR -  TYPE OF CALLER OF SORT/MERGE 
* 
*     USAGE-
* 
*         =1= SORT/MERGE WAS INVOKED FROM A CONTROL STATEMENT 
*         =2= SORT/MERGE WAS INVOKED FROM SM5END
*         =3= SORT/MERGE WAS INVOKED FROM SMEND 
*         =4= SORT/MERGE TO BE USED W/ INTERACTIVE DIALOGUE 
* 
  
          ENTRY  S$CALLR
 S$CALLR  VFD    42/,18/400000B+* 
  
  
          END 
