Gentlemen,
Thankyou for your help. Just for info .. the following are a subset of files
created by a JCL stream that executes a dozen COBOL pgms and IBM utilities
and 5/6 times a day ..
//ZYJB5GEN JOB (CONRAD-B),'GH',
// CLASS=A,MSGCLASS=0,MSGLEVEL=(1,1)
//JOBLIB DD DSN=VENDOR.LINKLIB.SECOND,DISP=SHR
//STEP1 EXEC PGM=STEPP01
etc
//SORTOUT DD DSN=IBMUSE2.QKVS.ZZM05CON,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(5,2),RLSE),UNIT=SYSDA,VOL=SER=VPWRKB,
// DCB=(RECFM=FB,LRECL=1800)
//SYSUT2 DD DSN=IBMUSE2.QKVS.UQF.GEN,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(5,2),RLSE),UNIT=SYSDA,VOL=SER=VPWRKB,
// DCB=(RECFM=FB,LRECL=200)
//CARRFILE DD DSN=IBMUSE2.QKVS.CARRFILE,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(5,2),RLSE),UNIT=SYSDA,VOL=SER=VPWRKB,
// DCB=(RECFM=FB,LRECL=8000)
//PRNTFILE DD DSN=IBMUSE2.QKVS.PRNT1,DISP=(,CATLG,DELETE),
// SPACE=(CYL,(9,5),RLSE),UNIT=SYSDA,VOL=SER=VPWRKB,
// DCB=(RECFM=FB,LRECL=133)
.. the CARRFILE has only one 8000 byte record:-(.
I wanted to minimise the clutter of files on a 3.4 list - of the below,
three are PDS's, the others a variety of files of different LRECLs (and not
all shown).
IBMUSE2.QKVS
IBMUSE2.QKVS.BMS
IBMUSE2.QKVS.CARRFILE
IBMUSE2.QKVS.JOBS
IBMUSE2.QKVS.PRNT1
IBMUSE2.QKVS.REP1FILO
IBMUSE2.QKVS.WORK
IBMUSE2.QKVS.ZZM01CON
So to
a) keep the list short I had the bright idea of stuffing the non 80's in a
single PDS;
b) also simplifying any preceding delete to a solitary DELETE PDSNAME
From what I've learned there are 'ways' but nothing simple/simple. My thanks
for the help.
Graham
----- Original Message -----
From: "Graham Hobbs" <[email protected]>
Newsgroups: bit.listserv.ibm-main
To: <[email protected]>
Sent: Friday, April 19, 2013 8:49 PM
Subject: Files in PDS's with different LRECL's
Hello,
In a JCL stream there are several F,B output files I'd like to put into a
single PDS. Each file has a different LRECL? If I allocate the PDS with
LRECL => the longest file's LRECL, can I do this? Am guessing this isn't a
smart question:-) but then am not a sysprog. I know, I can try it, am just
thinking ahead.
Thanks
Graham Hobbs
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
