Hi Everyone,   I am using SAS 9.4 and attempting to generate all graphs, then present them collapsed under the Table of Contents. Here is my program ods graphics on; ods _all_ close; ods document name=WORK.CONTENTS(write); data FigureTitle; length no number $ 60 title item $ 200; infile CARDS dlm=':'; input no $ title $ number $ item $ @@; cards; 01:Safety:Figure 1 01:Safety:Figure 2 01:Safety:Figure 3 ; run; data FigureTitle; set FigureTitle; pp=1; run; proc report data=FigureTitle nowd colwidth=8 spacing=2 center headskip split='|' contents="Table of Contents"; columns pp no title number item; define pp / group noprint; define no / display noprint; define title / group left style=[cellwidth=40mm] '' '' flow; define number / display left style=[cellwidth=40mm] 'No.' ''; define item / display left style=[cellwidth=160mm] 'Item' '' flow; break before pp /page contents=''; title7 j=c h=9pt "Table of Contents"; run; title7; quit; proc lifetest data=SurvivalData1 plots=survival method=KM; time T * Status(0); strata Group; run; proc lifetest data=SurvivalData2 plots=survival method=KM; time T * Status(0); strata Group; run; ods graphics off; ods listing; ods document close; proc document name=WORK.CONTENTS; list / details levels=all; ods output Document.Properties=WORK.CONTENTS; run; quit; Then, I have a list of document properties as below.   Does anyone know how to move all documents with Type = Graph to the Report#1? I've tried '^(where=(_type_='Graph')) to Report#1' but not work..   Furthermore, is there a way to adjust the Label in the document properties list based on the title defined in the TOC?   Thanks! ... View more

Hi everyone,   Here is my program:   data _null_; %let url = //support.sas.com/documentation/onlinedoc/stat/ex_code/151; infile "http:&url/templft.html" device=url; file 'macros.tmp'; retain pre 0; input; _infile_ = tranwrd(_infile_, '&amp;', '&'); _infile_ = tranwrd(_infile_, '&lt;' , '<'); if index(_infile_, '</pre>') then pre = 0; if pre then put _infile_; if index(_infile_, '<pre>') then pre = 1; run; %inc 'macros.tmp' / nosource; %ProvideSurvivalMacros %let TitleText0 = " "; %let TitleText1 = " "; %let TitleText2 = " "; %let nTitles = 1; %let GraphOpts = DesignHeight=500px; %let yOptions = label="Survival Probability" labelattrs=(size=10pt weight=bold) tickvalueattrs=(size=8pt) linearopts=(viewmin=0 viewmax=1 tickvaluelist=(0 .2 .4 .6 .8 1.0)); %let xOptions = label="Time (Months)" shortlabel="Test" offsetmin=.05 labelattrs=(size=10pt weight=bold) tickvalueattrs=(size=8pt) linearopts=(viewmax=MAXTIME tickvaluelist=(0 6 12 18 24) tickvaluefitpolicy=XTICKVALFITPOL); %let InsetOpts = autoalign=(BottomLeft) border=true BackgroundColor=GraphWalls:Color Opaque=true; %let LegendOpts = ; %macro StmtsTop; referenceline y=0.5/lineattrs=(color=lightgray); %mend; %SurvivalSummaryTable %CompileSurvivalTemplates ods _all_ close; proc format; invalue bmtnum 'Yes' = 1 'No' = 2; value bmtfmt 1 = 'Yes' 2 = 'No'; run; data pcm_(drop=g); set pcm(rename=(group=g)); Group = input(g, bmtnum.); run; ods graphics on; ods html gpath="&outpath" image_dpi=300; ods graphics on / reset=index border=off width=10in height=5in imagename="FigureTest" noborder outputfmt=svg; proc lifetest data=pcm_ plots=survival(atrisk(maxlen=100)=0 to 24 by 6) method=KM; time T * Status(0); strata Group / order=internal; format group bmtfmt.; run; ods html close; And I found that the label in the summary table is too big. Does anyone know how to modify its font size? Thank you.   I've tried to modify the font size by adding (size=3pt) in the macro %SurvivalTable, below is the code %macro SurvivalTable; %local fmt r i t; %let fmt = bestd6.; %let r = halign = right; columnheaders; layout overlay / pad=(top=5); if(NSTRATA=1) layout gridded / columns=6 border=TRUE; dynamic PctMedianConfid NObs NEvent Median LowerMedian UpperMedian; %SurvTabHeader(0) entry &r NObs; entry &r NEvent; entry &r eval(NObs-NEvent); entry &r eval(put(Median,&fmt)); entry &r eval(put(LowerMedian,&fmt)); entry &r eval(put(UpperMedian,&fmt)); endlayout; else layout gridded / columns=7 border=TRUE; dynamic PctMedianConfid; %SurvTabHeader(1) %do i = 1 %to 10; %let t = / textattrs=GraphData&i(size=3pt); dynamic StrVal&i NObs&i NEvent&i Median&i LowerMedian&i UpperMedian&i; if (&i <= nstrata) entry &r StrVal&i &t; entry &r NObs&i &t; entry &r NEvent&i &t; entry &r eval(NObs&i-NEvent&i) &t; entry &r eval(put(Median&i,&fmt)) &t; entry &r eval(put(LowerMedian&i,&fmt)) &t; entry &r eval(put(UpperMedian&i,&fmt)) &t; endif; %end; endlayout; endif; endlayout; endcolumnheaders; %mend; And this is the output it became smaller...,but...the label is still truncated or covered..   ... View more

