wht is the use of evalute verb ? how do u declare recfm in cobol and jcl ?
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 |
how to convert vsam table into DB2 table?
wht is the use of evalute verb ? how do u declare recfm in cobol and jcl ?
how can u redefine picx(10) with pic 9(6).
How to Pass table from a cobol program to another cobol program and how to use that table in called program
i need a small 3d program using inline and outline.
comp-3 field occupy?
What is the difference between Call and a Link?
How to display the index.(displacement from an array)
How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?
consider the following progrm statements MOVE 0 TO SW.NO.OF.REC PERFORM PRI-OUT UNTIL SW=1 DISPALY NO.OF.REC STOP RUN PRE-OUT READ IN-FILE AT END MOVE 1 TO SW WRITE OUO-REC FROM IN-REC ADD 1 TO NO.OF REC if the IN-FILE contains 1000 records what value will be displayedafter the PERFORM is over?assume that N0.OF.REC has PIC 9(4) a.1000 b.1001 c.1 d.none of the above since there is a syntex error
What is difference between com and com3? Eg. s9(4) so what is the memory it will occupy com and com3.
What are INPUT PROCEDURE and OUTPUT PROCEDURE?