On Fri, 26 Jul 2013 01:45:34 -0400, Jim Mulder wrote:
>>>
>>A customer (mildly) complained ...
>>
Clearly, it wasn't I.
>... TRANSMIT/RECEIVE would cease to override that on the DCB and thus
>no longer change the BLKSIZE to 3120. Since the stupid DCB
>specification is still there, exists, I apparently lost that battle.
>
For an example of how pernicious this can be, imagine the
result of the JCL below (or run it, if you haven't the imagination).
No point in trying PMR on it. Clearly WAD; customer error. But
it strikes me as a data integrity problem. At least, TRANSMIT
should fail with invalid DCB attributes.
I hate JCL!
//
//XMITBLK JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
//* Doc: TSO TRANSMIT overrides BLKSIZE to 3120
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD DISP=(,CATLG),UNIT=SYSALLDA,SPACE=(1000,(1000,,5)),
// DSN=&SYSUID..TEMP.TRANSMIT(ATTACH)
//SYSUT1 DD DISP=SHR,BLKSIZE=27920,DSN=SYS1.MACLIB(ATTACH)
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP2 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=(,)
//SYSTSIN DD *
transmit X.Y DSNAME('SYS1.MACLIB(ATTACH)') outddname(OUTFILE) seq
//*
//OUTFILE DD DISP=OLD,DSN=&SYSUID..TEMP.TRANSMIT(XMIT)
//INFILE DD DISP=SHR,DSN=SYS1.MACLIB(ATTACH)
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//STEP3 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD SYSOUT=(,)
//SYSUT1 DD DISP=SHR,
// DSN=&SYSUID..TEMP.TRANSMIT(ATTACH)
//*
//
:w ! submit $MVS_HOST
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
