IBM 000-972 Actual Free Exam Questions & Community Discussion

Given the following code sample, what value is displayed?
D MyDS DS
D FieldA 5A Inz('XXXXX')
/free
FieldA = 'VWXYZ';
Reset FieldA;
Dsply ('FieldA=' + FieldA);
*INLR = *On;
BegSR *InzSR;
FieldA = 'ABCDE';
EndSR;

Which of the following parameters is required on the CRTBNDRPG command when binding by reference?

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

Which of the following SQL statements, when used by itself in an RPG program, can take the place of a File Specification, a key and a CHAIN?

In the example below, the elements of the Sales array are added to the TotalSales variable. Which
of the statements below can be used to replace the "For" loop?
FSalesFile IF E K Disk
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++
D SalesArr S 8S 2 DIM(12)
D TotalSales S 9S 2
D Mon S 2S 0
/Free
// Accumulate total sales for year
For Mon = 1 to 12;
TotalSales += SalesArr(Mon);
EndFor;
*inlr = *on;
/End-free

An RPG program calls procedures named ValidateCust and GetCustInf which reside in a Service Program called CustProcs. The same program also calls a procedure named CenterField which resides in a Service Program called Utility. When creating this program, which of the following Binding Directory entries could be used to allow creation of the program with the CRTBNDRPG command?

Which of the following is an advantage gained by using data structure arrays in place of multiple occurrence data structures?