/**********************************************************************/


   /* Invoke GREPLAY in line mode (NOFS option).            */
   /* Specify the permanent catalog (IGOUT= option).        */
proc greplay nofs igout=lib94.reprtcat;

      /* Delete the existing entry, TITLE2.                 */
   delete title2;
run;
quit;


/**********************************************************************/


   /* Specify the text of the slide.                        */
title1 font=swissb height=6 'Section 2: 1990 to Present';

   /* Produce the slide and specify the permanent catalog   */
   /* with the GOUT= option.                                */
   /* Assign the entry name, TITLE2, with the NAME= option. */
proc gslide border gout=lib94.reprtcat name='title2';
run;
quit;


/**********************************************************************/


   /* Delete existing entries from the permanent catalog.   */
proc greplay nofs igout=lib94.reprtcat;
   delete costsq1 costsq2;
run;
quit;

   /* Create the plots and specify the permanent catalog.   */
proc gplot data=datalib.curexp gout=lib94.reprtcat;

   /* Define the title for the first plot.                  */
title1 font=swiss height=4 'Total Expenses: First Quarter';

      /* Create and name the first plot.                    */
   plot exp*q1 / name='costsq1';
run;

   /* Define the title for the second plot.                 */
title1 font=swiss height=4 'Total Expenses: Second Quarter';

      /* Create and name the second plot.                   */
   plot exp*q2 / name='costsq2';
run;
quit;


/**********************************************************************/