Sorry, not allowed.
But it was pretty simple.
The SVC50 (someone complained about it being complicated) is an
OLD trick to put breadcrumbs in the CPU trace table. It does
clear R15 to zero. But it shows you 0 & 1 contents.
It is coded just like this:
SVC 50
You don't have to set any value in any register unless you need
to save R15's value.
The ECB was cleared by MVCL with the Getmained area, but I did
have an XC SUB_ECB,SUB_ECB.
Then the ATTACHX with PARAM=,ECB=SUB_ECB,and MF=(E,(1)),SF=(E,(15))
ST R1,TCB@ Capture the TCB ADDR
And I did use a variable to hold the PGM address for ATTACHX to
get to it.
Check of R15 for zero, if not would go to a USER ABEND had I
taken out the EX 0,* (because I want to see EXACTLY what the REGs
are when R15<>0.
WAIT ECB=SUB_ECB
L R3,SUB_ECB
LA R1,TCB@
DETACH (1)
ICM R15,7,SUB_ECB
BZ RETURN
Then some logic to determine which ABEND macro to use based on
R15 being greater than X'FFF'.
Yes, here and there I had an EX 0,* because S0C3 rarely ever
happens by accident. And I used that for stepping through the
code, checking register contents, and the CPU trace table.
BUT, I got so fed up with this, that I stole someone's code for
doing a LINK just so I could get this routine back into production.
And if you saw what I said to Peter Relson, yes, I have run into
some strange stuff, opened an ETR and there is now a APAR for a
problem with ESPIE. It takes a S0C4 in IBM's code.
I don't have any more time for this.
Regards,
Steve Thompson
On 10/04/2016 04:36 PM, Charles Mills wrote:
Wow. Something is odd.
S400 = Explanation: Execute channel program (EXCP) processing found an error
while processing an I/O request. One of
the following is true ...
Possible, but not real likely.
So after IDCAMS runs to RC=0 your ECB contains 40400000?
I would check for storage overlays, proper definitions, proper coding of the
ECB= parameter, ...
You want to post the essence of your code?
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Steve Thompson
Sent: Tuesday, October 04, 2016 1:16 PM
To: [email protected]
Subject: Re: Question About ATTACHX and ECB
Yes. So that would mean that I got, xx400000.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
