MCKEEVER@UMKCVAX1.BITNET (06/16/87)
I'm sorry but I lost the name of the person who was requesting information on how to tell if something is a symbol or a logical. Anyway, I have an idea that may help you if you want automatic execution of a symbol, program, or DCL command, i.e. how to tell if something is a DCL command. There is a program on the most recent DECUS tapes called VERB that extracts the CDL for a given DCL command. I dug it out yesterday and modified it so that it just returned a success status if it found the verb in the tables and a failure status if the verb was not defined. With this info you can... $ Set NoOn $ Set Message/NoSev/NoId/NoMes/NoFac $ isverb 'p1' $ istat = $Status $ Set Message/Sev/Id/Mes/Fac $ Set On $ If (istat) Write Sys$Output "Is a DCL verb." $ If (.NOT.istat) Write Sys$Output "Is not a DCL verb." The change I made was not elegant, but it was quick. All you need to do to get it to work is add an IF statement to VERB.FOR. Where the change needs to me made is pretty obvious. After all, I found it. I'm sure that it could be pruned down to make it much neater with a little effort. The main idea was to get it to work. If anybody doesn't have access to the latest DECUS tapes, and they want the VERB source. I can send it to them directly. The source comes in the form of a 2000+ line command file. Hope this helps. ------------------------------------------------------------------------- UMU UMUMUMUMUM UMU UMUMUMUMUM UMU UMUMUMUMUM Brian McKeever UMU UMUMUMUMUM Computer Science U UM U University of Missouri Kansas City U UM UM UM 4747 Building Rm. 219 UMUMUMUM UMUM UMUM 5100 RockHill Rd. UMUMUMUM UMUM UMUM Kansas City, MO 64110 UMUMUMUM UMUM UMUM BITNET: MCKEEVER@UMKCVAX1 UMUMUMUM UMUM UMUM -------------------------------------------------------------------------