Re: Unlike data sets concatenation - revised 2
On Fri, Apr 28, 2023 at 12:53:46PM -0500, Pierre Fichaud wrote: > These are existing datasets so it's just DSNAME and DISP in the concatenation. OK, but what is in the source coded on the DCB? Does it specify BLKSIZE and/or LRECL. Please provide the DCB from the source of the program. Also would be nice to have all references in the source which modify the DCB BLKSIZE or LRECL. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unlike data sets concatenation - revised 2
On Fri, 28 Apr 2023 12:53:46 -0500, Pierre Fichaud wrote: >These are existing datasets so it's just DSNAME and DISP in the concatenation. > It's possible to override attributes of an existing data set in JCL DD, DYNALLOC, or DCB. If the OPEN is only for READ overriding attributes will be effective, but the DSCBs will not be updated. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unlike data sets concatenation - revised 2
These are existing datasets so it's just DSNAME and DISP in the concatenation. Pierre. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unlike data sets concatenation - revised 2
On Fri, Apr 28, 2023 at 11:18:43AM -0500, Pierre Fichaud wrote: > I set DCBOFPPC before the OPEN. > DCB after open > 000224D8 01D0 00F43026 002FE5A2 05025C70 > 4000 00027E08 * }...4 . Vs * .. .. = * > 000224F8 02010580 5000 00A44848 008C4064 1AE30E68 00CA99F8 > 0A018240 020903E8 *&u .T . r8 bY* > 00022518 30013030 00027E78 00C8 > 80E37A58 *. = ...H T: * > > DCBOFLGS is at X'30'. > At x'30', the value is x'1A'. The value of DCBOFPPC is X'08'. > This means that the bit is on. Oh, I mistook the x'30' for the value of DCBOFLGS not the offset. OK, so DCBOPPC is set. So an alternate theory is that the unlike concatenation is working as designed in that EOV is doing the close/open but open isn't getting the new LRECL and BLKSIZE. An indication of this is that your DCB open exit is getting control. What does your source DCB look like? Does it include LRECL and/or BLKSIZE? Values coded for LRECL/BLKKSiZE in the DCB macro do NOT in general get changed by open, unspecified values get set from the JCL/JFCB or the DSCB (dataset attributes). -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unlike data sets concatenation - revised 2
I set DCBOFPPC before the OPEN. DCB after open 000224D8 01D0 00F43026 002FE5A2 05025C70 4000 00027E08 * }...4 . Vs * .. .. = * 000224F8 02010580 5000 00A44848 008C4064 1AE30E68 00CA99F8 0A018240 020903E8 *&u .T . r8 bY* 00022518 30013030 00027E78 00C8 80E37A58 *. = ...H T: * DCBOFLGS is at X'30'. At x'30', the value is x'1A'. The value of DCBOFPPC is X'08'. This means that the bit is on. DCB prior to reread 000224D8 01D1 00F43026 002FE5A2 05025C70 4000 00027390 * J...4 . Vs * .. .. * 000224F8 02010580 5000F208 00B84848 008C5A6C 1AE30E68 00CA99F8 0A018240 020903E8 *&.2 . . !% T . r8 bY* 00022518 30013030 00027400 00C8 80E37A58 *. H T: * At x'30', the value is x'1A'. DCBOFPPC is on. Regards, Pierre. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Unlike data sets concatenation - revised 2
On Fri, Apr 28, 2023 at 08:51:22AM -0500, Pierre Fichaud wrote: > I thought that the 2nd display of the DCB would show the lrecl to be > 230 and the blksize to be 1150. As did others, which is why a dump of the DCB was requested to see the actual values. > I'm reading the documentation for the umpteenth time and can't see > what I've missed or done wrong. Likely you are not setting the unlike concatenation bit in DCBOFLGS as it isn't set in the dump of the DCB. >From Seymour J Metz 's message > DCBOFLGS='30'X=DCBOFEOV+DCBOFOPN Possibly you are setting the DCBOFEOV bit or the system is setting it. A quick view of your source would show which... Seymour (and the manual) says you need to set: > OIDCBOFLGS,DCBOFPPC from z/OS 2.5 DFSMS Using Data Sets IBM SC23-6855-50 Chapter 25. Processing Sequential Data Sets Concatenating unlike data sets To concatenate unlike sequential data sets, you must modify the DCBOFLGS field of the DCB before the end of the current data set is reached. This informs the system that you are concatenating unlike data sets. DCBOFPPC is bit 4 of the DCBOFLGS field. Set bit 4, DCBOFPPC, to 1 by using the instruction OI DCBOFLGS,X'08'. If DCBOFPPC is 1, end-of-volume processing for each data set issues a close for the data set just read, and an open for the next concatenated data set. This closing and opening procedure updates the fields in the DCB and, performs the other functions of CLOSE and OPEN. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Unlike data sets concatenation - revised 2
I thought that the 2nd display of the DCB would show the lrecl to be 230 and the blksize to be 1150. I'm reading the documentation for the umpteenth time and can't see what I've missed or done wrong. 08.51.43 JOB12479 +Ptr to SYNAD exit placed in DCB 08.51.43 JOB12479 +reread off, OFPPC on 08.51.43 JOB12479 +file OPENed SVC 13 and SVCR 13 in system trace table DCB after open 000224D8 01D0 00F43026 002FE5A2 05025C70 4000 00027E08 * }...4 . Vs * .. .. = * 000224F8 02010580 5000 00A44848 008C4064 1AE30E68 00CA99F8 0A018240 020903E8 *&u .T . r8 bY* 00022518 30013030 00027E78 00C8 80E37A58 *. = ...H T: * 08.51.43 JOB12479 +Ptr to exit list placed in DCB 08.51.43 JOB12479 +get 08.51.43 JOB12479 +get 08.51.43 JOB12479 +get ... ... 08.51.43 JOB12479 +get 08.51.43 JOB12479 +get SVC 37 and SVCR 37 in system trace table 08.51.43 JOB12479 +open exit (I can see the SVC 23 and SVCR 23 entries) 08.51.43 JOB12479 +reread DCB prior to reread 000224D8 01D1 00F43026 002FE5A2 05025C70 4000 00027390 * J...4 . Vs * .. .. * 000224F8 02010580 5000F208 00B84848 008C5A6C 1AE30E68 00CA99F8 0A018240 020903E8 *&.2 . . !% T . r8 bY* 00022518 30013030 00027400 00C8 80E37A58 *. H T: * 08.51.43 JOB12479 +get SVC 37 and SVCR 37 in system trace table 08.51.43 JOB12479 +synad I/O error. Buffer=00026060 Bytes read=1000. DevNbr=0A97 Type=D Oper=GET Errmsg=WRNG.LEN.RECORD AcMeth=QSAM RBN=01D100 08.51.43 JOB12479 +synad x -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN