9876.p
| 1 |
// #9876 |
|---|---|
| 2 |
|
| 3 |
// Must be 'mdy' |
| 4 |
MESSAGE SESSION:DATE-FORMAT. |
| 5 |
|
| 6 |
DEFINE VARIABLE d AS DATE FORMAT "99-99-999999" VIEW-AS FILL-IN NO-UNDO. |
| 7 |
|
| 8 |
DEFINE FRAME f d NO-LABEL. |
| 9 |
|
| 10 |
ON RETURN OF d IN FRAME f PERSISTENT |
| 11 |
RUN printDate IN THIS-PROCEDURE. |
| 12 |
|
| 13 |
PROCEDURE printDate: |
| 14 |
DO WITH FRAME f: |
| 15 |
MESSAGE "d: " d "SCREEN-VALUE: " d:SCREEN-VALUE "INPUT-VALUE" STRING(d:INPUT-VALUE, "99/99/9999"). |
| 16 |
END. |
| 17 |
END PROCEDURE. |
| 18 |
|
| 19 |
ENABLE ALL WITH FRAME f. |
| 20 |
DISPLAY d WITH FRAME f. |
| 21 |
|
| 22 |
WAIT-FOR WINDOW-CLOSE OF FRAME f. |
| 23 |
|