/* 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 <wwar...@gmail.com> 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 <wwar...@gmail.com> 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