Table of Contents

DLABEND

Table Of Contents

Source Code

DLABEND.txt 
  1. *DECK DLABEND 
  2.           IDENT  DLABEND
  3.           ENTRY  DLABEND
  4.           ENTRY  ACTRW
  5.           ENTRY  ARGRW
  6.           EXT    DLENDPR
  7.           SYSCOM
  8. *IF DEF,IMS 
  9. *#
  10. *1DC  DLABEND 
  11. * 
  12. *     1. PROC NAME           AUTHOR              DATE 
  13. *        DLABEND             P.C.TAM             78/09/14 
  14. * 
  15. *     2. FUNCTIONAL DESCRIPTION.
  16. *        ABORT PROGRAM
  17. * 
  18. *     3. METHOD USED. 
  19. *        CALL ABORT 
  20. * 
  21. *     4. ENTRY PARAMETERS.
  22. *        NONE.
  23. * 
  24. *     5. EXIT PARAMETERS. 
  25. *        NONE.
  26. * 
  27. *     6. COMMON DECKS CALLED. 
  28. *        MACDEF CYBERDEFS ICIOBB IFETB OCIOBB OFETB ZCIOBB ZFETB
  29. *       NCIOBB NFETB
  30. * 
  31. *     7. ROUTINES CALLED. 
  32. *        NONE.
  33. * 
  34. *     8. DAYFILE MESSAGES.
  35. *        NONE.
  36. * 
  37. *#
  38. *ENDIF
  39.  
  40. *CALL MACDEF
  41. *CALL CYBERDEFS 
  42. *CALL ICIOBB
  43. *CALL IFETB 
  44. *CALL NCIOBB
  45. *CALL NFETB 
  46. *CALL OCIOBB
  47. *CALL OFETB 
  48. *CALL ZCIOBB
  49. *CALL ZFETB 
  50.  
  51.  DLABEND  SUBR   =           ENTRY/EXIT 
  52.           RJ     DLENDPR     TERMINATION PROCESSING 
  53.           ABORT 
  54.  ACTRW    EQU    ACTR        RA COMMUNICATION AREA FIELDS 
  55.  ARGRW    EQU    ARGR 
  56.           END