Please show your code. the S200-313 indicates a page translation error for the
DEB, which should not occur unless you are attempting to provide your own DEB.
What are the associated error messages? What is pointed to by field TCBEXCPD at
offset X'C0' in the task control block (TCB)?
________________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of
Tony Thigpen <t...@vse2pdf.com>
Sent: Wednesday, November 9, 2022 10:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXCP question
I am trying to migrate a simple CCW to tape test program from zVSE to
z/OS to help a customer. EXCP on z/OS is new to me. The program is
reading the label so I have BLP in the JCL and am running authorized and
within the correct initiator for BLP.
The OPEN and CLOSE using BLP works, but when I try a simple read, I get:
SYSTEM COMPLETION CODE=200 REASON CODE=00000313
Thoughts?
One think I am worried about is that I read into an area within the
program, not a GETMAINed area, but I compiled with NORENT
Some of the areas:
CCB001_ECB DS A(0)
CCB001 DS 0F IORB
CCB001_IOB DS 0F
CCB001_IOBFLAGS DC XL2'4300'
CCB001_IOBSENSE DC XL2'0000'
CCB001_IOBECBAD DC A(CCB001_ECB)
CCB001_IOBCSW DC A(0)
CCB001_IOBCSWFL DC XL2'0000'
CCB001_IOBRESDL DC H'00'
CCB001_IOBCCWAD DC A(CCW00101)
CCB001_IOBDCBAD DC A(SYS020)
DC 2A(0)
CCB001_IOBSEEK DC XL3'000000' MBB
CCB001_IOBSRCH DC XL5'0000000000' CCHHR
CCW00101 CCW CCWC_RD,DATA0102,CCWF_SLI,RECL0102
DATA0102 DS 0D
DC 1024XL32'00'
RECL0102 EQU *-DATA0102
Tony Thigpen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
