Home > IT Answers > AS/400 > RPG query
Shaddy
20 pts.
 RPG query
RPG, RPG/400
Hi Martin, thanks for the previous query. Now i want to read the data of a DB file and display the data via display file. I have written following code for this: FPFRPG1 IF E K DISK FDSP1 CF E WORKSTN C READ REC C DOW *IN03=*OFF C EXFMT DSP C IF *IN01=*ON C ENDIF C READ REC C ENDDO C SETON LR After running this program, i am not able to see the data when i press F1. it is only when i press F1 3 to 4 times, i can see the data but that too not complete. could you please have a look...

Software/Hardware used:
ASKED: November 26, 2008  10:47 AM
UPDATED: November 26, 2008  1:37 PM
RELATED QUESTIONS
Answer Wiki:
Hi, I'm nost sure why you need the *IN01 code - this won't do anything. Try this - This will display your next record, each time you press enter :- FPFRPG1 IF E K DISK FDSP1 CF E WORKSTN C READ REC C DOW *IN03=*OFF C EXFMT DSP C READ REC C ENDDO C SETON LR This will display your next record, each time you press F1. Notice the ENDIF is after the READ :- FPFRPG1 IF E K DISK FDSP1 CF E WORKSTN C READ REC C DOW *IN03=*OFF C EXFMT DSP C IF *IN01 = *ON C READ REC C ENDIF C ENDDO C SETON LR Regards, Martin Gilbert.
Last Wiki Answer Submitted:  November 26, 2008  11:03 am  by  Gilly400   23,625 pts.
All Answer Wiki Contributors:  Gilly400   23,625 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


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