On Thu, 17 Jul 2014 21:11:52 -0400, Thomas David Rivers wrote:
>
>pouring thru the documentation, I could only find sentences that indicate the
>DCBBLKSI
>is only filled in by OPEN for F/FB/V/VB files. This leads me to wonder,
>perhaps it
>simply isn't filled in for RECFM=U? (Which is what appears to be happening.)
>
>It just seems like, perhaps wallowing in naivite, that if you can fill it in
>for the
>other RECFMs, and it would be so darn convenient for this; that I can't be the
>first guy to stumble over it... and, if it weren't filled in, why not?
>
Well, I tried:
//RECFMU JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//ALLOC EXEC PGM=IEFBR14
//DELE DD DISP=(MOD,DELETE),DSN=&SYSUID.TEMP.RECFMU,UNIT=SYSALLDA,
// SPACE=(1000,1000)
//PASS DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(1000,1000),DSORG=PS,
// RECFM=U,BLKSIZE=12345
//*
//COPY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD DISP=(,CATLG),DSN=&SYSUID..TEMP.RECFMU,UNIT=SYSALLDA,
// SPACE=(1000,1000)
//SYSUT1 DD DISP=OLD,DSN=*.ALLOC.PASSS
... SYSPRINT says, as expected:
SDSF OUTPUT DISPLAY RECFMU JOB07374 DSID 102 LINE 0 COLUMNS 02- 133
COMMAND INPUT ===> SCROLL ===> CSR
********************************* TOP OF DATA **********************************
DATA SET UTILITY - GENERATE
IEB352I WARNING: ONE OR MORE OF THE OUTPUT DCB PARMS COPIED FROM INPUT
PROCESSING ENDED AT EOD
******************************** BOTTOM OF DATA ********************************
Then DSLIST tells me, for SYSUT2:
Data Set Name . . . . : user.TEMP.RECFMU
General Data Current Allocation
Management class . . : **None** Allocated blocks . : 120
Storage class . . . : **None** Allocated extents . : 1
Volume serial . . . : TSO030
Device type . . . . : 3390
Data class . . . . . : **None**
Organization . . . : PS Current Utilization
Record format . . . : U Used blocks . . . . : 0
Record length . . . : 0 Used extents . . . : 0
Block size . . . . : 12345
1st extent blocks . : 120
Secondary blocks . : 0 Dates
Data set name type : Creation date . . . : 2014/07/17
SMS Compressible. . : NO Referenced date . . : 2014/07/17
Expiration date . . : ***None***
... so it appears that IEBGENER, at least, is somehow able to suss out
BLKSIZE. Or else it made a very lucky guess.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
