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
