MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Avoid pressing tab in panels

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
vivek1983
Intermediate


Joined: 20 Apr 2006
Posts: 222
Topics: 24

PostPosted: Mon Nov 19, 2007 2:00 am    Post subject: Avoid pressing tab in panels Reply with quote

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
View user's profile Send private message
vivek1983
Intermediate


Joined: 20 Apr 2006
Posts: 222
Topics: 24

PostPosted: Mon Nov 19, 2007 2:27 am    Post subject: Reply with quote

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
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Tue Nov 20, 2007 8:34 am    Post subject: Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group