IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Wants to create menu based on input
IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai
PostPosted: Mon Feb 16, 2009 2:36 pm
 Reply with quote
I want display the first screen based on my input, when ever user invoke my tool

ex : if user enters TSO BMC then this should be first screen after few seconds my menu panel has to display automatically. is it possible


Code:
**C*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*B**
***BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BM**
**BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC**
**MC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC***
**C*B              *BMC*BM     *BMC*BMC*B     C*BMC*BM         *BMC*B**
***BMC*   *BMC*BM   MC*BMC*B    MC*BMC*B    MC*BMC*B    MC*BM    C*BM**
**BMC*B   BMC*BMC*   *BMC*BM     *BMC*B     C*BMC*B   BMC*BMC*B   BMC**
**MC*BM   MC*BMC*B   BMC*BMC      MC*B      *BMC*BM   MC*BMC*BMC*BMC***
**C*BMC   C*BMC*B   BMC*BMC*   *   *B   B   BMC*BMC   C*BMC*BMC*BMC*B**
***BMC*            BMC*BMC*B   BM      BM   MC*BMC*   *BMC*BMC*BMC*BM**
**BMC*B   BMC*BMC   C*BMC*BM   MC*    BMC   C*BMC*B   BMC*BMC*BMC*BMC**
**MC*BM   MC*BMC*B   BMC*BMC   C*BM  BMC*   *BMC*BM   MC*BMC*BMC*BMC***
**C*BMC   C*BMC*BM   MC*BMC*   *BMC*BMC*B   BMC*BMC   C*BMC*BMC   C*B**
***BMC*   *BMC*BM   MC*BMC*B   BMC*BMC*BM   MC*BMC*B    MC*BM    C*BM**
**BMC              MC*BMC*     MC*BMC*BMC     BMC*BMC*         MC*BMC**
**MC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC***
**C*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*B**
***BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BM**
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
PostPosted: Mon Feb 16, 2009 2:42 pm
 Reply with quote
What have you tried ?
Back to top
View user's profile Send private message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai
PostPosted: Mon Feb 16, 2009 2:53 pm
 Reply with quote
I didn't get any ideas how to create

I think we can't do thru pgm
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel
PostPosted: Mon Feb 16, 2009 4:32 pm
 Reply with quote
Code:
Address ISPEXEC "CONTROL DISPLAY LOCK"
Address ISPEXEC "DISPLAY PANEL(BMCPANEL)"

/* use your favorite method to wait for 2 seconds */

Address ISPEXEC "DISPLAY PANEL(MAINMENU)"
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel
PostPosted: Mon Feb 16, 2009 6:32 pm
 Reply with quote
Sorry, was a bit in a hurry. I'm back now for better explanations.

The CONTROL DISPLAY LOCK statement tells ISPF to leave the keyboard locked and to act as if Enter has been pressed
(which means that the panel is displayed but the Rexx process continues withou waiting).

If you put nothing between the 2 "DISPLAY PANEL" commands, the 1st panel will disappear very quickly,
So try to put as much logic as you can in the middle.
And if it's not enough, here is one method for putting your Rexx to sleep: WAIT or SLEEP utility in REXX for delay
Back to top
View user's profile Send private message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai
PostPosted: Mon Feb 16, 2009 6:41 pm
 Reply with quote
Thanks alot for your reply and suggestion

but how can i display desired name, ex : like BMC but i want to display syntel. Is it possible thru any built in function in rexx or ispf or etc..

