Free C9050-041 Exam Braindumps
Programming with IBM Enterprise PL/I (C6030-041) (page: 14)

A. One record with a length of 220 will be written to the output file.
B. One record with a length of 500 will be written to the output file.
C. One record with a length of 196 will be written to the output file.
D. An error wil occur because of mismatch of record length.

Answer(s): D
QUESTION: 35
What code must be added after EOF = '1'B, if any, to print 'EOF REACHED'?

DCL INF FILE RECORD INPUT;
DCL INFIELD CHAR(100) BASED(P);
DCL P PTR;
DCL EOF BIT(1) INIT('0'B);
ON ENDFILE(INF) BEGIN;
EOF = '1'B;
PUT SKIP LIST(INFIELD);
END;
OPEN FILE(INF);
READ FILE(INF) SET(P);
DO WHILE(^EOF);
READ FILE(INF) SET(P);
END;

A. ALLOC INFIELD; INFIELD = 'EOF REACHED';
B. INFIELD = 'EOF REACHED';
C. It cannot be printed, as it is not sure if INFIELD contains the last record
D. There is a syntax error.

Answer(s): A
QUESTION: 36
If the physical dataset referred to by DDIN has a record length of 200 and a RECFM of F, what
happens after executing the following code?

DCL DDIN FILE RECORD INPUT;
DCL P PTR;
DCL 1 INSTR BASED(P),
2 A CHAR(100),
2 B CHAR(100);
ALLOCATE INSTR;
OPEN FILE(DDIN);
READ FILE(DDIN) INTO(INSTR);

A. One record wil be read into the buffer and the pointer wil be set accordingly.
B. One record wil be read into the structure INSTR.
C. READ INTO cannot be used on a BASED structure.
D. Program wil abend because P has not been properly initialized.