I don't see a question, so I'm responding to what I think you want. It has long been true that BUFSIZE defaults to the largest available BLKSIZE The requirement was written in the 1980s. (It might depend on your access method.) So, I very much doubt the the BLISIZE difference is the problem.
There is no equivalent default for LRECL, so I'm guessing that the first LRECL being smaller than the second is your problem. This is a long shot, but it might work if you code LRECL=230 on the first DD. Sorry I don't have anything better. OREXXMan Q: What do you call the residence of the ungulate with the largest antlers? A: A moose pad. :-D Would you rather pass data in move mode (*nix piping) or locate mode (Pipes) or via disk (JCL)? Why do you think you rarely see *nix commands with more than a dozen filters, while Pipelines specifications are commonly over 100s of stages, and 1000s of stages are not uncommon. REXX is the new C. On Mon, May 1, 2023 at 8:27 AM Pierre Fichaud <pr...@videotron.ca> wrote: > I have provided the DCB in source and dumped it just before the OPEN. > > 1st data set in the concatenation : > > Data Set Name . . . . : PIERRE.VB200 . > . > . > . General Data Current > Allocation . > . Management class . . : **None** > Allocated cylinders : 1 . > . Storage class . . . : **None** > Allocated extents . : 1 . > . Volume serial . . . : DISK01 > . > . Device type . . . . : 3390 > . > . Data class . . . . . : **None** > . > . Organization . . . : PS Current > Utilization . > . Record format . . . : VB Used > cylinders . . : 1 . > . Record length . . . : 200 Used > extents . . . : 1 . > . Block size . . . . : 1000 > . > . 1st extent cylinders: 1 > . > . Secondary cylinders : 1 Dates > . > . Data set name type : > Creation date . . . : 2023/04/20 . > . Data set encryption : NO > Referenced date . . : 2023/05/01 . > . > Expiration date . . : ***None*** . > . > . > . SMS Compressible . : NO > > 2nd dataset : > > . Data Set Name . . . . : PIERRE.VB230 > . > . > . > . General Data Current > Allocation . > . Management class . . : **None** > Allocated cylinders : 1 . > . Storage class . . . : **None** > Allocated extents . : 1 . > . Volume serial . . . : DISK01 > . > . Device type . . . . : 3390 > . > . Data class . . . . . : **None** > . > . Organization . . . : PS Current > Utilization . > . Record format . . . : VB Used > cylinders . . : 1 . > . Record length . . . : 230 Used > extents . . . : 1 . > . Block size . . . . : 1150 > . > . 1st extent cylinders: 1 > . > . Secondary cylinders : 1 Dates > . > . Data set name type : > Creation date . . . : 2023/04/20 . > . Data set encryption : NO > Referenced date . . : 2023/05/01 . > . > Expiration date . . : ***None*** . > . > > . SMS Compressible . : NO > > > The JCL has just the DSN and DISP. > . > > . 000183 INFILE DCB DDNAME=INFILE, > *00164000 . > . 000184 DSORG=PS, > *00165000 . > . 000185 EODAD=0, > *00166000 . > . 000186 MACRF=GL > 00167000 . > > > DCB before open > 000224D8 00000000 00000000 00000000 00000000 00000000 00000001 > 00004000 00000001 *....................... .. .... * > 000224F8 00010580 50000000 C6C9D3C5 C1404040 0A004800 00000001 > 00018240 000003E8 *. &...FILEA . .... . b .. Y* > 00022518 00000000 00000001 00000001 00000001 000000C8 00000001 > 00000000 00000001 *....... ... ... ...H... ....... * > DCB after open > 000224D8 00000000 00000000 01D00000 00F43026 002FE5A2 05025C70 > 00004000 00027E08 *........ }...4 . Vs * .. .. = * > 000224F8 02010580 50000000 00A44800 008C4064 1AE30E68 00CA99F8 > 0A018240 020903E8 * &....u .. T . r8 b Y* > 00022518 30013030 00027E78 00000000 00000000 000000C8 00000000 > 00000000 80E37A58 * . = ...........H........ T: * > prior to reread > 000224D8 00000000 00000000 01D10000 00F43026 002FE5A2 05025C70 > 00004000 00027390 *........ J...4 . Vs * .. .. * > 000224F8 02010580 5000F208 00B84800 008C5A6C 1AE30E68 00CA99F8 > 0A018240 020903E8 * &.2 . .. !% T . r8 b Y* > 00022518 30013030 00027400 00000000 00000000 000000C8 00000000 > 00000000 80E37A58 * . ............H........ T: * > I/O error. Buffer=00026060 Bytes read=00001000. DevNbr=0A97 Type=D > Oper=GET Errmsg=WRNG.LEN.RECORD AcMeth=QSAM RBN=000001D100 > > Regards, Pierre. > ******************************** BOTTOM OF DATA > ********************************************************************************** > > ---------------------------------------------------------------------- > 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