Retro1.org codex

*DECK DLENDPR 
USETEXT DLFPDEF 
USETEXT ICIOBB
USETEXT IFETB 
USETEXT OCIOBB
USETEXT OFETB 
USETEXT ZCIOBB
USETEXT ZFETB 
PROC DLENDPR;                # TERMINATION PROCESSING                  #
*CALL ARGTBL
*CALL NCIOBB
*CALL NFETB 
 
*IF DEF,IMS 
 #
*1DC  DLENDPR 
*     1. PROC NAME           AUTHOR              DATE 
*        DLENDPR             P.C.TAM             78/10/31 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        TERMINATION PROCESSING 
* 
*     3. METHOD USED. 
*        FLUSH CIO BUFFERS, CLOSE FILES.
* 
*     4. ENTRY PARAMETERS.
*        NONE 
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*        ICIOBB    IFETB     NCIOBB    NFETB     OCIOBB 
*        OFETB     ZCIOBB    ZFETB     MISDEFX
*     6. COMDECKS CALLED AND SYMPL TEXTS CALLED.
*        DLFPDEF   ICIOBB    IFETB     OCIOBB 
*        OFETB     ZCIOBB    ZFETB
* 
*     7. ROUTINES CALLED. 
*        DLFLUSH             EMPTY CIO BUFFER AND WRITE EOR 
*        DLCLOSE             CLOSE FILE 
* 
*     8. DAYFILE MESSAGES.
*        NONE 
* 
 #
*ENDIF
# 
      EXTERNAL VARIABLES
# 
      XREF
        BEGIN 
        PROC DLFLUSH;        # WRITE EOR ON FILE                       #
        PROC DLCLOSE;        # CLOSE FILE                              #
        END 
#**********************************************************************#
      BEGIN 
      DLFLUSH(OFET);         # WRITER ON FILE                          #
      DLCLOSE(OFET, CLOSNR); # CLOSE OUTPUT FILE WITH NO REWIND        #
 
      IF ARGFLAG[NFILE] 
      THEN
        BEGIN 
        DLFLUSH(NFET);
        DLCLOSE(NFET, CLOSNR);
        END 
 
      DLCLOSE(ZFET, CLOSNR); # CLOSE ZZZZZDN FILE WITH NO REWIND       #
 
      DLCLOSE(IFET, CLOSNR); # CLOSE INPUT FILE                        #
      END 
TERM