I want graph per page in PNG file. I have tried many ways but didn't get. I am using below code but from this code i am getting 2 separate output instead of two graph in one PNG file (One per page).
%let __date = %sysfunc(putn( %sysfunc(date()) ,date9.)); %put &__date. ;
%LET outputno = 1 ; %inc gtitles; ods listing image_dpi=300 gpath="&mrgpath"; options nobyline;
ods graphics on / reset=index imagename="&mrimgnm" imagefmt=png width=3.5in height=3in byline=title border=off antialiasmax=10000;
%macro temp(lb=,mn=,mx=,grp=);
proc template; define statgraph example3_template_v2; dynamic _title1 _title2 _footnotel _footnoter _disp; begingraph ;*/designwidth=1000px designheight=1000px; entrytitle halign=left textattrs=(size=5pt weight=normal) "ABC"; entryfootnote halign=left textattrs=(size=5pt) "XYZ"; entryfootnote halign=right textattrs=(size=5pt) "&progname &SYSDATE9";
layout lattice/ columns=1 rows=1 rowgutter=0pt columnweights=(0.300) columngutter=0 rowdatarange=union;
layout overlay /WALLDISPLAY=NONE
yaxisopts=(label="Maximum decrease from baseline [%]" labelattrs=(size=5) labelfitpolicy=split tickvalueattrs=(size=5pt) linearopts=(viewmin=-100 viewmax=80 tickvaluesequence = (start=-100 end=80 increment=20)))
xaxisopts=(label="Patient index sorted by maximum % decrease" labelattrs=(size=5) discreteopts=(tickvaluefitpolicy=ROTATE tickdisplaylist=(&&subj&grp) tickvaluelist=(&&n&grp)) labelfitpolicy=split tickvalueattrs=(size=1pt) linearopts=(viewmin=&mn viewmax=&mx));
barchartparm x=eval(ifn(trtpn=&grp,input(n,8.),.)) y=eval(ifn(trtpn=&grp,pchg,.)) / orient=vertical group=pchgcat1 BARWIDTH=1 name="A";
discretelegend "A"/valueattrs=(size=1pt) halign=right valign=top border=false;
referenceline y=20 /LINEATTRS=(color=black thickness=1 pattern=shortdash); referenceline y=-30/LINEATTRS=(color=black thickness=1 pattern=shortdash); referenceline y=-50/LINEATTRS=(color=black thickness=1 pattern=shortdash);
endlayout; endlayout; endgraph; end; run; quit;
proc sgrender data=adtr1 template = example3_template_v2; dynamic _disp = "all" _title1 = "&mrds2 &mrdx" _title2 = "&mrds2" _footnotel = "&mrsrc" _footnoter = "%trim(&progname) &__date";
run;
%mend; %temp(lb=TRT1,mn=&ord0,mx=&ord1,grp=8);
%temp(lb=TRT2,mn=&ord2,mx=&ord3,grp=9);
... View more