View previous topic :: View next topic |
Author |
Message |
vivek1983 Intermediate

Joined: 20 Apr 2006 Posts: 222 Topics: 24
|
Posted: Mon Nov 19, 2007 2:00 am Post subject: Avoid pressing tab in panels |
|
|
Hi,
Following is the panel definition code:
Code: |
)ATTR
} COLOR(RED) TYPE(TEXT) INTENS(HIGH)
~ COLOR(GREEN) TYPE(TEXT) INTENS(HIGH)
# COLOR(YELLOW) TYPE(TEXT) INTENS(HIGH)
$ COLOR(WHITE) TYPE(TEXT) INTENS(HIGH)
_ TYPE(INPUT) COLOR(PINK) INTENS(LOW) HILITE(USCORE)
)BODY WINDOW(80,24)
}----------------------~ PANEL 1 }--------------------
%COMMAND ===>_CMD
+
+ ENTER THE FOLLOWING INPUT PARAMETERS:
+
+ ==========================
+ | FIELD 1 :_FLD1+|
+ | FIELD 2 :_FLD2+|
+ | FIELD 3 :_FLD3+|
+ ==========================
+
+
+
+
+
+
+
+
+
$ PRESS PF3 TO EXIT $PRESS ENTER TO CON
+
+
# &MESG
)INIT
.ATTR(.CURSOR) = 'COLOR(RED)'
)REINIT
REFRESH (*)
)PROC
VGET(ZPFKEY)
VPUT(FLD1)
VPUT(FLD2)
VPUT(FLD3)
)END
|
The problem here is everytime I enter values to the input fields (FLDS 1 -4), I have to press tab to go to the next input field. Can we avoid this and make the cursor reposition itself to the next unprotected field after entering value?
I tried using SKIP(ON) but later found out that it is valid only for OUTPUT fields.
Thanks much. _________________ Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay) |
|
Back to top |
|
 |
vivek1983 Intermediate

Joined: 20 Apr 2006 Posts: 222 Topics: 24
|
Posted: Mon Nov 19, 2007 2:27 am Post subject: |
|
|
Hi all,
Disregard my previous topic. I found out the answer for this problem.
I have placed the following statement in the attributes section:
} COLOR(BLUE) TYPE(TEXT) INTENS(HIGH) SKIP(ON)
After each of the field, I have placed a "}" so that it automatically skips to the next unprotected field.
Below is the code for reference:
Code: |
)ATTR
} COLOR(BLUE) TYPE(TEXT) INTENS(HIGH) SKIP(ON)
~ COLOR(GREEN) TYPE(TEXT) INTENS(HIGH)
# COLOR(YELLOW) TYPE(TEXT) INTENS(HIGH)
$ COLOR(WHITE) TYPE(TEXT) INTENS(HIGH)
_ TYPE(INPUT) COLOR(PINK) INTENS(LOW) HILITE(USCORE)
)BODY WINDOW(80,24)
}----------------------~ PANEL 1 }--------------------
%COMMAND ===>_CMD
+
+ ENTER THE FOLLOWING INPUT PARAMETERS:
+
+ ==========================
+ | FIELD 1 :_FLD1}|
+ | FIELD 2 :_FLD2}|
+ | FIELD 3 :_FLD3}|
+ ==========================
+
+
+
+
+
+
+
+
+
$ PRESS PF3 TO EXIT $PRESS ENTER TO CON
+
+
# &MESG
)INIT
.ATTR(.CURSOR) = 'COLOR(RED)'
)REINIT
REFRESH (*)
)PROC
VGET(ZPFKEY)
VPUT(FLD1)
VPUT(FLD2)
VPUT(FLD3)
)END
|
Thanks _________________ Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay) |
|
Back to top |
|
 |
taltyman JCL Forum Moderator

Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Tue Nov 20, 2007 8:34 am Post subject: |
|
|
Just a personal comment on your panel. Be careful assuming that users will have PF keys set to what you think they should be. When you list a specific PFkey to perform a function then you should make sure that it does. |
|
Back to top |
|
 |
|
|