

{ Date request return value. }

  TYPE
    ost$date = record
      case date_format: ost$date_formats of
      = osc$month_date =
        month: ost$month_date, { month DD, YYYY }
      = osc$mdy_date =
        mdy: ost$mdy_date, { MM/DD/YY }
      = osc$iso_date =
        iso: ost$iso_date, { YYYY-MM-DD }
      = osc$ordinal_date =
        ordinal: ost$ordinal_date, { YYYYDDD }
      = osc$dmy_date =
        dmy: ost$dmy_date { DD.MM.YY }
      casend,
    recend,

    ost$date_formats = (osc$default_date, osc$month_date, osc$mdy_date,
      osc$iso_date, osc$ordinal_date, osc$dmy_date),

    ost$month_date = string (18),
    ost$mdy_date = string (8),
    ost$iso_date = string (10),
    ost$ordinal_date = string (7),
    ost$dmy_date = string (8);
