You may wish to join the ISPF Newsgroup.
ISPF discussion list <[email protected]> Lizette > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of > Munif Sadek > Sent: Thursday, April 19, 2012 4:06 AM > To: [email protected] > Subject: ISPF Panel date validation > > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
