home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
tolkit45.zip
/
os2tk45
/
samples
/
rexx
/
api
/
rexxcalc
/
whole.cal
< prev
Wrap
Text File
|
1999-05-11
|
227b
|
5 lines
/* Validate a Rexx whole number */
parse arg number /* get the number */
call lineout 'd:\rexxcalc\calc.log', number
return datatype(number, 'Whole') /* return the validation */