Hi All,   I use SAS 9.4 and below is my code to superscript a registered mark: ods escapechar='^'; ^{super ^{unicode 24C7}};   But it is always presented as "subscript"... Does anyone have suggestion? ... View more

Hi everyone,   I found the Proc Template I used in SAS 9.3 seems not work on SAS 9.4. The right side of titles and footers in PDF output would be truncated. Below is my code: proc template; define style Styles.mystyle; parent = styles.Printer; replace fonts / 'TitleFont2' = ("Courier New",9pt,Bold Italic) 'TitleFont' = ("Courier New",9pt,Bold Italic) 'StrongFont' = ("Courier New",9pt,Bold) 'EmphasisFont' = ("Courier New",9pt, Bold) 'FixedEmphasisFont' = ("Courier New",9pt,Bold) 'FixedStrongFont' = ("Courier New",9pt,Bold) 'FixedHeadingFont' = ("Courier New",9pt,Bold) 'BatchFixedFont' = ("Courier New",9pt,Bold) 'FixedFont' = ("Courier New",9pt,Bold) 'headingEmphasisFont' = ("Courier New",9pt,Bold ) 'headingFont' = ("Courier New",9pt,Bold) 'docFont' = ("Courier New",9pt) 'footFont' = ("Courier New",9pt,Bold Italic); replace GraphFonts / 'GraphDataFont' = ("Courier New",9pt) 'GraphValueFont' = ("Courier New",9pt) 'GraphLabelFont' = ("Courier New",9pt,Bold) 'GraphFootnoteFont' = ("Courier New",9pt,Bold) 'GraphTitleFont' = ("Courier New",9pt,Bold); replace color_list / 'link' = blue 'bgH' = Lightgrey 'fg' = black 'bg' = _undef_; replace Table from Output / background = _undef_ frame = hsides rules = groups vjust = M cellpadding = 1pt cellspacing = 0.25pt borderwidth = 0.25pt; replace SystemFooter from TitlesAndFooters / just = L font = fonts('docFont'); end; run; options nodate nonumber papersize=A4 topmargin="0.75in" leftmargin="0.375in" bottommargin="0.375in" rightmargin="0.375in" orientation=landscape; ods escapechar='~'; footnote3 j=l;footnote4 j=l; ods proclabel="Report: xxx"; ods document name=WORK.CONTENTS(write); title1 j=l "~S={leftmargin=0in} Study: xxx" j=r "Report: xxx, Page ~{thispage} of ~{lastpage}"; title2 j=r "~S={leftmargin=0in} Date: &sysdate9."; title3 " "; In the attached table, you can find that the right side of title1 and footnote are truncated, but title2 is shown correctly.   Does anyone have idea on this? looking forward for any suggestions! ... View more

