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

CALL B;
B. PROC;
DCL Y FIXED BIN(31) INIT(29);
X = Y;
OPEN FILE(F);
SIGNAL ERROR;
END;
END;
C. F is open and the storage for Y is stil on the stack
D. F is closed and the storage for Y is stil on the stack
E. F is open and the storage for Y is no longer on the stack
F. F is closed and the storage for Y is no longer on the stack

Answer(s): A
QUESTION: 43
What is the value of A after executing the following code?

DCL A CHAR(6) INIT ('ABCDEF');
DCL B CHAR(10) INIT ('0123456789');
A = SUBSTR(B, 5, 3);

A. '456 '
B. ' 456'
C. '456DEF'
D. 'ABC456'

Answer(s): A
QUESTION: 44
Which of the following pieces of code will result in a compiler error message?

A. ON ENDFILE (SYSIN)DO;PUT LIST('End of file reached.');EOF = '1'B;END;
B. ON ENDFILE (SYSIN)BEGIN;PUT LIST('End of file reached.');EOF = '1'B;END;
C. IF EOF THENDO;K = 0;L = 1;END;
D. IF EOF THENBEGIN;K = 0;L = 1;END;

Answer(s): A
QUESTION: 45
What changes should be made, if any, to the following code?

DCL A CHAR(100) BASED(P);
DCL P PTR;
READ FILE(DDIN) INTO(A);

A. READ FILE(DDIN) SET(A);
B. READ FILE(DDIN) INTO(P);