OPTIONS VALIDVARNAME= V7 PAGESIZE= 3000 ; DATA years ; %LET centuries_per_millennium = 10 ; %LET decades_per_century = 10 ; %LET years_per_decade = 10 ; DO _millennium= 1 TO 2 ; DO _century= 1 TO &centuries_per_millennium ; DO _decade= 1 TO &decades_per_century; DO _year= 1 TO &years_per_decade ; millennium = _millennium ; century = &centuries_per_millennium*(millennium-1) + _century ; decade = &decades_per_century*(century-1) + _decade ; year = &years_per_decade*(decade-1) + _year ; OUTPUT ; END ; END ; END ; END ; DROP _: ; PUT "ERROR: Year " year "is in millennium " millennium "!" ; RUN ; PROC PRINT DATA= years ; RUN ;

Edward Heaton, Sr. Systems Analyst, Westat (An Employee-Owned Research Corporation), 1550 Research Boulevard, Room 2018, Rockville, MD 20850-3159 voice: (301) 610-4818 fax: (301) 294-3992 mailto:heatone@westat.com http://www.westat.com