home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 22233 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  1.9 KB
  1. Path: sparky!uunet!ukma!asuvax!ncar!noao!amethyst!organpipe.uug.arizona.edu!!vance
  2. From: vance@lpl.arizona.edu (Vance Haemmerle x4021)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: VAX FORTRAN
  5. Message-ID: <1993Jan28.225302.3767@organpipe.uug.arizona.edu>
  6. Date: 28 Jan 93 22:53:02 GMT
  7. References: <1k7gdaINNn40@gap.caltech.edu> <1993Jan27.225851.1@slacvx.slac.stanford.edu> <1k8ennINN52q@gap.caltech.edu>
  8. Sender: vance@lpl.arizona.edu
  9. Distribution: world,local
  10. Organization: Lunar & Planetary Laboratory, Tucson AZ.
  11. Lines: 31
  12.  
  13. In article <1k8ennINN52q@gap.caltech.edu> carl@SOL1.GPS.CALTECH.EDU writes:
  14. >Well, Ken, there's a problem here.  You see, SYS$SNDJBC[W] wants, as some of its
  15. >arguments, pointers to arrrays containing filename, form name, and queue name. 
  16. >It does *NOT* want descriptors for these.  That means that the arguments have
  17. >to be the addresses of arrays, not the addresses of descriptors.  Now, since I
  18. >was posting from home without benefit of manuals, I had to rely on my memory,
  19. >and I couldn't for the life of me remember how to get the dsc$a_pointer field
  20. >out of a VAX FORTRAM character string descriptor (nor could I remember how to
  21. >use a WRITE statement to copy the contents of a string into a BYTE array).  So
  22. >I initialized the arrays the best way I could remember.
  23.  
  24.   You can use the built-in %REF() function to pass the address of a
  25.   character in FORTRAN.  (In case anyone was wondering).
  26.  
  27. Example:
  28.  
  29.  
  30.   CHARACTER*80 LINE, HFILE
  31.        .
  32.        .
  33.        .
  34. C  Replace unprintable characters with '.' using SYS$FAO
  35.     CALL SYS$FAO('!AF',LEN,HFILE,%VAL(80),%REF(LINE))
  36.                                               ^^^^^^^^^^ address of character
  37.                                      string
  38.  
  39. --
  40.  Vance Haemmerle                              vance@arizona.edu
  41.  Support Systems Analyst, Senior              vance%toyvax@arizona.edu
  42.  Lunar & Planetary Lab                        vance@alumni.caltech.edu
  43.  University of Arizona
  44.