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