> -----Original Message-----
> From: IBM Mainframe Discussion List On Behalf Of Klein, Kenneth
>
> Try this:
>
>
>
//*-+----1----+----2----+----3----+----4----+----5----+----6----+----7--
> //PROC001 PROC
> //SCAN EXEC PGM=ISRSUPC,PARM=('L SRCHCMP ANYC')
> //OUTDD DD SYSOUT=*
> //NEWDD DD DISP=SHR,DSN=&DSN
> //SYSIN DD DISP=SHR,DSN=KQKTEMP.$TSO.JCLLIB(SCANPARM)
> //ENDOFIT PEND
> //S0A EXEC PROC=PROC001,DSN='KQKTEMP.$TSO.JCLLIB'
> //* scanparm looks like this:
> //
> SRCHFOR 'KQKTEMP'
An option I've not seen mentioned yet is DFSORT (and possibly Syncsort),
using the "substring" ( SS ) function of the INCLUDE control card:
//STEP01 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=your.input.dataset
//SORTOUT DD DISP=(,CATLG),DSN=your.output.dataset,
// UNIT=SYSALLDA,SPACE=(TRK,(1,1))
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,80,SS,EQ,C'192.168.1.14',OR,
1,80,SS,EQ,C'192.168.001.014')
/*
This just does the basic "find" and copies the found records unchanged
to SORTOUT. Of course, you can get a whole lot fancier with the output
using the OUTFIL control card.
-jc-
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
