RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение

Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас

Тема:

> Syntax:
> 
> DATATYPE(string,[type])
> 
> Description:
> 
> Returns the type of the string or indicates if string is a valid REXX number
> 
> Arguments:
> 
> string - the string whose type is needed
> 
> type - a string which contains a letter indicating the type to test for.
> 
> Returns 1 if a valid type character is specified and the string is of the specified type.
> 
> The valid type letters and assciciated characters are:
> 
> 'A'  -  alphanumeric (a-z, A-Z, or 0-9)
> 
> 'B' - binary (0 or 1)
> 
> 'L' - lower case (a-z)
> 
> 'M' - mixed case (a-z,A-Z)
> 
> 'N' - number (a valid REXX number)
> 
> 'S' - symbol (a-z,A-Z, 0-9, and period, !, ?, _, @, $, and + or - when used to express a number as in .04E-7)
> 
> 'U' - upper case(A-Z)
> 
> 'W' - whole number (a valid REXX whole number with current NUMERIC DIGITS)
> 
> 'X' - hexadecimal (a-f, A-F, 0-9) (Blanks are allowed, as in hexidecimal literals)
> 
> Notes:
> 
> If the argument 'type'  is not specified then NUM is returned if the argument 'string' is a valid REXX number, otherwise CHAR is returned
> 
> samples:
> 
>  x = DATATYPE('DATA')    /* 'CHAR' */
> 
>  x = DATATYPE('  750')   /* 'NUM' */
> 
> Remark: The argument has two leading blanks before '750'
> 
> 
>  x = DATATYPE('a_$%')    /* 'CHAR' */
> 
> If the argument 'type' is specified then 1 is returned if the string is of the specified type, otherwise 0 is returned
> 
> samples:
> 
> x = DATATYPE('big one','A')  /* '0' */ 
> 
> Remark: between 'big' and 'one' is a blank!
> 
> x = DATATYPE('bigone','A')  /* '1' */  
> 
> The argument 'type' may be upper or lower case:
> 
>  x = DATATYPE('ABCDEFG','a')  /* '1' */
> 
> Further samples:
> 
>  x = DATATYPE('ABC')   /*  'CHAR' */
> 
>  x = DATATYPE(' 25')   /*  'NUM' */
> 
> Remark: the argument has a leading blank!
> 
>  x = DATATYPE('351_')  /* 'CHAR' */
> 
>  x = DATATYPE('ABC.def','A') /* '0' - non alpha '.' */
> 
>  x = DATATYPE('0011','B') /* '1' - binary */
> 
>  x = DATATYPE('REXX','L') /* '0' - not lower case */
> 
>  x = DATATYPE('REXX','M') /* '1' - mixed case */
> 
>  x = DATATYPE('85.74', 'N') /* '1' - number */
> 
>   x = DATATYPE('23.9E-2','S') /* '1' - all symbols */
> 
>   x = DATATYPE('64','s') /* '1' - valid symbols */
> 
>   x = DATATYPE('REXX','U') /* '1' - upper case */
> 
>   x = DATATYPE('Short','U') /* '0' - mixed case */
> 
>   x = DATATYPE('-45','W') /* '1' - REXX whole number */
> 
>   x = DATATYPE('45.76','w') /* '0' - not whole number */
> 
>   x = DATATYPE('FF25 AB','X') /* '1' - hexadecimal */
> 
> Remark: between 'FF25' and 'AB' is a blank
> 
>   x = DATATYPE('ABG2351','x') /* '0' - not hexadecimal */

_, _, _, / \ (_ / ~ ) \ / , ) / / ~ ~ ~~~