U@DATETOJUL

U@DATETOJUL converts the input date to its Julian date number for the input year.

The input date must be a valid date. See Century Parameter Processing.

Module CALRTNS

Required Input

Field Type and length Definition
E@DRFRDATE N 8 Date to be converted Julian date.

Output

Field Type and length Definition
E@DRJULIANDYS N 8 Number of days. Returns the resulting JulianDay.
E@DRERRORNBR N 9

Error number

See Error Number

Note: Be sure to set this to zero before using this API. If it is non-zero, E@DRJULIANDYS will be undefined.
E@DRERRORVAR A 20 Input parameter is in error. Returns the invalid date.

Programming Example

    IF        F1@AGNDYS <> *ZEROS    
     EVAL      E@DRFRDATE     = F1@CTFFDT                   
     CALLP     U@DATETOJUL                     Date To Julian
     SUB       F1@AGNDYS     E@DRJULIANDYS            
     CALLP     U@JULIANTODT                    Julian To Date
     EVAL      PAP130#RCNDT   = E@DRFRDATE