Answer Posted / abhishek

The first method is not very full proof. Actually it is not
necessary that RRN is always sequential.

Suppose initally there are 100 records in a file and so
does the RRN starts from 1 for first record and 100 for
last record.

If 1 record is deleted from the file RRN remains unchaned
and in that case adding 2 may cause a problem if system
does not get Record at that RRN it will read the next
sequential.

during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.

1281

---

Hi Viewers can any body explain me how to update and ahange the already existed data in physical file using subfile ? please explain me with the code if possible?

5235

---

How to handle duplicate error handling in RPG?

2352

---

How to write record if no field or the field are different in physical file in rpgle ?

1023

---

what happens when sflsiz = sflpag? What are the advantages and disadvantages?

1243

---

Assume 2 users are using the same file and first user updates some record in the file. Will the 2nd user will be able to see the updated record or not?

989

---

what is an online rpg?

1323

---

What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?

3047

---

how can you display specific subfile page on the screen in unequal subfile?

1200

---

How Chain operation copies the record's data to the input buffer for the program?

1663

---

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

2568

---

How to call one program from another program in RPG? please help me with the code

1790

---

give an eg of ACQ-(ACQUIRE),BIT OFF,BIT ON,DEALLOC,DUMP,FEOD,FORCE,MHHZO,MHLZO,MHLLZO,MLHZO,REL,RESET,TESTZ,TESTB,TESTN----GIVE SMALL EXAMPLE TO THE OPCODES...TO UNDERSTAND FUNCTIONING...........

3888

---

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

2372

---

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

1059

---