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
 

 

How to search a GDG in given PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
mrdilipchand

New User


Joined: 20 Feb 2007
Posts: 12
Location: banglore

PostPosted: Fri May 04, 2007 4:52 pm    Post subject: How to search a GDG in given PDS
Reply with quote

Hi,

I have a requirment to search a GDG in a given PDS.But am facing an error calling ISRSUPC.
My code is

PDS = 'U0078k.temp.TESTPRC'
INPUT = 'U0078t.SORT.BCK'
OUTPUT = 'U0078t.COMMON'

"ALLOC FI(NEWDD) DA("||"'"||PDS||"'"||") SHR REUSE "
"ALLOC FI(OUTDD) DA("||"'"||OUTPUT||"'"||") SHR REUSE "
"ALLOC FI(SYSIN) DA("||"'"||INPUT||"'"||") SHR REUSE "
"CALL *(ISRSUPC)"


While running it is givving Invalid expression.
Please let me know about the error.

Regards,
Dilipchand.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri May 04, 2007 4:59 pm    Post subject:
Reply with quote

If you can post the error as it appears it might help a bit more.
Back to top
View user's profile Send private message
mrdilipchand

New User


Joined: 20 Feb 2007
Posts: 12
Location: banglore

PostPosted: Fri May 04, 2007 5:05 pm    Post subject:
Reply with quote

10 *-* "CALL *(ISRSUPC)"
/
10 +++ "CALL *(ISRSUPC)"
/
IRX0035I Error running ROUGH, line 10: Invalid expression
***

tis is how it displays.
Back to top
View user's profile Send private message
mrdilipchand

New User


Joined: 20 Feb 2007
Posts: 12
Location: banglore

PostPosted: Fri May 04, 2007 5:13 pm    Post subject:
Reply with quote

//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,
// 'ANYC')
//NEWDD DD DSN=U0078k.temp.TESTPRC,
// DISP=SHR
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'XXXXXX'
/*

This is will be the sample JCL when we search a string using ISPF 3.14 option.
If it ia a problem with PARM, then how to pass it from rexx.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri May 04, 2007 5:22 pm    Post subject:
Reply with quote

Are you running your REXX in batch ?
If so, please post your JCL as well.
Back to top
View user's profile Send private message
mrdilipchand

New User


Joined: 20 Feb 2007
Posts: 12
Location: banglore

PostPosted: Fri May 04, 2007 5:24 pm    Post subject:
Reply with quote

No am executing in Foreground.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri May 04, 2007 5:25 pm    Post subject: Re: How to search a GDG in given PDS
Reply with quote

The code works OK at my site.

How about posting your full TRACE output?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri May 04, 2007 5:40 pm    Post subject:
Reply with quote

Is there a reason for running this from a REXX, rather than using option 3.14 ?

SuperK - I forgot to ask, did you put the parm data into your code as well ?
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Fri May 04, 2007 6:11 pm    Post subject:
Reply with quote

Here I use
"call 'isp.sisplpa(ISRSUPC)'"
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Fri May 04, 2007 6:17 pm    Post subject:
Reply with quote

acevedo wrote:
Here I use
"call 'isp.sisplpa(ISRSUPC)'"


THIS is the way here:
if opts = '' then opts = 'SRCHCMP,ANYC'
"call 'isp.sisplpa(ISRSUPC)' '"opts"'"

;)
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri May 04, 2007 11:19 pm    Post subject:
Reply with quote

expat wrote:
SuperK - I forgot to ask, did you put the parm data into your code as well ?


No, just to stay true to the original post, although I normally do under other circumstances.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Sun May 06, 2007 10:50 am    Post subject:
Reply with quote

I use "ADDRESS ISPEXEC SELECT PGM(ISRSUPC) PARM(parameters)".

O.
Back to top
View user's profile Send private message
mrdilipchand

New User


Joined: 20 Feb 2007
Posts: 12
Location: banglore

PostPosted: Tue May 08, 2007 2:18 pm    Post subject:
Reply with quote

Hi,

This is the only part in my code that is bugging and been resolved.
Thanks for helping me.
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 Search a Load Module sreekanth1984 TSO/ISPF 8 Tue Jun 07, 2016 8:45 pm
No new posts Copy one PDS to another PDS based on ... alluri12 JCL & VSAM 10 Tue Sep 29, 2015 8:10 pm
No new posts Search and replace the key in the report V S Amarendra Reddy SYNCSORT 1 Thu Jul 09, 2015 7:41 pm
No new posts Search Member Name in Library (DSORG=... jackare JCL & VSAM 9 Thu Jun 25, 2015 8:15 pm
No new posts Suggestion on Search and Split using ... shiitiizz DFSORT/ICETOOL 14 Tue Jun 16, 2015 1:20 pm


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