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.

Answer / bhalchandra

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.

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

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

Answer / swetha

that wud again create an object, What if the requirement
changes evrytume.then the LF wud not be useful

Answer / prasanna

In the RPG code, Move the value demo to the field and do a
reade on the file

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

Answer / deepika

setll keyfld pf1
reade keyfld pfl1
dou %eof

Answer / rajgoaj

Can it be done by using group function on a SQLRPG?

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'

What you have to do in the display file when you are using message subfile?

1 Answers  

What is Multi Occurrence Data Structure(MODS)?

1 Answers   CTS,

What is journalling and commitment control?

3 Answers   IBM,

What is the difference between inner join @ outer join

4 Answers  

This is my Physical file 'EMPS' existing in library "TAMIL1" and its record format is 'EMPRCD" a)its source is R EMPRCD ENO 4 0 ENAME 10 EADD 10 b)The records present in EMPS are as follows ENO ENAME EADD 0001 tamil coimbatore 0002 kumar bangalore 0003 sunder bangalore 0004 arunkumar chennai 0005 pandi hyderabad 0006 santhosh hyderabad 0007 sasi salem 0008 kalai chennai 0009 suresh hyderabad 0010 vijay bangalore 0011 Arul chennai 0012 velu chennai 0013 khan bangalore 0014 praba chennai 0015 praba.p coimbatore 0016 anand ooty 0017 raja erode 0018 sankar erode 0019 vadivel namakkal 0020 anbu chennai 0021 Ajith mumabi c)now i want to select the 'ENAME' field records starting with 'S' for that i have created a RPG program its source code is PGM DCLF FILE(TAMIL1/EMPS) DCL VAR(&MYENO) TYPE(*CHAR) LEN(4) OVRDBF FILE(EMPS) SHARE(*YES) OPNQRYF FILE((TAMIL1/EMPS)) QRYSLT('ENAME *EQ %WLDCRD("S *")') READ: RCVF RCDFMT(EMPRCD) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) CHGVAR VAR(&MYENO) VALUE(&ENO) SNDUSRMSG MSG(&MYENO) SNDUSRMSG MSG(&ENAME) SNDUSRMSG MSG(&EADD) GOTO READ END: CLOF OPNID(EMPS) DLTOVR FILE(EMPS) ENDPGM Is this coding correct sir,the program gets compiled,and if i call it it says query running but records are not displayed.please help me out

4 Answers   Virtusa,

in a cl pgm records are copied to a file in qtemp a pgm is called to delete records from the file in qtemp no of records in file in library qtemp is checked wat shud be the count of records let say it was 10 initially endpgm

2 Answers  

Suppose i am having 3 programs PgmA,pgmB,pgmC and using source debugger. At debugging time i found that pgmC having some code error..then in debug mode directly how can i debug pgmC

2 Answers  

what is commitment control?explain about it?

1 Answers   HSBC,

1) How to declare a file? 2) How to define a display file? 3) How to monitor error messages in RPG? 4) How to find the attributes for subfiles? and what is the DDS for subfiles?

2 Answers   TCS,

How to create a key field for a logical file inside RPG?

4 Answers   HSBC,

If there are 1000 member(PGM type) in a SRC file. How can we compile in a CL program? ( It need to be done in a loop)?

1 Answers  

wat is scan and check ? give me real time scenarios where we used these keywords in ur projects?

2 Answers   Four soft,