JCL - like a red hot needle up the one eye...
//DD1 DD DSN=XXPROD.XT.AB098D0.WHOHAS,DISP=(NEW,CATLG),
// UNIT=PRODDA,SPACE=(TRK,(10,5),RLSE),
// DCB=(LRECL=80,DSORG=PS,RECFM=FB)
Oh, yeah!
I think you are right, this IS why i'm cranky.
Look at that thing...