– Déclarer et utiliser un tableau à  2 dimensions en RPG (à  partir de la V5R2)

     dTcol             DS                  qualified inz      
     d colone                              likeds(Tlig) dim(5)
     dTlig             DS                  qualified          
     d ligne                         10I 0 dim(10)            
     C                   eval      Tcol.colone(2).ligne = 10  
     C                   eval      Tcol.colone(2).ligne(8) = 3
     C                   return                                                            

 Sortie DEBUG

EVAL Tcol.colone(2)

TCOL.COLONE.LIGNE(2,1) = 10
TCOL.COLONE.LIGNE(2,2) = 10
TCOL.COLONE.LIGNE(2,3) = 10
TCOL.COLONE.LIGNE(2,4) = 10
TCOL.COLONE.LIGNE(2,5) = 10
TCOL.COLONE.LIGNE(2,6) = 10
TCOL.COLONE.LIGNE(2,7) = 10
TCOL.COLONE.LIGNE(2,8) = 3
TCOL.COLONE.LIGNE(2,9) = 10
TCOL.COLONE.LIGNE(2,10) = 10


 La 1ère affectation permet de renseigner 10 lignes de la colonne 2.

 La 2ème affectation renseigne la 8ème ligne de la colonne 2.