*DECK S$SSTAT 
          PROC S$SSTAT; 
#                                                                      #
#         S$SSTAT - SET STATUS VARIABLE                                #
#       CALLING SEQUENCE - NO PARAMETERS                               #
#                                                                      #
#       GIVEN - GLOBAL VARIABLES                                       #
#         S$MXERR = MAXIMUM ERROR LEVEL ENCOUNTERED                    #
#         S$JCRV = JOB CONTROL REGISTER TO BE SET WITH STATUS          #
#         S$STVAR = VARIABLE TO BE SET WITH STATUS                     #
#                                                                      #
#       DOES -                                                         #
#         IF S$JCRV IS NOT ZERO (IF IT WAS SET BY THE SCANNER) THEN    #
#         THE PROCEDURE 'S$SJCR' (IN COMPASS) IS USED TO SET THE       #
#         DESIRED JOB CONTROL REGISTER WITH THE HIGHEST ERROR LEVEL    #
#         ENCOUNTERED DURING SORT.  IF S$STVAR IS NOT ZERO (IF SM5ST   #
#         WAS CALLED) THEN THE ERROR LEVEL IS SET INTO THE DEISERED    #
#         VARIABLE LOCATION.                                           #
#                                                                      #
  
          BEGIN 
  
*CALL JCREG 
  
          BASED ARRAY STVAR$ [0:0]; 
              ITEM STVAR$LOC      I(0, 0, 60);
  
          XREF
              BEGIN 
              ITEM S$MXERR;            # ERROR LEVEL ENCOUNTERED       #
              ITEM S$JCRV S:JCREG;     # CONTROL REGISTER TO BE SET    #
              ITEM S$STVAR;            # VARIABLE TO BE SET            #
  
              PROC S$SJCR;             # SETS THE CONTROL REGISTER     #
              END 
  
#               ***** P R O G R A M *****                              #
  
          IF S$JCRV NQ 0  THEN
              S$SJCR(S$JCRV,S$MXERR); 
  
          IF S$STVAR NQ 0  THEN 
              BEGIN 
              P<STVAR$> = S$STVAR;
              STVAR$LOC = S$MXERR;
              END 
  
          END  # OF S$SSTAT # 
          TERM
