*DECK DLABEND 
          IDENT  DLABEND
          ENTRY  DLABEND
          ENTRY  ACTRW
          ENTRY  ARGRW
          EXT    DLENDPR
          SYSCOM
*IF DEF,IMS 
*#
*1DC  DLABEND 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLABEND             P.C.TAM             78/09/14 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        ABORT PROGRAM
* 
*     3. METHOD USED. 
*        CALL ABORT 
* 
*     4. ENTRY PARAMETERS.
*        NONE.
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        MACDEF CYBERDEFS ICIOBB IFETB OCIOBB OFETB ZCIOBB ZFETB
*       NCIOBB NFETB
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
  
*CALL MACDEF
*CALL CYBERDEFS 
*CALL ICIOBB
*CALL IFETB 
*CALL NCIOBB
*CALL NFETB 
*CALL OCIOBB
*CALL OFETB 
*CALL ZCIOBB
*CALL ZFETB 
  
 DLABEND  SUBR   =           ENTRY/EXIT 
          RJ     DLENDPR     TERMINATION PROCESSING 
          ABORT 
 ACTRW    EQU    ACTR        RA COMMUNICATION AREA FIELDS 
 ARGRW    EQU    ARGR 
          END