*DECK SM5NODA 
          PROC  SM5NODA;
  
*CALL COPYRIGHT 
#**       SM5NODA -  SUPPRESS SORT/MERGE DAYFILE MESSAGE               #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         CALL SM5NODA (WITH NO PARAMETERS)                            #
#                                                                      #
#     DOES-                                                            #
#         SUPPRESSES THE DAYFILE MESSAGE BY SAVING THE RP$ NODAY       #
  
  
          BEGIN 
  
*CALL A 
  
*CALL E$
  
*CALL SQ$ 
  
*CALL RP$ 
  
          XREF
              BEGIN 
              PROC  S$ERROR;           #   HANDLE INTERNAL ERROR       #
              PROC  S$SVREL;
              FUNC  S$INSEQ  B;        # IFF CALL IN SEQUENCE          #
              END 
  
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
  
#     IF CALLED OUT OF ORDER,                                          #
#         DIAGNOSE, AND                                                #
#         EXIT.                                                        #
  
          IF NOT S$INSEQ(SQ$"SM5NODA") THEN 
              BEGIN 
#***#         S$ERROR(E$110);          # CALL OUT OF SEQUENCE          #
              END 
  
  
          RP$TYPE = RP$T"NODAY";
          RP$VALUEC = "NODAY";
          S$SVREL(RP$); 
  
          END # SM5NODA # 
          TERM
