IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ISRSUPC Issue in Rexx


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vinayknj

New User


Joined: 26 May 2008
Posts: 50
Location: Bangalore

PostPosted: Wed Nov 16, 2011 10:52 am
Reply with quote

Hi,

I am trying to use ISRSUPC in Rexx to search for string in a PDS member.

I am facing the issue as below
ISRS010W "' " PROCESS OPTION PARAMETER IS NOT A VALID PROCESS OPTION. IT IS IGNORED

Please find below the code

Code:
/* ReXX */                 
 MAIN_PROCESSING:         
   ADDRESS ISREDIT "MACRO"
   ADDRESS TSO             
"ALLOC FI(OUTDD) DA('ISPF.V06530.CAPPS.RULESRCH.PRGMS') MOD REUSE",
  " SPACE(100,100) DSORG(PS) RECFM(F,B) LRECL(80) BLKSIZE(800)"   
"ALLOC FI(NEWDD) DS('"PDSNAME"("MEMNAME")') SHR REUSE"
"ALLOC FI(SYSIN) DUMMY SHR REUSE"                     
STRING = '00665'                                   
QUEUE "SRCHFOR "STRING""                           
"EXECIO" QUEUED() "DISKW SYSIN(FINIS"               
PARMS = "SRCHCMP,' '"                               
                                                     
ADDRESS ISPEXEC "SELECT PGM(ISRSUPC) PARM("PARMS")" 
IF RC /= 0 THEN                                     
   SAY "RULE FOUND IN PROGRAM" MEMNAME               

[/quote]

Please let me know what is wrong with this code. Thanks
Back to top
View user's profile Send private message
JPVRoff

New User


Joined: 06 Oct 2009
Posts: 41
Location: Melbourne, Australia

PostPosted: Wed Nov 16, 2011 12:07 pm
Reply with quote

vinayknj wrote:
Please let me know what is wrong with this code. Thanks

In this line of your code, you are quite happy to embed single quotes in the string that you build using double quotes:
Code:
"ALLOC FI(NEWDD) DS('"PDSNAME"("MEMNAME")') SHR REUSE"
but in this line, you attempt to include double quotes within your string:
Code:
QUEUE "SRCHFOR "STRING""
If you had run this using a TRACE I, then you would have discovered your error. Anyway, use single quotes to enclose your search string...
Back to top
View user's profile Send private message
vinayknj

New User


Joined: 26 May 2008
Posts: 50
Location: Bangalore

PostPosted: Wed Nov 16, 2011 12:20 pm
Reply with quote

Hi Jonathan,

I changed the search string as below

Code:
STRING = '00665'         
QUEUE "SRCHFOR '"STRING"'"

Now I am getting the below message

Code:
NEW: ISPF.V06530.CAPPS.PROGRAMS(COCOFH99)                    OLD:  --- DATA SET NAME UNAVAILABLE ---
                                                                               
ISRS055E "OLD" FILE/DATA SET NAME/MEMBER IS INVALID OR AN ERROR WAS ENCOUNTERED
  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF FOR z/OS

I am doing Search but the above message shows the Utility is trying to Compare. Am I giving incorrect Parms? Please suggest
Back to top
View user's profile Send private message
vinayknj

New User


Joined: 26 May 2008
Posts: 50
Location: Bangalore

PostPosted: Wed Nov 16, 2011 5:27 pm
Reply with quote

Hi,

I could find out the issue with the code and its working fine now.

Code:
PARMS = "'SRCHCMP,ANYC'"

The above change I made and it worked fine. Thanks
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Nov 16, 2011 8:26 pm
Reply with quote

Good to hear it is working - thank you for letting us know the resolution icon_smile.gif

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top