That's the one, thanks GA
[EMAIL PROTECTED]
M.AU To: IBM-MAIN@BAMA.UA.EDU
Sent by: IBM cc:
Mainframe Subject: Re: PDS unload
Discussion List
<[EMAIL PROTECTED]
.EDU>
05/04/2006 12:26
Please respond to
IBM Mainframe
Discussion List
Try something like this:
//*
//S1 EXEC PGM=IEBPTPCH
//SYSIN DD *
PUNCH TYPORG=PO ,OUTODR=DIR
//SYSUT1 DD DSN=C01738.ASM,DISP=SHR
//SYSUT2 DD DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(TRK,(100,100),RLSE),
// DCB=(RECFM=FBA,LRECL=81,BLKSIZE=8100)
//SYSPRINT DD SYSOUT=*
//*
//S2 EXEC PGM=IEBGENER
//SYSIN DD *
GENERATE MAXFLDS=20
RECORD FIELD=(80,2,,1)
//SYSUT1 DD DSN=*.S1.SYSUT2,DISP=(OLD,DELETE)
//SYSUT2 DD DSN=C01738.ASM.PU,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSPRINT DD SYSOUT=*
This communication is for informational purposes only. It is not intended
as an offer or solicitation for the purchase or sale of any financial
instrument or as an official confirmation of any transaction. All market prices,
data and other information are not warranted as to completeness or accuracy and
are subject to change without notice. Any comments or statements made herein
do not necessarily reflect those of JPMorgan Chase & Co., its subsidiaries
and affiliates.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
