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