Programming with IBM Enterprise PL/I (C9050-041) Free Practice Test

Question 1

CORRECT TEXT
Given the following DECLARE statement, how many bytes will be allocated to A?
DCL
1 A UNION,
2 C8 CHAR(8),
2 XB FIXED BIN(31),
2 BX BIT(16);

A. 4

B. 8

C. 14

D. 2

Correct Answer: B

Question 2

CORRECT TEXT
If FUNC_CODE is a CHAR(4) variable, then for the following code, what is the best declaration
for GHU, GU, etc
SELECT( FUNC CODE);
WHEN( GHU) ...
WHEN( GU ) ...
etc
END;

A. DCL (GHU INIT('GHU'), GU INIT('GU'), ...) CHAR(4);

B. DCL (GHU VALUE('GHU'), GU VALUE('GU'), ...) CHAR(4);

C. DCL (GHU INIT('GHU'), GU INIT('GU'), ...) CHAR(4) STATIC;

D. DCL (GHU INIT('GHU'), GU INIT('GU), ...) CHAR(4) AUTOMATIC;

Correct Answer: B

Question 3

CORRECT TEXT
What code would result in the BIT string B having all ones?
DCL A CHAR(8) INIT(HIGH(8));
DCL (HIGH ,ADDR) BUILTIN;

A. DCL B BIT(64) INIT('1111111'x);

B. DCL B BIT(64) INIT('1'B);

C. DCL B BIT(64) INIT(HIGH(1));

D. DCL B BIT(64) BASED(ADDR(A));

Correct Answer: D

Question 4

CORRECT TEXT
Given the following code for a main program and an external subroutine, what will be output?
*PROCESS INITAUTO;
MP: PROC OPTIONS(MAIN);
DCL SR1 EXT ENTRY;
DCL I BIN FIXED(31) EXTERNAL INIT(0);
DCL J BIN FIXED(31) EXTERNAL INIT(0);
DCL K BIN FIXED(3i) EXTERNAL INIT(0);
CALL SR1(I);
CALL SR1(I);
CALL SR1(I);
PUT SKIP LIST(I+J+K);
END;
*PROCESS INITAUTO;
SR1: PROC(I);
DCL I BIN FIXED(31);
DCL J BIN FIXED(31) EXTERNAL INIT(0);
DCL K BIN FIXED(31);
I = I + 1;
J =J + 10;
K = K+ 100;
END SR1;

A. 303

B. 33

C. 333

D. 330

Correct Answer: B

Question 5

CORRECT TEXT
Which of the following is a BIT string constant?

A. '1000'B

B. '1000'

C. 1000B

D. 1000

Correct Answer: A

Question 6

CORRECT TEXT
Which of the following will print a line containing "1" and then a line containing "DONE"?

A. DOJX= 1 TO 4;
IF JX = 2 THEN EXIT;
PUT SKIP LIST( JX);
END;
PUT SKIP LIST( 'DONE');

B. DO JX= 1 TO 4;
IF JX = 2 THEN STOP;
PUT SKIP LIST( JX);
END;
PUT SKIP LIST( 'DONE');

C. A: DOJX= 1 TO 4;
IF JX = 2 THEN LEAVE A;
PUT SKIP LIST( JX);
END;
PUT SKIP LIST( 'DONE');

D. DOJX= 1 TO 4;
IF JX = 2 THEN GOTO B;
PUT SKIP LIST( JX);
B: END;
PUT SKIP LIST( 'DONE');

Correct Answer: C

Question 7

CORRECT TEXT
Which is the impact, if any, of LIKE in the following code?
DCL
1 XY
2 A CHAR(4),
2 B BIN FIXED(31);
DCL 1 YZ LIKE XY;

A. YZ is exactly the same structure as XY but with its own storage.

B. There is no impact, because LIKE is a syntax error.

C. YZ is based on the
structure XY.

D. XY.A is always the same as YZ.

Correct Answer: A

Question 8

CORRECT TEXT
Which of the following describes when a program is NOT FETCHABLE?

A. When two main programs referring to the called program at the same time cannot have
different versions of the called program

B. When the main program need not be recompiled to reflect the changes made in the called program

C. When the called program is part of the main program in the load module

D. When the called program will be loaded from the library at execution time

Correct Answer: C

Welcome to TestSimulate

IBM Programming with IBM Enterprise PL/I (C9050-041) Free Practice Test