You can add a DFSORT step to remove the ASA character and create a FB recfm file. ex:
//STEP0100 EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=Your Input PDS, // DISP=SHR //SYSUT2 DD DSN=&&TEMP, // DISP=(,PASS),UNIT=SYSDA, // SPACE=(CYL,(60,30),RLSE) //SYSIN DD * PUNCH TYPORG=PO //* //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=&&TEMP //SORTOUT DD DSN=Your PDS as sequential file, // DISP=(,PASS),UNIT=SYSDA,RECFM=FB, // SPACE=(CYL,(60,30),RLSE) //SYSIN DD * OPTION COPY INREC BUILD=(2,80) //* Thanks, Sri Hari Kolusu DFSORT Development IBM Corporation Email: skol...@us.ibm.com Phone: 408-463-2403 Tie Line 543-2403 IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> wrote on 06/18/2012 02:32:07 PM: > From: Kirk Wolf <k...@dovetail.com> > To: IBM-MAIN@listserv.ua.edu, > Date: 06/18/2012 02:32 PM > Subject: Re: IEBPTPCH questions > Sent by: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> > > Thanks everyone. > > The ASA code "V" = "stacker 1" thing is a new one for me. Not sure how > much I'll use that information though :-) > > I'll tried the FIELD=(80) thing, but no difference. The manual would lead > you to believe that you always get some kind of control character (ASA or > M), so that's probably how it works. It is, after all, just for printing > or punching :-) > > Re: John's suggestion - I haven't tried "cp //pds" to see if performs well > (avoids an open for each member). But copying members to a file system > first won't really work for my use case. > > the CBT utility that outputs in IEBUPDTE format is really the best, but I > was looking for something standard that I could wrap in a REXX script so > that end-users would need to install anything else. > > Kirk Wolf > Dovetailed Technologies > http://dovetail.com > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
