Similarly the second step could be IEBGENER instead of SORT, with these SYSIN statements.
//SYSIN DD * GENERATE MAXFLDS=1 RECORD FIELD=(80,2) On Mon, 18 Jun 2012 15:12:03 -0700, Sri h Kolusu wrote: >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 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
