Given the following code, which procedure call would cause the "Pointer corrupted!" message to be output
provided that the PL/I compile time option CHECK(STORAGE) has been specified?
DCLX FIXED BIN(31) BASED (P);
DCL Y CHAR (5) BASED (P);
DCL P POINTER;
SUB: PROCEDURE (P);
DCL P POINTER;
if CHECKSTG(P) THEN PUT ('Pointer 0k!');
ELSE PUT ('Pointer corrupted!');
END;

• A. ALLOCATEY;
  Y = 'ABCDE';
  CALL SUB (P);
• B. ALLOCATEX;
  Y = 'ABCD';
  CALL SUB (P);
• C. ALLOCATEY;
  Y = 'ABCDE';
  CALL SUB (ADDR(X));
• D. P = ALLOCATE (100);
  Y = 'ABCDE';
  CALL SUB (ADDR(X));

Lt there is a direct read access to a data object with a unique key (e.g., DB2-SELECT, IMS-GU, ...),
which of the following return codes is possible?

• A. OK, not found, database not available
• B. OK, duplicate key, database not available
• C. OK, end file, database not available
• D. OK, end file, not found

Which PL/I builtin function can be used to get the system return code from a called program (including
non-PL/I languages)?

• A. PLIRETC
• B. PLIREST
• C. PLIRETV
• D. PLISTRA

A file containing FIXED BINARY fields that is written by a PL/I program on Intel Architecture is to be read
by PL/I programs on Intel Architecture and on the mainframe. What must be changed in the program
which reads the file on Intel architecture, if anything, for it to work correctly when it run s on the
mainframe?

• A. Nothing needs to be changed.
• B. The program must declare the FIXED BINARY fields with the attribute BIGEND IAN.
• C. The program must declare the FIXED BINARY fields with the attribute LITTLEENDIAN.
• D. The program must declare the FIXED BINARY fields with the attribute NATIVE.