RPG400 Interview Questions, Answers for Freshers and Experienced asked in various Company Job Interviews

RPG400 Interview Questions

Questions Answers Views Company eMail

difference between CHAIN and READE?

HCL,

8 46914

What are the values of NUM1 and NUM2 after executing the following code? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2+÷+ResultLenDHHiLoEq C MOVE *LOVAL NUM1 50 C MOVE *J-fIVAL NtJM2 52

Fiserv, IBM,

2 12543

1. Which Built-In-Function will you use to achieve the following functionality? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2++÷ResultLenDHHiLoEq C QTY IFLT *ZERO C QTY MULT -1 QTY C ENDIF a) %ABS b) %TRIM c) %TRIMS d) %UNS

IBM,

3 12373

What is the significance of UDATE?

IBM,

5 23153

A particular job executing on the iS is not behaving as expected and is operating in an environment in which it can be debugged. What commands would you use to debug and observe the program?

IBM,

2 14846

What is the compilation option that has to he specified while compiling an RPC program which uses a file having date data type field?

HSBC, IBM,

3 16517

2. Which of the following statement(s) explains the difference(s) between the /INCLUDE and ICOPY directives? a.) No difference, they function the same b.) ACOPY cannot be used as a conditional directive c.) IINCLUDE files cannot contain embedded SQL d.) Nesting /TNCLUDE directives is not allowed

IBM,

2 11165

3. Given the DOS Specification below and the following information: • Indicator 50 is off • No records have been written to the subfile What will be the result if the EXFMT operation code is performed on the record format CTLR? A R SUBFL A DESCRIP 101 6 1ODSPATR(UL) A DFT(’NOT FOUND’) A R CTLR SFLCTL(SUBFL) A N50 SFLDSP A SFLDSPCTL A SFLINZ A 67 SFIJEND A SFLSIZ(13) A SFLPAG(12) A ACCOUNTNO 100 S 10 a.) Only AccountNo will display b.) SUBFL will be initialized with 13 blank records c.) An I/O exception error will occur d.) The screen will display 12 records with ‘NOT FOUND’

IBM,

4 12678

please help me answer to this question what is the difference between the binding and srvpgm in ilerpg?

HCL,

4 17658

what is the difference between the procedure and module in ILERPG?

4 32803

can we use cl programming to update or delete physical files

12 50093

use of PUTOVR,OVRDTA,KEEP keywords?

HCL,

2 22913

where we give the MSGSFL in rpg400?

4 13547

how to change the length of the field in a physicalfile?

12 41952

there is any limit to display the members in rpg400?

3 11579

Post New RPG400 Questions

Un-Answered Questions { RPG400 }

is this a rpg channel?

1170

How to create a login screen using a command instead of display file.... intention is to get a password field on a command..... how do you achieve this...

1891

Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other program?

1921

what do you mean by an input subfile, what are the keywords required?

1261

Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On

2528

how do I preserve and clean the array?

1147

how do I declare a table or array in rpg iv?

1179

How would display prime numbers using CL program?

6322

how do I declare a minor?

1160

How Chain operation copies the record's data to the input buffer for the program?

1604

what is the difference between do while and do until?

1248

If my rpg program has a date field, what extra care I have to take while compiling that rpg program? If the file is keyed and I have declared the file as well as key list properly in my program. Still am getting an error message like "chain/reade operation is not allowed" what may be the case?

1113

can you debug ile rpg program using isdb?

1267

are there any useful c runtime apis that I can call from rpg iv?

1166

How to write record if no field or the field are different in physical file in rpgle ?

965

For More Un-Answered { RPG400 } Questions Click Here