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

Reply via email to