Du legst eine Feldgruppe mit 5I 0 und der Dimension Anzahl Spalten aus Result-Set oder Anzahl Unterfelder in Feldgruppe und fügst diese dem FETCH Statement zu (nur durch ein Blank getrennt, KEIN Komma):

Code:
D  ArrInd       S                   5I 0   Dim(123)

  /Free 
      Exec SQL Fetch Next From Csr_RollOut 
                     into :DSCsrc01 :ArrInd;
Birgitta