home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 22169 < prev    next >
Encoding:
Text File  |  1993-01-28  |  2.1 KB  |  57 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!europa.eng.gtefsd.com!paladin.american.edu!howland.reston.ans.net!spool.mu.edu!uwm.edu!linac!unixhub!slacvx.slac.stanford.edu!fairfield
  3. From: fairfield@slacvx.slac.stanford.edu
  4. Subject: Re: VAX FORTRAN
  5. Message-ID: <1993Jan27.225851.1@slacvx.slac.stanford.edu>
  6. Lines: 45
  7. Sender: news@unixhub.SLAC.Stanford.EDU
  8. Organization: Stanford Linear Accelerator Center
  9. References: <27JAN199309324042@rdth2.rdth.luc.edu> <1k7gdaINNn40@gap.caltech.edu>
  10. Date: Thu, 28 Jan 1993 06:58:51 GMT
  11.  
  12. In article <1k7gdaINNn40@gap.caltech.edu>, carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick) writes:
  13. | In article <27JAN199309324042@rdth2.rdth.luc.edu>, pbricker@rdth2.rdth.luc.edu
  14. | (Preston Bricker) writes:
  15. |>How do I send a file to a print queue from within a FORTRAN program?
  16. |>There should be a hook equivalent to DCL PRINT.
  17. |>If you post the answer, please also e-mail it.
  18. | 
  19. | Here's an example.  See the section on $SNDJBC in the System Services Reference
  20. | Manual for details.
  21. | 
  22. |     INCLUDE '($SJCDEF)'
  23. |     STRUCTURE /ITEM_LIST_3/
  24. |         INTEGER*2 BUFLEN, ITMCOD
  25. |         INTEGER*4 BUFADR, LENADR
  26. |     ENDSTRUCTURE
  27. | 
  28. |     RECORD /ITEM_LIST_3/ ITMLST(4)
  29. |     BYTE QUEUE_NAME(9) / 'S', 'Y', 'S', '$', 'P', 'R', 'I', 'N', 'T'/
  30. |     BYTE FILE_NAME(8) / 'T', 'E', 'S', 'T', '.', 'D', 'A', 'T'/
  31. |     BYTE FORM_NAME(7) / 'D', 'E', 'F', 'A', 'U', 'L', 'T'/
  32.  
  33. [Rest of sample deleted]
  34.  
  35.     Geez, Carl, that's about the _ugliest_ fortran I've seen in a long time :-)
  36. How about:
  37.  
  38.     CHARACTER  QUEUE_NAME*9, FILE_NAME*8, FORM_NAME*7
  39.     PARAMETER (QUEUE_NAME = 'SYS$PRINT', 
  40.      >           FILE_NAME = 'TEST.DAT',
  41.      >             FORM_NAME = 'DEFAULT')
  42.  
  43. Or, at the very least:
  44.  
  45.     CHARACTER  QUEUE_NAME*9/'SYS$PRINT'/, FILE_NAME*8/'TEST.DAT'/, 
  46.      >             FORM_NAME*7/'DEFAULT'/
  47.  
  48. You know, the youngsters are _impressionable_!  
  49.  
  50.         Cheers, Ken
  51. -- 
  52.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
  53.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  54.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  55.  ----------------------------------------------------------------------------
  56.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  57.