Good thought Skip. I had tested that modification. When I change like
this:
Do b = a to cics.0
If pgmname.b = '*TOTALS*'
Then Leave
If Datatype(timesused.b) ¬= 'NUM'
Then Iterate
The trace shows REXX is unable to resolve pgmname.b properly anymore and I
never get any matches.
Here's a screens worth of trace:
36 *-* Do b = a to cics.0
>V> "1520"
>V> "238582"
37 *-* If pgmname.b = '*TOTALS*'
>C> "PGMNAME.1520"
>V> "0PROGRAMS"
>L> "*TOTALS*"
>O> "0"
39 *-* If Datatype(timesused.b) ¬= 'NUM'
>C> "TIMESUSED.1520"
>V> ""
>F> "CHAR"
>L> "NUM"
>O> "1"
40 *-* Then
*-* Iterate
36 *-* Do b = a to cics.0
37 *-* If pgmname.b = '*TOTALS*'
>C> "PGMNAME.1521"
>L> "PGMNAME.1521"
>L> "*TOTALS*"
Alan Schwartz
Assurant Shared Business Services
Lead Systems Programmer
Phone: 651-361-4758
Fax: 651-361-5625
Skip Robinson <[EMAIL PROTECTED]>
Sent by: IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU>
11/18/2005 11:13 AM
Please respond to
IBM Mainframe Discussion List <IBM-MAIN@BAMA.UA.EDU>
To
IBM-MAIN@BAMA.UA.EDU
cc
Subject
Re: REXX Question
IIRC, Rexx defines a DO routine according to the control variable. Since
both of your DO loops use 'a', I think ITERATE 'percolates' to the
outermost loop that uses the same control variable. Then again, I may be
all wet.
.
.
.
JO.Skip Robinson
Southern California Edison Company
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[EMAIL PROTECTED]
**************************************************************************************
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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
