Online Access Free 000-972 Practice Test

Given the following data definitions:
d MyDate S d DatFmt(*USA)
d charDate S 6a
/Free
The contents of the character field charDate must be placed in MyDate. Which of the following
code segments will correctly accomplish this task?

• A.Test(E) *YMD charDate;
  If not %Error;
  MyDate = %Date(charDate : *YMD);
  EndIf;
• B.Test(E) *YMD0 charDate;
  If not %Error;
  MyDate = %Date(charDate : *USA);
  EndIf;
• C.Test(DE) *YMD charDate;
  If not %Error;
  MyDate = %Date(charDate : *USA);
  EndIf;
• D.Test(DE) *YMD0 charDate;
  If not %Error;
  MyDate = %Date(charDate : *YMD0);
  EndIf;

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 data structure
• B.A qualified field name
• C.A long field name
• D.A syntax error

Which of the following "D" specifications defines a valid array with all elements initialized to values of 100?

• A.DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++ D POS S 3S 0 DIM(15) INZ(100 : *ALL)
• B.DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++ D POS S 3P 0 DIM(15) VALUE(100)
• C.DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++ D POS S 3 DIM(15) INZ(100)
• D.DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++ D POS S 3 0 DIM(15) INZ(100)

Given the following code sample: d x s 5i 0 d pr1 pr d p2 5p 0 value /free x += 5; pr1(x); dsply x; *inLr = *on; /end-free p pr1 b d pi d p2 5p 0 value /free p2 = p2 + 2; dsply p2; /end-free p pr1 e What are the values displayed by the program?

• A.7 then 5
• B.7 then 7
• C.5 then 7
• D.5 then 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.Device+.Keywords
  FAccount IF E K DISK extfile('ACCOUNT01')
  F extmbr('ACC01')
• B.Device+.Keywords
  FAccount IF E K DISK extfile(ACCOUNT01)
  F extmbr(ACC01)
• C.FFilename++IPEASF.....L.....
• D.FFilename++IPEASF.....L.....
• E.Device+.Keywords
  FAccount IF E K DISK extfile(ACCOUNT01 : ACC01)
• F.Device+.Keywords
  FAccount IF E K DISK extfile('ACCOUNT01/ACC01')
• G.FFilename++IPEASF.....L.....
• H.FFilename++IPEASF.....L.....