I take it that you're setting DCBOFLGS,DCBOFPPC in the OPEN exit. I'm a bit confused about setting the reread flag before reading the first record of the first data set; won't that cause you to skip the record inappropriately?
Did you do a SYNADAF? What did it return? What was the DCB at the time of ABEND? DCBOFPPC processing is older than DCBE. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List [[email protected]] on behalf of Pierre Fichaud [[email protected]] Sent: Tuesday, April 25, 2023 4:00 PM To: [email protected] Subject: Unlike data sets concatenation 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've also got a SYNAD exit and DCBEROPT has X'80'. 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. I set the re-read bit and then return 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. Please see below. I was under the impression the technique described above prevents an S001 abend. Have I missed something? Also the section in DFSHS;Using Data Sets on "Concatenating Unlike Data Sets" mentions the DCBE but doesn't say that it is required. I don't have one. Is a DCBE necessary for this technique ? Thanks in advance, Pierre. 15.37.53 JOB12289 +get1 15.37.53 JOB12289 +get1 15.37.53 JOB12289 +open exit 15.37.53 JOB12289 +reread1 15.37.53 JOB12289 +synad 15.37.53 JOB12289 +synad x 15.37.53 JOB12289 IEC020I 001-4,TH127153,XXXXXXXX,FILEA-0002,0A97,VOLSER, 15.37.53 JOB12289 IEC020I PIERRE.IN000078.VB230 15.37.53 JOB12289 IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT SPECIFIED 15.37.55 JOB12289 IEA995I SYMPTOM DUMP OUTPUT 144 144 SYSTEM COMPLETION CODE=001 REASON CODE=00000004 144 TIME=15.37.53 SEQ=05622 CPU=0000 ASID=001A 144 PSW AT TIME OF ERROR 075C1000 00DAB422 ILC 2 INTC 0D 144 NO ACTIVE MODULE FOUND 144 NAME=UNKNOWN ---------------------------------------------------------------------- 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
