RPG V5R3 Travailler sur une partie d'un tableau


%SUBARR(tableau : debut : nombre)


   ne manipule que "nombre" poste(s) à partir de "debut"
   (nombre est facultatif, si non précisé, on traite jusqu'à la fin)


 + SORTA et XFOOT admettent %SUBARR en argument


    /free


     sorta %subarr(tbl:1:10);// ne trie que les 10 premiers postes
     resultat = %xfoot(%subarr(tbl:i:5));//cumul des 5 postes à partir de i.


    /end-free

CM

 

...