TABLE FILE CAR
SUM SALES
RANKED AS RANK
BY TOTAL HIGHEST SALES
BY COUNTRY
END

DEFINE FILE HOLD
RANK/I2 = RANK;
COUNTRY2/A40 = EDIT(RANK) || COUNTRY;
END

GRAPH FILE HOLD
SUM SALES
BY COUNTRY2
ON GRAPH SET LOOKGRAPH PARETO
...
END

TABLE FILE CAR
SUM SALES
RANKED AS RANK
BY TOTAL HIGHEST SALES
BY COUNTRY
ON TABLE HOLD FORMAT ALPHA
END
TABLE FILE HOLD
PRINT COUNTRY
BY RANK NOPRINT
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SAVE
END

-RUN
-SET &LIM=&LINES;
-SET &I=0;
-REPEAT GRAPH &LIM TIMES
-READ SAVE NOCLOSE &COUNTRY.A10.
-IF &RETCODE NE 0 GOTO GRAPH;
-SET &I=&I+1;
-SET &COUNTRY.&I=&COUNTRY;
-TYPE &I &COUNTRY.&I

-GRAPH
DEFINE FILE HOLD
RANK/I2 = RANK;
COUNTRY2/A40 = EDIT(RANK) || COUNTRY;
END

GRAPH FILE HOLD
SUM SALES
BY COUNTRY2
ON GRAPH SET LOOKGRAPH PARETO
ON GRAPH SET GRAPHSTYLE *
-SET &I=1;
-SET &J=0;
-REPEAT ENDGROUP &LIM TIMES
setGroupLabel(&J,"&COUNTRY.&I");
-SET &I=&I+1;
-SET &J=&J+1;
-ENDGROUP
ENDSTYLE
END