/* 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**: [email protected] **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
On Tue, Dec 14, 2021 at 1:44 PM Weizman arbel <[email protected]> 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 <
> [email protected]> 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**: [email protected] **|* *Mob**: +972 522 986404
> **|*
> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
> >
> >
> >
> >
> >
> >On Tue, Dec 14, 2021 at 12:54 PM Weizman arbel <[email protected]> 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 <
> >> [email protected]> 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**: [email protected] **|* *Mob**: +972 522 986404
> >> **|*
> >> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
> >> >
> >> >
> >> >
> >> >
> >> >
> >> >On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen <
> [email protected]
> >> >
> >> >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 [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
> >>
> >> ----------------------------------------------------------------------
> >> 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
>
> ----------------------------------------------------------------------
> 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
