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 

Numeric input field

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware
View previous topic :: View next topic  
Author Message
jiwaniakbar
Beginner


Joined: 18 Jun 2007
Posts: 8
Topics: 5
PostPosted: Fri Aug 17, 2007 4:55 am    Post subject: Numeric input field Reply with quote
I am defining a numeric field in using DFHMDF macro.

ACCNO DFHMDF POS=(6,35),LENGTH=9,INITIAL='0000000000',
ATTRB=(UNPROT,NUM,IC,FSET),PICIN='9(9)',PICOUT='9(9)',
JUSTIFY=(RIGHT,BLANK)

CICS is allowing me to enter '.' (decimal) and spaces in this field and hence screen abends with ASRA

I tried to handle this useing NOT NUMERIC within program but it doesn't work.

Any idea on how to prevent user from entering . or spaces in this field?
Back to top
View user's profile Send private message
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3
PostPosted: Fri Aug 17, 2007 5:59 am    Post subject: Reply with quote
According to the ECOBOL manual, NUMERIC consists entirely of the characters 0 through 9, with or without an operational sign.
The intrinsic function NUMVAL could help clear the garbage....
Back to top
View user's profile Send private message
CraigG
Intermediate


Joined: 02 May 2007
Posts: 202
Topics: 0
Location: Viginia, USA
PostPosted: Fri Aug 17, 2007 7:20 am    Post subject: Re: Numeric input field Reply with quote
jiwaniakbar wrote:
I am defining a numeric field in using DFHMDF macro.

ACCNO DFHMDF POS=(6,35),LENGTH=9,INITIAL='0000000000',
ATTRB=(UNPROT,NUM,IC,FSET),PICIN='9(9)',PICOUT='9(9)',
JUSTIFY=(RIGHT,BLANK)

CICS is allowing me to enter '.' (decimal) and spaces in this field and hence screen abends with ASRA

I tried to handle this useing NOT NUMERIC within program but it doesn't work.

Any idea on how to prevent user from entering . or spaces in this field?


The NUM attrb is worthless. Even with the original 3270 with the extra cost NUM LOCK feature it could be overridden so I never bothered with it. You just have handle the zero fill, right justification and validation in your program.
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 -> CICS and Middleware 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