On Mon, 3 Mar 2008 16:29:43 -0500, Arthur T. wrote:
<----- snip ----->
> This may not be the best way to validate. Check out
>the results of the following, which is a very slightly
>modified version of my previous example. At least on my PC
>with Regina REXX, it gives unexpected results.
>
>>signal on syntax
>>j = 1
>>ChkDate:
>>do i = j to 15
>> tstDate = '31/' || right(i,2,0) || '/08'
>> valDate = DATE('E',tstDate,'E')
>> say valdate 'is valid'
>>end
>>exit 0
>>syntax:
>>say tstDate 'is not valid'
>>j = i + 1
>>signal on syntax
>>signal ChkDate
>
> Would someone please verify if z/OS (or any other)
>REXX yields "not valid" for any month numbers other than 2,
>13, 14, or 15? Those are the only ones invalid in my test.
<----- snip ----->
Executing your REXX in z/OS 01.08.00:
31/02/08 is not valid
31/04/08 is not valid
31/06/08 is not valid
31/09/08 is not valid
31/11/08 is not valid
31/13/08 is not valid
31/14/08 is not valid
31/15/08 is not valid
--
Zaromil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
