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
 
numeric clause

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
katakam

New User


Joined: 07 Feb 2006
Posts: 1
Location: Hyderabad

PostPosted: Tue Feb 14, 2006 7:22 pm    Post subject: numeric clause
Reply with quote

i have a small doubt,plz validate the following statements

01 A PIC X(05).
01 A-NUM REDEFINES A PIC 9(05).


IF A-NUM NUMERIC
PERFORM X-PARA
ELSE
PERFORM Y-PARA.


PLZ validate the above statements,whether numeric can be used here or not???if not when numeric can be used???
explain with some examples..


thanks
katakam.
Back to top
View user's profile Send private message

Owen

New User


Joined: 07 Jul 2005
Posts: 1
Location: Germany

PostPosted: Tue Feb 14, 2006 7:56 pm    Post subject: Re: numeric clause
Reply with quote

Just say IF A NUMERIC. Then you know if A-NUM is valid.
Back to top
View user's profile Send private message
raghunathns

Active User


Joined: 08 Dec 2005
Posts: 127
Location: rochester

PostPosted: Thu Feb 16, 2006 7:55 pm    Post subject: Re: numeric clause
Reply with quote

what owen said is correct.

we check the filed which can store char or num ie. alphanumeric filed. so we check whether the numeric data present in the field.

what is the point in checking filed already defined as numeric.
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm
No new posts Select numeric portion from CHAR data... balaji81_k DB2 6 Sat Aug 19, 2017 1:51 am
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm

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