Free C9050-041 Exam Braindumps
Programming with IBM Enterprise PL/I (C6030-041) (page: 11)

SUB1: PROC( P );
DCL P POINTER;
DCL
1 X BASED(P),
2 X1 CHAR(76),
2 X2 PIC'9999';
X = ' ;
END;
SUB2: PROC( P );
DCL P POINTER;
DCL
1 X BASED(P),
2 X1 PIC'(76)X',
2 X2 PIC'9999';
X = ' ;
END;
SUB3: PROC( P );
DCL P POINTER;
DCL X CHAR(80) BASED(P);
X = ' ;
END;
SUB4: PROC( P );
DCL P POINTER;
DCL X CHAR(100) BASED(P);
X = ' ;
END;
END;
B. SUB1
C. SUB2
D. SUB3
E. SUB4

Answer(s): D
QUESTION: 26
What code needs to be executed, if any, before the variable A can be successfully accessed?

DCL X PTR;
DCL B CHAR(100) INIT(' ');
DCL A CHAR(100) BASED(X);

A. A can be accessed without any further action.
B. X = ADDR(B);
C. A = B;
D. X = NULL();

Answer(s): B
QUESTION: 27