|
View previous topic :: View next topic
|
| Author |
Message |
Pandora-Box
Global Moderator
.jpg)
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Hi,
I was trying to use *REXX in panel to do certain validations on a panel field but when doing so I am getting the message
| Code: |
ISPF service call not allowed during exit invocation
|
Can anyone help me from getting that |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
line 34513 of Your <panel> is wrong,
odd that You did not notice  |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Sorry Enrico I dont see that line or did you give me any pointer  |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
I think I got what you were trying to say will message shortly  |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
No I was wrong I just went in browse mode I saw some packed chars removed it and still the problem the same  |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| premkrishnan wrote: |
Hi,
I was trying to use *REXX in panel to do certain validations on a panel field but when doing so I am getting the message
| Code: |
ISPF service call not allowed during exit invocation
|
Can anyone help me from getting that
Thanks in advance. |
The z/OS V1.R12.0 ISPF Dialog Developer's Guide and Reference states:
| Quote: |
| 5.The REXX code cannot issue requests for any ISPF services. |
Perhaps this is relevant? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| if You do not give a bit more info, the chances of getting help are pretty slim |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
So does this mean I have no way to suppress that message?  |
|
| Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
|
|
|
|
Why would you want to suppress the message?
Don't you think you should correct the error that is causing the message in the first place? |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Hi this is my panel
| Code: |
)ATTR
~ TYPE(INPUT) INTENS(LOW) PAD('.')
_ TYPE(INPUT) CAPS(ON) INTENS(HIGH)
# TYPE(INPUT) CAPS(ON) INTENS(LOW) COLOR(TURQ)
+ TYPE(TEXT) INTENS(LOW)
@ TYPE(OUTPUT) INTENS(LOW) COLOR(YELLOW)
$ TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE)
)BODY WINDOW(76,22)
+------------------------- LOAD SSS applications -----------------------
+Option ===>_ZCMD + SCROLL ===>_SCR +
+
+ Member Mask:_mem + Submit (Y/N):_sub+
+ Replace (Y/N):_rep+
+
+
+ Select one or more SSSAD members to be loaded:
+ B - Browse, S - Select
+
+ S Member Library
+ -- ----------------------------------
)MODEL ROWS(&SCAN)
_Z+ $mem1 $lib +
)INIT
*REXX(mem,(VALMEM))
.zvars = 'CMSEL'
.cursor = zcmd
)REINIT
&ZCMD = ' '
REFRESH (ZCMD)
)PROC
*REXX(mem,(VALMEM))
&ZSEL = TRANS (TRUNC (&ZCMD,'.')
X,EXIT
' ','CMD(%TEST)'
*,'?')
VPUT (MEM CMSEL) PROFILE
)END
|
This is my valmem
| Code: |
/*REXX*/
Address Ispexec "Vget (mem) profile"
say mem
return
|
I am sorry dave I am not sure what's the error there 
I tried to give *ENDREXX but It throws an error |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| premkrishnan wrote: |
This is my valmem
| Code: |
/*REXX*/
Address Ispexec "Vget (mem) profile"
say mem
return
|
I am sorry dave I am not sure what's the error there |
And I previously wrote:
| Quote: |
The z/OS V1.R12.0 ISPF Dialog Developer's Guide and Reference states:
| Quote: |
5.The REXX code cannot issue requests for any ISPF services. |
|
|
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
VGET is an ISPF service
and as such cannot be used in a panel EXIT, that' the way ISPF sees a REXX when used inside a panel |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Experts I am sorry for understanding it very slow
use of VGET is the problem
I removed it and works as expected |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| IIRC given the invocation syntax You can get the mem value using a parse arg |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| enrico-sorichetti wrote: |
| IIRC given the invocation syntax You can get the mem value using a parse arg |
Wouldn't a call to ISPPRXVP (which I think ISPF automatically inserts for non-compiled panel Rexx) be preferable? |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
Yep... looks like IWRW ( I Was Remembering Wrong )
I sit corrected |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
yeah, your current pictures shows that |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
Thanks I did make use of ISPPRXVP and it worked fine.
Now how to pass the Return code from Rexx back to the panel without using ISPF Services when using *REXX?
Cause I wanted to call another program A when Rc = 0 and Program B when Rc = 8
When I say Rc the value is always being 0 after Call But for the particular scenario I am setting the value as 8 |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
I made use of the special variable RESULT and it worked 
Thanks all |
|
| Back to top |
|
|
|
|
