/* tc10938_typed.p - OE baseline: SCREEN-VALUE of an uninitialized date fill-in
   while the user has typed a partial (uncommitted) value into it. */
DEFINE STREAM sout.

DEFINE VARIABLE fdate AS DATE VIEW-AS FILL-IN FORMAT "99/99/9999" NO-UNDO.
DEFINE VARIABLE fchr  AS CHARACTER FORMAT "x(10)" VIEW-AS FILL-IN NO-UNDO.
DEFINE FRAME f fdate fchr WITH SIDE-LABELS.

ON F6 ANYWHERE DO:
   APPLY "1" TO fdate IN FRAME f.
END.

ON F5 ANYWHERE DO:
   OS-CREATE-DIR "C:\temp".
   OUTPUT STREAM sout TO "C:\temp\tc10938_typed_out.txt".
   PUT STREAM sout UNFORMATTED
      "typed.date = [" fdate:SCREEN-VALUE IN FRAME f "] len="
      LENGTH(fdate:SCREEN-VALUE IN FRAME f)
      " modified=" fdate:MODIFIED IN FRAME f SKIP.
   PUT STREAM sout UNFORMATTED
      "typed.chr  = [" fchr:SCREEN-VALUE IN FRAME f "] len="
      LENGTH(fchr:SCREEN-VALUE IN FRAME f)
      " modified=" fchr:MODIFIED IN FRAME f SKIP.
   OUTPUT STREAM sout CLOSE.
   QUIT.
END.

SESSION:DATE-FORMAT = "mdy".
ENABLE fdate fchr WITH FRAME f.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.