Seymour's response made me realize that my post was incomplete.
I'm trying to read a concatenation of unlike data sets using QSAM.
The first dataset is VBS with LRECL=200,BLKSIZE=1000
The second dataset is VBS with LRECL=230,BLKSZIE= 1150.
I've coded a DCB OPEN exit that sets a re-read flag.
I had a SYNAD exit but removed it.
Prior to OPEN, I set the DCBOFPPC bit to 1.
After the OPEN, I set up the DCB OPEN exit.
I read the 1st data set and all is well.
When I attempt to read the 2nd data set, my DCB OPEN exit is driven.
It sets the re-read bit and then returns using R14.
I get control after the GET and test the re-read bit.
It is set so I do NOT process the record but go back to the GET.
I blow up with an S001-4. See below.
I was under the impression the technique described above prevents an S001 abend.
You could read through an entire concatenation without abending and with one
OPEN.
Thanks in advance, Pierre.
......
08.40.17 JOB12309 +get1
08.40.17 JOB12309 +get1
08.40.17 JOB12309 +get1
08.40.17 JOB12309 +get1
08.40.17 JOB12309 +open exit
08.40.17 JOB12309 +reread1
08.40.17 JOB12309 IEC020I 001-4,TH127153,XXXXXXXX,FILEA-0002,0A97,MVSXXX,
08.40.17 JOB12309 IEC020I PIERRE.IN123456.VB230
08.40.17 JOB12309 IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD
EXIT SPECIFIED
08.40.20 JOB12309 IEA995I SYMPTOM DUMP OUTPUT 053
053 SYSTEM COMPLETION CODE=001 REASON CODE=00000004
053 TIME=08.40.17 SEQ=05644 CPU=0000 ASID=001A
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
