IBM C9050-041 Exam Prep
Programming with IBM Enterprise PL/I (C6030-041) (Page 10 )

Answer(s): A
QUESTION: 23
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) BASED(ADDR(A));
B. DCL B BIT(64) INIT('1111111'x);
C. DCL B BIT(64) INIT('1'B);
D. DCL B BIT(64) INIT(HIGH(1));

Answer(s): A
QUESTION: 24
Given the following code, what construct is equivalent?

SELECT;
WHEN (A < 1) B += 1;
WHEN (A < 2) B += 2;
WHEN (A < 3) B += 3;
OTHERWISE B = 0;
END;

A. IF A < 1 THENB += 1;ELSEIF A < 2 THENB += 2;ELSEIF A < 3 THENB += 3;ELSEB = 0;
B. IF A < 1 THEN B += 1;IF A < 2 THEN B += 2;IF A < 3 THEN B += 3;ELSE B = 0;
C. SELECT;WHEN (A < 3) B += 3;WHEN (A < 2) B += 2;WHEN (A < 1) B += 1;OTHERWISE B
= 0;END;
D. SELECT;WHEN (A < 1) B += 1;WHEN (A < 2) B += 2;WHEN (A < 3) B += 3;END;

Answer(s): A
QUESTION: 25
Given the following program, which subroutine improperly uses pointers to address memory and
could lead to data corruption or an exception?

A. PROC OPTIONS(MAIN);
DCL
1 X,
2 X1 CHAR(76),
2 X2 PIC'9999';
DCL Y CHAR(20);
CALL SUB1( ADDR(X) );
CALL SUB2( ADDR(X) );
CALL SUB3( ADDR(X) );
CALL SUB4( ADDR(X) );