Hi all friend, Could Any body send me the code (with coding) of this senari

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 / deepakc999

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

Answers were Sorted based on User's Feedback

Hi all friend, Could Any body send me the code (with coding) of this senario because I have tri..

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.

Is This Answer Correct ?

3 Yes

1 No

Hi all friend, Could Any body send me the code (with coding) of this senario because I have tri..

Answer / syam

Dear

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

Is This Answer Correct ?

1 Yes

0 No

Hi all friend, Could Any body send me the code (with coding) of this senario because I have tri..

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

Is This Answer Correct ?

1 Yes

0 No

Hi all friend, Could Any body send me the code (with coding) of this senario because I have tri..

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

Is This Answer Correct ?

1 Yes

0 No

Post New Answer