// #9876

// Must be 'mdy'
MESSAGE SESSION:DATE-FORMAT.

DEFINE VARIABLE d AS DATE FORMAT "99-99-999999" VIEW-AS FILL-IN NO-UNDO.

DEFINE FRAME f d NO-LABEL.

ON RETURN OF d IN FRAME f PERSISTENT
    RUN printDate IN THIS-PROCEDURE.

PROCEDURE printDate:
  DO WITH FRAME f:
    MESSAGE "d: " d "SCREEN-VALUE: " d:SCREEN-VALUE "INPUT-VALUE" STRING(d:INPUT-VALUE, "99/99/9999").
  END.        
END PROCEDURE.

ENABLE ALL WITH FRAME f.
DISPLAY d WITH FRAME f.

WAIT-FOR WINDOW-CLOSE OF FRAME f.