Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Getting the length of the input from an online screen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
sherkhan

New User


Joined: 26 Jun 2005
Posts: 1

PostPosted: Sun Jun 26, 2005 10:43 am    Post subject: Getting the length of the input from an online screen
Reply with quote

Hi,

i wanted to know the method of getting the length of a field entered by the user on an online screen.
For eg.
i want the user to enter 6 digits mandatory in the field. I have done the validation for numerics..but i am unable to force the user to enter 6 digits...
Can we use the lenght function on the input field?


any help will be greatly appreciated.
Thanks
Back to top
View user's profile Send private message

PLPro

New User


Joined: 19 Jul 2005
Posts: 2

PostPosted: Tue Jul 19, 2005 2:01 am    Post subject:
Reply with quote

DCL IN_STR CHAR(6); /* This will limit the length to NO MORE than 6 chars */

[...your code here...]

IF INDEX(IN_STR, " ")> 0 THEN DO;
/* If there's a space, there's definitely a problem. Enter code to process */
END;

/* Enter code for other validation steps */
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts coloured / formatted screen captures ... Auryn IBM Tools 4 Thu May 24, 2018 12:56 am
No new posts OUTREC OVERLAY different to INCREC ge... Joerg.Findeisen SYNCSORT 8 Fri Apr 27, 2018 2:11 am
No new posts Limit in Length for a CICS START seahawk789 CICS 6 Mon Apr 02, 2018 8:34 pm
No new posts How to build one file from two input ... daniele DFSORT/ICETOOL 5 Tue Feb 27, 2018 6:45 pm
No new posts OLDS frozen in BACKOUT status when On... lind sh IMS DB/DC 3 Tue Feb 13, 2018 7:12 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us