Answer Posted / sagar wagh

Dcl-S inputString Char(30) Inz('aaabbbbdddddyyy');
Dcl-S charCount Int(10);
Dcl-S maxCount Int(10) Inz(0);
Dcl-S maxChar Char(1);
Dcl-S i Int(10);
Dcl-S j Int(10);

For i = 1 to %Len(%TrimR(inputString));
charCount = 0;
For j = 1 to %Len(%TrimR(inputString));
If %Subst(inputString: j: 1) = %Subst(inputString: i: 1);
charCount += 1;
EndIf;
EndFor;
If charCount > maxCount;
maxCount = charCount;
maxChar = %Subst(inputString: i: 1);
EndIf;
EndFor;

Dsply ('Character ' + maxChar + ' occurs ' + %Char(maxCount) + ' times');
*InLR = *On;

How many program bind in one module....

2653

---

What is the purpose of record level identifier?

1113

---

what is kids-rpg?

1107

---

what is a rpg?

1172

---

can you debug ile rpg program using isdb?

1243

---

how do I declare a minor?

1148

---

which program rpg or cl is efficent to update a transaction onto a database file and why ?

1233

---

what is *place and *auto keyword in prtf ?plz explain

3143

---

what do you mean by an input subfile, what are the keywords required?

1241

---

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

1002

---

We have job which is running as batch. It takes atleast 06 hours to complete tht job. But I wanna do tht job with in 3 hours?

1235

---

What is the difference between copybooks and subprocedures in as400?

1340

---

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

946

---

Interviewer asked me write down DDS for load all subfile .can anybody write dds

1705

---

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

1307

---