RPG400 Interview Questions
Questions Answers Views Company eMail

difference between CHAIN and READE?

HCL,

8 33960

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

IBM, Fiserv,

2 8106

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 7675




What is the significance of UDATE?

IBM,

5 15079

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 9641

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 10924

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 6963

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 7955




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

HCL,

4 11830

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

4 24623

can we use cl programming to update or delete physical files

12 34067

use of PUTOVR,OVRDTA,KEEP keywords?

HCL,

2 16592

where we give the MSGSFL in rpg400?

4 8677

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

12 28163

there is any limit to display the members in rpg400?

3 6973


Post New RPG400 Questions






Un-Answered Questions { RPG400 }

Interviewer asked me write down DDS for load all subfile .can anybody write dds

377


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...

672


during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.

91


How to declare the pull button in AS/400..

1193


Assume my file has 100 records and I want to see only first 10 records. Is this possible through lf?

50






what is program status data structure?

152


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

1238


How to add 2 new fields in a file? How many ways are there in as400?

359


what was the robotech rpg?

73


How can we override a file during runtime in rpg?

47


Hi Viewers can any body explain me how to update and ahange the already existed data in physical file using subfile ? please explain me with the code if possible?

2941


what are the array operations?

85


When it is desirable to describe files Internally?

570


What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?

1852


how do I preserve and clean the array?

87