Tag: mainframe

EVALUATE A WHEN 0 DISPLAY 'A = 0' WHEN 5 DISPLAY 'A = 5' WHEN OTHER DISPLAY 'A IS NOT 0 NOR 5' END-EVALUATE

EVALUATE TRUE WHEN A=0 DISPLAY 'A = 0' WHEN A=5 DISPLAY 'A = 5' WHEN OTHER DISPLAY 'A IS NOT 0 OR 5' END-EVALUATE

EVALUATE A WHEN A=0 DISPLAY 'A = 0' WHEN A=5 DISPLAY 'A = 5' WHEN OTHER DISPLAY 'A IS NOT 0 NOR 5' END-EVALUATE

none

never

if A is equal to B

if A is different from B

always

the FD entry in the DATA DIVISION gives a description of the structure of a file.

the first record is automatically read on opening a file.

if a file is opened in I-O mode you can use this file for reading as well as for writing.

you can not read indexed files from a COBOL program.

in the SELECT clause you have to give a complete description of the exact location of the file.

4

5

6

7

No

Yes

can't say

none

8 Bytes

10 Bytes

12 Bytes

16 Bytes

16

255

289

75

125

1024

225

255

Need to supply volume serial no. VOL=SER=xxxx

No need of volume serial no

Cannot access the file

None

***.G0003V00

***.G0002V00

gives error

none