On Tue, 14 Dec 2021 07:27:16 -0700, Sri h Kolusu wrote: >> >> i want to do this from batch. >> > >You can use IEPTPCH+SORT (to remove the carriage control and the header >records) ... > Will that distinguish separator records generated by IEPTPCH from similar records that might exist as data within members?
> ...or if your shop has FILEMANAGER then you can use that to copy the >PDS to a sequential file. > >IEPTPCH+SORT solution > >//STEP0100 EXEC PGM=IEBPTPCH >//SYSPRINT DD SYSOUT=* >//SYSUT1 DD DISP=SHR,DSN=Your.PDS.to.be.copied >//SYSUT2 DD DSN=&&SOURCE,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) >//SYSIN DD * > PUNCH TYPORG=PO >//* >//STEP0200 EXEC PGM=SORT >//SYSOUT DD SYSOUT=* >//SORTIN DD DSN=&&SOURCE,DISP=SHR >//SORTOUT DD DSN=Your.output.Seq.file, >// DISP=(NEW,CATLG,DELETE), >// SPACE=(CYL,(X,Y),RLSE), >// RECFM=FB >//SYSIN DD * > OPTION COPY > OMIT COND=(2,11,CH,EQ,C'MEMBER NAME') > INREC BUILD=(2,80) >/* > > >File Manager Solution : > >//STEP0100 EXEC PGM=FILEMGR >//SYSPRINT DD SYSOUT=* >//DDIN DD DISP=SHR,DSN=Your.PDS.to.be.copied >//DDOUT DD DSN=Your.output.Seq.file, >// DISP=(NEW,CATLG,DELETE), >// SPACE=(CYL,(X,Y),RLSE) >//SYSIN DD * >$$FILEM DSC MEMBER=* -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
