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: 1609
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: 982
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 program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm
No new posts Fault Analyzer - listings question. egrove IBM Tools 4 Thu Aug 11, 2016 5:31 pm
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm


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