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?
- 5 Answers
- 10382 Views
- I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
How do u design a physical file, when you have 2 Unique fields like for eg in A student file student ID and student examination no both are unique
how do I declare a minor?
is this a rpg channel?
what is the difference between do while and do until?
What is the purpose of record level identifier?
1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.
How to create a login screen using a command instead of display file.... intention is to get a password field on a command..... how do you achieve this...
thanks mr.Harshad R Suryawaunshi,i'm new to as400 i think you are telling in rpgile i know only rpg400 if possible can you tell in rpg400
Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On
what is kids-rpg?
do you use message subfiles? What are the necessary keywords required coding a message subfile?
How to handle duplicate error handling in RPG?
what is an online rpg?
what is *place and *auto keyword in prtf ?plz explain
what do you mean by an input subfile, what are the keywords required?
