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
 

 

Input field limiter

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

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune

PostPosted: Tue Jan 13, 2009 4:08 pm    Post subject: Input field limiter
Reply with quote

Hi All,

I am writing an ISPF Panel, in which there is an input fileld called SINPUT.
The attributes of which are:

Code:


 $  TYPE(INPUT) INTENS(LOW) HILITE(USCORE)



This is a 40 byte field. While giving input to the ISPF screen, after 40 bytes are completed, it goes to the next input string and starts writing there. Please help how can i stop the curson from going to the next input string and freeze the cursor at the end of 40 bytes.
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Jan 13, 2009 4:28 pm    Post subject: Reply to: Input field limiter
Reply with quote

When you started creating your panel, and copied in one of the panel models, did you get the following lines for ATTR:

Code:

)ATTR DEFAULT(%+_)
      /*  % TYPE(TEXT) INTENS(HIGH)      defaults displayed for      */
      /*  + TYPE(TEXT) INTENS(LOW)       information only            */
      /*  _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)             */


Notice in the model example how all of the input fields end with the plus sign (+):
Code:

)ATTR DEFAULT(%+_)
      /*  % TYPE(TEXT) INTENS(HIGH)      defaults displayed for      */
      /*  + TYPE(TEXT) INTENS(LOW)       information only            */
      /*  _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)             */
  $ TYPE(INPUT) INTENS(LOW) PAD(_)    /* input field padded with '_' */
  ! TYPE(INPUT) INTENS(LOW) PAD(' ')  /* input field padded with ' ' */
)BODY
%--------------------  TITLE FOR ENTRY PANEL  ----------------------------------
%COMMAND ===>_ZCMD                                                             +
%
+   THIS DIRECTION LINE TELLS THE USER HOW TO USE THE PANEL:
+
+   FIRST PHRASE  ......$V1     +          Description for phrase 1
+   SECOND PHRASE ......$V2     +          Description for phrase 2
+   THIRD PHRASE .......$V3   +            Description for phrase 3
...
+   LONG ENTRY FIELD ..!VX
                                                                               +
...


That plus (+) value indicates where the field ends.
Back to top
View user's profile Send private message
sourabh jain

New User


Joined: 29 Feb 2008
Posts: 27
Location: Pune

PostPosted: Tue Jan 13, 2009 4:55 pm    Post subject: Reply to: Input field limiter
Reply with quote

Thanks a lot Kevin for the reply.
DEFAULT(%+_) was not present in the ATTR section.
Everything is working fine now.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Jan 14, 2009 2:25 am    Post subject:
Reply with quote

Alternatively, you may specify SKIP(OFF).

O.
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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts High CPU consumption Job using IAM fi... aswinir JCL & VSAM 15 Thu Dec 01, 2016 8:28 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm


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