IBM 000-041 Actual Free Exam Questions & Community Discussion

Exam Code/Number: 000-041
Exam Name/Title: Programming with IBM Enterprise PL/I
Certification Provider: IBM
Corresponding Certification: IBM certifications II

Exam Questions: 146
Updated On: Sep 08, 2026

Question #11

CORRECT TEXT
What is the result, if any, of executing the following code?
DCL A BIT(1) INIT('0'B);
DCL B BIT(1) INIT('0'B);
DCL C BIT(1) INIT('1'B);
A = B = C;

A. There is no result because the syntax is wrong.

B. The value of A is unpredictable.

C. The value of A is'1'S.

D. The value of A is 'D'S.

Discussion 0

Correct Answer: D Vote an answer

Question #12

CORRECT TEXT
Which of the following is a restriction using the BYVALUE attribute?

A. It can be specified only for aggregate arguments and parameters.

B. It can be specified only for scalar arguments and parameters that can be passed in registers.

C. It can be specified only for scalar arguments and parameters whose lengths and sizes are
known at compile time.

D. It can be specified only for scalar arguments and parameters with a size of four bytes.

Discussion 0

Correct Answer: C Vote an answer

Question #13

CORRECT TEXT
What value is output by the following program?
TEST: PACKAGE;
D
CL N EXT FIXED BIN(31) INIT(10);
DCLC(N) EXT CONTROLLED FIXED BIN(31);
MAIN: PROC OPTIONS(MAIN);
ALLOC C;
ALLOC C(20);
N = 30;
CALL UPGM;
END;
UPGM: PROC;
ALLOC C;
N = 40;
PUT SKIP LIST( DIM(C));
END;
END;

A. 10

B. 20

C. 40

D. 30

Discussion 0

Correct Answer: D Vote an answer

Question #14

CORRECT TEXT
What does BX.WOK.LOAD refer to in the following job control statement?
I/ACCOUNT DD DSN=BX.WOK.LOAD,DISP=SHR

A. It is the logical dataset name.

B. It is the connection between program and dataset.

C. It is the physical dataset name.

D. It is the name which must be referred to in the program.

Discussion 0

Correct Answer: C Vote an answer

Question #15

CORRECT TEXT
Which of the following is a BIN FIXED constant?

A. 1E+03

B. 1000

C. '1000'

D. 1000B

Discussion 0

Correct Answer: D Vote an answer

Question #16

CORRECT TEXT
What will be printed to SYSPRINT, if anything, after executing the following code?
DCL A PlC '9999'.
A =' 123';
PUT SKIP LIST('VALUE OF A lS:' !! A);

A. VALUE OF A IS: 123

B. VALUE OF A lS: 123

C. No value will be displayed because the assignment statement will cause a conversion error.

D. VALUE OF A lS :0123

Discussion 0

Correct Answer: B Vote an answer

Question #17

CORRECT TEXT
Which of the following pieces of code will result in a compiler error message?

A. ON ENDFILE (SYSIN)
BEGIN;
PUT LIST('End of file reached.');
EOF = '15;
END;

B. ON ENDFILE (SYSIN)
DO;
PUT LIST('End of file reached.');
EOF = '1'B;
END;

C. IF EOF THEN
DO;
K = 0;
L = 1;
END;

D. IF EOF THEN
BEGIN;
K = 0;
L = 1;
END;

Discussion 0

Correct Answer: B Vote an answer

Question #18

CORRECT TEXT
What value will be output when the following code is executed?
TEST: PROC OPTIONS(MAIN);
DCLA(*) CONTROLLED FIXED BIN(31);
ALLOC A(10);
CALL SUB(A); PUT SKIP LIST( HBOUND(A,1));
SUB: PROC( B);
DCL B(*) CONTROLLED FIXED BIN(31);
ALLOC B(2*HBOUND (B,1));
ALLOC B( 2*HBOUND(B,1)); END;
END;

A. 10

B. 20

C. 40

D. 30

Discussion 0

Correct Answer: C Vote an answer

Question #19

CORRECT TEXT
What is the value of A after executing the following code?
DCL A CHAR(8) NIT ('EfGhIjKI'); DCL TRANSLATE BUILTIN;
A = TRANSLATE(A,'ABCDEFGH','abcdefgh');

A. EFGHIJKL

B. efghIjKI

C. EFGHIjKI

D. efghijkl

Discussion 0

Correct Answer: C Vote an answer

Question #20

CORRECT TEXT
Given the following code, which code is NOT equivalent?
DCL A CHAR (1);
...
SELECT (A);
WHEN ('A') PUT ('1')
WHEN ('B') PUT ('2')
WHEN ('C') PUT ('3');
OTHER;
END;

A. SELECT (A);
WHEN ('B') PUT ('2')
WHEN ('A') PUT ('1')
WHEN ('C') PUT ('3');
OTHER;
END;

B. IF A = 'A' THEN PUT('1'
IF A = 'B' THEN PUT ('2')
IF A = 'C' THEN PUT ('3')

C. SELECT (A);
WHEN ('A') PUT ('1')
WHEN ('C') PUT ('3')
WHEN ('B') PUT ('2');
END;

D. IF A = 'C' THEN PUT ('3')
IF A = 'B' THEN PUT ('2')
IF A = 'A' THEN PUT ('1');

Discussion 0

Correct Answer: C Vote an answer

Download Free IBM 000-041 Demo

Simply submit your e-mail address below to get started with our free demo of your IBM 000-041 exam.