Re: how to copy entire pds to sequential file ?
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 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=&SOURCE,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) >>//SYSINDD * >> 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 >>//SYSINDD * >> 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 >>//DDOUTDD DSN=Your.output.Seq.file, >>//DISP=(NEW,CATLG,DELETE), >>//SPACE=(CYL,(X,Y),RLSE) >>//SYSINDD * >>$$FILEM DSC MEMBER=* > >-- gil > >-- >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
Re: how to copy entire pds to sequential file ?
Try this (attached): it worked OK in 1997. Cheers, Chris Poncelet (retired sysprog) On 14/12/2021 05:53, Weizman arbel wrote: > hello , > > i want to do this from batch. > > IEBPTPCH (PUNCH TYPORG=PO) > add MEMBER NAME > in front of each member > and i want to prevent it. > > i did not find a way through IEBCOPY > > ( i know the way by rexx ) > > thanks > > > -- > 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 // //* //* //* JOB TO COPY ALL MEMBERS OF A PDS TO A SEQUENTIAL DATASET, WITH* //* EACH MEMBER SIMPLY HEADED BY "MEMBER NAME " TO * //* DISTINGUISH IT FROM THE OTHER MEMBERS.* //* * //* NOTE: CHECK IEBPTPCH.SYSUT2.DCB=LRECL=? AS THE ASSUMPTION IS 80 * //* * //* CHANGE ALL '@' TO WHATEVER THE DSN IS SUPPOSED TO BE * //* * //* 97/12/02 CMP * //* //* //DELETE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSINDD * DELETE @ NVSAM SCRATCH PURGE SET MAXCC EQ 0 //* //IEBPTPCH EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=@ //SYSUT2 DD DISP=(NEW,PASS), //UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE), //DCB=(RECFM=FBA,LRECL=81,BLKSIZE=0,DSORG=PS) //SYSINDD * PUNCHTYPORG=PO //* //IEBGENER EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=(OLD,DELETE),DSN=*.IEBPTPCH.SYSUT2 //SYSUT2 DD DISP=(NEW,CATLG),DSN=@, //UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE), //DCB=(@,DSORG=PS) //SYSINDD * GENERATE MAXFLDS=1 RECORD FIELD=(,2) /* //* // //* //* ALTERNATIVE WAY TO COPY ALL MEMBERS OF A PDS TO SEQUENTIAL (FLAT) * //* FILE AND THEN BACK AGAIN TO A PDS, USING IEBCOPY * //* * //* * //* 97/12/02 CMP * //* //* //EXPORT EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN00 DD DISP=SHR,DSN= //OUT00 DD DISP=(,CATLG),SPACE=(TRK,10,RLSE), // DSN=.FLAT,DSORG=PS //SYSIN DD * COPY INDD=IN00,OUTDD=OUT00 /* //* //IMPORT EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN00 DD DISP=SHR, // DSN=.FLAT //OUT00 DD DISP=(,CATLG),SPACE=(TRK,(2,0,1),RLSE), // DSN=, // DCB=(RECFM=U,LRECL=0,BLKSIZE=27998,DSORG=PO) //SYSIN DD * COPY INDD=IN00,OUTDD=OUT00 /* //* // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
>>Will that distinguish separator records generated by IEPTPCH from similar records that might exist as data within members? Gil, Not really. If the user has similar text as generated by IEBPTPCH then it is hard to distinguish. In such OP can use File Manager solution which does NOT have any restrictions. Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
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) >//SYSINDD * > 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 >//SYSINDD * > 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 >//DDOUTDD DSN=Your.output.Seq.file, >//DISP=(NEW,CATLG,DELETE), >//SPACE=(CYL,(X,Y),RLSE) >//SYSINDD * >$$FILEM DSC MEMBER=* -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
> hello , > > i want to do this from batch. > Weizman, You can use IEPTPCH+SORT (to remove the carriage control and the header records) 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=&,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) //SYSINDD * PUNCH TYPORG=PO //* //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&,DISP=SHR //SORTOUT DD DSN=Your.output.Seq.file, //DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(X,Y),RLSE), //RECFM=FB //SYSINDD * 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 //DDOUTDD DSN=Your.output.Seq.file, //DISP=(NEW,CATLG,DELETE), //SPACE=(CYL,(X,Y),RLSE) //SYSINDD * $$FILEM DSC MEMBER=* /* Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
On Tue, 14 Dec 2021 10:31:58 +, kekronbekron wrote: >Doesn't IEBTPCH add.. > >./ADD MEMBER= > >.. to the beginning of each member's listing? >If that's the case, that can easily be removed in the end with x all;f all;del >all x > That fails if a member contains such a line as data. >‐‐‐ Original Message ‐‐‐ >> > On Tue, 14 Dec 2021 at 16:53, Weizman arbel wrote: >> > >... >> > > ( i know the way by rexx ) >> > > If you know how, then use rexx. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
/* rexx */ "Free f(SYSIN,NEWDD,OUTDD)" "DELETE '"USERID()".SRCHFORI.LIST'" "Alloc f(SYSIN) DA('"USERID()".SRCHFORI.LIST')", "NEW CATALOG RECFM(F B) LRECL(80) BLKSIZE(800)", "SPACE(1) TRACKS UNIT("QIF_TEMPDASD")" SYSIN.1 = "SRCHFOR ' '" "ExecIO * DiskW SYSIN (Stem Sysin. finis" /* --- /* ALLOCATE Seach and Result datasets /* --- "Alloc f(NEWDD) DA('"SRCH_Libs"') Shr Reuse" "DELETE '"USERID()".SRCHFORO.LIST'" "Alloc f(OUTDD) DA('"USERID()".SRCHFORO.LIST')", "NEW CATALOG RECFM(F B) LRECL(133) ", "SPACE(10,1) CYLINDERS UNIT("QIF_TEMPDASD")" xParms = 'SRCHCMP,ANYC' ADDRESS LINKMVS "ISRSUPC xParms" "ExecIO * DiskR OUTDD (Stem SRCHFOR. finis" "Free f(SYSIN,NEWDD,OUTDD)" *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and IBM I **| * *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|* *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* On Tue, Dec 14, 2021 at 1:44 PM Weizman arbel wrote: > SRCHFOR '' > ENDED - RC=0028 > > > SRCHFOR allows you to specify the members to be searched... > > > you can specify > SELECT MEM1,MEM2 > but not set of members like: > SELECT MEM* > > > > On Tue, 14 Dec 2021 13:05:26 +0200, Itschak Mugzach < > i_mugz...@securiteam.co.il> wrote: > > >Weizman, > > > >SRCHFOR allows you to specify the members to be searched... > > > >Best, > >ITschak > > > >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux > >and IBM I **| * > > > >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 > **|* > >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > > > > > > > >On Tue, Dec 14, 2021 at 12:54 PM Weizman arbel wrote: > > > >> thanks , > >> i've already written a small rexx with "LMCOPY ..." > >> it's more flexible because i can set a set of members by parm (XYZ* > ,X%Z*, > >> ...) > >> > >> > >> but your offer is interesting > >> thanks again. > >> > >> > >> On Tue, 14 Dec 2021 11:38:50 +0200, Itschak Mugzach < > >> i_mugz...@securiteam.co.il> wrote: > >> > >> >The simplest way is to use searchfor with a space as a search argument. > >> See > >> >example below for batch, but it works well online (and does not require > >> >ISPF!). > >> > > >> >//SEARCH EXEC PGM=ISRSUPC, > >> >//PARM=(SRCHCMP, > >> >//'ANYC') > >> >//NEWDD DD DSN=My_Dsn, > >> >// DISP=SHR > >> >//OUTDD DD SYSOUT=(A) > >> >//SYSIN DD * > >> >SRCHFOR ' ' > >> > > >> >best, > >> >ITschak > >> > > >> >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > >> >Platform* *|* *Information Security Continuous Monitoring for Z/OS, > zLinux > >> >and IBM I **| * > >> > > >> >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 > >> **|* > >> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > >> > > >> > > >> > > >> > > >> > > >> >On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen < > willy.h.jen...@outlook.com > >> > > >> >wrote: > >> > > >> >> If you are ok with installing freeware then I suggest that you take a > >> look > >> >> at a couple of programs found at www.cbttape.org: > >> >> OFFLOAD in files 093 and 316, PDSPRINT in file 316. > >> >> > >> >> > -- > >> >> 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 > >> > >> -- > >> 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 > > -- > 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
Re: how to copy entire pds to sequential file ?
SRCHFOR '' ENDED - RC=0028 SRCHFOR allows you to specify the members to be searched... > you can specify SELECT MEM1,MEM2 but not set of members like: SELECT MEM* On Tue, 14 Dec 2021 13:05:26 +0200, Itschak Mugzach wrote: >Weizman, > >SRCHFOR allows you to specify the members to be searched... > >Best, >ITschak > >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux >and IBM I **| * > >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|* >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > >On Tue, Dec 14, 2021 at 12:54 PM Weizman arbel wrote: > >> thanks , >> i've already written a small rexx with "LMCOPY ..." >> it's more flexible because i can set a set of members by parm (XYZ* ,X%Z*, >> ...) >> >> >> but your offer is interesting >> thanks again. >> >> >> On Tue, 14 Dec 2021 11:38:50 +0200, Itschak Mugzach < >> i_mugz...@securiteam.co.il> wrote: >> >> >The simplest way is to use searchfor with a space as a search argument. >> See >> >example below for batch, but it works well online (and does not require >> >ISPF!). >> > >> >//SEARCH EXEC PGM=ISRSUPC, >> >//PARM=(SRCHCMP, >> >//'ANYC') >> >//NEWDD DD DSN=My_Dsn, >> >// DISP=SHR >> >//OUTDD DD SYSOUT=(A) >> >//SYSIN DD * >> >SRCHFOR ' ' >> > >> >best, >> >ITschak >> > >> >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere >> >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux >> >and IBM I **| * >> > >> >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 >> **|* >> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* >> > >> > >> > >> > >> > >> >On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen > > >> >wrote: >> > >> >> If you are ok with installing freeware then I suggest that you take a >> look >> >> at a couple of programs found at www.cbttape.org: >> >> OFFLOAD in files 093 and 316, PDSPRINT in file 316. >> >> >> >> -- >> >> 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 >> >> -- >> 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
Peter, My airplane lands on grass. This way we keep wheels clean. For other creative ideas please contact me offline ;-) Best ITschak בתאריך יום ג׳, 14 בדצמ׳ 2021 ב-13:10 מאת Peter Sylvester < peter.sylves...@gmail.com>: > > i, > > > Hi, > > the reminds me to the question: I cannot find the tool to remove the mud > of the wheels of an airbus > 380? (replace this by any plane you like)? > why? the plane is a universal method for transport, it can land > everywhere. ... on a field? need to > clean the wheels for takeoff :-) > > Don't take me as a jesuite, but for me the question to ask is: what is the > purpose of the resulting > "sequential fille" ? > > - restore the content? iebcopy does that. > > - analysing the "textual" content by some tool ? does the occurence of "./ > ADD MEMBER=x" hurt? etc. > > - other? > > Best > Peter Sylvester > > > On 14/12/2021 11:31, kekronbekron wrote: > > Doesn't IEBTPCH add.. > > > > ./ADD MEMBER= > > > > .. to the beginning of each member's listing? > > If that's the case, that can easily be removed in the end with x all;f > all;del all x > > > > - KB > > > > ‐‐‐ Original Message ‐‐‐ > > > > On Tuesday, December 14th, 2021 at 12:30 PM, Weizman arbel < > wwar...@gmail.com> wrote: > > > >> this can be problematic if the member data also contain MEMBER in the > same position > >> > >> so i prefer to do it from rexx by LMCOPY > >> > >> On Tue, 14 Dec 2021 17:18:56 +1100, Peter Vels peter.v...@gmail.com > wrote: > >> > >>> This: > >>> > >>> > http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html > >>> > >>> does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER > >>> > >>> NAME. > >>> > >>> On Tue, 14 Dec 2021 at 16:53, Weizman arbel wwar...@gmail.com wrote: > >>> > hello , > > i want to do this from batch. > > IEBPTPCH (PUNCH TYPORG=PO) > > add MEMBER NAME > > in front of each member > > and i want to prevent it. > > i did not find a way through IEBCOPY > > ( i know the way by rexx ) > > thanks > > -- > 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 > -- ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Continuous Monitoring for z/OS, x/Linux & IBM I **| z/VM coming soon * -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
i, Hi, the reminds me to the question: I cannot find the tool to remove the mud of the wheels of an airbus 380? (replace this by any plane you like)? why? the plane is a universal method for transport, it can land everywhere. ... on a field? need to clean the wheels for takeoff :-) Don't take me as a jesuite, but for me the question to ask is: what is the purpose of the resulting "sequential fille" ? - restore the content? iebcopy does that. - analysing the "textual" content by some tool ? does the occurence of "./ ADD MEMBER=x" hurt? etc. - other? Best Peter Sylvester On 14/12/2021 11:31, kekronbekron wrote: Doesn't IEBTPCH add.. ./ADD MEMBER= .. to the beginning of each member's listing? If that's the case, that can easily be removed in the end with x all;f all;del all x - KB ‐‐‐ Original Message ‐‐‐ On Tuesday, December 14th, 2021 at 12:30 PM, Weizman arbel wrote: this can be problematic if the member data also contain MEMBER in the same position so i prefer to do it from rexx by LMCOPY On Tue, 14 Dec 2021 17:18:56 +1100, Peter Vels peter.v...@gmail.com wrote: This: http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER NAME. On Tue, 14 Dec 2021 at 16:53, Weizman arbel wwar...@gmail.com wrote: hello , i want to do this from batch. IEBPTPCH (PUNCH TYPORG=PO) add MEMBER NAME in front of each member and i want to prevent it. i did not find a way through IEBCOPY ( i know the way by rexx ) thanks -- 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
Re: how to copy entire pds to sequential file ?
Weizman, SRCHFOR allows you to specify the members to be searched... Best, ITschak *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and IBM I **| * *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|* *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* On Tue, Dec 14, 2021 at 12:54 PM Weizman arbel wrote: > thanks , > i've already written a small rexx with "LMCOPY ..." > it's more flexible because i can set a set of members by parm (XYZ* ,X%Z*, > ...) > > > but your offer is interesting > thanks again. > > > On Tue, 14 Dec 2021 11:38:50 +0200, Itschak Mugzach < > i_mugz...@securiteam.co.il> wrote: > > >The simplest way is to use searchfor with a space as a search argument. > See > >example below for batch, but it works well online (and does not require > >ISPF!). > > > >//SEARCH EXEC PGM=ISRSUPC, > >//PARM=(SRCHCMP, > >//'ANYC') > >//NEWDD DD DSN=My_Dsn, > >// DISP=SHR > >//OUTDD DD SYSOUT=(A) > >//SYSIN DD * > >SRCHFOR ' ' > > > >best, > >ITschak > > > >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux > >and IBM I **| * > > > >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 > **|* > >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > > > > > > > >On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen > > >wrote: > > > >> If you are ok with installing freeware then I suggest that you take a > look > >> at a couple of programs found at www.cbttape.org: > >> OFFLOAD in files 093 and 316, PDSPRINT in file 316. > >> > >> -- > >> 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 > > -- > 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
Re: how to copy entire pds to sequential file ?
thanks , i've already written a small rexx with "LMCOPY ..." it's more flexible because i can set a set of members by parm (XYZ* ,X%Z*, ...) but your offer is interesting thanks again. On Tue, 14 Dec 2021 11:38:50 +0200, Itschak Mugzach wrote: >The simplest way is to use searchfor with a space as a search argument. See >example below for batch, but it works well online (and does not require >ISPF!). > >//SEARCH EXEC PGM=ISRSUPC, >//PARM=(SRCHCMP, >//'ANYC') >//NEWDD DD DSN=My_Dsn, >// DISP=SHR >//OUTDD DD SYSOUT=(A) >//SYSIN DD * >SRCHFOR ' ' > >best, >ITschak > >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux >and IBM I **| * > >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|* >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > >On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen >wrote: > >> If you are ok with installing freeware then I suggest that you take a look >> at a couple of programs found at www.cbttape.org: >> OFFLOAD in files 093 and 316, PDSPRINT in file 316. >> >> -- >> 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
Doesn't IEBTPCH add.. ./ADD MEMBER= .. to the beginning of each member's listing? If that's the case, that can easily be removed in the end with x all;f all;del all x - KB ‐‐‐ Original Message ‐‐‐ On Tuesday, December 14th, 2021 at 12:30 PM, Weizman arbel wrote: > this can be problematic if the member data also contain MEMBER in the same > position > > so i prefer to do it from rexx by LMCOPY > > On Tue, 14 Dec 2021 17:18:56 +1100, Peter Vels peter.v...@gmail.com wrote: > > > This: > > > > http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html > > > > does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER > > > > NAME. > > > > On Tue, 14 Dec 2021 at 16:53, Weizman arbel wwar...@gmail.com wrote: > > > > > hello , > > > > > > i want to do this from batch. > > > > > > IEBPTPCH (PUNCH TYPORG=PO) > > > > > > add MEMBER NAME > > > > > > in front of each member > > > > > > and i want to prevent it. > > > > > > i did not find a way through IEBCOPY > > > > > > ( i know the way by rexx ) > > > > > > thanks > > > > > > 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 > > 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
Re: how to copy entire pds to sequential file ?
The simplest way is to use searchfor with a space as a search argument. See example below for batch, but it works well online (and does not require ISPF!). //SEARCH EXEC PGM=ISRSUPC, //PARM=(SRCHCMP, //'ANYC') //NEWDD DD DSN=My_Dsn, // DISP=SHR //OUTDD DD SYSOUT=(A) //SYSIN DD * SRCHFOR ' ' best, ITschak *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and IBM I **| * *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|* *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen wrote: > If you are ok with installing freeware then I suggest that you take a look > at a couple of programs found at www.cbttape.org: > OFFLOAD in files 093 and 316, PDSPRINT in file 316. > > -- > 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
Re: how to copy entire pds to sequential file ?
If you are ok with installing freeware then I suggest that you take a look at a couple of programs found at www.cbttape.org: OFFLOAD in files 093 and 316, PDSPRINT in file 316. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
this can be problematic if the member data also contain MEMBER in the same position so i prefer to do it from rexx by LMCOPY On Tue, 14 Dec 2021 17:18:56 +1100, Peter Vels wrote: >This: >http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html >does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER >NAME. > >On Tue, 14 Dec 2021 at 16:53, Weizman arbel wrote: > >> hello , >> >> i want to do this from batch. >> >> IEBPTPCH (PUNCH TYPORG=PO) >> add MEMBER NAME >> in front of each member >> and i want to prevent it. >> >> i did not find a way through IEBCOPY >> >> ( i know the way by rexx ) >> >> thanks >> >> >> -- >> 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: how to copy entire pds to sequential file ?
This: http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER NAME. On Tue, 14 Dec 2021 at 16:53, Weizman arbel wrote: > hello , > > i want to do this from batch. > > IEBPTPCH (PUNCH TYPORG=PO) > add MEMBER NAME > in front of each member > and i want to prevent it. > > i did not find a way through IEBCOPY > > ( i know the way by rexx ) > > thanks > > > -- > 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
how to copy entire pds to sequential file ?
hello , i want to do this from batch. IEBPTPCH (PUNCH TYPORG=PO) add MEMBER NAME in front of each member and i want to prevent it. i did not find a way through IEBCOPY ( i know the way by rexx ) thanks -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN