RATE THIS ANSWER
0
Click to Vote:
0
0
Last Answered:
Nov 25 2008 2:20 PM GMT
by Philpl1jb
15100 pts.
Latest Contributors: Gilly400
23625 pts.
Hi,
Your code will only read the first record in the file, then keep displaying the three variables. You need another read in your loop. You should also set the pointer to the first key in your file (you have the file defined as keyed) using setll :-
FMYFILE IF E K DISK
C *LOVAL SETLL MYFILE C READ PFRPG1
C DOW NOT%EOF
C NAME DSPLY
C ID DSPLY
C ADDRESS DSPLY
C READ PFRPG1 C ENDDO
C SETON LR
This should loop through displaying the values for each record.
Regards,
Martin Gilbert
If yhu are calling this program/not submitting it then you should have seen the first values.
Not getting any output .. make certain there are rercords inthe MyFile.
You can check this with DSPFD MyFile. Record count would be near the bottom.
Phil