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.
- 4 Answers
- 9152 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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 |
Answer / syam
Dear
Do you know the field length and data type of the above
data?
| Is This Answer Correct ? | 1 Yes | 0 No |
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 |
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 |
can anyone say,what is the use of operation extended H/N/P?
Can we trigger an rpg program which has user interaction with display file when updating a file using the command ADDPFTRG?
WHAT IS MEANT BY SIGNATURE VAILOTION ERROR
Anybody can explain the difference between SFLCLR & SFLINZ?
How do I read records from Subfile? what is the purpose of READC explain with example?
suppose we have 10 members in physical file and i have to use 4 out of 10 so how can we read this in RPG
What is the purpose of FRCDTA keyword?
how do I declare a minor?
Hi Viewers can any body explain me how to update and ahange the already existed data in physical file using subfile ? please explain me with the code if possible?
How can we change element of compile time array?Can we do so
Mr.Yallamanda Reddy P thanks for your answer sir,can we use test(D) opcode in RPG/400,if yes please help me by eloborating on that answer by writing a sample code for that sir
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?
RPG400 
