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.

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

More RPG400 Interview Questions

how can i retrieve the field name from display file at run time? Devendra Singh Tomar

3 Answers  


In ProgramB there is a SBMJOB, which is a call to program C .There is also a CALL to program D from B. How would you check the program C has been executed in D?

4 Answers  


what are the types of identifers

2 Answers   IBM,


Some times While checking MSGW for object / member / record locks ,I have seen it's locked by itself ...? How it happen and what action we need to perform if job is updating / writing a record....?

6 Answers   HSBC,


i want code and what are used key words are ...like wrkmbrpdm screen (q) i have a file with 3 fields empno,empname,empaddr... here you give the empno it displays from that number to remaining empno's how? sub file screen: employee details pos to:empno then enter empno empname empaddr so file have 100 records from 1 to 100 so the above pos you give the 55 empno...it displays the from 55 to remaining... ...... please share this answel

2 Answers   IBM,






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?

0 Answers  


How do you proceed in case your active AS400 session has got disconnected suddenly, how can you get back to your session ? Is it possible??

1 Answers  


Hi guys. Im in AS/400(RPGLE,CLP) from last 1 year.Now i wan to upgrade my Knowledge in AS/400. Suggest me some new fields & courses which falls under AS/400. Waiting for your quick Response.

1 Answers   Voltech,


How do you find whether a record is locked or not?

2 Answers  


Can someone tell me tell me what is meant by message wait...?

1 Answers  


How to declare the pull button in AS/400..

0 Answers  


How can you delete records form a file in rpg without using "Delete" OPCODE?

7 Answers  


Categories