home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19632 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  2.1 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
  2. From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Apending a file at the end of mail.
  5. Date: 21 Dec 1992 08:24:35 GMT
  6. Organization: HST Wide Field/Planetary Camera
  7. Lines: 43
  8. Distribution: world
  9. Message-ID: <1h3v03INNn2j@gap.caltech.edu>
  10. References: <01GSK4HGLSY800036I@MSUS1.MSUS.EDU>
  11. Reply-To: carl@SOL1.GPS.CALTECH.EDU
  12. NNTP-Posting-Host: sol1.gps.caltech.edu
  13.  
  14. In article <01GSK4HGLSY800036I@MSUS1.MSUS.EDU>, TS117%BSU.DECNET@MSUS1.BITNET (TANDI SUNARTO) writes:
  15. >Ehud,
  16. >
  17. >Since I am a new user on VAX system, could you please elaborate your
  18. >explanation on how to append a file at the end of mail, for example :
  19. >tell me how to create an initiliazation file, and other stuff.
  20.  
  21. OK, when people start confusing me with Ehud, I know I've gone over the line
  22. :-)
  23.  
  24. First:  From within MAIL, issue the command:
  25.     MAIL> SET EDITOR TPU
  26. then, create a file which contains the text:
  27. PROCEDURE SIGNATURE
  28.     LOCAL OUTFILE, OLDPOS;
  29.     ON_ERROR
  30.         POSITION(OLDPOS);
  31.     ENDON_ERROR;
  32.  
  33.     OUTFILE := GET_INFO(COMMAND_LINE, "OUTPUT_FILE");
  34.     OLDPOS := MARK(NONE);
  35.     IF (SUBSTR(OUTFILE, 1, 17) = "SYS$SCRATCH:MAIL_") AND
  36.         (SUBSTR(OUTFILE, 26, 9) = "_SEND.TMP") AND
  37.         (LENGTH(OUTFILE) = 34) THEN
  38.         POSITION(BUFFER_END);
  39.         READ_FILE("SYS$LOGIN:SIGNATURE.");
  40.         POSITION(OLDPOS);
  41.     ENDIF;
  42.     POSITION(OLDPOS);
  43. ENDPROCEDURE;
  44. SIGNATURE;
  45.  
  46. Then, define a logical name, TPU$COMMAND, which points to this file.  I've got
  47. another procedure that puts ">" in front of every line of included text. 
  48. E-mail me if you want it.
  49. --------------------------------------------------------------------------------
  50. Carl J Lydick | INTERnet: CARL@SOL1.GPS.CALTECH.EDU | NSI/HEPnet: SOL1::CARL
  51.  
  52. Disclaimer:  Hey, I understand VAXen and VMS.  That's what I get paid for.  My
  53. understanding of astronomy is purely at the amateur level (or below).  So
  54. unless what I'm saying is directly related to VAX/VMS, don't hold me or my
  55. organization responsible for it.  If it IS related to VAX/VMS, you can try to
  56. hold me responsible for it, but my organization had nothing to do with it.
  57.