|
View previous topic :: View next topic
|
| Author |
Message |
mrdilipchand
New User
Joined: 20 Feb 2007
Posts: 12
Location: banglore
|
|
|
|
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 |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| If you can post the error as it appears it might help a bit more. |
|
| Back to top |
|
|
mrdilipchand
New User
Joined: 20 Feb 2007
Posts: 12
Location: banglore
|
|
|
|
10 *-* "CALL *(ISRSUPC)"
/
10 +++ "CALL *(ISRSUPC)"
/
IRX0035I Error running ROUGH, line 10: Invalid expression
***
tis is how it displays. |
|
| Back to top |
|
|
mrdilipchand
New User
Joined: 20 Feb 2007
Posts: 12
Location: banglore
|
|
|
|
//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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Are you running your REXX in batch ?
If so, please post your JCL as well. |
|
| Back to top |
|
|
mrdilipchand
New User
Joined: 20 Feb 2007
Posts: 12
Location: banglore
|
|
|
|
| No am executing in Foreground. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
The code works OK at my site.
How about posting your full TRACE output? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
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 |
|
|
acevedo
Active User
Joined: 11 May 2005
Posts: 344
Location: Spain
|
|
|
|
Here I use
"call 'isp.sisplpa(ISRSUPC)'" |
|
| Back to top |
|
|
acevedo
Active User
Joined: 11 May 2005
Posts: 344
Location: Spain
|
|
|
|
| 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 |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| 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 |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
I use "ADDRESS ISPEXEC SELECT PGM(ISRSUPC) PARM(parameters)".
O. |
|
| Back to top |
|
|
mrdilipchand
New User
Joined: 20 Feb 2007
Posts: 12
Location: banglore
|
|
|
|
Hi,
This is the only part in my code that is bugging and been resolved.
Thanks for helping me. |
|
| Back to top |
|
|
|
|
