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

Hi everyone, I'm using SAS version 9.3.   I'd like to ask why the number 0.1254931228765450 imported from an excel file cannot be rounded off to 0.12549312287655, but another number 0.8216087968183150 can be rounded off to 0.82160879681832?   My code is X=ROUND(Y, 0.00000000000001); format X BEST32.; ... View more

Dear SAS Communities Members: I'm using SAS version 9.3 and below is my code. data have; infile cards dlm=','; length a1 $10 a2-a7 $1; input a1 a2 a3 a4 a5 a6 a7 pp; cards; Category 1, a, b, c, d, e, f, 1 Category 2, a, b, c, d, e, f, 1 Category 3, a, b, c, d, e, f, 1 Category 4, a, b, c, d, e, f, 1 Category 5, a, b, c, d, e, f, 1 Category 6, a, b, c, d, e, f, 1 Category 7, a, b, c, d, e, f, 1 ; run; options nodate nonumber papersize=A4 topmargin="0.25in" leftmargin="0.25in" bottommargin="0.25in" rightmargin="0.25in" missing=' '; ods escapechar='^'; footnote3 j=l;footnote4 j=l; ods document name=WORK.CONTENTS(write); title1 j=l "^S={leftmargin=0in} Study number: xxxxx" j=r "Page ^{thispage} of ^{lastpage}"; title2 j=l j=r "^S={leftmargin=0in} Date: DDMMMYYYY"; PROC REPORT DATA=have nofs NOWD SPLIT= '|' LS=256 contents="Department 1"; column pp a1-a7; define a1 /group center style=[cellwidth=30mm] 'VAR 1'; define a2 /group center style=[cellwidth=30mm] 'VAR 2'; define a3 /group center style=[cellwidth=30mm] 'VAR 3'; define a4 /group center style=[cellwidth=30mm] 'VAR 4'; define a5 /group center style=[cellwidth=30mm] 'VAR 5'; define a6 /group center style=[cellwidth=30mm] 'VAR 6'; define a7 /group center style=[cellwidth=30mm] 'VAR 7'; define pp /order noprint; break before pp /page contents=''; TITLE3 j=center height=10pt "Title 1"; TITLE4 j=left height=10pt "Department 1"; FOOTNOTE1 j=left height=10pt "Note:"; FOOTNOTE2 j=left height=10pt "Footnote 1"; FOOTNOTE3 j=left height=10pt "Footnote 2"; FOOTNOTE4 j=left height=10pt "Footnote 3"; RUN; TITLE3 ' '; TITLE4 ' '; FOOTNOTE1 ' '; FOOTNOTE2 ' '; FOOTNOTE3 ' '; FOOTNOTE4 ' '; QUIT; %let outpath=C:\Users\john.chen\Desktop; /*Put site and date here*/ %let yy=%substr(%sysfunc(today(),yymmdd10.),1,4); %let mm=%substr(%sysfunc(today(),yymmdd10.),6,2); %let dd=%substr(%sysfunc(today(),yymmdd10.),9,2); %let time=&yy&mmⅆ ods document close; proc document name=WORK.CONTENTS; ods rtf file="&outpath\test_&time..rtf" style=Styles.mystyle ; ods printer pdf file="&outpath\test_&time..pdf" style=Styles.mystyle /* notoc*/ ; replay; run; ods printer pdf close; ods rtf close; quit; Then I will get the output as: And I'd like to move the title and footnote to the core marked in yellow as below. And suggestion? ... View more

Hi everyone, I'm using SAS 9.3. I met a problem while importing excel sheet included a number of 0.0655548562875890. How should I do to import the entire number into SAS? If I use BEST32., this number would be read as 0.06555485628758... It the limit length of decimal place of imported number is 14? If so, how to make it round off to 0.06555485628759?   Here is my code libname xl excel "xxxxxxx.xls" access=readonly header=yes; proc sql; create table outfile1 as select SUBJID, SEX, RACE, AREA A1 format=30.20, from xl.'Sheet1$'n; select * from outfile1; quit; libname xl clear; data want; set outfile1; format A1 BEST32.; run;   ... View more