Hi everyone,   I'm trying to create a report in PDF with Times New Roman, 9pt by PROC REPORT. But I found sometimes the string of characters is presented with no space, see below table.   Herewith my Style program: proc template; define style Styles.mystyle; parent = styles.Printer; replace fonts / 'TitleFont2' = ("Times Roman",9pt,Bold Italic) 'TitleFont' = ("Times Roman",9pt,Bold Italic) 'StrongFont' = ("Times Roman",9pt,Bold) 'EmphasisFont' = ("Times Roman",9pt, Bold) 'FixedEmphasisFont' = ("Times Roman",9pt,Bold) 'FixedStrongFont' = ("Times Roman",9pt,Bold) 'FixedHeadingFont' = ("Times Roman",9pt,Bold) 'BatchFixedFont' = ("Times Roman",9pt,Bold) 'FixedFont' = ("Times Roman",9pt,Bold) 'headingEmphasisFont' = ("Times Roman",9pt,Bold ) 'headingFont' = ("Times Roman",9pt,Bold) 'docFont' = ("Times Roman",9pt) 'footFont' = ("Times Roman",9pt,Bold Italic); replace GraphFonts / 'GraphDataFont' = ("Times Roman",9pt) 'GraphValueFont' = ("Times Roman",9pt) 'GraphLabelFont' = ("Times Roman",9pt,Bold) 'GraphFootnoteFont' = ("Times Roman",9pt,Bold) 'GraphTitleFont' = ("Times Roman",9pt,Bold); replace color_list / 'link' = blue 'bgH' = Lightgrey 'fg' = black 'bg' = _undef_; replace Table from Output / background = _undef_ frame = hsides rules = groups vjust = M cellpadding = 1pt cellspacing = 0.25pt borderwidth = 0.25pt; replace SystemFooter from TitlesAndFooters / just = L font = fonts('docFont'); end; run; I know I can output the report with the font "Courier New" which has the equal width in every character. But a problem is, the data presented with font "Courier New" would be less than with the font "Times New Roman" in the limited length of page. That said, it will take more pages to provide the same data than Times New Roman.   Any suggestions to avoid this problem if I have to output the report with "Times New Roman, 9pt"? Thanks!   ... View more

Hi Everyone, I'm trying to import an XML with unicode to SAS 9.3, and below is my program.   FILENAME XMLIMP "C:\Users\john.chen\Desktop\test.xml"; LIBNAME XMLIMP XML XMLTYPE=CDISCODM; %MACRO ALLSETS(LIB); PROC SQL NOPRINT; SELECT UNIQUE MEMNAME INTO :DSETS SEPARATED BY '|' FROM DICTIONARY.TABLES WHERE UPCASE(LIBNAME)="&LIB"; %PUT DATASETS: &DSETS; QUIT; %LET NUM=1; %LET DSET=%SCAN(%QUOTE(&DSETS),&NUM,|); %DO %UNTIL (%QUOTE(&DSET)=%STR()); DATA WORK.&DSET; SET XMLIMP.&DSET; RUN; %LET NUM=%EVAL(&NUM+1); %LET DSET=%SCAN(%QUOTE(&DSETS),&NUM,|); %END; %MEND ALLSETS; %ALLSETS(XMLIMP); When the dataset (test.XML) has an unicode, like ≥, I will get below error message:     Line 6421 is:     How can I read it correctly? Thanks!   JC     ... View more