000-972 by IBM Actual Free Exam Questions And Answers

Question 1

Given the following code sample: fcustinq cf e workstn sfile(openord:sflrr1) d sflrr1 s 3 0 C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result+++++++Len++D+HiLoEq c *in99 doueq *on c add 1 sflrr1 c write openord 99 c enddo Which of the following /Free form code samples will perform the same task?

A. dow %found(custinq);
sflrr1 += 1;
write openord;
enddo;

B. dou %eof(custinq);
sflrr1 += 1;
write openord;
enddo;

C. dou %eof(openord);
sflrr1 = sflrr1 + 1;
write openord;
enddo;

D. dow not %eof(openord);
sflrr1 += 1;
write openord;
enddo;

Discussion 0

Correct Answer: B Vote an answer

Question 2

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) 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

B. 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

C. 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

D. 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

Discussion 0

Correct Answer: B Vote an answer

Question 3

Given the following code sample:
d address s 30 inz('3207 North Henderson Parkway') d addressChars s 1 dim(30)
c movea address addressChars
c move *blanks address
Which of the following would produce identical results?

A. d address s 30inz('3207 North Henderson Parkway') d addressChars s 1 dim(30)
/free addressChars = address;
address = *blanks;

B. d address s 30inz('3207 North Henderson Parkway') d addressarray ds
d addressChars 1 dim(30)
/free addressarray = address;
address = *blanks;

C. daddressarray ds
d address 30 inz('3207 North Henderson Parkway') d addressChars 1 dim(30) overlay(address)
/free addressChars = address;
address = *blanks;

D. d address s 30inz('3207 North Henderson Parkway')
d addressChars s 1 dim(30) overlay(address)
/free %SubArr(addressChars : 1 : 30) = address;
address = *blanks;

Discussion 0

Correct Answer: B Vote an answer

Question 4

Given the following code sample:
d Customer s 5 0
d Year s 4 0
d Message s 40
/free
if Annual_Sales(Customer : Year) > 50000;
Message = 'This customer gets a discount';
endif;
Which of the following is a valid prototype for Annual_Sales?

A. dAnnual_Sales pr d CustNumber 5 0 const d SalesYear 4 0 const

B. dAnnual_Sales pr 11 2 d CustNumber 7 0 const d SalesYear 4 0 const

C. dAnnual_Sales pr d TotalSales 11 2 return d CustNumber 5 0 d SalesYear 4 0

D. dAnnual_Sales pr 11 2 d CustNumber 7 0 d SalesYear 4 0

Discussion 0

Correct Answer: B Vote an answer

Question 5

File CUSSALES contains a field named JANSALES. Work fields SALESKEY and TOTSALES have been previously defined. Given the following fixed form code sample: ..CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq c z-add customerno saleskey 7575 c 75saleskey chain cussales 76 c 75 cann76 add jansales totsales Which of the following /Free form samples would produce the same results for field TOTSALES?

A. ifcustomerno <> 0;
saleskey = customerno;
chain saleskey cussales;
if not %found(cussales);
totsales += jansales;
endif;

B. ifcustomerno <> 0;
saleskey = customerno;
chain saleskey cussales;
if %found;
totsales += jansales;
endif;

C. saleskey = customerno;
if saleskey > 0;
chain saleskey cussales;
if %equal(cussales);
totsales += jansales;
endif;

D. saleskey = customerno;
if customerno <> 0;
chain saleskey cussales;
if %equal(cussales);
totsales += jansales;
endif;

Discussion 0

Correct Answer: B Vote an answer

Question 6

A trigger program has been designed to run whenever file CUSTMAST is modified. A decimal data error is encountered when trying to reference a numeric field in the old record image of CUSTMAST. The buffer contained hexadecimal '40404040'. Which of the following was found to have caused the error?

A. The trigger program was compiled withoutALWNULL(*YES).

B. The trigger program was fired by a *DELETE event.

C. The trigger program was added as a *BEFORE trigger.

D. The trigger program was fired by an *INSERT event.

Discussion 0

Correct Answer: D Vote an answer

Question 7

Given the following code sample:
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++
D ElementsAllocateDS...
D S 10i 0
Which of the following best describes ElementsAllocateDS?

A. A long field name

B. A syntax error

C. A qualified field name

D. A data structure

Discussion 0

Correct Answer: A Vote an answer

IBM ILE RPG Programmer - 000-972 Exam Practice Test

Contact Us

Useful Links

Latest Updated