MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

passing && in parm field of "SELECT PGM" i

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Fri Aug 12, 2005 12:10 pm    Post subject: passing && in parm field of "SELECT PGM" i Reply with quote

In a rexx program, I am calling an Endevor API, passing it data that contains &&10. and ISPF thinks the 10 is a variable giving an ISPV009 error. How can I code the rexx to avoid this error?

the rexx statement is:

"SELECT PGM(NDVRC1) PARM('APIDEBUG "API_parm"')"

API_parm resolves to:

1JFCTEST DEV CPSNDVCBL1NDVADMIN NNNIMSDEBUG
(,,,"VADTCPIP&&10.6.184.178%8001:*")

FYI - the above 2nd line is the value used by the CEEXOPT macro when assembling the CEEUOPT module for linking with an IMS module to be debugged with IBM's DEBUG TOOL (it contains the workstation address)
Back to top
View user's profile Send private message Send e-mail
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA

PostPosted: Fri Aug 12, 2005 1:41 pm    Post subject: Reply with quote

Try assigning the value in single quotes:

API_parm = '1JFCTEST DEV CPSNDVCBL1NDVADMIN NNNIMSDEBUG(,,,"VADTCPIP&&10.6.184.178%8001:*"))'
Back to top
View user's profile Send private message
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Fri Aug 12, 2005 2:14 pm    Post subject: Reply with quote

I added this statement:

API_parm=''''API_parm''''

the single quotes were added around the string, but the same error occurred.

This is the trace:
Code:

   168 *-*  API_parm=''''API_parm''''                                         
       >L>    "'"                                                             
       >V>    "1JFCTEST   DEV     CPSNDVCBL1NDVADMIN    NNNIMSDEBUG (,,,"VADTCP
IP&&10.6.184.178%8001:*")    "                                                 
       >O>    "'1JFCTEST   DEV     CPSNDVCBL1NDVADMIN    NNNIMSDEBUG (,,,"VADTC
PIP&&10.6.184.178%8001:*")    "                                               
       >L>    "'"                                                             
       >O>    "'1JFCTEST   DEV     CPSNDVCBL1NDVADMIN    NNNIMSDEBUG (,,,"VADTC
PIP&&10.6.184.178%8001:*")    '"                                               
   169 *-*  address ispexec                                                   
   170 *-*  "SELECT PGM(NDVRC1) PARM('APIDEBUG "API_parm"')"                   
       >L>    "SELECT PGM(NDVRC1) PARM('APIDEBUG "                             
       >V>    "'1JFCTEST   DEV     CPSNDVCBL1NDVADMIN    NNNIMSDEBUG (,,,"VADTC
PIP&&10.6.184.178%8001:*")    '"                                               
       >O>    "SELECT PGM(NDVRC1) PARM('APIDEBUG '1JFCTEST   DEV     CPSNDVCBL1
NDVADMIN    NNNIMSDEBUG (,,,"VADTCPIP&&10.6.184.178%8001:*")    '"             
       >L>    "')"                                                             
       >O>    "SELECT PGM(NDVRC1) PARM('APIDEBUG '1JFCTEST   DEV     CPSNDVCBL1
NDVADMIN    NNNIMSDEBUG (,,,"VADTCPIP&&10.6.184.178%8001:*")    '')"           
***                                                                           
 
******************************************************************************
* ISPV009                                                                    *
*                                                                            *
* Invalid variable name                                                      *
* Variable '10' is syntactically incorrect.                                  *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Current dialog statement:                                                  *
* SELECT PGM(NDVRC1) PARM('APIDEBUG '1JFCTEST   DEV     CPSNDVCBL1NDVADMIN   *
*                                                                            *
* Enter HELP command for further information regarding this error.           *
* Press ENTER key to terminate the dialog.                                   *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
******************************************************************************
Back to top
View user's profile Send private message Send e-mail
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA

PostPosted: Fri Aug 12, 2005 3:30 pm    Post subject: Reply with quote

I can pass the full variable string using ADDRESS LINK but not with ADDRESS ISPEXEC. I will continue to see what I can find.
Back to top
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Sat Aug 13, 2005 12:42 am    Post subject: Reply with quote

I don't have time to test it, but try changing && to &&&&
Back to top
View user's profile Send private message Visit poster's website
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Mon Aug 15, 2005 6:54 am    Post subject: Reply with quote

same result:
Code:

   168 *-*  address ispexec                                                   
   169 *-*  "SELECT PGM(NDVRC1) PARM('APIDEBUG "API_parm"')"                   
       >L>    "SELECT PGM(NDVRC1) PARM('APIDEBUG "                             
       >V>    "1JFCTEST   DEV     CPSNDVCBL1NDVADMIN    NNNIMSDEBUG (,,,"VADTCP
IP&&&&&10.6.184.178%8001:*") "                                                 
       >O>    "SELECT PGM(NDVRC1) PARM('APIDEBUG 1JFCTEST   DEV     CPSNDVCBL1N
DVADMIN    NNNIMSDEBUG (,,,"VADTCPIP&&&&&10.6.184.178%8001:*") "               
       >L>    "')"                                                             
       >O>    "SELECT PGM(NDVRC1) PARM('APIDEBUG 1JFCTEST   DEV     CPSNDVCBL1N
DVADMIN    NNNIMSDEBUG (,,,"VADTCPIP&&&&&10.6.184.178%8001:*") ')"             
******************************************************************************
* ISPV009                                                                    *
*                                                                            *
* Invalid variable name                                                      *
* Variable '10' is syntactically incorrect.                                  *
******************************************************************************
Back to top
View user's profile Send private message Send e-mail
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Mon Aug 15, 2005 7:04 am    Post subject: Reply with quote

Oops - I forgot that the exec adds an extra & and it ended up with 5 &'s; with only 4 &'s the code worked - thanks.
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Mon Aug 15, 2005 8:39 pm    Post subject: Reply with quote

Glad it worked. Thanks for letting us know.
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group