proc format; value $museumfmt 'NGA'='National Gallery of Art' 'MOMA'='Museum of Modern Art' 'H'='Hirshhorn'; value $stylefmt 'AE'='Abstract Expressionism' 'R'='Raw Art'; run; data artwork; input fname $ lname $ 8-17 style $ museum $ year painting $ 32-62; Name=trim(fname)||' '||lname; label name='Name' style='Style' museum='Museum' painting='Painting' year='Year'; format museum $museumfmt. style $stylefmt.; datalines; Mark Rothko AE H 1959 Lavender and Mulberry Mark Rothko AE H 1961 Blue, Orange, Red Mark Rothko AE MOMA 1948 No. 5/No. 24 Mark Rothko AE MOMA 1949 No. 3/No. 13 Mark Rothko AE MOMA 1968 Untitled Mark Rothko AE NGA 1947 Untitled 1986.43.84 Mark Rothko AE NGA 1948 Untitled 1986.43.78 Willem de Kooning AE MOMA 1985 Rider (Untitled VII) Willem de Kooning AE MOMA 1970 Wah Kee Spare Ribs Willem de Kooning AE MOMA 1949 Woman Willem de Kooning AE NGA 1962 Figure at Barnes Hole Willem de Kooning AE H 1946 Special Delivery Willem de Kooning AE NGA 1971 Minnie Mouse Willem de Kooning AE NGA 1971 The Marshes Jean Dubuffet R H 1954 The Soul of Morvan Jean Dubuffet R H 1946 Limbour as a Crustacean Jean Dubuffet R NGA 1955 Bibi Trompette's Garden Jean Dubuffet R MOMA 1944 Shadows Cast in the Pine Forest Jean Dubuffet R MOMA 1946 Limbour ; run; proc sort data=artwork out=a; by museum style; run; title 'Works by Modern Artists'; run; proc print data=a label; by museum style; var painting year name style museum; run; title 'Mark Rothko Paintings'; title2 'Hirshhorn Museum'; proc print data=a noobs label; where lname='Rothko' & museum='H'; var painting year; run; title2; proc print data=a noobs label; where lname='Rothko'; var painting year museum; run; title; run;