Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ISPF service call in REXX panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 7:43 pm    Post subject: ISPF service call in REXX panel
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10355
Location: italy

PostPosted: Fri Oct 21, 2011 7:45 pm    Post subject: Reply to: *REXX in panel
Reply with quote

line 34513 of Your <panel> is wrong,
odd that You did not notice icon_cool.gif
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 7:52 pm    Post subject:
Reply with quote

Sorry Enrico I dont see that line or did you give me any pointer icon_redface.gif
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 7:55 pm    Post subject:
Reply with quote

I think I got what you were trying to say will message shortly icon_biggrin.gif
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 7:58 pm    Post subject:
Reply with quote

No I was wrong I just went in browse mode I saw some packed chars removed it and still the problem the same icon_confused.gif
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1782
Location: Bloomington, IL

PostPosted: Fri Oct 21, 2011 8:02 pm    Post subject: Re: *REXX in panel
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10355
Location: italy

PostPosted: Fri Oct 21, 2011 8:13 pm    Post subject: Reply to: *REXX in panel
Reply with quote

if You do not give a bit more info, the chances of getting help are pretty slim
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 8:15 pm    Post subject:
Reply with quote

So does this mean I have no way to suppress that message? icon_cry.gif
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 687
Location: Pennsylvania

PostPosted: Fri Oct 21, 2011 8:17 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 8:21 pm    Post subject:
Reply with quote

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 icon_sad.gif

I tried to give *ENDREXX but It throws an error
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1782
Location: Bloomington, IL

PostPosted: Fri Oct 21, 2011 8:28 pm    Post subject:
Reply with quote

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 icon_sad.gif

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10355
Location: italy

PostPosted: Fri Oct 21, 2011 8:29 pm    Post subject: Reply to: *REXX in panel
Reply with quote

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
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Fri Oct 21, 2011 8:31 pm    Post subject:
Reply with quote

Experts I am sorry for understanding it very slow icon_redface.gif
use of VGET is the problem

I removed it and works as expected
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10355
Location: italy

PostPosted: Fri Oct 21, 2011 8:51 pm    Post subject: Reply to: *REXX in panel
Reply with quote

IIRC given the invocation syntax You can get the mem value using a parse arg
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1782
Location: Bloomington, IL

PostPosted: Fri Oct 21, 2011 9:00 pm    Post subject: Re: Reply to: *REXX in panel
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10355
Location: italy

PostPosted: Fri Oct 21, 2011 9:34 pm    Post subject: Reply to: *REXX in panel
Reply with quote

Yep... looks like IWRW ( I Was Remembering Wrong )
I sit corrected icon_biggrin.gif
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2088
Location: Silicon Valley

PostPosted: Sat Oct 22, 2011 1:33 am    Post subject: Reply to: *REXX in panel
Reply with quote

Quote:
I sit corrected


yeah, your current pictures shows that
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Mon Oct 24, 2011 2:36 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Mon Oct 24, 2011 5:18 pm    Post subject:
Reply with quote

I made use of the special variable RESULT and it worked icon_smile.gif

Thanks all
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Rexx to send an email without SMTP Se... upendrasri All Other Mainframe Topics 4 Sun Nov 19, 2017 7:59 pm
No new posts ISREDIT Macro is not returning back t... nico_neoz CLIST & REXX 17 Sat Nov 18, 2017 7:40 pm
No new posts REXX LISTDSI () SMSINFO is not working upendrasri CLIST & REXX 4 Fri Nov 17, 2017 11:33 am
No new posts Calling IKJEFT01 program from Rexx upendrasri CLIST & REXX 4 Wed Nov 15, 2017 4:27 pm
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us