Trucs & Astuces : boucles implicites

Une fonction peu utilisée de RPG, qui existe même en RPG III, permet d’effectuer la même opération sur chaque élément d’une matrice. Ainsi, pour ajouter deux matrices dans une troisième, élément par élément, on pourrait coder ceci :

for i = 1 to %elem(arr);
arr(i) = arr(1) + arr(2);
endfor;

Ou bien coder simplement

arr = arr1 + arr2;
ou, en RPG III
C ARR1 ADD
ARR2 ARR

Si l’on a des matrices contenant les positions et les longueurs d’une chaîne, on peut obtenir toutes les sous-chaînes en une instruction, comme le montre la figure 1.