tc10938_typed.p
| 1 |
/* tc10938_typed.p - OE baseline: SCREEN-VALUE of an uninitialized date fill-in |
|---|---|
| 2 |
while the user has typed a partial (uncommitted) value into it. */ |
| 3 |
DEFINE STREAM sout. |
| 4 |
|
| 5 |
DEFINE VARIABLE fdate AS DATE VIEW-AS FILL-IN FORMAT "99/99/9999" NO-UNDO. |
| 6 |
DEFINE VARIABLE fchr AS CHARACTER FORMAT "x(10)" VIEW-AS FILL-IN NO-UNDO. |
| 7 |
DEFINE FRAME f fdate fchr WITH SIDE-LABELS. |
| 8 |
|
| 9 |
ON F6 ANYWHERE DO: |
| 10 |
APPLY "1" TO fdate IN FRAME f. |
| 11 |
END. |
| 12 |
|
| 13 |
ON F5 ANYWHERE DO: |
| 14 |
OS-CREATE-DIR "C:\temp". |
| 15 |
OUTPUT STREAM sout TO "C:\temp\tc10938_typed_out.txt". |
| 16 |
PUT STREAM sout UNFORMATTED |
| 17 |
"typed.date = [" fdate:SCREEN-VALUE IN FRAME f "] len=" |
| 18 |
LENGTH(fdate:SCREEN-VALUE IN FRAME f) |
| 19 |
" modified=" fdate:MODIFIED IN FRAME f SKIP. |
| 20 |
PUT STREAM sout UNFORMATTED |
| 21 |
"typed.chr = [" fchr:SCREEN-VALUE IN FRAME f "] len=" |
| 22 |
LENGTH(fchr:SCREEN-VALUE IN FRAME f) |
| 23 |
" modified=" fchr:MODIFIED IN FRAME f SKIP. |
| 24 |
OUTPUT STREAM sout CLOSE. |
| 25 |
QUIT. |
| 26 |
END. |
| 27 |
|
| 28 |
SESSION:DATE-FORMAT = "mdy". |
| 29 |
ENABLE fdate fchr WITH FRAME f. |
| 30 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |