home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / os / vms / 13638 < prev    next >
Encoding:
Internet Message Format  |  1992-08-13  |  936 b 
  1. Path: sparky!uunet!psinntp!vitro.com!v7.vitro.com!vaxs09
  2. From: vaxs09@v7.vitro.com
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Undocumented DCL feature
  5. Message-ID: <1992Aug13.085403.223@v7.vitro.com>
  6. Date: 13 Aug 92 08:54:03 -0500
  7. References: <7222224@zl2tnm.gen.nz>
  8. Distribution: world
  9. Organization: Vitro Corporation
  10. Lines: 20
  11.  
  12. In article <7222224@zl2tnm.gen.nz>, don@zl2tnm.gen.nz (Don Stokes) writes:
  13. > Of course Real DCL hackers use f$fao for everything, eg:
  14. > 
  15. >         $ if f$fao("!SL", symb) .eq. symb
  16. >         $ then    write SYS$OUTPUT "symb is Integer"
  17. >         $ else    write SYS$OUTPUT "symb is String"
  18. >         $ endif
  19.  
  20. Nice try and one of the first things I thought of, but just to be picky...
  21.  
  22. $ symb = "2147403648"    ! So that descriptor address = string value
  23. $ if f$fao("!SL", symb) .eq. symb
  24. $ then  write SYS$OUTPUT "symb is Integer"
  25. $ else  write SYS$OUTPUT "symb is String"
  26. $ endif
  27.  
  28. $ @test.com
  29. symb is Integer
  30.  
  31.     John Briggs            vaxs09@v7.vitro.com
  32.