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;

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

2373

---

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

2552

---

what is the difference between do while and do until?

1308

---

how do I declare a minor?

1207

---

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

1305

---

what is the procedure and explain about real time scenario.

2007

---

if there is a module object , how to find the program object for this module object.Assume the module object name and program object name is not same.

2678

---

are there any useful c runtime apis that I can call from rpg iv?

1208

---

What is file identifier where we can use?

1179

---

what is a rpg?

1246

---

How can we override a file during runtime in rpg?

1245

---

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

1664

---

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

---

can I touch the array during treatments?

1218

---

what is file information data structure?

2285

---