Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ISRSUPC Issue in Rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
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    Post subject: ISRSUPC Issue in Rexx
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: 27
Location: Melbourne, Australia

PostPosted: Wed Nov 16, 2011 12:07 pm    Post subject: Re: ISRSUPC Issue in Rexx
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    Post subject: ISRSUPC Issue in Rexx
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    Post subject: ISRSUPC Issue in Rexx
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

Site Director


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

PostPosted: Wed Nov 16, 2011 8:26 pm    Post subject: Reply to: ISRSUPC Issue in Rexx
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us