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
- 8928 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 do you understand by psb and acb?
I want to remove a duplicates form a given input field using cobol program. please Any one help me out to solve this ... Thanks in Advance.
have in 100 records in a flat file i want to move records like 1,3,5,7,9,11,.. to Output file1 and 2,4,6,8,10,12,14 .. records moved to Output file2..Pls Provide real time answer..
01 var1 pic x(10) 01 var2 redefines var1 pic 9(10). then in procedure division move 'abcde' to var1 then waht is the value of var1 and var2
if we have a 10 steps how to override the 4th step in jcl?
Can 88 level variable be declared in FD section..?
a. Can the OPTIONAL clause in COBOL only be coded for input files? b. If it is coded for files opened in OUTPUT, I-O or EXTEND mode, will it give a compilation error? c. If there are no compilation errors and if such files are not coded in the JCL, will the OPEN statement run fine when these files are opened? d. How will a WRITE statement work for the above files?
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
Will the variable POS in the following code have a value of 2 or not? 01 POS PIC S9(4) COMP VALUE 2. 01 FIRST-NAME PIC X(10) VALUE 'ABC'. 01 LAST-NAME PIC X(10) VALUE 'XYZ'. 01 NAME PIC X(20) VALUE SPACES. STRING FIRST-NAME DELIMITED BY SPACES ' ' DELIMITED BY SIZE LAST-NAME DELIMITED BY SPACES INTO NAME WITH POINTER POS
i want to store 20 digits . h will u do it in cobol ?
Hi , I am posting some questons which are asked at interview. These may help u for ur interview... what is static and dynamic call?
Why do we use COMP-3 variables for computation, when we know that they are non displayable fields and require additional MOVE to numeric field before we populate it in output Reports?
COBOL 
