|
View previous topic :: View next topic
|
| Author |
Message |
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi,
I have written a JCL to search multiple strings in list of PS files in the specified column positions.
JCL code:
| Code: |
//<userid>D JOB 00000000,<userid>,
// MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,NOTIFY=&SYSUID
//**********************************************************/
//* JCL FUNCTION: */
//* 1. SEARCHS FOR MULTIPLE STRINGS IN GIVEN POSITIONS */
//**********************************************************/
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,'ANYC',IDPFX,XREF)
//NEWDD DD DISP=SHR,DSN=TESTFIL.Z07D0101.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0102.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0105.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0107.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0108.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0109.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0112.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0113.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0114.Y2009.ABX024
// DD DISP=SHR,DSN=TESTFIL.Z07D0115.Y2009.ABX024
//**
//OUTDD DD DSN=<prefix>.<userid>.SEP2910.T075413,DISP=(MOD,CATLG,)
//SYSIN DD *
SRCHFOR '40',47:48
SRCHFOR '44',47:48
SRCHFOR '65',47:48
SRCHFOR '79',47:48
SRCHFOR '92',47:48
SRCHFOR '97',47:48
SRCHFOR '98',47:48
//**
|
Output:
| Code: |
1 ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS 2010/09/29 7.55 PAGE 1
LINE-# SOURCE SECTION SRCH DSN: TESTFIL.Z07D0115.Y2009.ABX024
----- STRING="40"
858 0645780964661 2 6281840 138 8B475959011500 -11500 ³2010
----- STRING="98"
362 917506538466112 3731898 130 8B157249027200 -27200 ³7010
1 ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS 2010/09/29 7.55 PAGE 2
SEARCH-FOR SUMMARY SECTION SRCH DSN: TESTFIL.Z07D0115.Y2009.ABX024
XREF STRING-FOUND LINES-FOUND DATASET-W/LNS
"40" 1 1
"98" 1 1
XREF STRING-NOT-FOUND
"44"
"65"
"79"
"92"
"97"
LINES-FOUND LINES-PROC DATASET-W/LNS DATASET-WO/LNS COMPARE-COLS LONGEST-LINE
2 2837 1 0 1:160 160
PROCESS OPTIONS USED: ANYC XREF
THE FOLLOWING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED:
SRCHFOR '40',47:48
SRCHFOR '44',47:48
SRCHFOR '65',47:48
SRCHFOR '79',47:48
SRCHFOR '92',47:48
SRCHFOR '97',47:48
SRCHFOR '98',47:48
THE FOLLOWING "SRH" FILE CONCATENATED DATA SETS WERE SPECIFIED:
(1) TESTFIL.Z07D0101.Y2009.ABX024
(2) TESTFIL.Z07D0102.Y2009.ABX024
(3) TESTFIL.Z07D0105.Y2009.ABX024
(4) TESTFIL.Z07D0107.Y2009.ABX024
(5) TESTFIL.Z07D0108.Y2009.ABX024
(6) TESTFIL.Z07D0109.Y2009.ABX024
(7) TESTFIL.Z07D0112.Y2009.ABX024
(8) TESTFIL.Z07D0113.Y2009.ABX024
(9) TESTFIL.Z07D0114.Y2009.ABX024
(10) TESTFIL.Z07D0115.Y2009.ABX024
ISRS004I LISTING LINES MAY BE TRUNCATED DUE TO LIMITING OUTPUT LINE WIDTH.
EXTRANEOUS OR CONFLICTING PROCESS OPTION(S) WERE SPECIFIED. THEY ARE LISTED BELOW:
IDPFX
|
I was expected that output gives some idication about the PS file name where the search strings are present.
"XREF STRING-FOUND" showing value 1 under "DATASET-W/LNS" column. Is this indicates the dataset number?
Please guide how to get the dataset name/unmber where the search string presents.
Thanks in advance. |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| Please guide how to get the dataset name/unmber where the search string presents. |
You cannot have it ! |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi Enrico,
Is there any other utility/way to fulfill my requirement?
If it is there please let me know.
Thanks! |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| why don't you try it with a target that you know is in more than one ds? |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi Dick,
I am very sorry. I didn't get you.
Can you please explain little more please?
Thanks! |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
the test run that you showed us, had a searchfor arguement, that was only in one dataset.
run a test on something that will be found in all or several, and see what the output report provides.
I know that when i search multiple pds's, it will tell you in which pds that the member resides.
i can not believe that you can search multiple datasets and have a report that does not indicate which dataset..... |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| Is there any other utility/way to fulfill my requirement? |
Use the same utility - without concatenating the input datasets. . .
You could set up your jcl as a proc/pend and use the input dsn as a symbolic parameter. . . |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi Dick,
There are 2500 datasets to be searched. Initially I have cretaed a sample JCL to check whether I will get desired results or not.
How can I identify in which dataset(s) the search string is present from the output?
Thank you, |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
satish.ms10,
have you bothered to run with searchfor arguments that you know exist in several if not all of your ds? |
|
| Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
|
|
|
|
| satish.ms10 wrote: |
Hi Dick,
There are 2500 datasets to be searched. Initially I have cretaed a sample JCL to check whether I will get desired results or not.
|
How are you going to concatenate 2500 datesets? |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
You could use Rexx calling ISRSUPC to do the job. Google on REXX ISRSUPC will give examples how to implement that.
I once did it with Easytrev, but if that is not installed Rexx is the
one to use. |
|
| Back to top |
|
|
|
|
