All this discussion is fascinating, but we still don't know anything about the OP's program, unless I missed it. So we aren't necessarily helping, eh?
On Fri, Mar 23, 2012 at 2:20 PM, Jonathan Goossen < jonathan.goos...@assurant.com> wrote: > > From: Paul Gilmartin <paulgboul...@aim.com> > > To: IBM-MAIN@bama.ua.edu > > Date: 03/21/2012 05:29 PM > > Subject: Re: rexx cpu intensive > > Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu> > > > > On Wed, 21 Mar 2012 16:40:12 -0500, Jonathan Goossen wrote: > > > > >A way to simulate this is to accumulate the stem elements to a string > and > > then iterate through them. > > > > If jobs is a string of job names... > > > > o Sometimes you haven't control over this: the compound > > may be defined by a host environment command. > > In those cases you would still know the names and can load them into a > string. The only such host environment that I have worked with like that > is SDSF and it uses predefined variables to hold strings of stem names > that are passed back and forth telling SDSF what is wanted and SDSF > telling the user what it is returning. > > But this is a special situation and doesn't invalidate the method as a > work around for what the OP was wanting in the general sense that was > stated. > > > > > o The various tails may contain embedded blanks. > > I have yet to have that situation. But like everything there are > exceptions and issues. My first thought at dealing with a list of of items > where items have embedded blanks is to use a token substitution mechanism. > And I can think of two possible ways to implement that as well. > > > > > n = words(jobs) > > do i = 1 to n > > job = word(jobs, i) > > if stem_var.job = ?. > > Other_stem.job = 'foo' > > etc. > > > > -- gil > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > > > This e-mail message and all attachments transmitted with it may > contain legally privileged and/or confidential information intended > solely for the use of the addressee(s). If the reader of this > message is not the intended recipient, you are hereby notified that > any reading, dissemination, distribution, copying, forwarding or > other use of this message or its attachments is strictly > prohibited. If you have received this message in error, please > notify the sender immediately and delete this message and all > copies and backups thereof. Thank you. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN > -- zMan -- "I've got a mainframe and I'm not afraid to use it" ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN