INIT:
   datalist=makelist();

   do i=1 to 4;
      sublist{i}=makelist();
      do j=1 to 4;
         amt=i*j;
         name=left(put(j,words10.));
         insertn(sublist{i},amt,-1,name);
      end;
      subname=put(i,8.);
      insertl(datalist,sublist{i},-1,
         subname);
   end;
   call putlist(datalist,'Contents of
                DATALIST before updates',0);