*DECK SM5ST 
          PROC SM5ST(VARIABLE); 
#**       SM5ST -  SET RAW PARAMETER OF ST                             #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         CALL SM5ST(VARIABLE)                                         #
#                                                                      #
#     GIVEN-                                                           #
#         VARIABLE = INTEGER THAT WILL BE SET TO HIGHEST ERROR SEVERITY#
#                1 = TRIVIAL                                           #
#                2 = WARNING                                           #
#                3 = FATAL                                             #
#                4 = CATASTROPHIC                                      #
#                                                                      #
#     DOES-                                                            #
#         IF CALLED IN WRONG ORDER,                                    #
#             ISSUE A DIAGNOSTIC, AND                                  #
#             RETURN.                                                  #
#         SAVE RAW PARAMETER OF TYPE "ST".                             #
  
  
          BEGIN 
          ITEM  VARIABLE     I;        # INTEGER SET TO HIGHEST ERROR/S#
  
          XREF
              BEGIN 
              PROC  S$ERROR;           # HANDLE A USER ERROR           #
              FUNC  S$INSEQ  B;        # TRUE IFF CALL IN SEQUENCE     #
              ITEM S$STVAR   I;        # ADDRESS OF 'STATUS' VARIABLE  #
              ITEM S$JCRV    I;        # CONTROL REGISTER              #
              END 
  
*CALL A 
  
*CALL E$
  
  
*CALL SQ$ 
  
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
  
#     IF CALLED IN THE WRONG ORDER,                                    #
#         ISSUE A DIAGNOSTIC, AND                                      #
#         RETURN.                                                      #
  
          IF NOT S$INSEQ(SQ$"SM5ST")  THEN
              BEGIN 
              S$ERROR(E$110);          # CALL OUT OF SEQUENCE          #
#***#         RETURN; 
              END 
  
#     SET THE ERROR SEVERITY.                                          #
  
#            SET ADDRESS OF 'VARIABLE' INTO GLOBAL VARIABLE            #
          S$STVAR = LOC(VARIABLE);
  
          END # SM5ST # 
          TERM
