View previous topic :: View next topic
|
Author |
Message |
jackzhang75
Active User
Joined: 09 Jun 2014 Posts: 125 Location: US
|
|
|
|
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 |
|
|
Rohit Umarjikar
Global Moderator
Joined: 21 Sep 2010 Posts: 3048 Location: NYC,USA
|
|
|
|
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 |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Clueless on panels, aren't you? Suggest you start reading the manuals first! |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
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 |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
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 |
|
|
jackzhang75
Active User
Joined: 09 Jun 2014 Posts: 125 Location: US
|
|
|
|
Thank you very mcuh Gary McDowell!!
It works! |
|
Back to top |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012 Posts: 139 Location: USA
|
|
|
|
jackzhang75 wrote: |
Thank you very mcuh Gary McDowell!!
It works! |
Ta-da! Great to hear. |
|
Back to top |
|
|
|