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
 

 

Move the cursor to the next field

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
bhim_s

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Wed Jan 14, 2009 1:08 pm    Post subject: Move the cursor to the next field
Reply with quote

I have created the following panel ..

Code:


)ATTR                                                                 
# TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE)                       
$ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(YELLOW)                       
@ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(WHITE)                       
! TYPE(INPUT) PAD(' ') CAPS(ON) JUST(LEFT) COLOR(WHITE) HILITE(USCORE)
)BODY                                                                 
$*********************************************************************
$*             THIS PANEL IS A TEST PANEL       
$*********************************************************************
$             NOTE - PLEASE ENTER ALL FIELDS IN UPPER CASE           
# PLEASE ENTER YOUR TSO ZID                     @==>!Z      +         
# PLEASE ENTER PR NUMBER                        @==>!Z    +           
# PLEASE ENTER INITIAL OF REQUESTOR             @==>!Z +             
    #                          ACTIVE@==>!Z+ #PURGE @==>!Z+                 
    %+ PRESS% F3+TO EXIT.                      PRESS% ENTER%+TO CONTINUE.   
    %=======================================================================
    )INIT                                                                   
      .ZVARS = '(USERID      +                                             
                 PRNUM    +                                                 
                 INIIAL   +                                                 
    .CURSOR = USERID     
)PROC                     
  &PFVAR = .PFKEY         
    VER (&USERID,NB)     
    VER (&PRNUM,NB)       
    VER (&INIIAL,NB)     
 )END             



I have the requirement to move the cursor to the next field automatically once the first field is complete. Like once userid is filled with 8 chars the cursor should move to field PRNUM. Currently if i type more than 8 chars in userid field it goes to non editing field. I have searched the forum but din't find the solution for it. Any example regarding this would be great help.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Jan 14, 2009 1:13 pm    Post subject:
Reply with quote

Take a look at THIS recent thread.
Back to top
View user's profile Send private message
bhim_s

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Wed Jan 14, 2009 1:24 pm    Post subject:
Reply with quote

expat wrote:
Take a look at THIS recent thread.


Already checked this but didn't help icon_sad.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Wed Jan 14, 2009 1:31 pm    Post subject: Reply to: Move the cursor to the next field
Reply with quote

in the ispf manuals search for the auto skip attribute and use it to
define the filler fields...

as a general consideration
ISPF application are not power typing applications
the autoskip feature, for the end user is usually more an inconvenience than a productivity boost
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Wed Jan 14, 2009 1:44 pm    Post subject: Reply to: Move the cursor to the next field
Reply with quote

follow on...
no need to ask the user to use the caps key
the attribute for the input fields makes ispf translate automagically to upper case the input
or it can be done inside the application
Back to top
View user's profile Send private message
bhim_s

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Wed Jan 14, 2009 7:00 pm    Post subject:
Reply with quote

As per ISPF Manual ..

SKIP(ON|OFF)
The SKIP keyword defines the autoskip attribute of the field. It is valid only for text or output (protected) fields (OFF is the default).

ON
Specifies that the cursor automatically skips the field. When a character is entered into the last character location of the preceding unprotected data field, ISPF positions the cursor at the first character location of the next unprotected field.

OFF
Specifies that the cursor does not automatically skip the field when the condition described for SKIP(ON) occurs.

When you are running in GUI mode, the SKIP keyword is ignored.


I am already using SKIP(ON) for the text fields but still then result is not as per expectation. Instead of moving to the next text field cursor stuck at protected field.
Back to top
View user's profile Send private message
bhim_s

New User


Joined: 19 Sep 2006
Posts: 46
Location: New Delhi

PostPosted: Wed Jan 14, 2009 8:45 pm    Post subject:
Reply with quote

Thanks all for you reply. I have got the solution

instead of

Code:
# PLEASE ENTER YOUR TSO ZID                     @==>!Z      +


It should be

Code:
# PLEASE ENTER YOUR TSO ZID                     @==>!Z      +@
[/code]
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Wed Jan 14, 2009 9:49 pm    Post subject:
Reply with quote

Bhim_s

thx for getting back with the solution.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2038
Location: Silicon Valley

PostPosted: Wed Jan 14, 2009 10:31 pm    Post subject: Reply to: Move the cursor to the next field
Reply with quote

You do not need two attributes together. Assuming @ has the SKIP attribute, then this should work:
Code:

# PLEASE ENTER YOUR TSO ZID                     @==>!Z      @
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 Testing rerad cursor for status with ... John F Dutcher DB2 8 Fri May 19, 2017 9:35 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts Getting -504 Cursor Name GTT-ARTS-CUR... Robin Sulsona DB2 2 Fri Mar 17, 2017 1:43 am
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm


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