Table of Contents

DLCLOSE

Table Of Contents

Source Code

DLCLOSE.txt 
  1. *DECK DLCLOSE 
  2.           IDENT  DLCLOSE
  3.           ENTRY  DLCLOSE
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  DLCLOSE 
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        DLCLOSE             P.C.TAM             78/10/05 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        CLOSE FILE.
  13. * 
  14. *     3. METHOD USED. 
  15. *        USE CLOSE MACRO. 
  16. * 
  17. *     4. ENTRY PARAMETERS.
  18. *        (A1)                ADDRESS OF THE ADDRESS OF FET
  19. *        (A1)+1              ADDRESS OF THE ADDRESS OF REWIND/NR. 
  20. * 
  21. *     5. EXIT PARAMETERS. 
  22. *        NONE.
  23. * 
  24. *     6. COMMON DECKS CALLED. 
  25. *        MACDEF MISDEFX 
  26. * 
  27. *     7. ROUTINES CALLED. 
  28. *        NONE.
  29. * 
  30. *     8. DAYFILE MESSAGES.
  31. *        NONE.
  32. * 
  33. *#
  34. *ENDIF
  35.  
  36. *CALL MACDEF
  37. *CALL MISDEFX 
  38.  
  39.  DLCLOSE  SUBR   =           ENTRY/EXIT 
  40.           SA2    A1+1        GET 2ND PARAMETER
  41.           SA2    X2 
  42.           SX2    X2-CLOSNR   CHECK IF CLOSE REWIND OR OTHERWISE 
  43.           ZR     X2,CNR      BRANCH IF CLOSE NO REWIND
  44.  
  45. *         CLOSE FILE WITH REWIND
  46.  
  47.           CLOSE  X1,REWIND,R
  48.           EQ     DLCLOSEX    RETURN 
  49.  
  50. *         CLOSE NO REWIND 
  51.  
  52.  CNR      BSS    0
  53.           CLOSE  X1,NR,R
  54.           EQ     DLCLOSEX    RETURN 
  55.  
  56.           END