2011-06-15 11:46

displaystem: PROCEDURE EXPOSE (dict$.exposestems)
PARSE ARG stem
SAY dict$.exposestems
i=0
IF stem='CITIES' THEN DO 
   DO VAR OVER cities.
      i=i+1 
      mpout.i='cities.'VAR'='VALUE('cities.'var)
   END
   i=i+1
   mpout.i='cities. contains 'i' variables'
   mpout.0=i
END
IF stem='COUNTRIES' THEN DO 
   DO VAR OVER countries.
      i=i+1 
      mpout.i='countries.'VAR'='VALUE('countries.'var)
   END
   i=i+1
   mpout.i='countries. contains 'i' variables'
   mpout.0=i
END
RETURN 

2011-06-15 11:46