OPTIONS LS=MAX PS=MAX NOCENTER USER='.\00@Data';
PROC PRINT DATA=OpenDate;
RUN;
ODS LISTING GPATH='.\01@PIC';
ODS GRAPHICS ON /WIDTH=8000PX HEIGHT=700PX;
ODS GRAPHICS /IMAGENAME='01@01_openDate';
PROC SGPLOT DATA=OpenDate;
VBAR Date /Response=Numaccts;
RUN;
ODS GRAPHICS OFF;