home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / rexx / 716 < prev    next >
Encoding:
Text File  |  1992-08-14  |  2.7 KB  |  70 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!gatech!paladin.american.edu!auvm!PSUHMC.BITNET!LWORSFOL
  3. Message-ID: <REXXLIST%92081415043714@OHSTVMA.IRCC.OHIO-STATE.EDU>
  4. Newsgroups: comp.lang.rexx
  5. Date:         Fri, 14 Aug 1992 14:42:26 EDT
  6. Sender:       REXX Programming discussion list <REXXLIST@UGA.BITNET>
  7. From:         "Lynne J. Worsfold" <LWORSFOL@PSUHMC.BITNET>
  8. Subject:      Re: Stem vars as arguments?
  9. In-Reply-To:  Message of Thu,
  10.               13 Aug 1992 16:48:23 GMT from <chappy@DUTS.CCC.AMDAHL.COM>
  11. Lines: 57
  12.  
  13. On Thu, 13 Aug 1992 16:48:23 GMT Chappy Cole said:
  14. .
  15. .
  16. >
  17. >/* Top level exec which calls another to set the stem 'Opts.' */
  18. >'EXEC STEMFILL OPTS.' /* Pass stem name as argument */
  19. >do i = 1 to Opts.0
  20. >  say 'Opts.'i '=' Opts.i
  21. >end i
  22. >exit
  23. >
  24. >/* STEMFILL EXEC - Assigns hardcoded values to the passed stem in the calling
  25. >exec */
  26. >parse upper arg Stem .
  27. >Mystem.0 = 4
  28. >Mystem.1 = 'A'
  29. >Mystem.2 = 'B'
  30. >Mystem.3 = 'Z'
  31. >Mystem.4 = 'Y'
  32. >'PIPE stem Mystem.' ,   /* Put 'Mystem.' values into pipeline */
  33. >  '| stem' Stem '1'     /* Put stream values into callers 'stem' */
  34. >exit rc
  35. >
  36. >That is one way to solve your problem on VM/CMS with PIPELINES.  However, it
  37. .
  38. .
  39. I am using CMS 8 with VM/ESA and I've tried this example and it works
  40. just swell!!!!  I probably confused you because of how I phrased my
  41. question - I apologize because I haven't mastered the Rexx lingo yet.
  42. .
  43. .
  44. >Chappy
  45.  
  46.   I want to thank everyone on this list for their help and their examples.
  47. I have not yet finished going through all the responses that I have rec'd
  48. but, so far this example is the closest to what I want to do and the
  49. easiest for me to understand at this point.
  50.  
  51. Just as a reminder, my original question was:
  52. How can I declare (apparently an inappropriate word) values for stem
  53. variables external to the main Rexx program in CMS?  I wanted to keep the
  54. main Rexx program generic and keep the values for the stem variables
  55. in another file - this will make changes to the values of the stem variables
  56. easier.  The "big picture" goal for this main Rexx program is to
  57. read in data from an electronic form which a faculty member has filled-
  58. out and then add/update an SQL database with the information.
  59. My progress to that goal is slow, but steady.  I'm sure you'll
  60. be hearing from me again.
  61. Thanks again for everyone's help!  I'm impressed with the amount of
  62. Rexx & Pipes I have learned this week!!!!!
  63.  
  64. -----------------------------------------------------------------------
  65. Lynne J. Worsfold                      Pennsylvania State University
  66. Project Leader/Information Systems     Milton S. Hershey Medical Center
  67. Internet: lworsfol@psuhmc.hmc.psu.edu  140 Sipe Ave
  68. Voice:    (717) 531-6278               Hershey, PA  17033
  69. -----------------------------------------------------------------------
  70.