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

Question 1

CORRECT TEXT
Given the following declarations, which code is INVALID?
DCL (P,Q) POINTER;
DCLX CHAR(16) BASED(P);

A. P = AUTO(STG(X));
FREE X;

B. P = ALLOC(STG(X));
FREE X;

C. ALLOCXSET(Q);
P = Q;
FREE X;

D. ALLOCXSET(P); FREE X;

Correct Answer: A

Question 2

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 3

CORRECT TEXT
Given the following code, what SELECT code is NOT equivalent?
DCL(C,W,V) CHAR (1);
SELECT (C);
WHEN ('A''B') PUT ('1')
WHEN ('C') PUT ('2')
WHEN (W) PUT ('3')
WHEN (V) PUT ('4');
OTHERPUT ('Other');
END;

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

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

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

D. SELECT (C);
WHEN ('B''A') PUT ('1')
WHEN ('C') PUT ('2')
WHEN (W) PUT ('3')
WHEN (V) PUT ('4');
OTHER PUT ('Other'); END;

Correct Answer: A

Question 4

CORRECT TEXT
What is the key difference between logical file name and physical dataset name?

A. Logical file name is used in the program while physical dataset is not.

B. Physical dataset name is used in the program while logical file name is not.

C. Physical dataset name is used in the job control while logical file name is not.

D. Logical file name is used in the job control while physical dataset is not.

Correct Answer: A

Question 5

CORRECT TEXT
Given the following piece of code, what will happen when the code is executed if STRINGSIZE is not enabled?
DCL X CHAR (5) INIT ('ABCDE');
DCL Y CHAR (3) INIT (");
Y = X;

A. Y receives the value 'ABC' and the next two bytes following Y's storage are overridden by 'DE'.

B. The assignment is not executed and program execution continues after the assignment.

C. Y receives the value 'ABC' and 'DE' is not assigned to any storage area.

D. The assignment is not executed and program execution abends.

Correct Answer: C

Question 6

CORRECT TEXT
Which of the following is NOT a valid way to set a pointer P to zero?

A. P = 0;

B. P = SYSNULL();

C. P = PTRVALUE(0);

D. UNSPEC(P) = "B;

Correct Answer: A

Question 7

CORRECT TEXT
What will be output by the following program?
TEST: PROC OPTIONS(MAIN);
DCL A CONTROLLED FIXED BIN(31);
ALLOC A;
ALLOC A;
CALL SUB(A);
PUT SKIP LIST( ALLOCN(A));
SUB: PROC( B);
DCL B CONTROLLED FIXED BIN(31);
FREE B;
ALLOC B;
ALLOC B;
FREE B;
ALLOC B;
END;
END;

A. 4

B. 3

C. 5

D. 2

Correct Answer: B

Question 8

CORRECT TEXT
Under default condition enablement, what is the result of executing the following code?
DCLX CHAR(5) INIT('A1234');
DCL Y PlC '9999' INIT(0);
Y = X;

A. STRINGSIZE would be raised.

B. CONVERSION would be raised.

C. The value of Y is A 123.

D. The value of Y is 1234.

Correct Answer: B

Welcome to TestSimulate

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