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 |
How to read a 100 record from a file through cobol?
Suppose a program has the following code. What will be the output? MAIN-PARA. DISPLAY 'MAIN-PARA' PERFORM SECTION-A. STOP RUN. SECTION-A. PARA-A1. DISPLAY 'SECTION A PARA A1'. PARA-A2. DISPLAY 'SECTION A PARA A2'.
How to resolve the soc4 and soc7 errors?
example for sub strings ? and refernce modifications whit output pls
0 Answers College School Exams Tests, IBM,
HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?
Which of the following characters is NOT valid in column 7? a. - b. \ c. * d. # e. $
how do you reference the esds vsam file formats from cobol programs
Can we move X(7) to S9(7) COMP?
can we use full outer join with cursors declared in cobol program?
What are literals?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)