Ah! When your EODAD takes you to another CSECT, you
have to re-establish the base for that CSECT because
you enter the CSECT with the other registers unchanged.
Found a simpler way to set the bit in PROGRAM A using
IILL then STC in PROGRAM B and all works.
Subtle bug, though.
On 1/8/2012 6:56 PM, Sam Siegel wrote:
On Sun, Jan 8, 2012 at 5:25 PM, Steve Comstock<[email protected]>wrote:
I think I may be missing something here, but I can't
pin it down.
Program A contains DCB/DCBE for a file; the DCBE has
EODAD=ENDIFILE
The routine called ENDIFILE contains just this:
oiy flags,endInfile
br r14
Program A opens the file and later links (linkx) to
Program B, passing the dcb; Program B does GETs;
after each GET, Program B checkd if the end of file
flag is set.
I have verified that both programs are accessing the
same byte / bit and that the end of file flag is, indeed,
set.
Sounds like program B is not seeing the flag byte that is set in program A.
Can you post code?
But, control does _not_ return to PROGRAM B from the
EODAD routine in PROGRAM A. Instead I get
IEC020I 001-5,TESTF005,STEP1,TTFIN,**0D30,VPWRKA,
IEC020I SCOMSTO.B625.NEW.FOLKS
IEC020I GET ISSUED AFTER END-OF-FILE<===
and an abend.
All the reading I've done seems to indicate my logic
is viable, but it's not working.
Any suggestions?
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/**ROI/roi.html<http://www.trainersfriend.com/ROI/roi.html>
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
