IBM Rpg iv with ile - 000-268 FREE EXAM DUMPS QUESTIONS & ANSWERS]

Question 1

Service Program UTILA is a utility service program that once called MUST remain active for the life of the job. Which of the following commands will create the service program so that once it has been initiated all further calls to its procedures will use the same instance?

A. CRTSRVPGM SRVPGM(UTILA) ACTGRP(*NEW) B. CRTSRVPGM SRVPGM(UTILA) ACTGRP(*DFT) C. CRTSRVPGM SRVPGM(UTILA) ACTGRP(UTILITYA) D. CRTSRVPGM SRVPGM(UTILA) ACTGRP(*CALLER)

Discussion 0

Correct Answer: C Vote an answer

Question 2

A program needs to concatenate the 3 numeric fields shown below such that Phone# contains a string in the format aaabbbcccc, where aaa is the AreaCode field, bbb is the PhPrefix field and cccc is the PhNbr field. All positions of Phone# must be filled with digits.
D AreaCode S 3 0
D PhPrefix S 3 0
D PhNbr S 4 0
D Phone# S 10A
Which of the following code segments would correctly accomplish this task in all circumstances?

A. EVAL Phone# = %EditW(AreaCode: '0') + %EditW(PhPrefix: '0') + %EditW(PhNbr: '0') B. EVAL Phone# = %Char(AreaCode) + %Char(PhPrefix) + %Char(PhNbr) C. EVAL Phone# = %Char(AreaCode: '0') + %Char(PhPrefix: '0') + %Char(PhNbr: '0') D. EVAL Phone# = %EditC(AreaCode: 'X') + %EditC(PhPrefix: 'X') + %EditC(PhNbr: 'X')

Discussion 0

Correct Answer: D Vote an answer

Question 3

Given the following expression:
SoldAmt + Dividends
TotalReturnPct = ( ---------------------- - 1 ) * 100
PaidAmt + Commissions
Which /free form expression below is correct?

A. /free TotalReturnPct = (SoldAmt + Dividends) / (PaidAmt + Commissions) - 1 * 100;
/end-free B. /free TotalReturnPct = ((SoldAmt + Dividends) / (PaidAmt + Commissions) - 1) * 100;
/end-free C. /free TotalReturnPct = (SoldAmt + Dividends / PaidAmt + Commissions - 1) * 100;
/end-free D. /free TotalReturnPct = ((SoldAmt + Dividends) / PaidAmt + Commissions - 1) * 100;
/end-free

Discussion 0

Correct Answer: B Vote an answer

Question 4

Which of the following code segments will fill FLD1 with lower-case x characters?

A. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq C 'x' SubSt Fld1:*All B. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq C Move *All'x' Fld1 C. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq C *All Move 'x' Fld1 D. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq C *Fill Move 'x' Fld1

Discussion 0

Correct Answer: B Vote an answer

Question 5

Which of the following code segments shows the correct use of the externally described printer file PRT1 containing record format FMT1?

A. FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords FPRT1 O E
PRINTER CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result C
EXCEPT FMT1 B. FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords FPRT1 O E
PRINTER CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result C
WRITE FMT1 C. FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords FPRT1 O E
PRINTER OFLIND(*IN88) CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result C WRITE FMT1 OName++++++DF..N01N02N03Excnam++++B++A++Sb+Sa+ OPRT1 T FMT1 2 6 D. FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords FPRT1 O E
PRINTER OFLIND(*IN88) CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result C EXCEPT FMT1 OName++++++DF..N01N02N03Excnam++++B++A++Sb+Sa+ OPRT1 E FMT1 2 6

Discussion 0

Correct Answer: B Vote an answer

Question 6

Given the following RPG IV file specifications:
FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords
FFILE1 UF A E DISK
FFILE2 UF E A DISK
FFILE3 UF E DISK
FFILE4 UF E DISK UPDOPT(*ADD)
Which file will allow the WRITE operation to be used?

A. FILE1 B. FILE4 C. FILE3 D. FILE2

Discussion 0

Correct Answer: A Vote an answer

Question 7

A Service Program was originally created with the following binder language:
STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL('A')
EXPORT SYMBOL('B')
ENDPGMEXP
Module C is to be added to the Service Program. It is a NOMAIN module containing two subpocedures - X and Y.
Which of the following binder sources could be used to ensure that existing programs which use this service program, continue to work correctly without being recreated or updated?

A. STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('A') EXPORT SYMBOL('B')
EXPORT SYMBOL('X') EXPORT SYMBOL('Y') ENDPGMEXP STRPGMEXP
PGMLVL(*PRV) EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP B. STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('A') EXPORT SYMBOL('B')
EXPORT SYMBOL('C') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT
SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP C. STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('A') EXPORT SYMBOL('B')
EXPORT SYMBOL('X') EXPORT SYMBOL('Y') ENDPGMEXP D. STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('X') EXPORT SYMBOL('Y')
EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP
PGMLVL(*PRV) EXPORT SYMBOL('X') EXPORT SYMBOL('Y') EXPORT SYMBOL('A')
EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT
SYMBOL('A') EXPORT SYMBOL('Y') EXPORT SYMBOL('A') EXPORT SYMBOL('B')
ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT SYMBOL('A') EXPORT
SYMBOL('B') EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP
PGMLVL(*PRV) EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP EXPORT
SYMBOL('B') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT SYMBOL('A')
EXPORT SYMBOL('B') ENDPGMEXP STRPGMEXP PGMLVL(*PRV) EXPORT
SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP E. STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL('X') EXPORT SYMBOL('Y')
EXPORT SYMBOL('A') EXPORT SYMBOL('B') ENDPGMEXP

Discussion 0

Correct Answer: A Vote an answer

Question 8

Given the following code:
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++
D ary S 5 Dim( 4 ) Ascend
D x S 2 0 Inz( 1 )
C Eval ary(1) = 'Tom'
C Eval ary(2) = 'Dick'
C Eval ary(4) = 'Harry'
C SortA ary
C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq C 'Jim ' LOOKUP ary(x) 9999 Which of the following is correct as the result of running the code?

A. %Found = *OFF, %Equal = *OFF, x = 4 B. %Found = *ON, %Equal = *OFF, x = 3 C. %Found = *ON, %Equal = *OFF, x = 4 D. %Found = *OFF, %Equal = *OFF, x = 3

Discussion 0

Correct Answer: B Vote an answer

Question 9

In the following code sample, file CUSSALES contains a record format CUSSALESR, with unique key fields CSCONO, CSCSNO and CSYEAR.

Assuming the READE operation is successful, which record is retrieved?

A. The first record for company 3, with a customer greater than 100 B. The first record with a company greater than 3 C. The first record for company 3, customer 100 D. The first record for company 3, customer 100 with a year greater than 2003

Discussion 0

Correct Answer: D Vote an answer

Question 10

The following code segment is part of an existing program:
C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result+++++++Len++D+HiLoEq
C If C = D
C Eval *IN50 = *off
C EndIf
Which of the following produces equivalent results under ALL possible conditions?

A. C Eval *IN50 = *IN50 and Not (C = D) B. C Eval *IN50 = Not (C = D) C. C Eval *IN50 = Not *IN50 or (C = D) D. C Eval *IN50 = (C = D)

Discussion 0

Correct Answer: A Vote an answer