Tag: mainframe

&NAME&(TEMP)

&&TEMP(NAME)

&&NAME

&NAME

True

False

True

False

PIC X(9)

PIC S9(4) COMP

PIC Z(4)

PIC 9(4)V99

PIC 9(4).99

IF EOF THEN …

IF EOF IS TRUE THEN ...

IF END-OF-FILE = 'Y' THEN ...

IF END-OF-FILE THEN ...

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

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

EVALUATE A <n> WHEN A=0 DISPLAY 'A = 0' <n> WHEN A=5 DISPLAY 'A = 5' <n> WHEN OTHER DISPLAY 'A IS NOT 0 NOR 5' <n> 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