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: 115
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: 1736
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

Senior Member


Joined: 07 Feb 2009
Posts: 1027
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: 115
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 Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts QUESTION: RETURN CHANNEL pahiker CA Products 21 Thu Apr 20, 2017 12:31 am
No new posts The Last Two Question For You To Ask ... CaptBill Mainframe Interview Questions 0 Fri Apr 14, 2017 5:42 am
No new posts Asynchronous CICS Processing Question moezbud CICS 1 Mon Mar 06, 2017 6:13 pm


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