Try:
SAY 'Enter year'
PULL YEAR
DO WHILE \DATATYPE(YEAR,'N')
SAY 'Invalid date 'YEAR':' enter year, using only numeric digits'
PULL YEAR
END
SAY 'Year is 'YEAR /* this line is just to verify ... */
Cheers,
Chris Poncelet
CA
Claudio Marcio wrote:
hi,
how make a loop using the DO command in REXX?
ex:
Say ' enter wiith the year'
pull year
do until year (not numeric???)
say ' invalid date, enter with the year'
pull year
end
be right the command above?
regards
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
