i have 1000 records in pf.what are all the ways to read a
particular name records in rpg?? ie.. in pf i have a name
called demo appeared around 52 times hw will we read this
particular records in rpg/400?.
- 11 Answers
- 17008 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / deepak daswani
You can use READE opcode in dow while loop to read aal the
records of PF which is 'demo'.
Because everytime cursor reads the next value in the file.
| Is This Answer Correct ? | 13 Yes | 1 No |
What u can do is u can create a non join LF over the PF and
give the Select clause for that field like this:
S FLD1 COMP(EQ 'demo')
And now u can use this LF in your program.
| Is This Answer Correct ? | 11 Yes | 1 No |
Answer / swetha p rao
If the particular field value is demo , then you can do
onething to avoid reading the file unnecesarily
1. Declare a temporary file in user open mode and specify
as external mbr in F spec.
2. In CPYF there is an option to include records (INCREL )
based on selection, just copy all the records where the
field value is 'demo' in a temporary file with a create
file option. (using QCMDEXC)
3.Now the temporary file will have only demo records.Open
the file and read the records.
(or)
Using SQLRPGLE, write a query to select the records which
has field value 'demo'
Correct me if iam wrong
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / sudhir
to escape from creating a new object of LF(if its not a
permanent requirement) you can use OPNQRYF to select
whichever records you want like:
OPNQRYF FILE((FILENAME)) QRYSLT('(FIELDNAME *EQ "demo")')
hope you got your answer
| Is This Answer Correct ? | 5 Yes | 2 No |
Answer / swetha
that wud again create an object, What if the requirement
changes evrytume.then the LF wud not be useful
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / prasanna
In the RPG code, Move the value demo to the field and do a
reade on the file
| Is This Answer Correct ? | 2 Yes | 2 No |
Answer / jeganath
Go for ReadE i.e Read Equals,
give 'Demo' in Factor 1
'Demo' ReadE
it will fetch records equals 'Demo' string in the file, and
also it avoid unnecessary reading of other records, very
effective,
Note: it works only when that field is declared as key in
PF file
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / rajgoaj
Can it be done by using group function on a SQLRPG?
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / rajkalyanam
Say Physical file name is PF001 and Field name is NAME
and i want to select all records having their name as DEMO
then i will use SQLRPG,please correct me if i'm wrong
Select * from PF001 where name = 'DEMO'
| Is This Answer Correct ? | 0 Yes | 2 No |
Why we need to give File and To file Names While we are using OVRDBF. What is your understanding related to this?
What are the necessary keywords required to code a message subfile?
how do I play {insert rpg system here}?
RPG/400 number of Records present in a physical file using file information data structure FPF001 IP E DISK F KINFDS INFDS1 IINFDS1 DS I *RECORD RECORD Is this coding correct sir,i have given I P E that is I- input,P-primary file,E-externally described. Primary to use RPG logic cycle,is this the correct method because we have to find number of records present using file information data structure in RPG/400 without doing any input/output operations on the file and also without using DSPFD,SQL. If the above coding is correct means,when i compile the program it gets compiled,but if i call the program it does not return anything,i need number of records,please complete the coding sir.
which MONMSG will give higher priority in CL program? I know MONMSG are of two types. Program Level Monmsg and Command Monmsg?
1) How to define keyed file in CL pgm. 2) How can i read particular records in CL pgm from database file.
how we retrieve records without using key field (ex:name) from Physical File through RPG in as/400?
1.How you will find the program is batch or online in cl pgm? 2.How you will end the batch pgm when the job runs? write an logic? 3.In wich command the option *drop is used?
How can we override a file during runtime in rpg?
How to declare the dynamic(run time) array in rpgle? can you please give example
How we will read call stack?
When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?
RPG400 
