Interested to Buy Any Domain ? << Click Here >> for more details...
how we retrieve records without using key field (ex:name)
from Physical File through RPG in as/400?
- 8 Answers
- 30200 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / kumar vikas
Ffile1 I F E DISK (no keyfield is given)
C
C *start setll file1
OR
C 1 setll file1
C
C read file1
C dow not %eof
C id dsply
C name dsply
C read file1
C enddo
| Is This Answer Correct ? | 15 Yes | 1 No |
Answer / ttom
Read the file till EOF and check field values using a
condition in a the loop.
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / anand
but atleast there should be a keyfield to perform setll right ?
| Is This Answer Correct ? | 5 Yes | 5 No |
Answer / sujit kumar biswal.
Witout key u can use either SETGT or SETLL.And witought key
these two opcodes work only folloing conditions.
1.U can spesify any sequence no in factor1
2.Also *hival is work with it.
3.Field name work but only for intiger.
so code ur programe as answer4,but just change the *loval
to any sequence no or *hival then readp or any int field
one ex.
F PF/LFNAME IF E DISK
C *HIVAL SETLL RECORDFORMATNAME/PROG.NAME
C DOW %EOF
C READP RECORDFORMATNAME/PROG.NAME
C FIELDNAME1 DSPLY
C FIELDNAME DSPLY
C ENDDO
C EVAL *INLR=*ON
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / ak
use chain and put factr1=rrn number (line number)
and u hit the dirct
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / gk
We can read the records from the file directly without any
key field.
*LOVAL SETLL XXXX
READ XXXX
Put it in the DO loop and check for the EOF.
Hope you have got the answer.
| Is This Answer Correct ? | 9 Yes | 11 No |
Answer / ld123q44
The question is how you retrieve records from externally
defined files without using a key.
You can do this by designating the file as a primary file in
the program.
| Is This Answer Correct ? | 0 Yes | 4 No |
Answer / syam
Yes, You can retrieve records from External Physical File
with key.
1.Specify PF as a program described file in RPG Program.
FFilNam IF F 80 6AIDISK KEYLOC(7)
(80=Record Lenght, 6=Key Lenght, (7)=Key starting
position)
2. IFilNam KD 01 1 C0 2 C1
I 7 12 NAME
(KD=Sequence,01=Record Id,1&2=Starting position,C=Any
Character,0=Value. Means In my file each record is having 1
and 2 posion = 01 to identify record, 7 to 12 =Name)
3.C MOVE 'SYAM' NAME
C 'SYAM' CHAIN FilNam
C N41 MOVEL NAME CUSNME
C 41 MOVEL *BLANK CUSNME
Try this code.
| Is This Answer Correct ? | 4 Yes | 10 No |
how do I declare a table or array in rpg iv?
what is batch debug in as400?
What is difference between bind by copy and bind by reference?
how we create binder member for updating service program and where we type this code on command line or in program ? strpgmexp pgmlvl(*current) export symbol (xyz0 endpgmexp. plz explain me this step by step .
How to declare the pull button in AS/400..
suppose i i am changing / updating record of subfile and i want to change the record in reverse order . means i want to change the bottom record first and so on through readc . how i do it please any one explain .
how can we find setll setgt chain read reade readp operations are successfull or not,give example.explain in detail.
i hav 2 logical files(L1,L2) both r derived from one physical file(P1). how can i use both the logical files in one RPG program? if yes what i have to d.
How can i check the object existance in RPG program without using QCMDEXC command.
1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.
Setps to create .csv file on IFS folder in AS/400( V4R3)....?
what r drawbacks of OPM? Why do we go for ILE RPG?
RPG400 
