home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / os / vms / 14376 < prev    next >
Encoding:
Internet Message Format  |  1992-08-31  |  3.5 KB
  1. Path: sparky!uunet!mcsun!sun4nl!phigate!mswe.dnet.ms.philips.nl!mboom
  2. From: mboom@mswe.dnet.ms.philips.nl
  3. Newsgroups: comp.os.vms
  4. Subject: VMS mail-signature question
  5. Message-ID: <1992Aug27.162713.131006@mswe.dnet.ms.philips.nl>
  6. Date: 27 Aug 92 15:27:13 GMT
  7. Organization: Philips Medical Systems Nederland
  8. Lines: 22
  9.  
  10.  
  11.  
  12. Hello everybody,
  13.  
  14.  
  15. I am extremely new to this group and I hate it for myself if people ask
  16. simple questions, but somehow I can't find the answer. Maybe is it in the FAQ
  17. but I can't, for some reason, find it. So here it goes:
  18.  
  19. Is there a way to append a signature under a mail message when sending
  20. mail to someone using DECNET? I know it is possible when posting to news,
  21. but I can not do it when sending mail.
  22.  
  23. Can anyone help me?
  24.  
  25. Greetings form the Netherlands,
  26.  
  27. Marcel Boom
  28.  
  29.  
  30. email: mboom@mswe.dnet.ms.philips.nl
  31. voice: +31 40 762007 / +31 4408 3531
  32.  
  33. #! rnews 2741
  34. Path: mswe.dnet.ms.philips.nl!mosterman
  35. From: mosterman@mswe.dnet.ms.philips.nl (Wim Mosterman)
  36. Newsgroups: comp.sys.intel
  37. Subject: Re: PLM programming query
  38. Message-ID: <1992Aug28.104119.131015@mswe.dnet.ms.philips.nl>
  39. Date: 28 Aug 92 10:41:19 +0100
  40. References: <1992Aug26.093356.6125@canon.co.uk>
  41. Organization: Philips Medical Systems Nederland
  42. Lines: 59
  43.  
  44. In article <1992Aug26.093356.6125@canon.co.uk>, chudley@canon.co.uk (Martin Chudley) writes:
  45. > Apologies for this, it shouldn't be necessary but the PLM manual isn't very
  46. > helpful on this subject.
  47. > 
  48. > All I want to do is pass a string to a procedure. At present I'm using the
  49. > dot operator to pass a string constant in the function call and a based variable
  50. > to access it inside the procedure, and I get garbage. Can anyone send a few
  51. > lines of code showing how to do this - maybe I should just fork out for
  52. > something sensible like a C compiler.
  53. > 
  54. > Thanks
  55. > 
  56. > -- 
  57. > Martin Chudley (Postmaster)
  58. > 
  59. > ARPA : chudley@canon.co.uk                Voice : +44 483 574325
  60. > UUCP : ...seismo!mcsun!uknet!canon!chudley        Fax   : +44 483 574360
  61.  
  62. For PLM-51 try this one:
  63.  
  64. /****************************************************************/
  65. /* procedure which wants a pointer to a CONSTANT string        */
  66. /****************************************************************/
  67. write_string: PROCEDURE (ptr, type) USING 2 PUBLIC;
  68.     DECLARE type    BIT;    /* TRUE means ptr points to CONSTANT */
  69.     DECLARE ptr        WORD;
  70.     DECLARE string1    BASED ptr (1) BYTE CONSTANT;
  71.     DECLARE string2    BASED ptr (1) BYTE AUXILIARY;
  72.  
  73.     IF (type) THEN DO;
  74.      /* Use string1 for constant type */
  75.     END ELSE DO;
  76.      /* Use string2 for non-constant type */
  77.     END;
  78. END write_string;
  79.  
  80. /****************************************************************/
  81. /* The calls:                            */
  82. /****************************************************************/
  83. DECLARE output_string (80)    BYTE AUXILIARY;
  84.  
  85.     CALL write_string(.('any string', 0DH, 0AH, 0), 1);
  86.     CALL write_string(.output_string, 0);
  87.  
  88. Disclaimer:
  89.     I'm not sure that the syntax is okay everywhere.
  90.     I assembled this from some old sources I made long ago.
  91.  
  92. Hopefully this helps.
  93. .-------------------------------..-------------------------------.
  94. |  .--.          ,-.  ,-.       ||                        ,-----.|
  95. |  \   \        /   \/   \      ||                        |     ||
  96. |   \   \  ,.  /          \     ||                        |     ||
  97. |    \   \/  \/   /\  /\   \    ||  Wim Mosterman         `-----'|
  98. |     \          /  `'  \   \   ||  Philips Medical Systems      |
  99. |      \   /\   /        \   \  ||  Best, The Netherlands        |
  100. |       `-'  `-'          `--'  ||  mosterma@mmra1.ms.philips.nl |
  101. `-------------------------------'`-------------------------------'
  102.