Answer Posted / bharatiya

I was trying it last night and wrote the below code that works for this scenario, please have a look----

DArr1 S 1 DIM(10)
DArr2 S 1 DIM(10)
DCnt S 2 0
Dn1 S 2 0 Inz(1)
Dn2 S 2 0 Inz(1)
DFld1 S 15 Inz('aaabbbbdddddyyy')
C
C Do 15
C EVAL Arr1(n1) = %subst(FLD1:n1:1)

C If Arr1(n1) = 'd'
C Eval Arr2(n2) = Arr1(n1)

C Eval n2 = n2 +1
C Endif
C Eval n1 = n1+1
C Enddo
C Eval cnt = n2 - 1

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

970

---

How many program bind in one module....

2688

---

what is the use of sflnxtchg?

1267

---

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?

5147

---

When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?

966

---

Explain mdt?

1140

---

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.

6521

---

what is data area and how it is used in rpg program ?

1327

---

What are the types of identifiers?

1024

---

what is kids-rpg?

1128

---

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

1737

---

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

1159

---

Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other program?

1929

---

what is the necessary keyword needed to scroll subfile records?

1161

---

how do I declare a minor?

1164

---