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

Question on ISPF panel


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 125
Location: US

PostPosted: Thu Jul 03, 2014 12:22 am
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

Global Moderator


Joined: 21 Sep 2010
Posts: 3048
Location: NYC,USA

PostPosted: Thu Jul 03, 2014 12:36 am
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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Thu Jul 03, 2014 3:57 am
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
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
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: 125
Location: US

PostPosted: Thu Jul 03, 2014 7:43 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Looking for a little history of ISPF ... TSO/ISPF 5
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
No new posts Question for file manager IBM Tools 7
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
Search our Forums:

Back to Top