*DECK SM5END
          PROC  SM5END; 
  
*CALL COPYRIGHT 
#**       SM5END -  END PARAMETER-GATHERING AND START SORT/MERGE       #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         CALL SM5SORT       (E.G..                                    #
#         ...                                                          #
#         CALL SM5END                                                  #
#                                                                      #
#     DOES-                                                            #
#         THIS ENDS PARAMETER-GATHERING (VIA CALLS TO SM<XXX>) AND     #
#         STARTS SORT/MERGE PROCESSING.                                #
#                                                                      #
#     NOTE-                                                            #
#         THIS AND THE OTHER SM<XXX> PROCEDURES ARE 100 PER CENT       #
#         EXTERNALLY COMPATIBLE WITH SORT4 PROCEDURES OF THE SAME NAME.#
  
  
          BEGIN 
  
*CALL A 
  
*CALL E$
  
*CALL SQ$ 
  
          XREF
              BEGIN 
              PROC  S$ERROR;           #   HANDLE INTERNAL ERROR       #
              FUNC  S$INSEQ  B;        # IFF CALL IN SEQUENCE          #
              PROC  S$LOADM;           # LOAD MAIN MODULE              #
              END 
  
          XREF
*CALL S$CALLR 
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
  
#     IF CALLED OUT OF ORDER,                                          #
#         DIAGNOSE, AND                                                #
#         EXIT.                                                        #
  
          IF NOT S$INSEQ(SQ$"SM5END") THEN
              BEGIN 
#***#         S$ERROR(E$110);          # CALL OUT OF SEQUENCE          #
              END 
  
          S$CALLR = 2;                 # NOTE TYPE OF CALLER           #
          S$LOADM;                     # (LOAD AND) EXECUTE SORT/MERGE #
  
          END # SM5END #
          TERM
