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=*
On 4/5/2006, "Gerry Anstey" <[EMAIL PROTECTED]> wrote:
>Guys,
>
>I've scanned the archives, RTFM's etc.
>
>I want to unload a RECFM=80, FB PDS into a QSAM(FB,80) , IEBCOPY keeps
>creating a VS dataset. I have seen the output I want It's where each member
>is one after the other with a name card for the member its was before it.
>I've done it before but I just can't seem to remember what I did.
>Help!
>
>Gerry
>
>
>
>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
>
----------------------------------------------------------------------
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
