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> >
