*DECK DLDT
          IDENT  DLDT 
          ENTRY  DLDT 
*IF DEF,IMS 
*#
*1DC  DLDT
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLDT                P.C.TAM             78/10/05 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        GET CURRENT DATE.
* 
*     3. METHOD USED. 
*        CALL DATE MACRO. 
* 
*     4. ENTRY PARAMETERS.
*        (A1)    ADDRESS OF THE ADDRESS OF RETURNED DATE
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        NONE.
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
 
 DLDT     SUBR   =           ENTRY/EXIT 
          DATE   X1 
          EQ     DLDTX       RETURN 
          END