*DECK S$GORA
          PROC  S$GORA; 
  
#**       S$GORA - GO OR ABORT SORT                                    #
#                                                                      #
#      CALLING SEQUENCE -                                              #
#         S$GORA:                                                      #
#                                                                      #
#      GIVEN -  NO PARAMETERS                                          #
#                                                                      #
#      DOES -                                                          #
#         IF S$MXERR EQ "CATASTROPHIC"  THEN 'S$ABT' IS CALLED         #
#         ELSE RETURN TO CALLING ROUTINE                               #
#                                                                      #
  
          BEGIN 
  
*CALL A 
  
*CALL JCREG 
  
*CALL STATUS$ 
  
          XREF
              BEGIN 
              ITEM S$MXERR;            # MAXIMUM SEVERITY ENCOUNTERED  #
              ITEM S$JCRV   S:JCREG;   # CONTROL REGISTERS             #
  
              PROC S$ABT;              # ABORTS SORT                   #
              PROC S$ERROR;            # FOR FINAL CALL OF S$ERROR     #
              PROC S$SJCR;             # SET CONTROL REGISTER          #
              END 
  
          CONTROL DISJOINT; 
  
          CONTROL INERT;
  
          IF S$MXERR EQ 50  # CATASTOPHIC #  THEN 
              BEGIN 
              S$ERROR(0, " ", 0);      # END ERROR PROCESSING          #
              IF S$JCRV NQ 0  THEN
                  BEGIN 
                  S$SJCR(S$JCRV,S$MXERR);     # SET CONTROL REGISTER   #
                  END 
              S$ABT;
              END 
          END    # OF S$GORA #
  
          TERM
