[Info-vax] LIB$ equivalent of DCL f$type() ?

[Michael T. Davis]

In article <b1eda5c2-b345-4842-9fe5-9846a2f9c830 at m25g2000yqc.googlegroups.com>
 DTL <didier.morandi at gmail.com> writes:

>Thanks all,
>
>On 21 d=E9c, 17:39, Jan-Erik S=F6derholm <jan-erik.soderh... at telia.com>
>wrote:
>>
>> What is your interpretation of "a number" ?
>
>Not mine, DCL's :-)
>
>DTL> a=1
>DTL> b=f$type(a)
>DTL> 'b
>%DCL-W-IVVERB, unrecognized command verb - check validity and spelling
> \INTEGER\
>DTL>
>

	If your original message is accurate about needing to parse "a given
ascii field," then the contribution I provided with STR$FIND_FIRST_NOT_IN_SET
should work ok; otherwise, if you're trying to determine this for an actual
symbol, you can use LIB$GET_SYMBOL to obtain a value.  If it's a "native"
integer, LIB$GET_SYMBOL will turn it into a decimal encoded character string
for you.  Then you can parse the result.

Regards,
Mike
--
                                         | Manager for Networking, Admin.
         Michael T. Davis (Mike)         | & Research Computing: CBE/MSE
 http://www.ecr6.ohio-state.edu/~davism/ |   The Ohio State University
                                         |   197 Watts, (614) 292-6928
              ** E-mail is the best way to contact me **