*COMDECK JDATE
          IDENT  JDATE
          ENTRY  JDATE
          SYSCOM B1 
          TITLE  JDATE - OBTAIN JULIAN DATE.
          COMMENT OBTAIN JULIAN DATE. 
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 JDATE    SPACE  4,10 
***       JDATE - OBTAIN JULIAN DATE. 
* 
*         CALL JDATE (STATUS) 
* 
*         EXIT   (STATUS) = JULIAN DATE.
**T       30/ 0,  30/ *YYDDD* 
* 
*         JDATE(STATUS);  (*SYMPL* CALL)
* 
*         EXIT   STATUS, A CHARACTER ITEM TO CONTAIN JULIAN 
*                        DATE ON EXIT.
* 
*         USES   X - 1, 5, 6. 
*                A - 1. 
*                B - 1. 
* 
*         MACROS JDATE. 
  
  
 JDATE    SUBR               ENTRY/EXIT 
          SB1    1
          BX5    X1 
          JDATE  X1 
          SA1    X5 
          BX6    X1          RETURN JULIAN DATE AS FUNCTION RESULT
          EQ     JDATEX 
  
          END 
