Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 1529
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: 10203
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: 1529
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: 1529
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: 1529
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: 1738
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: 10203
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: 1529
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: 645
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: 1529
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: 1738
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: 10203
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: 1529
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: 10203
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: 1738
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: 10203
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: 2019
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: 1529
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: 1529
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 Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
No new posts Cobol EZASOKET call to SETSOCKOPT fails Andi1982 COBOL Programming 6 Thu Oct 06, 2016 7:12 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us