|
View previous topic :: View next topic
|
| Author |
Message |
Sathiya_08
New User
Joined: 07 Dec 2007
Posts: 2
Location: Chennai
|
|
|
|
Hi
When i try to execute the following lines of code in CLIST using a REXX tool, it works fine.
| Code: |
ISPEXEC SELECT PGM(UTIMAIN) NEWAPPL(&ZAPPLID) NEWPOOL PASSLIB PARM(FDSN('&ILIBLIB(&IMEMBER)') TDSN('©2PDS') CMD(C,&ARC.&OPT.VAR(
NO)) RETURN)
SET UTIMAINRC = &LASTCC
SET UTIMAINRC = 0 |
But when i try to execute the REXX tool itself using a JCL, it gives LASTCC as 20.
| Code: |
ISPEXEC SELECT PGM(UTIMAIN) NEWAPPL(&ZAPPLID) NEWPOOL PASSLIB PARM(FDSN('&ILIBLIB(&IMEMBER)') TDSN('©2PDS') CMD(C,&ARC.&OPT.VAR(
NO)) RETURN)
SET UTIMAINRC = &LASTCC
SET UTIMAINRC = 20 |
Can someone help me out to resolve this issue?
Thanks...
Regards,
Sathiya.R |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Is your batch job running ISPF? If not, or if you don't know, search the forums for the keyword ISPSTART to see what an ISPF batch jobstream should look like. |
|
| Back to top |
|
|
Sathiya_08
New User
Joined: 07 Dec 2007
Posts: 2
Location: Chennai
|
|
|
|
Kevin,
Thanks for the prompt response.
I am not sure about ISPSTART. Here is the JCL which executes the rexx tool which in turn invokes the CLIST.
| Code: |
//RPTREXX EXEC PGM=IKJEFT01,
// DYNAMNBR=20,
// PARM='%REXXTOOL'
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=A.B.C,DISP=SHR
//CARDIN DD *
/*
//* |
Regards,
Sathiya.R |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| ISPEXEC is an ISPF thing... you can not use it without first starting ISPF. As SuperK mentioned, search for ISPSTART. |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
| Back to top |
|
|
|
|
