Interested to Buy Any Domain ? << Click Here >> for more details...
wht is the use of evalute verb ? how do u declare recfm in cobol and jcl ?
- 2 Answers
- 8794 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 |
what is the diff b/w select stsmt and cursor ?
what is Reentrancy and Quasi-reentrancy?
WHAT IS SOC3?HOW IT CAN BE RESOLVED?
i want a program using by if, evaluate , string, unstring, perform, occurs?
01 a pic s9(5) value -12345, if we disply a , the sign will overpunched with last digit but i need to get the miuns sign in the result?
Can a REDEFINES clause be used along with an OCCURS clause? if yes, 01 WS-TABLE. 03 WS-TABLE-EL OCCURS 5 TIMES PIC X(1) VALUE 'A'. 03 WS-EX REDEFINES WS-TABLE-EL PIC X(5). What can you expect? if no,why?
What is the point of the REPLACING option of a copy statement?
What is the mode in which you will OPEN a file for writing?
which certifications r 4 cobol,jcl,db2,cics what is format of xam n what is importance of these certifications... plz post answer only if u r sure... thanks
A LESS 1200 IF B GREATER 25 MOVE 47 TOC ELSE MOVE 57 TO C IF A GREATER 249 MOVE 67 TO C ELSE NEXT SENTENCE ELSE IF B LESS 67 MOVE 27 TO C What will be the value of C, when A is 137 and b is 25
I HAVE FOLLOWING DECLARATION. 02. A PIC X(10) VALUE 'XXXXXXXXXX'. 02. B REDEFINES A. 05. C PIC X(3). 05. D PIC X(3). 05. E PIC 9(3). IN MY PROG, I HAVE MOVE 1 TO E. DISPLAY A. WHAT WILL BE DISPLAYED AS A RESULT OF THIS? PLEASE EXPLAIN THE ANSWER. THANKS.
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
COBOL 
