       identification division.
       program-id. TSTCBLDT.
       environment division.
       input-output section.
       file-control.
       data division.
       file section.
       working-storage section.
       01 l-accept-time pic 9(8).
       01 l-accept-date pic s9(6).
       01 l-accept-day pic s9(5).
       01 l-accept-day-week pic s9(1).
       01 l-get-ebm-date pic x(21).
       01 l-get-system-date pic x(21).
       01 l-current-date pic x(8).
       procedure division.
       begin.
       accept l-accept-time from time.
       accept l-accept-date from date.
       accept l-accept-day from day.
       accept l-accept-day-week from day-of-week.
       move current-date to l-current-date.
       display "Special Register CURRENT-DATE is: " l-current-date.
       display "ACCEPT FROM TIME returns: " l-accept-time " (hhmmsstt)".
       display "ACCEPT FROM DATE returns: " l-accept-date " (yymmdd)".
       display "ACCEPT FROM DAY  returns: " l-accept-day " (yyddd)".
       display "ACCEPT FROM DAY-OF-WEEK returns: " l-accept-day-week.
       display "  ".
*******move function current-date to l-get-system-date.
       call "EBM_CURRENT_DATE" using l-get-ebm-date.
*******display "CURRENT-DATE()   returns: " l-get-system-date.
       display "  ".
       display "EBM_CURRENT_DATE returns: " l-get-ebm-date.
       display "  ".
       move 0 to return-code.
       stop-run.
