Hi Steve,
Sorry I pressed send too soon ...
I think program B has to update the DCB with its own EODAD address
which exists in program B.
Quoting an old MVS /XA data Administration Guide....
"The EODAD routine is not a subroutine,but rather a continuation of the
routine that issued the CHECK,GET or FEOV macro."
Regards,
Ron
From: Steve Comstock <[email protected]>
To: [email protected]
Date: 09/01/2012 09:28 AM
Subject: EODAD mystery
Sent by: IBM Mainframe Assembler List <[email protected]>
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
______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
_______________________________________________________________________________
This email has been scanned by the Bankwest Email Security System.
_______________________________________________________________________________
_______________________________________________________________________________
Unencrypted electronic mail is not secure and may not be authentic.
If you have any doubts as to the contents please telephone to confirm.
This electronic transmission including any attachments is intended only
for those to whom it is addressed. It may contain copyright material or
information that is confidential, privileged or exempt from disclosure by law.
Any claim to privilege is not waived or lost by reason of mistaken transmission
of this information. If you are not the intended recipient you must not
distribute or copy this transmission and should please notify the sender.
Your costs for doing this will be reimbursed by the sender.
We do not accept liability in connection with computer virus, data corruption,
delay, interruption, unauthorised access or unauthorised amendment.
_______________________________________________________________________________
______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
