Dear Listers
I have been requested to modify a panel to verify that user input a valid date
(MM/DD/YY) and the
input date is no more then 3 months away (roughly speaking).
Body section of my panel is
+ START DATE %===>_STRT + REVOKE DATE %===>_RVK +
and in the PROC, for Date validation i have coded
VER (&RVK,NB,PICT,99/99/99)
&WKMM = TRUNC(&RVK,2)
&WKDD = TRUNC(&RVK,3)
&WKSTR = .TRAIL
&WKDD = TRUNC(&WKSTR,2)
VER (&WKMM,RANGE,1,12 MSG=DT102E)
VER (&WKDD,RANGE,1,31 MSG=DT101E)
IF (&STRT NE '')
VER (&STRT,NB,PICT,99/99/99)
&STMM = TRUNC(&STRT,2)
&STDD = TRUNC(&STRT,3)
&WKSTR1 = .TRAIL
&STDD = TRUNC(&WKSTR1,2)
VER (&STMM,RANGE,1,12 MSG=DT102E)
VER (&STDD,RANGE,1,31 MSG=DT101E)
Now my question is Do I have to call REXX / CLIST proc to validate 3 months
date limit or is it possible to do it within the PROC section.
Any pointers in the right direction Please.
regards
Munif.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
