Answer / sekhar214

If you observe the data, the first letter of the data contains H,D or Z. Coding should be like this.

H Option (*NoDebugIO)
FFLAT1 IF E DISK Rename(FLAT1:RFLAT) PREFIX(A_)
FPF1 O E DISK
FPF2 O E DISK
FPF3 O E DISK
D
D
D
/FREE
READ FLAT1 ;
DOW NOT %EOF ( FLAT1 ) ;
IF %SUBST(A_FLAT1:1:1) = 'H' ;
WRITE RPF1 ;
ENDIF ;
IF %SUBST(A_FLAT1:1:1) = 'D' ;
WRITE RPF2 ;
ENDIF ;
IF %SUBST(A_FLAT1:1:1) = 'Z' ;
WRITE RPF3 ;
ENDIF ;


READ FLAT1 ;
ENDDO ;

*INLR = *ON ;




/END-FREE
YOU SHOULD HANDLE THE CODE , WHEN WRITING INTO PF1,PF2,PF3.

Answer / syam

Dear

Do you know the field length and data type of the above
data?

Answer / syam

Hi,

You can read flat file on RPG program.
FXXXXXX IF F 380 DISK UC
IXXXXXX DS 01 1 C1
I 1 120AA1
I 13 550AA2
IXXXXXX DS 02 1 C1
I 7 120BB1
I 71 750BB2
IXXXXXX DS 03 1 C1
I 15 120BB3
I 120 1750BB4

Answer / rizwana

Hi Deepakc999,

What Syam saying is correct
Since there are 2 types of flat files available
1. Flat File without DDS (Created through CRTPF Command)
2. Flat file with DDS

Type 1 --> Write
For the first type it is going to have same File name,
record format name & Field name, you have to rename the
REcord format name & Field name first.
To Rename Record format, Rename Keyword of F Spec is used.
And to have the different fields, create a data structure
and link it to the Flat file, there after you can very well
write it to the corresponding Pf.

Type 2 --> Write
Normal like writing to Pf.


For both the types refer to the below links.

1.http://tutorialindia.com/articles/as400/steps-to-process-
flat-file-in-rpg-iv.php

2.http://tutorialindia.com/articles/as400/example-codes-to-
process-flat-file-in-rpgle.php

what are the types of identifers

2 Answers   IBM,

---

Why there is invention of RPG if we can do insert update delete in CL through SQL.Why the rise of RPG?

1 Answers   Infogain,

---

Have a join logical file with more than one members with different record formats. So how can we read the different members from this file and also how we can read the different record format from the join logical?

3 Answers  

---

how do I do concatenation in rpg iv, like I do in cl?

1 Answers   IBM,

---

What are the commands that can be executed in CLP but not in RPG? Why?

1 Answers   CSC,

---

Hi, Can anybody give me real sinario for SFLRCDNBR?with example?

2 Answers  

---

How do you find out whether a record is present in the physical file without reading the file? for Example Employee No: 100 in an Employee master.How do we find out whther 100 is present in Employee master without reading the file?

11 Answers   Bank Of America, CSC, IBM,

---

The PGMA calls PGMB.PGMB generates a report.The report should contain the called program name(PGMA).How do i get the called program name in PGMB to print it on the spool file?(calling program name should NOT be hard coded or passed as parameter to called program?

6 Answers  

---

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

2 Answers   Fiserv, IBM,

---

Can an indexed file be accessed in arrival sequence in RPG?

3 Answers  

---

What is the difference between inner join @ outer join

4 Answers  

---

how to find whether a date format is valid or not in RPG400 not in RPGILE.Can you please write the coding for this sir,i'm new to AS400.Please help.

1 Answers  

---