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
 

 

Wants to create menu based on input

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Wants to create menu based on input
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: 8593
Location: Back in jolly old England

PostPosted: Mon Feb 16, 2009 2:42 pm    Post subject:
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    Post subject: Wants to create menu based on input
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: 1226
Location: Israel

PostPosted: Mon Feb 16, 2009 4:32 pm    Post subject:
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: 1226
Location: Israel

PostPosted: Mon Feb 16, 2009 6:32 pm    Post subject:
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    Post subject: Wants to create menu based on input
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: 1226
Location: Israel

PostPosted: Mon Feb 16, 2009 7:02 pm    Post subject:
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

Senior Member


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

PostPosted: Mon Feb 16, 2009 9:59 pm    Post subject: Reply to: Wants to create menu based on input
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    Post subject: Wants to create menu based on input
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: 1226
Location: Israel

PostPosted: Tue Feb 17, 2009 8:06 pm    Post subject: Reply to: Wants to create menu based on input
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    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 JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts Inserting records based on conditions vickey_dw DFSORT/ICETOOL 9 Wed Feb 22, 2017 1:33 pm
No new posts Formating the Input file sreekusr DFSORT/ICETOOL 3 Fri Feb 17, 2017 10:40 pm
No new posts Submit job from Cobol with input data abdulrafi COBOL Programming 4 Wed Feb 01, 2017 12:41 pm
No new posts Removing Duplicates based on certain ... chandracdac DFSORT/ICETOOL 8 Fri Dec 09, 2016 4:40 am


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