Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...


The RP program is displaying records 11 times .But there
are 10 records in
a pf.(ie last record is displayed twice).How to
display records only 10 times?

Answers were Sorted based on User's Feedback



The RP program is displaying records 11 times .But there are 10 records in a pf.(ie last ..

Answer / sauml

in DDS sepc-

SFLPAG(10)
SFLSIZ(11)
RRN1 H 4 SFLRCDNBR
Rollup 27
in rpgiv:-

in D SPEC:-
SFLpag s 2 0 inz(10)
lstrrn s 4 0

In C Spec:- in load subroutine
Eval rrn = Lstrrn
*Loval Setll Rcd
Do SFLpag
Read Rcd
|
|
|
Eval rrn = rrn + 1
Write Sfl
Enddo
If rrn > 0
on SFLDSP indicator
Endif
Eval lstrrn = rrn

Hope it's enough for u to understand -----cheers

Is This Answer Correct ?    1 Yes 0 No

The RP program is displaying records 11 times .But there are 10 records in a pf.(ie last ..

Answer / ramesh

FPF1 IF E DISK
C READ PF1
C DOW NOT%EOF(PF1)
C ............
C ...........
C READ PF1
C ENDDO
C SETON LR

RPG400
FPF1 IF E DISK
C READ EMP 90
C DOU *IN90=*ON
C ............
C ............
C READ EMP 90
C ENDDO
C SETON LR

Is This Answer Correct ?    1 Yes 0 No

The RP program is displaying records 11 times .But there are 10 records in a pf.(ie last ..

Answer / mathan kumar

RPG400

FPF IF E DISK k
C *LOVAL SETLLEMP
C READ EMP 90
C *IN90 DOWEQ *OFF
............
C ............
C READ EMP 90
C ENDDO
C SETON LR

Is This Answer Correct ?    1 Yes 0 No

The RP program is displaying records 11 times .But there are 10 records in a pf.(ie last ..

Answer / vinits

dou %eof
read ....
.
.
.
.
enddo

Is This Answer Correct ?    0 Yes 0 No

The RP program is displaying records 11 times .But there are 10 records in a pf.(ie last ..

Answer / siva

Try this

Read File1
If %Found
Dou %Eof
|

|
Read File1
Enddo
Endif

Is This Answer Correct ?    1 Yes 3 No

Post New Answer

More RPG400 Interview Questions

in a cl pgm records are copied to a file in qtemp a pgm is called to delete records from the file in qtemp no of records in file in library qtemp is checked wat shud be the count of records let say it was 10 initially endpgm

2 Answers  


can I touch the array during treatments?

0 Answers   IBM,


what is the difference between SETON RT & RETURN?

5 Answers  


what is difference between DSPFD and DSPFFD?please give me real senario with good example?

1 Answers  


Q1.How we can copy the data of file one session to another session? Q2.how we can execute a loop infinitely in AS/400 coding? Q3.In ALDON tool,multitask is posible on a perticular object by the user?

6 Answers   CSC,


In RPG program one file using as a PRIMARY file while running program some of the records reading twice any body know why its happening

2 Answers  


am 2010 passed out . can any one tell me which course is good to put 2+fake .guide me

1 Answers  


What is difference between bind by copy and bind by reference?

0 Answers  


How to handle duplicate error handling in RPG?

0 Answers  


when will come session device error?

4 Answers   TCS,


1..Write an sql query to find the employee name who is having 2 phone numebr? 2.Write an sql query to the the second highest salary of the employee?

4 Answers  


i hav 2 logical files(L1,L2) both r derived from one physical file(P1). how can i use both the logical files in one RPG program? if yes what i have to d.

5 Answers   TCS,


Categories