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

Please complete the following information:

REGISTER / LOG-IN TO DISCUSS

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Submit your e-mail address below to continue

E-mail: 

E-mail: 

Handle:   

Password: 

Forgot Password?

Create Handle: 

Your handle identifies you in ITKnowledgeExchange. Max 30 char.

Create Password: 

Confirm Password: 

Yes, I agree to the IT Knowledge Exchange  Terms and Conditions.

hidden modal window