What are the different forms of EVALUATE statement?
Answers were Sorted based on User's Feedback
Answer / shinoy sansilavose
EVALUATE
WHEN A=B AND C=D
imperative stmt
WHEN (D+X)/Y = 4
imperative stmt
WHEN OTHER
imperative stmt
END-EVALUATE
EVALUATE SQLCODE ALSO FILE-STATUS
WHEN 100 ALSO '00'
imperative stmt
WHEN -305 ALSO '32'
imperative stmt
WHEN OTHER
imperative stmt
END-EVALUATE
EVALUATE SQLCODE ALSO A=B
WHEN 100 ALSO TRUE
imperative stmt
WHEN -305 ALSO FALSE
imperative stmt
END-EVALUATE
EVALUATE SQLCODE ALSO TRUE
WHEN 100 ALSO A=B
imperative stmt
WHEN -305 ALSO (A/C=4)
mperative stmt
END-EVALUATE
Is This Answer Correct ? | 15 Yes | 0 No |
What are the pertinent COBOL
How may divisions are there in JCL-COBOL?
How many bytes do a s9 (7) comp-3 field occupy?
if you give cylinder(1,1)how many cylinders it will be allocate?
How can you add a particular field/coloumn in copybook?
What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?
what is the use of outrecord?
how can we code index in an array of cobol pgm?
what is the diff b/w select stsmt and cursor ?
I have 2 dimensional array with having 100 elements. So how to find the 11th item in an array?
WE HAVE 2 FILES IN COBOL. ONE IS FIXED LENGTH RECORDS ANOTHER ONE IS VARIABLE LENGTH. IF I DECLEAR LRECL OF FIXED ONE AS 80 AND 2ND RECORD AS 132. WHAT WE NEED TO DECLEAR LRECL FOR THOSE 2 FILES IN JCL?
how you will define variables length in cobol.