IBM 000-972 Actual Free Exam Questions & Community Discussion

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?

Given the following code segment:
d MyResult s 7 0
/Free
MyResult = 10 ** 2 - 1 * 4 + 5;
What is the value of MyResult after the statement is run?

The following commands were used to create programs PGMA and PGMB.
CRTPGM PGM(PGMA) MODULE(A) ACTGRP(ACCOUNTS)
CRTPGM PGM(PGMB) MODULE(B) ACTGRP(*CALLER)
Assume the following:
Program PGMA calls PGMB.
Both programs return with *INLR = *Off.
It is necessary to reclaim the resources used by PGMB but not PGMA. Which of the following
actions or commands will accomplish this task?

Given the following code sample:
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++++
+
d StartString s 50a inz('Fred, Barney, Wilma, Betty,') d EndString s like(StartString)
d pos s 3i 0 inz
/free
dou pos >= 3;
pos += 1;
pos = %Scan(',' : StartString : pos);
enddo;
pos += 1;
EndString = %replace(' Dino,' : StartString : pos : 0);
Upon completion, what is the value of EndString?

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?

Given the following D-spec:
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++
d EndOfMonth s d
Which of the following expressions will set EndOfMonth to the last day of the previous month?

The programs below were compiled with DFTACTGRP(*YES). When the first program was called,
a decimal data error caused the programs to fail. After recompiling both programs with
DFTACTGRP(*NO) this failure no longer occurs.
d TestPGM PR extpgm('CALLME')
/free
CallP(E) TestPgm();
*inlr = *on;
// Program CALLME
d TestDS DS
d Number 5p 0
/free
Number += 1;
*inlr = *on;
Which of the following explains this situation?