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
 

 

Question on ISPF panel

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

Active User


Joined: 09 Jun 2014
Posts: 106
Location: windsor

PostPosted: Thu Jul 03, 2014 12:22 am    Post subject: Question on ISPF panel
Reply with quote

Hi guys,

I am wirting the panel to allow you enter the input and output data set name.
But i only can enter certain lenght of character , i can't type longer than the length of the line . How can i make it longer , i want to input the dataset name like TTAT.TSP.TU14.REXX(AAAAA), how to do that ? Thanks

Code:
 INPUT DATA :   ______ 
 OUTPUT DATA: ______ 


My code
Code:
***************************** Top of Data ******************
 )ATTR                                                       
   % TYPE(TEXT) COLOR(WHITE) CAPS(OFF) SKIP(ON)             
   * TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(GREEN) SKIP(ON)
   ! TYPE(TEXT) CAPS(OFF) INTENS(HIGH) COLOR(BLUE) SKIP(ON) 
   _ TYPE(INPUT) PAD('_')  INTENS(HIGH) COLOR(TURQ)         
   @ TYPE(NEF) CAPS(ON) PADC(USER)                           
   # TYPE(OUTPUT) PAD(' ') CAPS(OFF) COLOR(YELLOW) JUST(LEFT)
   ? TYPE(NT)                                               
 )BODY WIDTH(80) CMD(ZCMD) EXPAND(//)                       
 *                                                           
 !/ /hello #user/ /                                         
 *                                                           
 *COMMAND ====> @ZCMD                                       
 %/ / please enter the filed / /                             
 *                                                           
 *                                                           
 *                                                           
 *                                                           
 *
 */ /INPUT DATA :_inpt  *     / / 
 */ /OUTPUT DATA:_oupt  *     / / 
 *                                 
 *                                 
 *                                 
 *                                 
 *                                 
 *                                 
 *                                 
 )end                                                                                         
Back to top
View user's profile Send private message

Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1641
Location: NY,USA

PostPosted: Thu Jul 03, 2014 12:36 am    Post subject:
Reply with quote

You might needs to change the design and use a input file to read the required dataset and process or give a two choice to user if the dataset is within so and so length then use the interactive facility or a batch.

But a REXX expert may give you a better option.
Back to top
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 997
Location: Oostende, Belgium

PostPosted: Thu Jul 03, 2014 3:57 am    Post subject:
Reply with quote

Clueless on panels, aren't you? Suggest you start reading the manuals first!
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Jul 03, 2014 4:10 am    Post subject:
Reply with quote

Well, your panel looks like the dataset is setup for 6-characters. You can just add more spaces after the asterisk.
Code:
 */ /INPUT DATA :_INPT  *     / /
 */ /INPUT DATA :_123456*     / /

From...
Code:
*/ /INPUT DATA :_INPT  *     / / 

To...
Code:
*/ /INPUT DATA :_INPT                                        *     / /


Hope this helps. Good luck.
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Jul 03, 2014 6:10 pm    Post subject:
Reply with quote

Looking at your panel again I would add something like the following code before your ")end" statement.
Code:
)INIT
  .CURSOR = &INPT
)PROC
  VER (&INPT, NONBLANK)
  VER (&INPT, DSNAME)
CURSOR will be initially placed in field INPT when panel is first displayed.
VER NONBLANK will verify the field INPT must have something entered.
VER DSNAME will verify the Dataset name entered in INPT field has the correct format rules of a dataset name.

You can unit-test your panel in 7.2 without running your Clist/REXX.
Good luck.
Back to top
View user's profile Send private message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 106
Location: windsor

PostPosted: Thu Jul 03, 2014 7:43 pm    Post subject: answer
Reply with quote

Thank you very mcuh Gary McDowell!!

It works!
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Thu Jul 03, 2014 9:18 pm    Post subject: Re: answer
Reply with quote

jackzhang75 wrote:
Thank you very mcuh Gary McDowell!!

It works!

Ta-da! Great to hear.
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 ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am


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