How can we search particular records from the database file in RPG. For exa

How can we search particular records from the database file
in RPG.
For example, there are
100 records in the file.i need to retrieve all the records
matching/equal to the particular 'NAME' field. How can we
do the above using SEARCH criteria other than using the IF
cond?

Question Posted / nagendra

4 Answers
11390 Views
CTS, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

How can we search particular records from the database file in RPG. For example, there are 10..

Answer / prabhakar

This can be done using SETLL and READE

Is This Answer Correct ?

13 Yes

3 No

How can we search particular records from the database file in RPG. For example, there are 10..

Answer / maddy

This can be done using the Key Field.

KEY1(NAME FIELD) SETLL FILENAME
KEY1(NAME FILED) READE FILENAME

Is This Answer Correct ?

9 Yes

0 No

How can we search particular records from the database file in RPG. For example, there are 10..

Answer / maha

by using runqry *n file name rcdformat(*slt)

Is This Answer Correct ?

0 Yes

0 No

How can we search particular records from the database file in RPG. For example, there are 10..

Answer / arvind

no IF so go wid DOU loop

f pfxx if e k disk
c dou *in90=*on
c name reade r1 90
........
......
enddo
c eval *inlr=*on

cud help i try it working many time

Is This Answer Correct ?

0 Yes

1 No

Post New Answer

More RPG400 Interview Questions

I have a Physical File name 'File1', which is present in two libraries named 'LIB1' & 'LIB2'. These 2 libraries are listed in the library list. Would like to access data from this file from these two libraries using RPG program. How to do this, any idea?

4 Answers

1.Can any body share me about thease opcodes with example please.Im new for AS/400.Could u please tell me in real senario? 1.TESTN, 2.EVAL 3.EVALR, TIME, 4.MONITOR 5. ENDMON 6.ON-ERROR 7.COMMIT ROLLBACK?

1 Answers CSC,

What is journalling and commitment control?

3 Answers IBM,

How do you find whether a job is a batch job or interactive?

4 Answers

what happens when sflsiz = sflpag? What are the advantages and disadvantages?

0 Answers IBM,

what are the key words you must use when using a subfile?

0 Answers IBM,

How do you call procedures in ILE?

3 Answers

What is the difference between RPG/400 and RPG4

1 Answers HCL,

How to declare the dynamic(run time) array in rpgle? can you please give example

2 Answers Polaris,

how do I play {insert rpg system here}?

0 Answers IBM,

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

0 Answers IBM,

How can we override a file during runtime in RPG? Without using OVRDBF or calling a CL program

1 Answers UST,

For more RPG400 Interview Questions Click Here