Retro1.org codex

*DECK     CSSICT
USETEXT TEXTCS
USETEXT TEXTSS
USETEXT TXTSMCS 
USETEXT TXTAPSS 
      PROC CSSICT;
# TITLE - INITIATE CS TERMINATION.                                     #
      BEGIN 
# 
**    CSSICT - INITIATE CS TERMINATION. 
* 
*     D.K. ENDO    82/03/11 
*     C.J. BRION   82/06/04.
* 
*     THIS PROCEDURE HANDLES THE SHUT/INSD SM. IF A GRADUAL SHUTDOWN
*     IS INDICATED, SEND AN EVENT TO THE OPERATORS. IF AN IMMEDIATE 
*     SHUTDOWN, GATHER AND OUTPUT PROGRAM STATISTICS AND NETOFF.
* 
* 
*     PROC CSSICT 
* 
*     ENTRY        1. SHUT/INSD SM
* 
*     EXIT         1. ENTRY IN SUPERVISION EVENT QUEUE
* 
# 
# 
****  PROC CSSICT - XREF LIST BEGINS. 
# 
      XREF
        BEGIN 
        PROC SSTAQE;         # ADD QUEUE ENTRY                         #
        PROC NETOFF;         # NETOFF PROC #
        PROC ENDRUN;         # END PROGRAM RUN #
        END 
# 
****
# 
# 
****  PROC CSSICT - DEBUG XREF LIST BEGINS. 
# 
      $BEGIN
      XREF
        BEGIN 
        PROC SSSPSI;         # PREPARE SS STATISTICS INFORMATION       #
        END 
      $END
# 
****
# 
#                                                                      #
#                            CSSICT CODE BEGINS HERE                   #
#                                                                      #
# 
*     CHECK THE SHUTDOWN FLAG IN THE SHUT/INSD SM. IF TRUE, GATHER
*     STATS AND ISSUE THEN NETOFF. OTHERWISE, SEND AN EVENT TO THE
*     OPERATORS.
# 
 
      IF SHUTF[0] 
      THEN
        BEGIN 
        $BEGIN
        SSSPSI;              # SEND SS STATISTICS TO STAT FILE (ZZZZSN)#
        $END
 
        NETOFF; 
        ENDRUN; 
        END 
      ELSE
        SSTAQE(P<EVQ>,WCBUF[0],ABH[0],CSSM[0]); 
 
      CSSTATE = TRUE;                    # SET PROGRAM STATE SHUTDOWN # 
 
      RETURN;                # **** RETURN ****                        #
 
      END # CSSICT #
      TERM