🚀 go-pugleaf

Shaughnessy, Mike wrote:
>I'm doing a compare on the ZLM4DATE of a PDS and if it is equal to
>today's date, I would write it. As I loop through the PDS I display each
>line with a SAY and the ZLM4DATE correctly shows the date of that
>members last update.
>But I also do a SAY display of the ZLM4DATE and it shows a different
>date altogether. I can't figure my problem.  My code is below. Below
>that is the output of the 3 SAY's.

If it isn't clear what you think is wrong here: you say "a different date
altogether". Different from what?

But from the output, it doesn't seem that you're running the code you think
you are anyway: the output (below) suggests that the comparison is matching,
yet the displayed values clearly aren't. I also ran this (forcing ZLM4DATE
to the 2013/04/11 value) and, as expected, got no MEMLIST.I output.

The first line of your code doesn't do anything, btw -- you reset TODAY in
the next line anyway.

>TODAY = DATE('STANDARD')
> TODAY = INSERT('/',INSERT('/',DATE('S'),4),7)
>DO I = 1 TO 20
> COMPARE = ZLM4DATE
> SAY 'COMPARE = 'COMPARE
> SAY 'TODAY = 'TODAY
> IF TODAY = COMPARE
>    THEN SAY MEMLIST.I
>END

>COMPARE = 2013/04/11
>TODAY = 2013/04/15
>AAAAAAA  2010/10/22 2010/12/20 16:19:12 01 01 SYSMAS1
>COMPARE = 2013/04/11
>TODAY = 2013/04/15
>AAAAAAAU 2012/03/29 2012/03/29 12:47:07 01 00 SCLM
>COMPARE = 2013/04/11
>TODAY = 2013/04/15
>AAAAAAG  2010/10/22 2010/10/22 10:59:55 01 00 SCLM

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX