Cool RPG Snippets

These are great little snippets of code in RPG. I’ll post more as I find them.

No more hard-coded maximum for looping through an array. If the array size is changed in the future, you don’t have to worry about it.

for i = 1 to %elem(array);
// whatever…
endfor;

Use SQL for data conversions. 

exec SQL set :text = lower(:text) or exec SQL set :text = lcase(:text)
exec SQL set :text = upper(:text) or exec SQL set :text = ucase(:text)

 

https://www.ibm.com/support/knowledgecenter/en/SSEPEK_10.0.0/sqlref/src/tpc/db2z_scalarfunctionsintro.html