Munif, you may get other answers from the ISPF group if you join there, but
here is my untested quick stab at it...
000013 *REXX (STRT RVK RES)
000014 date1 = Date("B",strt,"U");
000015 date2 = Date("B",rvk,"U");
000016 If (date2 - date1 <= 90) and (date2 > date1) Then
000017 res = "OK";
000018 Else
000019 res = "NG";
000020 *ENDREXX
000021
000022 If (&res NE "OK") Ver(&rvk,LEN,EQ,99,MSG=Date to far in
future)
000024
The Rexx will use the variables STRT and RVK from your panel, and will
create a result called RES. It will convert both dates to a base number
format and then compare them. It will see if RVK is 90 days or less in the
future and that RVK is further ahead than STRT, and set the result to "OK"
or "NG" depending on the test.
Then the regular panel code will check the result switch, and if it is not
"OK" it will perform a VER that will always faill, so you can specify the
proper message number.
Hope this works out for you.
Billy
On Thu, Apr 19, 2012 at 6:56 AM, Terry Sambrooks <
[email protected]> wrote:
> Hi Munif,
>
> Re: "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)."
>
> REXX may provide better validation capability in this instance, but you do
> not need to exit the panel, to use REXX as it can be embedded on the panel
> itself within the PROC section.
>
> It usage is described in Chapter 7 Panel Definition Statement Reference in
> the ISPF Dialog Developers Guide and Reference.
>
> Kind Regards - Terry
>
> Director
> KMS-IT Limited
> 228 Abbeydale Road South
> Dore
> Sheffield
> S17 3LA
> UK
>
> Reg : 3767263
>
> Outgoing e-mails have been scanned, but it is the recipients responsibility
> to ensure their anti-virus software is up to date.
>
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Thank you and best regards,
*Billy Ashton*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
