*COMDECK DATE 
          IDENT  DATE 
          ENTRY  DATE 
          SYSCOM B1 
          TITLE  DATE - OBTAIN DATE.
          COMMENT OBTAIN DATE.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 DATE     SPACE  4,10 
***       DATE - OBTAIN DATE. 
* 
*         CALL DATE (STATUS)
* 
*         EXIT   (STATUS) = DATE. 
**T       60/ * YY/MM/DD.*
* 
*         DATE(STATUS);  (*SYMPL* CALL) 
* 
*         EXIT   (STATUS), A CHARACTER ITEM CONTAINING THE TIME.
* 
*         USES   X - 1, 5, 6. 
*                A - 1. 
*                B - 1. 
* 
*         MACROS DATE.
  
  
 DATE     SUBR               ENTRY/EXIT 
          SB1    1
          BX5    X1 
          DATE   X1 
          SA1    X5 
          BX6    X1          RETURN DATE AS FUNCTION RESULT 
          EQ     DATEX
  
          END 
