Condition Types in Cobol


Condition Types
  • Simple Conditions
    • Relation Conditions
    • Class Conditions
    • Sign Conditions
  • Complex Conditions
  • Condition Name
Relation Condition :


Class Condition:


Rules
The target of a class test must be a data-item whose usage is explicitly or implicitly, DISPLAY. In the case of numeric tests, data items with a usage of PACKED-DECIMAL may also be tested.

The numeric test may not be used with data items described as alphabetic (PIC A) or with group items when any of the elementary items specifies a sign.

An alphabetic test may not be used with any data items described as numeric (PIC 9).

An data-item conforms to the UserDefinedClassName if its contents consist entirely of the characters listed in the definition of the UserDefinedClassName.

* Uses the UPPER Intrinsic Function to convert to uppercase
IF InputChar IS ALPHABETIC-LOWER
   MOVE FUNCTION UPPER (InputChar) TO InputChar
END-IF

 Sign Condition 

Complex Condition:


Condition Name Syntax


More than one Condition Names may be true at the same time. For instance, if AgeInYears contains the value 20 both Teenager and Voter will be true.
E.g. 02 AgeInYears  PIC 9(3). 
        88 Child    VALUE 0  THRU 12. 
        88 Teenager VALUE 13 THRU 19. 
        88 Adult    VALUE 21 THRU 999.
        88 Voter    VALUE 18 THRU 999. 
 
1.Sams Teach Yourself COBOL in 24 Hours 
2.COBOL for the 21st Century 
3.Advanced COBOL for Structured and Object-Oriented Programming, 3rdEdition 

0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory