1. d MONXX DS
  2. d MON01
  3. ...
  4. d MON12
  5. d MONPtr S * Inz(%Addr(MONXX))
  6. d MON S 9S 0 Dim(12) Based(MONPtr)


Über die Variable MON(X) werden dann die entsprechenden Felder angesprochen.