*DECK     CSLOSS
OVERLAY(05,00)
USETEXT          TEXTCS 
USETEXT          TEXTSS 
PRGM CSLOSS;
#     TITLE CSLOSS - OPERATOR SUPERVISION SM OVERLAY.     # 
  
      BEGIN  # CSLOSS # 
# 
**    CSLOSS - OPERATOR SUPERVISION SM OVERLAY. 
* 
*     A. LIM     82/06/15.
* 
*     THE FUNCTION OF THIS PROGRAM IS TO BUILD THE SKELETON OF THE
*     OPERATOR SUPERVISION SM OVERLAY (05,00) AND TRANSFER
*     CONTROL TO THE APPROPRIATE ENTRY POINT (*OVENUM* IN COMMON
*     BLOCK IN TEXTSS).   UPON EXIT, CONTROL TRANSFERS TO SERVICE 
*     AND SCHEDULOR THROUGH *SSORTN*. 
* 
*     PRGM CSLOSS 
* 
*     ENTRY    NEXT OVERLAY ENTRY POINT NUMBER *OVENUM* TO EXECUTE. 
* 
*     EXIT     OVERLAY ENTRY POINT NUMBER *OVENUM* EXECUTED, AND
*              CONTROL RETURNS TO SERVICE AND SCHEDULOR THROUGH 
*              *SSORTN*.
* 
*     METHOD   *OVENUM* IS USED IN A SWITCH ITEM TO SWITCH TO THE 
*              APPROPRIATE ENTRY POINT TO EXECUTE.  UPON RETURNING
*              FROM THE PROC, CONTROL RETURNS TO SERVICE AND
*              SCHEDULOR THROUGH *SSORTN*.
# 
  
  
# 
****  PRGM CSLOSS - XREF LIST.
# 
  
      XREF
        BEGIN 
        PROC CSSDPE;                   # DISPATCH PROTOCOL EVENT       #
        PROC CSSDOS;                   # DISPATCH OPERATOR SUPERVISION #
        LABEL SSORTN;                  # SS- OVERLAY RETURN            #
        END 
  
# 
****
# 
  
  
      SWITCH EPSWT:EPOSS
               LLSDPE : CSDPE,         # LABEL FOR ENTRY PT 0- CSSDPE  #
               LLSDOS : CSDOS;         # LABEL FOR ENTRY PT 1- CSSDOS  #
  
  
  
CONTROL EJECT;
# 
*     SWITCH TO THE APPROPRIATE ENTRY POINT BY THE VALUE OF ENTRY 
*     POINT NUMBER IN *OVENUM*. 
# 
  
      GOTO EPSWT[OVENUM]; 
  
LLSDPE:                                # 5,0 OVL - PROCESSOR OF *PEQ*  #
  
      CSSDPE;                          # DISPATCH PROTOCOL EVENT       #
      GOTO ENDCASE; 
  
LLSDOS:                                # 5,1 OVL - PROCESSOR OF *RCQ*  #
  
      CSSDOS;                          # DISPATCH OPERATOR SUPERVISION #
  
ENDCASE:                               # END CASE ON SWITCH            #
  
      GOTO SSORTN;                    # RETURN TO SERVICE AND SCHEDULOR#
  
      END  # CSLOSS # 
  
TERM