Put the root columns into their own list to differentiate them from the rows.
   columns = makelist();
   rc = setniteml(rootlst, columns,
                  'COLUMNS' );

      /* Create CANADA sublist for the */
      /* first column */
   canada = makelist();
   rc = setniteml(columns, canada,
                  'CANADA' );
   consumer = makelist();
   rc = setniteml(canada, consumer,
                  'CONSUMER' );
   rc = setitemc(consumer, 'ACTUAL',
                  1, 'y' );
   education = makelist ();
   rc = setniteml( canada, education, 
                  'EDUCATION' );
   rc = setitemc (education, 'ACTUAL',
                  1, 'y');

      /* Create GERMANY sublist for the */
      /* second column */
   germany = makelist();
   rc = setniteml( columns, germany,
                   'GERMANY' );
   consumer = makelist();
   rc = setniteml( germany, consumer,
                  'CONSUMER' );
   rc = setitemc( consumer, 'ACTUAL',
                  1, 'y' );
   education = makelist();
   rc = setniteml( germany, education,
                   'EDUCATION' );
   rc = setitemc( education, 'ACTUAL',
                  1, 'y' );


      /* Create USA sublist for the */
      /* third column */
   usa = makelist();
   rc = setniteml( columns, usa,'USA' );
   consumer = makelist();
   rc = setniteml( usa, consumer, 
                  'CONSUMER' );
   rc = setitemc( consumer, 'ACTUAL', 
                  1, 'y' );
   education = makelist();
   rc = setniteml( usa, education, 
                   'EDUCATION' );
   rc = setitemc( education, 'ACTUAL', 
                  1, 'y' );