Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!TAMVENUS.BITNET!SMH1420
From: SMH1420@TAMVENUS.BITNET (Steve Hicks, 774-7717/7809)
Newsgroups: comp.os.vms
Subject: symbols/logicals, DCL command file for determining
Message-ID: <8706111723.AA27969@ucbvax.Berkeley.EDU>
Date: Wed, 10-Jun-87 14:37:00 EDT
Article-I.D.: ucbvax.8706111723.AA27969
Posted: Wed Jun 10 14:37:00 1987
Date-Received: Sat, 20-Jun-87 10:30:23 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 14

The following is a quickie program to return if a typed symbol and/or logical
is one or the other, and what the translation actually is.  It will not tell
you if the variable in question is a DCL verb.


$ inquire variable "Symbol/Logical"
$ x = f$logical(variable)
$ if x.nes."" then write sys$output " Logical: ""''x'"""
$ x = "''&variable'"
$ if x.nes."" then write sys$output "  Symbol: ""''x'"""


Stephen Hicks, Texas A&M University     409/696-3864
<SMH1420@TAMVENUS.BITNET>