Retro1.org codex

*DECK XENDNAM 
USETEXT NIPDEF
USETEXT FREETAB 
USETEXT BPIPBUF 
USETEXT MSGIDX
USETEXT OVERLAY 
USETEXT PARAMS
      PRGM XENDNAM;          # COMPLETE NAM SHUTDOWN                   #
 
 STARTIMS;
 #
*1DC  XENDNAM 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        XENDNAM             P.C.TAM             80/02/12 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        THIS ROUTINE IS RESPONSIBLE FOR PROCESSING A NORMAL TERMINATION
*        OF THE NETWORK.
* 
*     3. METHOD USED. 
*          LOADS OSCEXIT
*          ISSUES DAYFILE MESSAGE 
*          CALL XDROP 
* 
*     4. ENTRY PARAMETERS.  NONE
* 
*     5. EXIT  PARAMETERS.  NONE
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED.
*        BPIPBUF     MSGIDX     NIPDEF     OPSIZE 
* 
*     7. ROUTINES AND OVERLAYS CALLED.
*          OSCEXIT           TERMINATE SYS CONTROL POINT
*          OMSG              ISSUE DAYFILE MESSAGE
*          XCLOST            CLOSE ZZZZZDN FILE 
*          XDROP             SET PIP DROP FLAG AND TERMINATE
*          XTERMST           LOG STATISTICS 
*          XTRACE            RECORD CALL
* 
*     8. DAYFILE MESSAGES.
*          *NIP SHUTDOWN COMPLETE.* NIP ISSUES THIS FINAL MESSAGE 
*          JUST BEFORE IT STOPS.
* 
*        W A R N I N G - THIS PROGRAM IS LOADED TOGETHER WITH 
*                        OSCEXIT, XTERMST, AND XCLOST.  THE SUM OF
*                        THEIR SIZES CANNOT EXCEED THE PRIMARY
*CALL OPSIZE
* 
*        THIS OVERLAY IS CALLED BY XEXEC. 
* 
 #
 STOPIMS; 
# 
                   EXTERNAL VARIABLES 
# 
 XREF 
   BEGIN
   PROC OMSG ;
   PROC OSCEXIT;             # EXIT FROM SCP                           #
   PROC OVLCALL;             # LOAD OVERLAY                            #
   PROC XCLOST;              # CLOSE ZZZZZDN FILE                      #
   PROC XDROP;               # DROP PIP (AND NIP)                      #
   PROC XTERMST;             # LOG STATISTICS                          #
   PROC XTRACE;              # TRACE CALL FIELD LENGTH                 #
   END
# 
                   LOCAL VARIABLES
# 
#**********************************************************************#
 
      BEGIN 
      CONTROL IFEQ DEBUG,1 ;
        XTRACE("XENDN") ; 
      CONTROL FI; 
#                                                                        NAMA293
                             EXIT FROM SYS-CTRL-PT STATUS                NAMA293
#                                                                        NAMA293
      OSCEXIT;               # EXIT FROM SYS CONTROL POINT             #
                                                                        021400
      CONTROL IFEQ STAT,1;                                              021500
      XTERMST;               # LOG STATISTICS                          #
      CONTROL FI;                                                       021800
                                                                        021900
 
      CONTROL IFEQ ZZDN,1;
      XCLOST(BPFET);         # CLOSE ZZZZZDN TRACE FILE                #
      CONTROL FI; 
 
      OMSG(DFMSG21,0) ; 
# 
                    TERMINATE GRACEFULLY
# 
      XDROP;                 # SET DROP-PIP FLAG AND  *** STOP***      #
      END 
 TERM