Given the following code:
DCL INDATA FILE RECORD INPUT;
DCL INSTRUC CHAR(100);
DCL EOF BIT(1) INIT('0'B);
ON ENDFILE(INDATA) EOF = '1'B;
OPEN FILE(INDATA);
READ FILE(INDATA) INTO(INSTRUC);
DO WHILE (^EOF);
CALL SR_PROCESS;
READ FILE(INDATA) INTO(INSTRUC);
END;
CLOSE FILE(INDATA);
If the database (input file) changes from OS-PS to DB2 view and the necessary syntax has been changed
accordingly, which of the following DB2-related steps is NOT additionally required to guarantee the same
level of stability and functionality?
A. Check the SQLCODE after each EXEC SQL OPEN / CLOSE statement.
B. Check the CURRENT SQLI
C. Set the EOF bit to '1'B, if SQLCODE = 100 (not found).
D. Check the SQLCODE after each EXEC SQL FETCH statement.
正解:B
質問 2:
What will be printed to SYSPRINT after the following statements?
DCLZZ9 PlC 'ZZ9' INIT(-1);
DCL A CHAR(10) INIT(LOW(10));
DCL B CHAR(10) INIT('PL/l');
SELECT;
WHEN(A = LOW(12))PUT('CASE 1');
WHEN(SUBSTR(B11.3) = 'PL/I') PUT('CASE 2');
WHEN(ZZ9 < 0)PUT('CASE 3');
OTHERPUT('CASE 4');
END;
A. CASE 4
B. CASE 2
C. CASE 1
D. CASE 3
正解:A
質問 3:
WIDECHAR can be converted to CHAR. Which rule has to be observed?
A. All WIDECHAR values can be converted to CHAP using the appropriate builtin function.
B. By conversion of WIDECHAR to CHAR the left byte is omitted.
C. Each WIDECHAR value has to be less than or equal to '00FF'WX, otherwise CONVERSIONis raised.
D. Each WIDECHAR value has to be less than '0080'WX, otherwise CONVERSION is raised.
正解:D
質問 4:
What is the output of the following program?
DCL A AREA(8000);
DCL 1 STR1 BASED(P),
2 STR1_LGTH BIN FIXED(31),
2 STR_CHAR CHAR(ALLOC_LGTH REFER(STR1_LGTH));
DCL ALLOC_LGTH BINFIXED(31);
DCL I FIXED BIN(31);
DCL P PTR;
ALLOC_LGTH = 100;
DO I = 1 TO 10;
ALLOC STR1 IN(A);
END;
PUT SKIP LIST(CSTG(A));
A. 1016
B. 1056
C. 8000
D. 1040
正解:B
質問 5:
A lead developer reviewing code from one of the programmers found the following code. What should the
programmer be told about BY NAME assignments?
DCLl STR1, 3FB15 FIXED BIN (15), 3 CH10 CHAR (10), 3 NAME CHAR (25). 3 ADDR CHAR (30), 3
FB31 FIXED BIN(31);
DCL 1 STR2, 3 FB31 FIXED BIN (31), 3 FB31B FIXED BIN (31), 3 NAME CHAR (20), 3 ADDR CHAR
(30), 3 CH20 CHAR (20);
STR2 = STR1, BY NAME;
A. They do not work in this case and the code should be replaced by individual assignments.
B. There is nothing wrong with using BY NAME assignments in this situation.
C. They are incorrect and should be replaced by individual assignments.
D. They can have inadvertent side effects and the code should be analwed.
正解:D
質問 6:
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 '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;
C. 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;
D. 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;
正解:B
質問 7:
The XMLCHAR builtin function provides the ability to do which of the following?
A. Read an XML file into a structure
B. Create an XML buffer from a structure
C. Check XML for well-formedness
D. Check XML for validity
正解:B
質問 8:
Which of the following is LEAST likely to be performed by an online application?
A. End user interaction
B. Transaction processing
C. Sorting
D. Checkpoint/restart logic
正解:D
Kamimura -
IBMの問題集は実に素晴らしい。
読みやすく わかりやすい解説
これでC9050-042試験に受かる気がした。