IBM ILE RPG Programmer Sample Questions:

1. A Service Program was originally created with the following binder language:
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
ENDPGMEXP
Two additional subprocedures are being added to a module already bound into this service
program - SUBPROC_A and SUBPROC_I.
Which of the following binder language sources could be used to ensure that existing programs,
which use this service program, continue to work correctly without being recreated or updated?

A) STRPGMEXPPGMLVL(*CURRENT)
EXPORT SYMBOL('SUBPROC_A') EXPORT SYMBOL('SUBPROC_I') EXPORT
SYMBOL('SUBPROC_H') EXPORT SYMBOL('SUBPROC_C') ENDPGMEXP
STRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
ENDPGMEXP
B) STRPGMEXPSIGNATURE('V1. 2')
EXPORT SYMBOL('SUBPROC_A')
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
EXPORT SYMBOL('SUBPROC_I')
ENDPGMEXP
STRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
ENDPGMEXP
C) STRPGMEXPPGMLVL(*CURRENT)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
EXPORT SYMBOL('SUBPROC_A')
EXPORT SYMBOL('SUBPROC_I')
ENDPGMEXP
STRPGMEXP PGMLVL(*PRV)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
ENDPGMEXP
D) STRPGMEXPPGMLVL(*CURRENT) PGMLVL(*CURRENT)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
EXPORT SYMBOL('SUBPROC_A')
EXPORT SYMBOL('SUBPROC_I')
ENDPGMEXP
STRPGMEXP SIGNATURE(*PRV)
EXPORT SYMBOL('SUBPROC_C')
EXPORT SYMBOL('SUBPROC_H')
ENDPGMEXP

2. Which of the following is an advantage gained by using %kds instead of a KLIST?

A) The ability to use a varying number of keys
B) The ability to test for an equal match on a SETLL operation
C) The ability to use date fields as keys
D) The ability to use array elements as keys

3. Given the following H-spec:
h datedit(*mdy)
Which of the following conditions tests whether a job started prior to midnight and is still running
after midnight?

A) ifudate < %date();
B) if %date(udate:*mdy) < %date();
C) if %date(*date:*mdy) < %date();
D) if *date < %date();

4. The DDS for a subfile control record includes the following lines:
AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++ A
PAGEDOWN(03) PAGEUP(04)
A 10 CSRLOC(@ROW @COL)
A 08 SFLEND
A SFLSIZ(0028) SFLPAG(0014)
Fourteen records are in the subfile and the program is waiting at the EXFMT of the subfile control
record. In addition to Indicator 03 being *ON when the user presses the Page Down key, which of
the following statements will also be true?

A) Control will return to the program. If indicator 10 is *ON, fields @ROW and @COL will bepopulated with the cursor location.
B) Control will return to the program. Fields @ROW and @COL will be populated with the cursor location.
C) The next page of detail will be displayed and control will not be returned to the program.
D) Control will return to the program.

5. Given the following code sample:
D count s 10u 0
/free
Dou %EOF(Account);
Read Account;
If Not %EOF(Account);
count += 1;
EndIf;
EndDo;
*InLR = *On;
Which of the following file specifications must be added to ensure that the program always
processes the member ACC01 in the file ACCOUNT01?

A) FFilename++IPEASF.....L.....
B) FFilename++IPEASF.....L.....
C) Device+.Keywords
FAccount IF E K DISK extfile('ACCOUNT01/ACC01')
D) Device+.Keywords
FAccount IF E K DISK extfile(ACCOUNT01)
F extmbr(ACC01)
E) Device+.Keywords
FAccount IF E K DISK extfile(ACCOUNT01 : ACC01)
F) Device+.Keywords
FAccount IF E K DISK extfile('ACCOUNT01')
F extmbr('ACC01')
G) FFilename++IPEASF.....L.....
H) FFilename++IPEASF.....L.....

Solutions: