Figure 5: Using an array data structure

D Regionsls       DS                  Dim(50)
D                                     Qualified
D   Name                        20
D   Monthlysls                  11  2 Dim(12)

 /Free
  RegionSls(Region).MonthlySls(Month) = Totsls;
 /End-free