Find out occurrence of a Character in a string using Both SQL and RPGLE/RPG/AS400/IBMi.

You can see the code on GitHub as well. Below is the link.

https://github.com/shah2050/AS400/blob/master/Interview-Questions/STRINGOCCURANCE.RPGLE.txt

This code has two methods, 1. using normal RPG code, 2. Using SQL.

H F DSTRING S 50A INZ('THIS IS A TEST STRING TO FIND ') DSTRING1 S 50A INZ('THIS IS A TEST STRING TO FIND ') DLEN1 S 5S 0 DLEN2 S 5S 0 DFND S 5S 0 C /FREE //RPG CODE; LEN1 = %LEN(%TRIM(STRING)); DOU FND = %LEN(STRING); FND = %SCAN('S':STRING:FND+1); IF FND = 0; LEAVE; ENDIF; STRING = %REPLACE('': STRING:FND:1); ENDDO; LEN2 = %LEN(%TRIM(STRING)); DSPLY %CHAR(LEN1-LEN2); //SQL CODE; EXEC SQL SET OPTION COMMIT = *NONE; EXEC SQL SET LEN2=LENGTH(REPLACE(STRING1,'S','')); DSPLY %CHAR(LEN1-LEN2); // IF it's database file then // SELECT LENGTH(TRIM(PCNAME)) - LENGTH(REPLACE(TRIM(PCNAME), 'A', // '')) AS D_Count FROM EBCUSTP WHERE PCPBN=1000000001 *INLR = *ON; /END-FREE C