wht is the use of evalute verb ? how do u declare recfm in cobol and jcl ?
- 2 Answers
- 8230 Views
- EDS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / neo devan
Evaluate verb is one of conditional statement used in cobol.
It is used whenever there are many conditions to check, its
used instead of nested if statements.
The syntax : evaluate true
when name="Robert" display "Robert".
when name="Langdon" display "Langdon".
end evaluate.
evaluate fname also lname
when "Robert" also "Langdon"
display "Robert Langdon".
when "Leonardo" also "Da Vinci"
display "Leonardo Da Vinci".
end evaluate.
| Is This Answer Correct ? | 6 Yes | 1 No |
Answer / kaarthik
Just to add to the already given answers,
Evaluate is mainly used to eliminate the use of Nested-if's
this is introduced as part of VS-COBOL 2 .
As for REC-FM,
While defining the file in COBOL,
Give RECORDING MODE IS F
In JCL, Give DCB=(RECFM = FB,LRECL=XX,BLKSIZE=xxx)
| Is This Answer Correct ? | 5 Yes | 0 No |
Is this allowed? 01 WS-TABLE. 03 FILLER-X PIC X(5) VALUE 'AAAAA'. 03 WS-EX REDEFINES FILLER-X OCCURS 5 TIMES PIC X(1). can redefines clause be used with occurs clause?
How to remove the spaces at end of each record in the output file Via COBOL program? note: The file has a VB length
how do you reference the variable unblock file formats from cobol programs
How to remove the spaces at the end of each record in the output file of variable length, via cobol program?
There is a variable with value 19446. Requirement is to convert it to 194.46. I tried it by doing divide by 100 and my receiving field data type is 9(03)v99. But the output is 194. I am not getting the decimal value. Could anyone pls let me know how to get this done?
What is a scope terminator give example?
Write a program that uses move corresponding.
what are the utilities for load and unload the DB2 tables
What do you feel makes a good program?
What is the difference between COMP & COMP-3 ?
can we read in input the file with a variable length ? please , how ..could you help me ?
How can we increase the size of an existing PDS to include more no. of modules. I tried the answer posted by Jagan(TSO PDS 'pds name') but did not find it working. The answer posted by kamal i know very well. Please suggest me a answer so that we don't need to delete the existing PDS and still we can change the size as well.
COBOL 
