Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Question regarding ISRSUPC utility

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Wed Sep 29, 2010 7:13 pm    Post subject: Question regarding ISRSUPC utility
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Sep 29, 2010 7:20 pm    Post subject: Reply to: Question regarding ISRSUPC utility
Reply with quote

Quote:
Please guide how to get the dataset name/unmber where the search string presents.

You cannot have it !
Back to top
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Wed Sep 29, 2010 7:30 pm    Post subject:
Reply with quote

Hi Enrico,

Is there any other utility/way to fulfill my requirement?

If it is there please let me know.

Thanks!
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Sep 29, 2010 8:24 pm    Post subject:
Reply with quote

why don't you try it with a target that you know is in more than one ds?
Back to top
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Wed Sep 29, 2010 8:32 pm    Post subject:
Reply with quote

Hi Dick,

I am very sorry. I didn't get you.

Can you please explain little more please?

Thanks!
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Sep 29, 2010 8:40 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Sep 29, 2010 8:46 pm    Post subject:
Reply with quote

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
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Thu Sep 30, 2010 1:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Sep 30, 2010 1:27 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Thu Sep 30, 2010 4:15 pm    Post subject:
Reply with quote

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
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Thu Sep 30, 2010 4:56 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Best IMS DB Unload Utility jjabez10 IMS DB/DC 12 Thu Sep 22, 2016 11:15 pm
No new posts Any docs / links for isub- cobol comp... SRICOBSAS COBOL Programming 4 Fri Aug 26, 2016 2:35 pm
No new posts Fault Analyzer - listings question. egrove IBM Tools 4 Thu Aug 11, 2016 5:31 pm
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm
No new posts Comparex utility to Syncsort conversion mistah kurtz SYNCSORT 11 Fri Jul 22, 2016 1:53 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us