Of course the REXX test on line 16 needs to have & instead of "and"...sorry
about that!
Billy
On Thu, Apr 19, 2012 at 7:57 AM, Bill Ashton <bill00ash...@gmail.com> wrote:
> 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 <
> terry.sambro...@btclick.com> 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN
>>
>
>
>
> --
> Thank you and best regards,
> *Billy Ashton*
>
>
--
Thank you and best regards,
*Billy Ashton*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
