Home > IT Answers > Database > How to send the data from a Physical file to a Flat file
Askt1
140 pts.
 How to send the data from a Physical file to a Flat file
Flat files, Physical File, RPG, RPG error handling, RPG/400, RPG/400 field validation
Please check the below prgram and advice me how to send the data from APH(physical file) to Flate file SAAPH (flat file). FTRF is a datstructure created for send the data only this two fields in flat file. i am not sure how to club this data structre and flat file in programe. FAPH IF E DISK FSAAPH O E DISK A F SAAPH KRENAMESA100 IFTRF DS I P 1 80EDTE I P 9 100CCDE C READ APH 20 C *IN20 DOWEQ*OFF C WRITESA100 C LEAVE C ENDDO i am getting error while compiling

Software/Hardware used:
ASKED: December 23, 2008  12:45 PM
UPDATED: December 23, 2008  5:02 PM
RELATED QUESTIONS
Answer Wiki:
FAPH IF E DISK FSAAPH O E DISK A F SAAPH KRENAMESA100 IFTRF DS I P 1 80EDTE I P 9 100CCDE C READ APH 20 C *IN20 DOWEQ*OFF C Eval SAAPH = EDTE + CCDE <-- assumes SAAPH has one field named SAAPH not sure you'll like the results see alternative below C WRITESA100 C READ APH 20 <--------------- added -- you've written an endless loop C ENDDO using %EDITC converts numeric to character C Eval SAAPH = %editc(EDTE,'X') + %EDITC(CCDE,'X')
Last Wiki Answer Submitted:  December 23, 2008  2:51 pm  by  philpl1jb   44,070 pts.
All Answer Wiki Contributors:  philpl1jb   44,070 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

Hi,

You’ll also need to tell the program where and when to end. If this is the complete program listing you could do this by putting the following lines at the end :-

MOVE *ON *INLR (or EVAL *INLR = *ON) depends on which you like best
RETURN

Regards,

Martin Gilbert.

Gilly400
 23,625 pts.