A program reads a GSAM dataset sequentially, reads complementary information from DB2-
Databases and uses this information to update an IMS-Database, At the end of the program statistics
about how many records have been read and how many IMS-Segments have been updated should be
printed. The program should write checkpoints regularly and should be restartable. Which of the following
groups of information saved when the checkpoint is written will provide enough information to be able to
restart the program correctly?

• A. The number of records read from the GSAM dataset, the key of the last record read from the GSAM
  dataset and the key of the last IMS segment updated.
• B. The number of records read from the GSAM dataset and the number of IMS segmentschanged.
• C. The key of the last record read from the GSAM dataset and the key of the last IMS segment changed.
• D. The key of the last IMS segment changed and the number of segments changed.

Requirement:
The function LEAPYEAR evaluates a given 4-digit number and returns '1'B if it is a leap year, '0'B if it is
not. This function is supposed to work for the years 2004 to 2015.
Leap years occur every four years, except for years ending in 00 that are not divisible by 400. Which of
the following solutions meets the requirement and does NOT need to be changed if the requirement
changes to: The function is supposed to work for the years 1900 to 3000.

• A. LEAPYEAR: PROC(YEAR) RETURNS(BIT(1));
  DCL YEAR PlC '9999';
  DCL (MOD,VERIFY) BUILTIN;
  SELECT;
  WHEN (VERIFY(YEAR,'0l23456789') ^= 0) RETURN('0'B);
  WHEN (MOD(YEAR,100) = 0)RETURN('0'B);
  WHEN (MOD(YEAR,4) = 0)RETURN('1'B);
  OTHERRETURN('0'B);
  END;
  END LEAPYEAR;
• B. LEAPYEAR:PROC(YEAR) RETURNS(BIT(1));
  DCL YEAR PlC '9999';
  DCL (MOD,VERIFY) BUILTIN;
  SELECT;
  WHEN (VERIFY(YEAR '0123456769') ^= 0) RETURN('0'B); WHEN (MOD(YEAR,100) = 0)
  RETURN('0'B);
  WHEN (MOD(YEAR,400) = 0) RETURN('1'B);
  WHEN (MOD(YEAR,4) = 0) RETURN('1'B);
  OTHERRETURN('0'B);
  END;
  END LEAPYEAR;
• C. LEAPYEAR: PROC(YEAR) RETURNS(BIT(1));
  DCL YEAR PlC '9999';
  DCL VERIFY BUILTIN;
  IFVERIFY(YEAR,0123456789)^= 0 THEN RETURN('0'B);
  SELECT(YEAR);
  WHEN (2004) RETURN('1'B);
  WHEN (2008) RETURN('1'B);
  WHEN (2012) RETURN('1'B);
  OTHER RETURN('0'B);
  END;
  END LEAPYEAR;
• D. LEAPYEAR:PROC(YEAR) RETURNS(BIT(1));
  DCL YEAR PlC '9999';
  DCL (MOD,VERIFY) BUILTIN;
  SELECT;
  WHEN (VERIFY(YEAR '0123456789') ^= 0) RETURN('0'B);
  WHEN (MOD(YEAR,400) = 0) RETURN('l'B); WHEN (MOD(YEAR,100) = 0) RETURN('0'B);
  WHEN (MOD(YEAR,4) = 0) RETURN('1'B); OTHER RETURN('0'B);
  END;
  END LEAPYEAR;

Which of the following structures will NOT contain padding bytes if the PL/I default for alignment is
applied?

• A. DCL 1 A, 2 B FLOAT DEC (16), 2 F FLOAT DEC (16), 2 C FIXED DEC (5,2), 2 E FIXED BIN (31), 2 D
  CHAR (3);
• B. DCL 1 A, 2 E FIXED BIN (31), 2 C FIXED DEC (5,2), 2 B FLOAT DEC (16), 2 F FLOAT DEC (16), 2 D
  CHAR (3);
• C. DCL 1 A, 2 B FLOAT DEC (16), 2 F FLOAT DEC (16), 2 E FIXED BIN (31), 2 C FIXED DEC (5,2), 2 D
  CHAR (3);
• D. DCL 1 A, 2 B FLOAT DEC (16), 2 C FLOAT DEC (5,2), 2 D CHAR (3), 2 E FIXED BIN (31), 2 F FLOAT
  DEC (16);

A compiler listing annotated with execution counts per statement helps identify all of the following
EXCEPT

• A. Opportunities for code optimization
• B. Unexecuted statements and procedures
• C. Potentially miscoded conditions in IFs, WHEREs, WHILEs, and UNTILs
• D. Calls to library routines

Requirement:
All the characters of the CHAR(3) variable X must be tested to be numeric. Which of the following
solutions meets the requirement and does not require essential structural modifications when the
requirement is changed to the following: The first character of the CHAR(3) variable X must be tested to
be uppercase alphabetic, while the two other characters must be tested to be numeric.

• A. DCL ALPHA CHAR(26) VALUE('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  DCL NUM CHAR(10) VALUE('0123456789');
  IF TRANSLATE(X,(26)'A'!I(10)'9'ALPHA!!NUM) = '999'
  THEN ... ; /*NUMERIC*/
• B. DCL NUM CHAR(10) VALUE('0l 23456789');
  IF VERIFY(X,NUM) = 0
  THEN ... /*NUMERIC*/
• C. DCL Y PIC'999';
  DCL SWITCH BIT(1) INIT('1'B);
  ON CONVERSION BEGIN;
  SWITCH =
  ONSOURCE = '000';
  END;
  Y = X;
  IF SWITCH
  THEN ... ; /*NUMERIC*/
• D. IFX >= '000' & X <= '999'
  THEN ... /*NUMERIC*/