Free IBM 000-041 Exam Dumps Questions & Answers

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.2
• C.3
• D.5

CORRECT TEXT
If the following syntax is incorrect, how should the syntax be changed?
DCL A CHAR(100) BASED(P);
DCL P PTR;
ALLOCATE A;
READ FILE(DDIN) INTO(A);

• A.READ FILE(DDIN) TO(P);
• B.No changes are needed because the syntax is correct.
• C.READ FILE(DDIN) SET(A);
• D.READ FILE(DDIN) INTO(P);

CORRECT TEXT
Given the following code, what value will be output?
TEST: PROC OPTIONS(MAIN);
DCL
P POINTER,
N1 FIXED BIN(31),
1 A BASED(P),
2 A1 FIXED BIN(3i),
2 A2 FIXED BIN(3i),
2 A3 FIXED BIN(3i),
2 A4( N1 REFER(A3)) CHAR(10) VAR;
N1 = 5;
ALLOC A;
PUT SKIP LIST( STG(A)); END;

• A.72
• B.24
• C.22
• D.62

CORRECT TEXT
A programmer has been asked to write a program that tests a variable, X, and writes out A, B, C or D if X is 0, 1, 2 or 3 respectively and writes out E when X has none of those values. Which of the following programs represents the best practice using IF or SELECT statements?

• A.SUB4: PROC( X);
  DCLX FIXED UNSIGNED;
  SELECT(X);
  WHEN ( 0 )
  PUT SKIP LIST ( 'A');
  WHEN (1)
  PUT SKIP LIST ( 'B');
  WHEN ( 2)
  PUT SKIP LIST ( 'C');
  WHEN (3)
  PUT SKIP LIST ( 'D');
  OTHERWISE
  PUT SKIP LIST ( 'E');
  END;
  END;
• B.SUB1:PROC(X);
  DCL X FIXED UNSIGNED;
  IF X = 0 THEN
  PUT SKIP LIST ('A');
  ELSE
  IF X = 1 THEN
  PUT SKIP LIST ('B');
  ELSE
  IF X = 2 THEN
  PUT SKIP LIST ('C');
  ELSE
  IF X = 3 THEN
  PUT SKIP LIST ( 'D');
  ELSE
  PUT SKIP LIST ( 'E');
  END;
• C.SUB2: PROC (X);
  DCL X FIXED UNSIGNED;
  IF X < 2 THEN
  IF X = 0 THEN
  PUT SKIP LIST ('A');
  ELSE
  PUT SKIP LIST ('B');
  ELSE
  IF X = 2 THEN
  PUT SKIP LIST ('C');
  ELSE
  IF X = 3 THEN
  PUT SKIP LIST ( 'D');
  ELSE
  PUT SKIP LIST ( 'E');
  END;
  END;
• D.SUB3: PROC( X);
  DCL X FIXED UNSIGNED;
  SELECT;
  WHEN (X = 0)
  PUT SKIP LIST ( 'A');
  WHEN(X = 1)
  PUT SKIP LIST ( 'B');
  WHEN( X = 2)
  PUT SKIP LIST ( 'C');
  WHEN( X = 3)
  PUT SKIP LIST ( 'D');
  OTHERWISE
  PUT SKIP LIST ( 'E');
  END;
  END;

CORRECT TEXT
Given the following code, what can be said about the scope of the variables in procedure P?
P: PROCEDURE;
B: BEGIN;
DCL K FIXED BIN (15);
END B;
D: DO;
DCL S CHAR (10);
END D;
END P;

• A.Variable K is known in group
• B.Variable S is not known in block B.
• C.Variable K is known in the entire procedure.
• D.Variable S is known in the entire procedure.