Not getting RRN updated in INFDS.

Not sure what I'm doing wrong, but I can't seem to get the RRN number in
the INFDS to update.



On the first CHAIN the PRD_RRN has after 0 and on the second loop thru
is the CHAIN that I have a record lock on (I have a pgm that just hold
the record until I answer a message, for testing). When the time is
expired on the wait for the record PRD_RRN still has 0 in it.



I shouldn't be blocking so everything I read says it should update. I've
even tried a POST after the CHAIN and get same results. This is on a
v5r2 system and it's been a long time since I've tried using RRN's, but
I just can't see what I'm doing wrong and thought this would work (just
want to read the record if it is locked via another file).



Could it be, my using the Monitor command? I'm at a lose.



TIA!





FTDNPRODL3 IF E Disk ReName(RTDNPD:RRRNPD)

FTDNPROD UF E k Disk InfDS(PRDds) Block(*No)

...

DPRDds DS

D PRD_RRN 397 400I 0

...

C Monitor

C ploc Chain rtdnpd 41

C*

C On-Error RecordLock#

C Eval STATUS = %status

C PRD_RRN Chain TDNPRODL3 10

C EndMon

...



Thanks,



Jim Lowary