ODS RTF - Grouping
in [SAS]
|
Prev: Struggling to resolve an important data problem in SAS....please help.
Next: Struggling to resolve an important data problem in SAS....please help.
From: HI on 8 Aug 2010 17:18 Hi, I am new to ods rtf. Can anyone help me to get the group variable to be printed in all the pages. i am including a small program to make my question more sensible. I need the Treatment name to be printed in all the pages.Please help me. data test; do i=1 to 1500; x=i+12; if i le 500 then trt=1; else if 501 lt i le 1000 then trt=2; else trt=3; output; end; run; proc format; value trt 1='XXXXXX - Monotherapy' 2='XXXXXX - Combined' 3='Total'; quit; ods rtf file='de.rtf'; proc report data=test nowd ; column trt i x; define trt /id group order=internal 'Treatment' format=trt. ; define i / display 'Number'; define x / display 'Class'; break after trt / page; run; ods rtf close; Thanks
From: Ya on 9 Aug 2010 16:36 On Aug 8, 2:18 pm, HI <ranis...(a)gmail.com> wrote: > Hi, > I am new to ods rtf. > Can anyone help me to get the group variable to be printed in all the > pages. > i am including a small program to make my question more sensible. > > I need the Treatment name to be printed in all the pages.Please help > me. > > data test; > do i=1 to 1500; > x=i+12; > if i le 500 then trt=1; > else if 501 lt i le 1000 then trt=2; > else trt=3; > output; > end; > run; > > proc format; > value trt > 1='XXXXXX - Monotherapy' > 2='XXXXXX - Combined' > 3='Total'; > quit; > > ods rtf file='de.rtf'; > proc report data=test nowd ; > column trt i x; > define trt /id group order=internal 'Treatment' format=trt. ; > define i / display 'Number'; > define x / display 'Class'; > break after trt / page; > run; > ods rtf close; > > Thanks How about this? data test; do i=1 to 150; x=i+12; if i le 50 then trt=1; else if 51 lt i le 100 then trt=2; else trt=3; output; end; run; data test; set test; pg=ceil(_n_/30); run; proc format; value trt 1='XXXXXX - Monotherapy' 2='XXXXXX - Combined' 3='Total'; quit; ods rtf file='c:\temp\de.rtf'; proc report data=test nowd ; column pg trt i x; define pg / noprint order; define trt /id order order=internal 'Treatment' format=trt. ; define i / display 'Number'; define x / display 'Class'; break after pg / page; run; ods rtf close; Basically, we add a page var and set the page size to be 30. The problem of this method is that when some columns have too many characters and causes the line to wrap inside a cell, the pagingantion may not work properly. So far, I haven't see any perfect solution to deal with rtf pagination issue, even with tagsets.rtf. HTH ya
From: Roger DeAngelis on 10 Aug 2010 15:39 Hi, I think there are two possible solutions. One allows different footnotes and titles on each page and the other does not. Here is the simpler solution. Basically run proc report twice, once to get the page numbers and a second time to use the page numbers. options ps=22;run; proc report data=test nowd out=pge; column pge trt i x; define pge / computed; define trt /display id group order=internal 'Treatment' format=trt. ; define i / display 'Number'; define x / display 'Class'; break after trt / page; compute before _page_; pag +1; pge=pag; endcompute; run;quit; /* retain page - cleanup report output */ data addpge(drop=pge where=(_break_ ne '_PAGE_')); retain page; set pge end=dne; if pge ne . then page=pge; if dne then call symputx('pgemax',put(page, 3.)); run; proc report data=addpge nowd; column page trt i x; define page / order noprint; define trt /order id group order=internal 'Treatment' format=trt. ; define i / display 'Number'; define x / display 'Class'; break after trt / page; compute before _page_; pag +1; pge=pag; endcompute; run;quit; /* sample page */ Treatment Number Class XXXXXX - Combined 901 913 902 914 903 915 904 916 905 917 906 918 907 919 908 920 909 921 910 922 911 923 912 924 913 925 914 926 915 927 916 928 917 929 918 930 919 931 920 932 921 933 The more complicated method is to run the second proc report for each page. This allows much more flexibility with what you can put on each page. On Aug 9, 4:36 pm, Ya <huang8...(a)gmail.com> wrote: > On Aug 8, 2:18 pm, HI <ranis...(a)gmail.com> wrote: > > > > > > > Hi, > > I am new to ods rtf. > > Can anyone help me to get the group variable to be printed in all the > > pages. > > i am including a small program to make my question more sensible. > > > I need the Treatment name to be printed in all the pages.Please help > > me. > > > data test; > > do i=1 to 1500; > > x=i+12; > > if i le 500 then trt=1; > > else if 501 lt i le 1000 then trt=2; > > else trt=3; > > output; > > end; > > run; > > > proc format; > > value trt > > 1='XXXXXX - Monotherapy' > > 2='XXXXXX - Combined' > > 3='Total'; > > quit; > > > ods rtf file='de.rtf'; > > proc report data=test nowd ; > > column trt i x; > > define trt /id group order=internal 'Treatment' format=trt. ; > > define i / display 'Number'; > > define x / display 'Class'; > > break after trt / page; > > run; > > ods rtf close; > > > Thanks > > How about this? > > data test; > do i=1 to 150; > x=i+12; > if i le 50 then trt=1; > else if 51 lt i le 100 then trt=2; > else trt=3; > output; > end; > run; > > data test; > set test; > pg=ceil(_n_/30); > run; > > proc format; > value trt > 1='XXXXXX - Monotherapy' > 2='XXXXXX - Combined' > 3='Total'; > quit; > > ods rtf file='c:\temp\de.rtf'; > proc report data=test nowd ; > column pg trt i x; > define pg / noprint order; > define trt /id order order=internal 'Treatment' format=trt. ; > define i / display 'Number'; > define x / display 'Class'; > break after pg / page; > run; > ods rtf close; > > Basically, we add a page var and set the page size to be 30. > The problem of this method is that when some columns have too many > characters and > causes the line to wrap inside a cell, the pagingantion may not work > properly. > > So far, I haven't see any perfect solution to deal with rtf pagination > issue, even with tagsets.rtf. > > HTH > > ya- Hide quoted text - > > - Show quoted text -
From: Roger DeAngelis on 10 Aug 2010 19:27 On Aug 10, 3:39 pm, Roger DeAngelis <rogerjdeange...(a)gmail.com> wrote: Some comments It shouldn't matter if you use the default listing output or rtf. I used ps=22 and no ods just to test. I also included the macro variable maxpge incase you want to run proc report for each page. ie %do page=1 %to &maxpge; proc report ... %end; You don't need the compute block in the second 'proc report' and both reports should have the same 'ods rtf' conditions. You should be able to send the first 'ods rtf' to the bit bucket. I > Hi, > > I think there are two possible solutions. One allows different > footnotes and titles on each page and the other does not. Here is the > simpler solution. > Basically run proc report twice, once to get the page numbers and a > second time to use the page numbers. > > options > ps=22;run; > proc report data=test nowd > out=pge; > column pge trt i > x; > define pge / > computed; > define trt /display id group order=internal 'Treatment' > format=trt. ; > define i / display > 'Number'; > define x / display > 'Class'; > break after trt / > page; > compute before > _page_; > pag > +1; > > pge=pag; > endcompute; > run;quit; > > /* retain page - cleanup report output > */ > data addpge(drop=pge where=(_break_ ne > '_PAGE_')); > retain > page; > set pge > end=dne; > if pge ne . then > page=pge; > if dne then call symputx('pgemax',put(page, > 3.)); > run; > > proc report data=addpge > nowd; > column page trt i > x; > define page / order > noprint; > define trt /order id group order=internal 'Treatment' > format=trt. ; > define i / display > 'Number'; > define x / display > 'Class'; > break after trt / > page; > compute before > _page_; > pag > +1; > > pge=pag; > endcompute; > run;quit; > > /* sample page */ > > Treatment Number Class > XXXXXX - Combined 901 913 > 902 914 > 903 915 > 904 916 > 905 917 > 906 918 > 907 919 > 908 920 > 909 921 > 910 922 > 911 923 > 912 924 > 913 925 > 914 926 > 915 927 > 916 928 > 917 929 > 918 930 > 919 931 > 920 932 > 921 933 > > The more complicated method is to run the second proc report for each > page. This allows much more flexibility with what you can put on each > page. > > On Aug 9, 4:36 pm, Ya <huang8...(a)gmail.com> wrote: > > > > > On Aug 8, 2:18 pm, HI <ranis...(a)gmail.com> wrote: > > > > Hi, > > > I am new to ods rtf. > > > Can anyone help me to get the group variable to be printed in all the > > > pages. > > > i am including a small program to make my question more sensible. > > > > I need the Treatment name to be printed in all the pages.Please help > > > me. > > > > data test; > > > do i=1 to 1500; > > > x=i+12; > > > if i le 500 then trt=1; > > > else if 501 lt i le 1000 then trt=2; > > > else trt=3; > > > output; > > > end; > > > run; > > > > proc format; > > > value trt > > > 1='XXXXXX - Monotherapy' > > > 2='XXXXXX - Combined' > > > 3='Total'; > > > quit; > > > > ods rtf file='de.rtf'; > > > proc report data=test nowd ; > > > column trt i x; > > > define trt /id group order=internal 'Treatment' format=trt. ; > > > define i / display 'Number'; > > > define x / display 'Class'; > > > break after trt / page; > > > run; > > > ods rtf close; > > > > Thanks > > > How about this? > > > data test; > > do i=1 to 150; > > x=i+12; > > if i le 50 then trt=1; > > else if 51 lt i le 100 then trt=2; > > else trt=3; > > output; > > end; > > run; > > > data test; > > set test; > > pg=ceil(_n_/30); > > run; > > > proc format; > > value trt > > 1='XXXXXX - Monotherapy' > > 2='XXXXXX - Combined' > > 3='Total'; > > quit; > > > ods rtf file='c:\temp\de.rtf'; > > proc report data=test nowd ; > > column pg trt i x; > > define pg / noprint order; > > define trt /id order order=internal 'Treatment' format=trt. ; > > define i / display 'Number'; > > define x / display 'Class'; > > break after pg / page; > > run; > > ods rtf close; > > > Basically, we add a page var and set the page size to be 30. > > The problem of this method is that when some columns have too many > > characters and > > causes the line to wrap inside a cell, the pagingantion may not work > > properly. > > > So far, I haven't see any perfect solution to deal with rtf pagination > > issue, even with tagsets.rtf. > > > HTH > > > ya- Hide quoted text - > > > - Show quoted text -- Hide quoted text - > > - Show quoted text -
From: Roger DeAngelis on 11 Aug 2010 11:04
On Aug 10, 7:27 pm, Roger DeAngelis <rogerjdeange...(a)gmail.com> wrote: > On Aug 10, 3:39 pm, Roger DeAngelis <rogerjdeange...(a)gmail.com> wrote: > > Some comments > > It shouldn't matter if you use the default listing output or rtf. I > used ps=22 and no ods just to test. I also included the macro variable > maxpge incase you want to run proc report for each page. ie %do page=1 > %to &maxpge; proc report ... %end; > > You don't need the compute block in the second 'proc report' and both > reports should have the same 'ods rtf' conditions. You should be able > to send the first 'ods rtf' to the bit bucket. > > I > > > > > Hi, > > > I think there are two possible solutions. One allows different > > footnotes and titles on each page and the other does not. Here is the > > simpler solution. > > Basically run proc report twice, once to get the page numbers and a > > second time to use the page numbers. > > > options > > ps=22;run; > > proc report data=test nowd > > out=pge; > > column pge trt i > > x; > > define pge / > > computed; > > define trt /display id group order=internal 'Treatment' > > format=trt. ; > > define i / display > > 'Number'; > > define x / display > > 'Class'; > > break after trt / > > page; > > compute before > > _page_; > > pag > > +1; > > > pge=pag; > > endcompute; > > run;quit; > > > /* retain page - cleanup report output > > */ > > data addpge(drop=pge where=(_break_ ne > > '_PAGE_')); > > retain > > page; > > set pge > > end=dne; > > if pge ne . then > > page=pge; > > if dne then call symputx('pgemax',put(page, > > 3.)); > > run; > > > proc report data=addpge > > nowd; > > column page trt i > > x; > > define page / order > > noprint; > > define trt /order id group order=internal 'Treatment' > > format=trt. ; > > define i / display > > 'Number'; > > define x / display > > 'Class'; > > break after trt / > > page; > > compute before > > _page_; > > pag > > +1; > > > pge=pag; > > endcompute; > > run;quit; > > > /* sample page */ > > > Treatment Number Class > > XXXXXX - Combined 901 913 > > 902 914 > > 903 915 > > 904 916 > > 905 917 > > 906 918 > > 907 919 > > 908 920 > > 909 921 > > 910 922 > > 911 923 > > 912 924 > > 913 925 > > 914 926 > > 915 927 > > 916 928 > > 917 929 > > 918 930 > > 919 931 > > 920 932 > > 921 933 > > > The more complicated method is to run the second proc report for each > > page. This allows much more flexibility with what you can put on each > > page. > > > On Aug 9, 4:36 pm, Ya <huang8...(a)gmail.com> wrote: > > > > On Aug 8, 2:18 pm, HI <ranis...(a)gmail.com> wrote: > > > > > Hi, > > > > I am new to ods rtf. > > > > Can anyone help me to get the group variable to be printed in all the > > > > pages. > > > > i am including a small program to make my question more sensible. > > > > > I need the Treatment name to be printed in all the pages.Please help > > > > me. > > > > > data test; > > > > do i=1 to 1500; > > > > x=i+12; > > > > if i le 500 then trt=1; > > > > else if 501 lt i le 1000 then trt=2; > > > > else trt=3; > > > > output; > > > > end; > > > > run; > > > > > proc format; > > > > value trt > > > > 1='XXXXXX - Monotherapy' > > > > 2='XXXXXX - Combined' > > > > 3='Total'; > > > > quit; > > > > > ods rtf file='de.rtf'; > > > > proc report data=test nowd ; > > > > column trt i x; > > > > define trt /id group order=internal 'Treatment' format=trt. ; > > > > define i / display 'Number'; > > > > define x / display 'Class'; > > > > break after trt / page; > > > > run; > > > > ods rtf close; > > > > > Thanks > > > > How about this? > > > > data test; > > > do i=1 to 150; > > > x=i+12; > > > if i le 50 then trt=1; > > > else if 51 lt i le 100 then trt=2; > > > else trt=3; > > > output; > > > end; > > > run; > > > > data test; > > > set test; > > > pg=ceil(_n_/30); > > > run; > > > > proc format; > > > value trt > > > 1='XXXXXX - Monotherapy' > > > 2='XXXXXX - Combined' > > > 3='Total'; > > > quit; > > > > ods rtf file='c:\temp\de.rtf'; > > > proc report data=test nowd ; > > > column pg trt i x; > > > define pg / noprint order; > > > define trt /id order order=internal 'Treatment' format=trt. ; > > > define i / display 'Number'; > > > define x / display 'Class'; > > > break after pg / page; > > > run; > > > ods rtf close; > > > > Basically, we add a page var and set the page size to be 30. > > > The problem of this method is that when some columns have too many > > > characters and > > > causes the line to wrap inside a cell, the pagingantion may not work > > > properly. > > > > So far, I haven't see any perfect solution to deal with rtf pagination > > > issue, even with tagsets.rtf. > > > > HTH > > > > ya- Hide quoted text - > > > > - Show quoted text -- Hide quoted text - > > > - Show quoted text -- Hide quoted text - > > - Show quoted text - Hi Ya, I was surprised that the pagination in the output dataset from proc report does not seem to agree with the rtf output pagination. This seems like a bug. It seems that Art's response may be the best. However, If you set ps to a number that would work for RTF and LISTING output then you should be ok. I got the following to work. data TrePgeTrt; do Trt='APC','PBO'; do Lyn=1 to 70; output; end; end; run; options orientation=portrait ps=22; /* ps= seems to be the key - need to sync rtf and listing */ proc report data=TrePgeTrt nowd out=PgeBadRpt missing; column Pge Trt Lyn; define Pge / computed; define Trt / group order=data; define Lyn / order; break after Trt / page; compute before _page_; Pag +1; Pge=Pag; endcompute; run;quit; /* retain page - cleanup report output */ data FixPge(drop=pge where=(_break_ not in ( '_PAGE_', 'Trt'))); length pgetrt $6; retain pgetrt; set PgeBadRpt end=dne; if pge ne . then pgetrt=cats(trt,put(pge,z3.)); run; ods rtf file="c:\lil \TreGudRpt.rtf"; proc report data=FixPge nowd missing; column PgeTrt Trt Lyn; define PgeTrt / group noprint; define Trt / group; define Lyn / order; break after PgeTrt / page; run;quit; ods rtf close; |