Code:
**C*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*B**
***BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BM**
**BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC**
**MC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC***
**C*B              *BMC*BM     *BMC*BMC*B     C*BMC*BM         *BMC*B**
***BMC*   *BMC*BM   MC*BMC*B    MC*BMC*B    MC*BMC*B    MC*BM    C*BM**
**BMC*B   BMC*BMC*   *BMC*BM     *BMC*B     C*BMC*B   BMC*BMC*B   BMC**
**MC*BM   MC*BMC*B   BMC*BMC      MC*B      *BMC*BM   MC*BMC*BMC*BMC***
**C*BMC   C*BMC*B   BMC*BMC*   *   *B   B   BMC*BMC   C*BMC*BMC*BMC*B**
***BMC*            BMC*BMC*B   BM      BM   MC*BMC*   *BMC*BMC*BMC*BM**
**BMC*B   BMC*BMC   C*BMC*BM   MC*    BMC   C*BMC*B   BMC*BMC*BMC*BMC**
**MC*BM   MC*BMC*B   BMC*BMC   C*BM  BMC*   *BMC*BM   MC*BMC*BMC*BMC***
**C*BMC   C*BMC*BM   MC*BMC*   *BMC*BMC*B   BMC*BMC   C*BMC*BMC   C*B**
***BMC*   *BMC*BM   MC*BMC*B   BMC*BMC*BM   MC*BMC*B    MC*BM    C*BM**
**BMC              MC*BMC*     MC*BMC*BMC     BMC*BMC*         MC*BMC**
**MC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC***
**C*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*B**
***BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BMC*BM**
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel
PostPosted: Mon Feb 16, 2009 7:02 pm
 Reply with quote
Maybe it can be done, but not in the scope of this forum, and certainly not for free... 824.gif

I strongly suggest that you design a different (fixed) panel for each product / vendor you have.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
PostPosted: Mon Feb 16, 2009 9:59 pm
 Reply with quote
Quote:
I strongly suggest that you design a different (fixed) panel for each product / vendor you have.


As an user of such products, I find such logo panels annoying. Please do not display. But if you really need to...

Can you display with GDDM? ISPF can display graphics produced by GDDM.
Back to top
View user's profile Send private message
nkothako

Active User


Joined: 26 Nov 2008
Posts: 125
Location: chennai
PostPosted: Tue Feb 17, 2009 10:01 am
 Reply with quote
Quote:
Can you display with GDDM? ISPF can display graphics produced by GDDM.



please guide me how to do this
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel
PostPosted: Tue Feb 17, 2009 8:06 pm
 Reply with quote
WebSphere MQ is compromising. It displays both a small menu and the logo:
Code:
------------------------- WebSphere MQ Utilities  ----------------------------
COMMAND ===>                                                                   
                                                                               
                                                                               
   P  WebSphere MQ Administration                                             
   M  Message Handler                                                         
                                                                               
                                                                               
                                                                               
                 /\~~~~\           /\~~~~\           /~~\~~~~\                 
                /::\    \         /::\    \         /::::\    \               
               /:::/~~~~/        /::::|~~~|        /::::::\    \               
              /:::/    /        /:::::|   |       /::::::::\    \             
             /:::/   /\~~~~\   /::::::|   |      /:::/~~\:::\    \             
            /:::/   /::\    \ /:::/|::|   |     /:::/    \:::\    \           
           /:::/   /:::/~~~~//:::/ |::|   |    /:::/    / \:::\    \           
          /:::/   /:::/    //:::/  |::|   |   /:::/    /   \:::\    \         
         /:::/   /:::/   /\~~~~\   |:::~~~~~\~~~~\~~~~|     |:::|~~~~|         
        |:::|~~~/:::/   /::\    \  |:::::::::\    \   |     |:::|    |         
        |:::|  /:::/   /:::/~~~~/ / ~~~~~/:::/~~~~/~~~ \   /:::/ ~~~/         
         \:::\/:::/   /:::/    / /      /:::/    /:\ |~~|~/:::/    /           
          \::::::/   /:::/    /~~      /:::/    /:::\|::|/:::/    /           
           \::::/   /:::/    /        /:::/    / \::::::::::/    /             
            \:::\  /:::/    /        /:::/    /   \::::::::/    /             
             \:::~~:::/    /        /:::/    /     \::::::/    /               
              \::::::/    /        /:::/    /       \::::/    /               
               \::::/    /        /:::/    /         |::|~~~~|                 
                \::/    /         \::/    /          |::|    |                 
                 ~~~~~~~           \/    /            ~~ ~~~~                 
                                    ~~~~~                                     
                                                                               
                                                                               
This way, there is no waste of time. These delays are really just annoying.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 

Similar Topics
Topic Forum Replies
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts force tablespace using LISTDEF input DB2 1
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us