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
 

 

REXX exec & display Panel

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

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Mon Apr 15, 2013 4:34 pm    Post subject: REXX exec & display Panel
Reply with quote

Hi,
I am not able to concatenate my personal PDS with neither SYSEXEC nor ISPPLIB nor ISPMLIB. Its show access issue.
Even I not able to run TSO ISRDDN(just checked)..same error..Not Authorized.
Consider above as problem can't be solved as of now and I have to run rexx exec also, what could be possible options to run rexx exec and panels display as well as In my rexx exec,I have used ISPF panels also.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Apr 15, 2013 4:39 pm    Post subject:
Reply with quote

Look at the ALTLIB and LIBDEF statements
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Tue Apr 16, 2013 3:25 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

Thanks Expat..I used LIBDEF and its working.
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Tue Apr 16, 2013 3:40 pm    Post subject:
Reply with quote

Hi,
Now I am expericing another problem in same rexx exec.
As per functionality of exec, it display a ISPF panel. When user press a PF key(result of this, is mentioned on panel), rexx exec perform a paragraph which in turn should display another ISPF panel. But it is not happening, instead its giving error IRX0011I Error running <exec name>, line <nn>: Control stack full.
I think it is because of panel not displayed on screen. As I have neither used INTERPRET command nor nesting of 250 levels.
Any help on this.

My rexx exec looks like:-
Code:
Address ISPEXEC                                         
  "LIBDEF ISPPLIB DATASET ID('YY00123.ABCXYZ.PANELS')" 
  "DISPLAY PANEL(MATTER)"                               
  "ISPEXEC VGET (ZPFKEY) ASIS"                           
  Key = ZPFKEY                                           
  If Key = "PF00" Then                                   
     Call Main_para         
.....



Code:
Main_Para:
ADDRESS ISPEXEC                                         
  "LIBDEF ISPPLIB DATASET ID('YY00123.ABCXYZ.PANELS')"
  "CONTROL ERRORS RETURN"                               
  "DISPLAY PANEL(INPUT1) CURSOR(SRCE)"  ====>SRCE = ' '           
  "ISPEXEC VGET (ZPFKEY) ASIS"                         
....


Code'd
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Apr 16, 2013 3:50 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

Please always use the Code tags for anything which requires spacing to be preserved.

What was the result of Trace on the code?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Apr 16, 2013 4:02 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

Code:
CONTROL ERRORS RETURN
tells ISPF that YOU are going to take care of error handling

so for what reason You are not doing it ???

anyway the snippets posted are completely useless for the proper PD.

and...
Main_para is very cobolese, and cobolese has no place in rexx.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Apr 16, 2013 4:13 pm    Post subject:
Reply with quote

Why are you doing multiple LIBDEF for ISPPLIB when one should suffice.

Recall in the dark and distant past that too many LIBDEF or ALTLIB statements gave the same error
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Tue Apr 16, 2013 4:20 pm    Post subject:
Reply with quote

Enrico,
I agree with you but that code snippet was just for reference.
My main problem is panel(i.e INPUT1) not displaying.

Expat,
I didn't coded multiple LIBDEF in begining but tried it later on as 'hit n trial' method, still no use of doing it.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Apr 16, 2013 5:36 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

Quote:
I agree with you but that code snippet was just for reference.
My main problem is panel(i.e INPUT1) not displaying.

useless remarks

You are just whining and wasting everybody' s time

the info You posted is not enough to provide any help

when You ask for help You are supposed to provide significant info

what happened when You tried to display the panel using optio 7.2 ?
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Tue Apr 16, 2013 5:46 pm    Post subject:
Reply with quote

Hi Enrico,
Please help me to understand,what information will suffice to describe the issue, because I might be missing any important point here.

Till now, I had provided code snippet to show logical flow of code.
I had also tried to debug using TRACE and getting RC(20) after control passes through Main_para(shown below).

Main_Para:
ADDRESS ISPEXEC
"LIBDEF ISPPLIB DATASET ID('YY00123.ABCXYZ.PANELS')"
"CONTROL ERRORS RETURN"
"DISPLAY PANEL(INPUT1) CURSOR(SRCE)" ====>SRCE = ' '
"ISPEXEC VGET (ZPFKEY) ASIS"
+++++RC(20)++++
....
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Apr 16, 2013 5:52 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

You displayed the VGET RC, NOT the DISPLAY RC

WHAT HAPPENED WHEN YOU TRIED to JUST DISPLAY THE PANEL USING ISPF OPTION 7.2

