thanks , i've already written a small rexx with "LMCOPY ..." it's like 3.3 if the target file is PS all the members are copied to one sequential file if the target file is PO all the members are copied separately
yor suggestion by FILEMGR is also excellent thanks again weizman. On Tue, 14 Dec 2021 09:42:27 -0600, Paul Gilmartin <[email protected]> wrote: >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=&&amp;SOURCE,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) >>//SYSIN DD * >> PUNCH TYPORG=PO >>//* >>//STEP0200 EXEC PGM=SORT >>//SYSOUT DD SYSOUT=* >>//SORTIN DD DSN=&&amp;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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
