Display records from a Physical File

[Nilesh3110]

Hello all,
Can some one help me in writing a RPGLE program for displaying all the data of the physical file.

RPGLE program i tried:
FPF9 IF E DISK
DDS1 DS LIKEREC(RPF9)
C *loval SETLL RPF9 90
C READ PF9 ds1
C DOW *in90 = *off
C ds1 DSPLY
C READ PF9 ds1
C ENDDO
C IF *in90 = *on
C 'END' DSPLY
C ENDIF
C SETON LR

Its not working, please help me correct the code as i am new to RPG

Regards
Nilesh

[DeadManWalks]

Re: Display records from a Physical File

this does not affect function , but don't do it; Read and Chain to file names, dont use the record format for this. Record formats should only be used for write / Update / Delete.

you need a 90 on the read line. You only have it on the setll (which you dont need) so it does not change. Your loop will not exit. the 'end' will only display if the 90 at the setll was turned on.

[Nilesh3110]

Re: Display records from a Physical File

I followed your suggestion, but still the error stating loval shouldnot be used.

New code i tried was.
FPF9 IF E DISK
DDS1 DS LIKEREC(RPF9)
C *loval SETLL PF9
C READ PF9 ds1 90
C DOW *in90 = *off
C ds1 DSPLY
C READ PF9 ds1 90
C ENDDO
C IF *in90 = *on
C 'END' DSPLY
C ENDIF
C SETON LR

Please advice

[DeadManWalks]

Re: Display records from a Physical File

I have no idea what the DS1 is for on the read line.

[Nilesh3110]

Re: Display records from a Physical File

this does not affect function , but don't do it; Read and Chain to file names, dont use the record format for this. Record formats should only be used for write / Update / Delete.

you need a 90 on the read line. You only have it on the setll (which you dont need) so it does not change. Your loop will not exit. the 'end' will only display if the 90 at the setll was turned on.

Can you please help me changing the code....it is not working

[Nilesh3110]

Re: Display records from a Physical File

The PF i have created is PF9

 A              R RPF9                                                  
 A                ALPHAN        25A         TEXT( 'ALPHA NUMERIC DATA') 
 A                NUMENRIC      25S 0

The RPGLE program i have written is ;-

FPF9       IF   E             DISK                                      
DDS1              DS                  LIKEREC(RPF9)                     
C     *loval        SETLL     PF9                                       
C                   READ      PF9           ds1                      90 
C                   DOW       *in90 = *off                              
C     ds1           DSPLY                                               
C                   READ      PF9           ds1                      90 
C                   ENDDO                                               
C                   IF        *in90 = *on                               
C     'END'         DSPLY                                               
C                   ENDIF                                               
C                   SETON                                        LR

Please advice what changes i need to make for the program to compile

[Nilesh3110]

Re: Display records from a Physical File

DS1 is a data structure to store the data....I am not sure if i should use it or not.......If i am wrong please correct it.

[DeadManWalks]

Re: Display records from a Physical File

I like to help, but not when its basic like this. you dont use the DS1 on a read line. You read the table, then eval the table fields into other fields. If you just want to display then you just read the table, then display the field you want.

[TedHolt]

Re: Display records from a Physical File

still the error stating loval should not be used.

You can use *START.

Why do you need to position the file, Nilesh? Do you think it may already be open from another program?

[TedHolt]

Re: Display records from a Physical File

still the error stating loval should not be used.

You can use *START.

Why do you need to position the file, Nilesh? Do you think it may already be open from another program?

[Scott Klement]

Re: Display records from a Physical File

The reason *LOVAL gives an error is because the file is not keyed (no 'K' on the F-spec). However, using *LOVAL on SETLL is almost always a bad idea, you should use *START instead.

[Nilesh3110]

Re: Display records from a Physical File

I like to help, but not when its basic like this. you dont use the DS1 on a read line. You read the table, then eval the table fields into other fields. If you just want to display then you just read the table, then display the field you want.

Sir, It will be really very helpful please write the code for me........I will be really greatful to you

[tomholden]

Re: Display records from a Physical File

no one here should write your code, you learn nothing that way. this forum (and others) is not for "free contract work" but to assist in learning or problems. considering the questions you are asking I would recommend that you find a good book since this is more of a beginner question.

[kitvb1]

Re: Display records from a Physical File

This has nothing to do with OP, moved to it's own thread.

[DeadManWalks]

Re: Display records from a Physical File

STRDBG myprogramname updprd(*YES)

step through it and see. If you don't know how to debug then you really need a book for beginners.