Table of Contents

DLENDPR

Table Of Contents

  • [00009] PROC DLENDPR
  • [00052] PROC DLFLUSH
  • [00053] PROC DLCLOSE

Source Code

DLENDPR.txt 
  1. *DECK DLENDPR 
  2. USETEXT DLFPDEF 
  3. USETEXT ICIOBB
  4. USETEXT IFETB 
  5. USETEXT OCIOBB
  6. USETEXT OFETB 
  7. USETEXT ZCIOBB
  8. USETEXT ZFETB 
  9. PROC DLENDPR;                # TERMINATION PROCESSING                  #
  10. *CALL ARGTBL
  11. *CALL NCIOBB
  12. *CALL NFETB 
  13.  
  14. *IF DEF,IMS 
  15.  #
  16. *1DC  DLENDPR 
  17. *     1. PROC NAME           AUTHOR              DATE 
  18. *        DLENDPR             P.C.TAM             78/10/31 
  19. * 
  20. *     2. FUNCTIONAL DESCRIPTION.
  21. *        TERMINATION PROCESSING 
  22. * 
  23. *     3. METHOD USED. 
  24. *        FLUSH CIO BUFFERS, CLOSE FILES.
  25. * 
  26. *     4. ENTRY PARAMETERS.
  27. *        NONE 
  28. * 
  29. *     5. EXIT PARAMETERS. 
  30. *        NONE.
  31. * 
  32. *        ICIOBB    IFETB     NCIOBB    NFETB     OCIOBB 
  33. *        OFETB     ZCIOBB    ZFETB     MISDEFX
  34. *     6. COMDECKS CALLED AND SYMPL TEXTS CALLED.
  35. *        DLFPDEF   ICIOBB    IFETB     OCIOBB 
  36. *        OFETB     ZCIOBB    ZFETB
  37. * 
  38. *     7. ROUTINES CALLED. 
  39. *        DLFLUSH             EMPTY CIO BUFFER AND WRITE EOR 
  40. *        DLCLOSE             CLOSE FILE 
  41. * 
  42. *     8. DAYFILE MESSAGES.
  43. *        NONE 
  44. * 
  45.  #
  46. *ENDIF
  47. # 
  48.       EXTERNAL VARIABLES
  49. # 
  50.       XREF
  51.         BEGIN 
  52.         PROC DLFLUSH;        # WRITE EOR ON FILE                       #
  53.         PROC DLCLOSE;        # CLOSE FILE                              #
  54.         END 
  55. #**********************************************************************#
  56.       BEGIN 
  57.       DLFLUSH(OFET);         # WRITER ON FILE                          #
  58.       DLCLOSE(OFET, CLOSNR); # CLOSE OUTPUT FILE WITH NO REWIND        #
  59.  
  60.       IF ARGFLAG[NFILE] 
  61.       THEN
  62.         BEGIN 
  63.         DLFLUSH(NFET);
  64.         DLCLOSE(NFET, CLOSNR);
  65.         END 
  66.  
  67.       DLCLOSE(ZFET, CLOSNR); # CLOSE ZZZZZDN FILE WITH NO REWIND       #
  68.  
  69.       DLCLOSE(IFET, CLOSNR); # CLOSE INPUT FILE                        #
  70.       END 
  71. TERM