Code:
   Menu  Utilities  Compilers  Options  Status  Help
 ─ ┌───────────────────────────── Dialog Test ──────────────────────────────┐ ─
   │   Menu  Utilities  View  Help                                          │
 O │ ─────────────────────────────────────────────────────────────────────  │
   │                         Primary Option Panel                           │
 0 │ Option ===>                                                            │
 1 │                                                                        │
 2 │ 1 Functions       Invoke dialog functions/selection panel              │
 3 │ 2 Panels          Display panels                                       │
 4 │ 3 Variables       Display/set variable information                     │
 5 │ 4 Tables          Display/modify table information                     │
 6 │ 5 Log             Browse ISPF log                                      │
 7 │ 6 Dialog Services Invoke dialog services                               │
 8 │ 7 Traces          Specify trace definitions                            │
 9 │ 8 Breakpoints     Specify breakpoint definitions                       │
 1 │ T Tutorial        Display information about Dialog Test                │
 1 │ X Exit            Terminate dialog testing                             │
 1 │                                                                        │
 1 │                                                                        │
 1 └────────────────────────────────────────────────────────────────────────┘
 15 z/OS User     z/OS user applications (Alternate)
 16 z/OS Other    z/OS Other (Condensed)

      Enter X to Terminate using log/list defaults


Code:
   Menu  Utilities  Compilers  Options  Status  Help
 ─ ┌───────────────────── Dialog Test ─────────────────────┐ ──────────────────
   │   Menu  Save  Utilities  Help                         │
 O │ ────────────────────────────────────────────────────  │
   │                    Display Panel                      │
 0 │ Command ===>                                          │ r ID . : ENRICO
 1 │                                                       │ e. . . : 14:19
 2 │ Panel name  . . . . . . .                             │ minal. : 3278
 3 │ Message id  . . . . . . .              (Optional)     │ een. . : 1
 4 │ Cursor field  . . . . . .              (Optional)     │ guage. : ENGLISH
 5 │ Cursor position . . . . .              (Optional)     │ l ID . : ISR
 6 │ Message pop-up field  . .              (Optional)     │  logon : $$ISPF1
 7 │                                                       │  prefix:
 8 │ Enter "/" to select option                            │ tem ID : XXXX
 9 │    Display in window                                  │  acct. : XXXX
 1 │                                                       │ ease . : ISPF z.z
 1 │                                                       │
 1 │                                                       │
 1 │                                                       │
 1 └───────────────────────────────────────────────────────┘
 15 z/OS User     z/OS user applications (Alternate)
 16 z/OS Other    z/OS Other (Condensed)

      Enter X to Terminate using log/list defaults
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Tue Apr 16, 2013 6:13 pm    Post subject:
Reply with quote

Sorry Enrico, I got this point of panel display thru ISPF previously also but i would like to mention that we are working in such a restricted environment of mainframe that can't access ISPF even.I tried to check this many times but didn't get anything. We work using many client specific tools and this is first time, i am trying to work in rexx here.So getting many problems.
Because of this only,I mentined in my initial post as:-
"Hi,
I am not able to concatenate my personal PDS with neither SYSEXEC nor ISPPLIB nor ISPMLIB. Its show access issue.
Even I not able to run TSO ISRDDN(just checked)..same error..Not Authorized. "
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Tue Apr 16, 2013 6:15 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

if You work in a restricted environment and You cannot answer the questions we ask ...
then You should not be asking help on public forum
icon_evil.gif
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Tue Apr 16, 2013 6:19 pm    Post subject:
Reply with quote

I just want to clear out that restricted means with limited access. Please dont take it otherwise.
and
I am just trying to get the things done here with hope that i will be learning more, if I could get this rexx exec work in such a environment.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Apr 16, 2013 9:37 pm    Post subject:
Reply with quote

Hello,

Suggest you work with whoever supports rexx on your system.

It sounds like you will need help from someone who thoroughly understands your environment and no one here does . . .
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Thu Apr 18, 2013 4:57 pm    Post subject: Reply to: REXX exec & display Panel
Reply with quote

Hi All,

Many thanks to each one of you for taking out some time and answer my queries.
With help and motivation from you all, I had run the rexx exec in our system..WITHOUT any help from our system people or rexx people.
icon_biggrin.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Apr 18, 2013 8:05 pm    Post subject:
Reply with quote

Hello,

Good to hear you have this working.

Quote:
WITHOUT any help from our system people or rexx people
However, this is NOT something to celebrate.

As you have local support people, it would be far better to establish a relationship with them rather than depend on whoever might be available at the forum.

If you really get stuck, someone will usually be here soon, but i believe it would be more beneficial to have a good relationship with your support people.
Back to top
View user's profile Send private message
mfguy01

New User


Joined: 06 Sep 2010
Posts: 30
Location: India

PostPosted: Fri Apr 19, 2013 1:38 pm    Post subject:
Reply with quote

Surely Dick...I'll surely take care of this.
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 How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm


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