IBM Rpg iv with ile 認定 000-268 試験問題:
1. Given the code segment;
/FREE
Monitor;
Read File1;
If Not %Eof(File1);
Line = %Subst(Line(1): %Scan('***': Line(i)) + 1);
EndIf;
On-Error 1211; //File not open
ExSr FileNotOpen;
On-Error *File; //Other file errors ExSr FileErrors;
EndMon;
Return;
/END-FREE
If the Read reaches end-of-file, which of the following lines of code will be run?
A) ExSr FileErrors;
B) ExSr FileNotOpen;
C) Return;
D) Line = %Subst(Line(1): %Scan('***': Line(i)) + 1);
2. Which of the following code segments show a valid comment within free format calculations?
A) /Free * this is a free form comment /End-Free
B) /Free /* this is a free form comment */ /End-Free
C) /Free // this is a free form comment /End-Free
D) /Free / this is a free form comment /End-Free
3. A Service Program was originally created with the following binder language:
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL('A')
EXPORT SYMBOL('B')
ENDPGMEXP
Module C is to be added to the Service Program. It is a NOMAIN module containing two subpocedures - X and Y.
Which of the following binder sources could be used to ensure that existing programs which use this service program, continue to work correctly without being recreated or updated?
A) STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('X') EXPORT SYMBOL('Y')
EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP
PGMLVL(*PRV) EXPORT SYMBOL('X') EXPORT SYMBOL('Y') EXPORT SYMBOL('A')
EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT
SYMBOL('A') EXPORT SYMBOL('Y') EXPORT SYMBOL('A') EXPORT SYMBOL('B')
ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT SYMBOL('A') EXPORT
SYMBOL('B') EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP
PGMLVL(*PRV) EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP EXPORT
SYMBOL('B') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT SYMBOL('A')
EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT
SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP
B) STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('A') EXPORT SYMBOL('B')
EXPORT SYMBOL('C') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT
SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP
C) STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('A') EXPORT SYMBOL('B')
EXPORT SYMBOL('X') EXPORT SYMBOL('Y') ENDPGMEXP
D) STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('A') EXPORT SYMBOL('B')
EXPORT SYMBOL('X') EXPORT SYMBOL('Y') ENDPGMEXP STRPGMEXP
PGMLVL(*PRV) EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP
E) STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('X') EXPORT SYMBOL('Y')
EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP
4. Given the following code segment:
d GetAcctBal pr 11 2
d AcctNum 7 0
d Year 4s 0
d Period 2s 0
The identifiers AcctNum, Year and Period are used for what purpose?
A) To define the field names being passed on the call to the subprocedure
B) To identify the names of work fields to be used in the subprocedure
C) To ensure the parameter names in the prototype match those in the procedure interface
D) For documentation only
5. Given the following code:
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++
D ary S 5 Dim( 4 ) Ascend
D x S 2 0 Inz( 1 )
C Eval ary(1) = 'Tom'
C Eval ary(2) = 'Dick'
C Eval ary(4) = 'Harry'
C SortA ary
C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq C 'Jim ' LOOKUP ary(x) 9999 Which of the following is correct as the result of running the code?
A) %Found = *OFF, %Equal = *OFF, x = 4
B) %Found = *ON, %Equal = *OFF, x = 3
C) %Found = *OFF, %Equal = *OFF, x = 3
D) %Found = *ON, %Equal = *OFF, x = 4
質問と回答:
質問 # 1 正解: C | 質問 # 2 正解: C | 質問 # 3 正解: D | 質問 # 4 正解: D | 質問 # 5 正解: B |