Hi, You can read flat file on RPG program. FXXXXXX IF F 380

Hi all friend,

Could Any body send me the code (with coding) of this
senario because I have tried but I am stucking somewhere so
Please reply ASAp with coding.

senario:Q: I have to write the flat file(FLAT1) into the
three different PFS (PF1,PF2 and PF3) with the respect of H
line data,
D line data and Z line data of flat file.

where
I have different data in flat file(FLAT1) which is
mentioned below with data.

H0929200909282009092820095529420003000073

D2222220006765555webservi001633.9909222009092820090924200951
8564380134049ROSNER TOYOTA OF FREDE FREDERICKSBURVA
224080000USA840840001633.99001633.99851856492689800208001915
511001633.990408490000000.0000000003446048
1,3 110793145 09070700351
372367 Rosner Motors

D3333320006774444webservi000271.2409222009092820090924200951
8564380134049ROSNER TOYOTA OF FREDE FREDERICKSBURVA
224080000USA840840000271.24000271.24851856492689800208001835
511000271.240930680000000.0000000003450293
1 110793254 09072100079
373933 Rosner Motors

Z0929200900000020001905.25

FLAT1 has the three pf data
H line-represents the header pf data,D-Represent Details
pf data,Z-Represents the trailer pf data

Now I have to write H line data of flat file into Header pf
(PF1),D line data of flat into datails pf(PF2) and
Z line data of flat file into pf(PF3) with the spefic
position(H,D and Z data of flat file into PF1, PF2 and PF3)
of
flat file.

Question Posted / syam

4 Answers
10358 Views
IBM, I also Faced
E-Mail Answers

Answer Posted / 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

Is This Answer Correct ?

1 Yes

0 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

We have job which is running as batch. It takes atleast 06 hours to complete tht job. But I wanna do tht job with in 3 hours?

1203

can I touch the array during treatments?

1116

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.

6371

What is difference between bind by copy and bind by reference?

2399

if there is a module object , how to find the program object for this module object.Assume the module object name and program object name is not same.

2580

what is program status data structure?

2288

which program rpg or cl is efficent to update a transaction onto a database file and why ?

1200

what is the use of sflnxtchg?

1211

how do I preserve and clean the array?

1086

can any one help in hawkeye and turnover or any change management system plzzzzz or send the documents to my mail id :gvsp.as4@gmail.com

2355

what is the necessary keyword needed to scroll subfile records?

1103

How can we know running job is batch or interactive?

1050

Assume 2 users are using the same file and first user updates some record in the file. Will the 2nd user will be able to see the updated record or not?

889

during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.

1152

What is file identifier where we can use?

1079