IBM Programming with IBM Enterprise PL/I - 000-041 FREE EXAM DUMPS QUESTIONS & ANSWERS]

Question 1

CORRECT TEXT
What is the result, if any, of executing the following code?
DCL A CHAR(2) INIT(' ');
DCL B BIT(2) INIT('11'B);
A = ^B;

A. The value of A is '00'. B. The value of A is unpredictable. C. There is no result, because the syntax is wrong. D. The value of A is'11'.

Discussion 0

Correct Answer: A Vote an answer

Question 2

CORRECT TEXT
Given the following piece of code, which loop construct using WHILE or UNTIL will give identical output?
DCLI FIXED BIN (31);
DO I = 10 TO 1 BY - 1;
PUT (I);
END;

A. 1= 10;
DO WHILE (I >= 1);
I = I - 1;
PUT (I);
END; B. 1= 10;
DO UNTIL (I < 1);
PUT (I);
I = I - 1;
END; C. 1= 10;
DO UNTIL (I> 1);
PUT (I);
I = I - 1;
END; D. I = 10;
DO WHILE (I> 1);
PUT (I);
I = I - 1;
END;

Discussion 0

Correct Answer: B Vote an answer

Question 3

CORRECT TEXT
What is the value of A in PROC1 after calling PROC2?
PROC1: PROC;
DCLA BIN FIXED(15) INIT(0);
CALL PROC2(A);
END;
PROC2: PROC(A);
DCL A BIN FIXED(15);
A = A + 1;
END;

A. The value of A is undefined. B. The compiler will generate an error message because A is defined more than once. C. 1 D. 0

Discussion 0

Correct Answer: C Vote an answer

Question 4

CORRECT TEXT
What is the result, if any, of executing the following code?
DCL B DEC FIXED(15,3) INIT(12345.12);
DCL C PlC '9999999999' INIT (0);
C = B;

A. The result in C is 1234512 with 3 leading zeroes. B. There is no result, because DEC FIXED cannot be assigned to PlC. C. There is no result, because B contains a decimal point. D. The result in C is
12345 with 5 leading zeroes.

Discussion 0

Correct Answer: D Vote an answer

Question 5

CORRECT TEXT
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(l) INIT('0'B);
ON ENDFILE(INF) BEGIN;
EOF = 'l's;
PUT SKIP LIST(INFIELD);
END;
OPEN FILE(INF);
READ FILE(INF) SET(P);
DO WHILE(AEOF);
READ FILE(INF) SET(P);
END;

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

Discussion 0

Correct Answer: C Vote an answer

Question 6

CORRECT TEXT
How should the file ACCOUNT be declared if the program first writes records to ACCOUNT and
afterwards reads them back from ACCOUNT?

A. DCL ACCOUNT FILE RECORD; B. DCL ACCOUNT FILE RECORD INPUT; C. DCL ACCOUNT FILE RECORD OUTPUT; D. DCL ACCOUNT FILE RECORD (INPUT.OUTPUT);

Discussion 0

Correct Answer: A Vote an answer

Question 7

CORRECT TEXT
The following code calls an external function procedure. Which program matches the entry declaration?
DCL F FLOAT;
DCLX CHAR(1);
DCL FUN ENTRY (FIXED BIN (15), FLOAT) RETURNS (CHAR(1));
X=FUN(1, F);

A. FUN: PROCEDURE (K, F) RETURNS (CHAR(1));
DCL K FIXED BIN (15);
DCL F FLOAT;
END; B. FUN: PROCEDURE (K, F) RETURNS (FIXED BIN (15));
DCL K FIXED BIN (15);
DCL F FLOAT;
END; C. FUN: PROCEDURE (K, F) RETURNS (CHAR(1));
DCL K FIXED DEC (15);
DCL F FLOAT;
END; D. FUN: PROCEDURE (K, F) RETURNS (CHAR(1));
DCL K FIXED BIN (31);
DCL F FLOAT;
END;

Discussion 0

Correct Answer: A Vote an answer