Creating SAS labels using the second row of an excel sheet HAVE AN EXCEL SHEET (where the second row is the label) ======================================================= +-------+-----------------+----------------+ | A | B | C | +-------+-----------------+----------------+ 1 | SEX | NAME | AGEC | 2 |Gender | Student Name | Student Age | +-------+-----------------+----------------+ 3 | M | Alfred | 14 | 4 | F | Alice | 13 | 5 | F | Barbara | 13 | 6 | F | Carol | 14 | 7 | M | Henry | 14 | 8 | M | James | 12 | 9 | F | Jane | 12 | 10 | F | Janet | 15 | 11 | M | Jeffrey | 13 | 12 | M | John | 12 | 13 | F | Joyce | 11 | 14 | F | Judy | 14 | 15 | F | Louise | 12 | 16 | F | Mary | 15 | 17 | M | Philip | 16 | 18 | M | Robert | 12 | 19 | M | Ronald | 15 | 20 | M | Thomas | 11 | 21 | M | William | 15 | +-------+-----------------+----------------+ WANT ==== Variables in Creation Order # Variable Type Len Label 1 SEX Char 6 Gender 2 NAME Char 12 Student Name 3 AGEC Char 11 Student Age Up to 40 obs from want total obs=19 Obs NAME SEX AGEC 1 Alfred M 14 2 Alice F 13 3 Barbara F 13 4 Carol F 14 5 Henry M 14 6 James M 12 7 Jane F 12 8 Janet F 15 9 Jeffrey M 13 10 John M 12 11 Joyce F 11 12 Judy F 14 13 Louise F 12 14 Mary F 15 15 Philip M 16 16 Robert M 12 17 Ronald M 15 18 Thomas M 11 19 William M 15 WORKING CODE ============ dosubl(%nrbquote( lbl=catx(" ",lbl,cats(vname(names[i]),"=",'"',names[i],'"')); call symputx("lbl",lbl); label &lbl; FULL SOLUTION ============= * _ _ _ __ ___ __ _| | _____ __ _| |___ | '_ ` _ \ / _` | |/ / _ \____\ \/ / / __| | | | | | | (_| | < __/_____> <| \__ \ |_| |_| |_|\__,_|_|\_\___| /_/\_\_|___/ ; %utlfkil(d:/xls/rowlbl.xlsx); libname xel "d:/xls/rowlbl.xlsx"; data xel.class(drop=age); length sex $8 name agec $18; set sashelp.class(keep=name sex age); agec=put(age,3.); savname=name; savage =agec; savsex =sex; if _n_=1 then do; name="Student Name"; sex="Gender"; ; agec="Student Age" ; output; name = savname; agec = savage ; sex = savsex ; output; end; else output; drop savname savage savsex; run;quit; libname xel clear; * __ _ _ _ _ _ / _|_ _| | | ___ ___ | |_ _| |_(_) ___ _ __ | |_| | | | | |_____/ __|/ _ \| | | | | __| |/ _ \| '_ \ | _| |_| | | |_____\__ \ (_) | | |_| | |_| | (_) | | | | |_| \__,_|_|_| |___/\___/|_|\__,_|\__|_|\___/|_| |_| ; /* There are several solutions. You can read rectangles which make it easier to have AGEC as a numeric. You can get lengths using passthru */ libname xel "d:/xls/rowlbl.xlsx" scan_text=no header=no; proc datasets lib=work kill; run;quit; %symdel nam lbl; libname xel "d:/xls/rowlbl.xlsx"; data want; if _n_=0 then do; %let rc=%sysfunc(dosubl(%nrbquote( data _null_; set xel.class(firstobs=1 obs=1); * use "[sheet1$]" if you don't have a named range; array names _character_; length lbl $500; retain lbl; if _n_=1 then do; do i=1 to dim(names); lbl=catx(" ",lbl,cats(vname(names[i]),"=",'"',names[i],'"')); end; call symputx("lbl",lbl); end; run;quit; ))); end; set xel.class(firstobs=2); length f: $8; format _all_; informat _all_; label &lbl; run;quit; libname xel clear; ... View more

Not sure I understand fully the issue Assigning the value of zero for groups missing a cetain category data have; input PARTICIPANT $ KEYVAR $ NEWVAR; cards4; A Y 1 A N 1 B Y 3 B Y 3 B Y 3 C W 0 C N 0 C W 0 D Y 2 D N 2 D N 2 D Y 2 D W 2 ;;;; run;quit; HAVE ==== Up to 40 obs WORK.HAVE total obs=13 Obs PARTICIPANT KEYVAR NEWVAR 1 A Y 1 2 A N 1 3 B Y 3 4 B Y 3 5 B Y 3 6 C W 0 7 C N 0 8 C W 0 9 D Y 2 10 D N 2 11 D N 2 12 D Y 2 13 D W 2 WANT ==== Obs KEYVAR N W Y 1 A 1 0 1 2 B 0 0 3 3 C 1 2 0 * C has no Y; 4 D 2 1 2 FULL SOLUTION ============= Ods Exclude All; Ods Output Observed=want(Rename=Label=Keyvar); Proc Corresp Data=have Observed dim=1; Table PARTICIPANT, KEYVAR; *weight newvar; * turn this on if newvar is a count; run;quit; Ods Select All; proc print data=want; run;quit; ... View more

Good points.   I agree with you Cynthia, pretty straight forward 'summarize' type report.   I did hesitate with the DOW loop. ... View more

You can do all that processing in compute blocks, but what if your manager says I would like 'cumulative' totals along with the individual records or if he said I would like cumulative subtotals. Easy to do in the DOW loop process, not so easy in compute blocks? ... View more

some solutions; %symdel test date /nowarn; %let DATE = %sysfunc(intnx(day,%sysfunc(TODAY()),-1),yymmddd10.); run; %let test = %sysfunc(cat(Keep Attention)) &date; %put &test; Keep Attention 2017-03-18 %symdel test date tst /nowarn; %let DATE = %sysfunc(intnx(day,%sysfunc(TODAY()),-1),yymmddd10.); run; %let test = %sysfunc(cat(Keep Attention,'&date')); %put &test; %let tst=%sysfunc(compress(&test,%str('')));%put &tst; Keep Attention 2017-03-18 or data _null_; date=put(intnx('day',%sysfunc(TODAY()),-1),yymmddd10.); test = cat('Keep Attention' ,date); put test; run;quit; ... View more

I get 1996 %let DATE = %sysfunc(intnx(day,%sysfunc(TODAY()),-1),yymmddd10.); run; %let test = %sysfunc(cat(Keep Attention ,&date)); %put &test; 2817 %let DATE = %sysfunc(intnx(day,%sysfunc(TODAY()),-1),yymmddd10.); run; 2818 %let test = %sysfunc(cat(Keep Attention ,&date)); %put &test; SYMBOLGEN: Macro variable DATE resolves to 2017-03-18 SYMBOLGEN: Macro variable TEST resolves to Keep Attention1996 Keep Attention1996 2017 - 03 - 18 = 1996 2017 - 3 = 2015 2015 - 18 = 1996 ... View more

My solution in creates a variable meany rom a macro variable that can be used in the datastep. You could use the meany to compare against the individual Ys. ... View more

How to evaluate a macro variable after variable was created in proc summary? inspired by https://goo.gl/hPzyHa https://communities.sas.com/t5/General-SAS-Programming/How-to-evaluate-a-macro-variable-after-variable-was-created-in/m-p/342401 HAVE ==== Up to 40 obs WORK.CLASS total obs=5 Obs Y 1 14 2 13 3 13 4 14 5 14 WANT ( Something like this ) ============================ data _null_; set summaryout meany = &meany; put " then mean of y is " meany; run;quit; FULL SOLUTION ============= data class; set sashelp.class(keep=age obs=5 rename=age=y); run;quit; proc summary data=class; var y; output out=summaryout(keep=meany) mean=meanY; run;quit; Up to 40 obs from summaryout total obs=1 Obs MEANY 1 13.6 %symdel mac_meany; data _null_; * create macro variable from summaryout; if _n_=0 then do; %let rc=%sysfunc(dosubl(' data _null_; set summaryout; call symputx("mac_meany",put(meany,best.),"G"); run;quit; ')); %put &=mac_meany; end; meany = &mac_meany; put " The mean of y is " meany; run;quit; The mean of y is 13.6 ... View more

  Using an interactive window in 'full' SAS to stop a merge inspired by https://goo.gl/JFdCp1 https://communities.sas.com/t5/Base-SAS-Programming/Display-message-in-editor-window/m-p/342380 If manager='' in dataset temp1 then pop up an interactive window asking the user if he would rather not update temp1 using temp2 HAVE TEMP1 and TEMP2 ================================== Up to 40 obs from TEMP1 total obs=4 Obs KEY MANAGER PROJECT COST 1 1 Alfred 14 69.0 2 2 Alice 13 56.5 3 3 . . Missing in TEMP1 4 4 Janet 15 62.5 Up to 40 obs TEMP2 total obs=3 Obs KEY MANAGER PROJECT COST 1 1 . . 2 2 . . 3 3 Barbara 13 65.3 Manager Present in TEMP2 then stop 4 4 . . WANT ( if manager is missing in temp1 and is populated in temp2 pop up this window +---------------------------+ | COMMAND ====> | | | | Continue Y/N _ | | | +---------------------------+ IF 'N' is entered Up to 40 obs from AVAILABLE total obs=3 SAV_ Obs KEY MANAGER MANAGER PROJECT COST 1 1 Alfred Alfred . . 2 2 Alice Alice . . 3 3 Barbara 13 65.3 Up to 40 obs WORK.NOT_AVAILABLE total obs=1 Obs KEY MANAGER PROJECT COST 1 3 Barbara 13 65.3 IF 'Y' then Up to 40 obs from AVAILABLE total obs=4 SAV_ Obs KEY MANAGER MANAGER PROJECT COST 1 1 Alfred Alfred . . 2 2 Alice Alice . . 3 3 Barbara 13 65.3 4 4 Janet Janet . . NOTE: No observations in data set WORK.NOT_AVAILABLE. WORKING CODE ============ if sav_manager='' then do; window dsn irow=1 rows=12 color=white #3 @10 "Continue Y/N:" +1 YN $1.; display dsn; end; FULL SOLUTION ============= data available not_available(drop=sav_manager); retain key manager; retain yn '_'; merge temp1(in=a rename=manager=sav_manager) temp2; by key; if a then do; manager=coalescec(sav_manager,manager); output available; end; if sav_manager='' then do; window dsn irow=1 rows=12 color=white #3 @10 "Continue Y/N:" +1 YN $1.; display dsn; end; if yn="N" then do; manager=coalescec(sav_manager,manager); output not_available; stop; end; drop yn; run;quit;   ... View more

  Need help to create tabular type report see for rtf output; https://www.dropbox.com/s/stvea5zojvzg7e6/prerpt.rtf?dl=0 I prefer to pre-process data before report and minimize the use of compute blocks. Especially if I feel management may ask for changes. You can get very close to the ops output with just my input and report without preprocessing, but that is a less flexible method? inspired by https://goo.gl/w4KKqr https://communities.sas.com/t5/ODS-and-Base-Reporting/Need-help-to-create-tabular-type-report/m-p/342315 HAVE ==== Up to 40 obs WORK.HAVE total obs=7 Obs SALES DEPT AMOUNT CODE 1 Online Sale Clothing 1700 1612 2 Offline Sale Clothing 1300 . 3 Electronics1 Electronics . . 4 Electronics2 Electronics . . 5 Electronics3 Electronics . . 6 Stall1 Footware 2000 . 7 Stall2 Footware 1500 . WANT ==== Total sales calculator February 2017 => Bold 12pt Sales Overview Amount Center Code =Bold 10pt Clothing Sales Total $3,000 1612 => Bold Online Sale $1,700 Offline Sale $1,300 Electronics Sales Total => Bold Electronics1 Electronics2 Electronics3 => Bold Footware Sales Total $3,500 Stall1 $2,000 Stall2 $1,500 => Bold Total $6,500 * create the data; Using google 'free' tesseract to convert the ops pictute to data; * print screen and save as a png and use google tesseract to convert to text; x c:/progra~2/tesseract-ocr/tesseract d:/png/prepro.png d:/txt/prepro.txt; * I useed Google te Data have; *informat Sales & $16. Amount & 5. code $5.; length sales $32; infile datalines4 pad; input @1 dept $12. Sales & $16. @29 Amount & 5. @46 code ; datalines4; Clothing Online Sale 1700 1612 Clothing Offline Sale 1300 . Electronics Electronics1 . . Electronics Electronics2 . . Electronics Electronics3 . . Footware Stall1 2000 . Footware Stall2 1500 . ;;;; run;quit; * preprocess; data prerpt; retain begdot 0 grantot 0 tot 0 cde 0; do until (last.dept); set have; by dept notsorted; tot=sum(tot,amount); if code ne . then cde=code; end; code=cde; amount=tot; grantot=sum(grantot,tot); sales=catx(' ','\b',dept,'Sales Total \b0'); output; do until (last.dept); set have end=dne; by dept notsorted; code=.; sales=catx(' ','\li360',sales); output; end; cde=.; tot=0; keep sales amount code; if dne then do; amount=grantot; savsales=sales; savamount=amount; sales=.; amount=.; output; sales='\b Total \b0'; savsales=savsales; amount=savamount; output; end; run;quit; /* Up to 40 obs WORK.PRERPT total obs=12 Obs SALES AMOUNT CODE 1 \b Clothing Sales Total \b0 3000 1612 2 \li360 Online Sale 1700 . 3 \li360 Offline Sale 1300 . 4 \b Electronics Sales Total \b0 0 . 5 \li360 Electronics1 . . 6 \li360 Electronics2 . . 7 \li360 Electronics3 . . 8 \b Footware Sales Total \b0 3500 . 9 \li360 Stall1 2000 . 10 \li360 Stall2 1500 . 11 . . . 12 \b Total \b0 6500 . */ * macro on end; %utl_rtflan100; options orientation=portrait; ods escapechar='^'; ods rtf file="d:/rtf/prerpt.rtf" style=utl_rtflan100; proc report data=prerpt nowd style(header)={font_weight=bold font_size=10pt just=left}; cols ("^S={just=l font_weight=bold font_size=12pt} Total sales calculator February 2017" sales amount code); define sales / display "Sales Overview" left; define amount / display "Amount" center format=dollar8.; define code / display "Center Code" center; run;quit; ods rtf close; %Macro utl_rtflan100 ( style=utl_rtflan100, frame=box, rules=groups, bottommargin=1.0in, topmargin=1.5in, rightmargin=1.0in, cellheight=10pt, cellpadding = 7, cellspacing = 3, leftmargin=.75in, borderwidth = 1 ) / Des="SAS Rtf Template for CompuCraft"; options orientation=landscape;run;quit; ods path work.templat(update) sasuser.templat(update) sashelp.tmplmst(read); Proc Template; define style &Style; parent=styles.rtf; replace body from Document / protectspecialchars=off asis=on bottommargin=&bottommargin topmargin =&topmargin rightmargin =&rightmargin leftmargin =&leftmargin ; replace color_list / 'link' = blue 'bgH' = _undef_ 'fg' = black 'bg' = _undef_; replace fonts / 'TitleFont2' = ("Arial, Helvetica, Helv",11pt,Bold) 'TitleFont' = ("Arial, Helvetica, Helv",11pt,Bold) 'HeadingFont' = ("Arial, Helvetica, Helv",10pt) 'HeadingEmphasisFont' = ("Arial, Helvetica, Helv",10pt,Italic) 'StrongFont' = ("Arial, Helvetica, Helv",10pt,Bold) 'EmphasisFont' = ("Arial, Helvetica, Helv",10pt,Italic) 'FixedFont' = ("Courier New, Courier",9pt) 'FixedEmphasisFont' = ("Courier New, Courier",9pt,Italic) 'FixedStrongFont' = ("Courier New, Courier",9pt,Bold) 'FixedHeadingFont' = ("Courier New, Courier",9pt,Bold) 'BatchFixedFont' = ("Courier New, Courier",7pt) 'docFont' = ("Arial, Helvetica, Helv",10pt) 'FootFont' = ("Arial, Helvetica, Helv", 9pt) 'StrongFootFont' = ("Arial, Helvetica, Helv",8pt,Bold) 'EmphasisFootFont' = ("Arial, Helvetica, Helv",8pt,Italic) 'FixedFootFont' = ("Courier New, Courier",8pt) 'FixedEmphasisFootFont'= ("Courier New, Courier",8pt,Italic) 'FixedStrongFootFont' = ("Courier New, Courier",7pt,Bold); replace GraphFonts / 'GraphDataFont' = ("Arial, Helvetica, Helv",8pt) 'GraphAnnoFont' = ("Arial, Helvetica, Helv",8pt) 'GraphValueFont' = ("Arial, Helvetica, Helv",10pt) 'GraphUnicodeFont' = ("Arial, Helvetica, Helv",10pt) 'GraphLabelFont' = ("Arial, Helvetica, Helv",10pt,Bold) 'GraphLabel2Font' = ("Arial, Helvetica, Helv",10pt,Bold) 'GraphFootnoteFont' = ("Arial, Helvetica, Helv",8pt) 'GraphTitle1Font' = ("Arial, Helvetica, Helv",11pt,Bold) 'GraphTitleFont' = ("Arial, Helvetica, Helv",11pt,Bold); style table from table / outputwidth=100% protectspecialchars=off asis=on background = colors('tablebg') frame=&frame rules=&rules cellheight = &cellheight cellpadding = &cellpadding cellspacing = &cellspacing bordercolor = colors('tableborder') borderwidth = &borderwidth; replace Footer from HeadersAndFooters / font = fonts('FootFont') just=left asis=on protectspecialchars=off ; replace FooterFixed from Footer / font = fonts('FixedFootFont') just=left asis=on protectspecialchars=off; replace FooterEmpty from Footer / font = fonts('FootFont') just=left asis=on protectspecialchars=off; replace FooterEmphasis from Footer / font = fonts('EmphasisFootFont') just=left asis=on protectspecialchars=off; replace FooterEmphasisFixed from FooterEmphasis / font = fonts('FixedEmphasisFootFont') just=left asis=on protectspecialchars=off; replace FooterStrong from Footer / font = fonts('StrongFootFont') just=left asis=on protectspecialchars=off; replace FooterStrongFixed from FooterStrong / font = fonts('FixedStrongFootFont') just=left asis=on protectspecialchars=off; replace RowFooter from Footer / font = fonts('FootFont') asis=on protectspecialchars=off just=left; replace RowFooterFixed from RowFooter / font = fonts('FixedFootFont') just=left asis=on protectspecialchars=off; replace RowFooterEmpty from RowFooter / font = fonts('FootFont') just=left asis=on protectspecialchars=off; replace RowFooterEmphasis from RowFooter / font = fonts('EmphasisFootFont') just=left asis=on protectspecialchars=off; replace RowFooterEmphasisFixed from RowFooterEmphasis / font = fonts('FixedEmphasisFootFont') just=left asis=on protectspecialchars=off; replace RowFooterStrong from RowFooter / font = fonts('StrongFootFont') just=left asis=on protectspecialchars=off; replace RowFooterStrongFixed from RowFooterStrong / font = fonts('FixedStrongFootFont') just=left asis=on protectspecialchars=off; replace SystemFooter from TitlesAndFooters / asis=on protectspecialchars=off just=left; end; run; quit; %Mend utl_rtflan100;   ... View more

Need help to create tabular type report see for rtf output; https://www.dropbox.com/s/stvea5zojvzg7e6/prerpt.rtf?dl=0 I prefer to pre-process data before report and minimize the use of compute blocks. Especially if I feel management may ask for changes. You can get very close to the ops output with just my input and report without preprocessing, but that is a less flexible method? inspired by https://goo.gl/w4KKqr https://communities.sas.com/t5/ODS-and-Base-Reporting/Need-help-to-create-tabular-type-report/m-p/342315 HAVE ==== Up to 40 obs WORK.HAVE total obs=7 Obs SALES DEPT AMOUNT CODE 1 Online Sale Clothing 1700 1612 2 Offline Sale Clothing 1300 . 3 Electronics1 Electronics . . 4 Electronics2 Electronics . . 5 Electronics3 Electronics . . 6 Stall1 Footware 2000 . 7 Stall2 Footware 1500 . WANT ==== Total sales calculator February 2017 => Bold 12pt Sales Overview Amount Center Code =Bold 10pt Clothing Sales Total $3,000 1612 => Bold Online Sale $1,700 Offline Sale $1,300 Electronics Sales Total => Bold Electronics1 Electronics2 Electronics3 => Bold Footware Sales Total $3,500 Stall1 $2,000 Stall2 $1,500 => Bold Total $6,500 * create the data; Using google 'free' tesseract to convert the ops pictute to data; * print screen and save as a png and use google tesseract to convert to text; x c:/progra~2/tesseract-ocr/tesseract d:/png/prepro.png d:/txt/prepro.txt; * I useed Google te Data have; *informat Sales & $16. Amount & 5. code $5.; length sales $32; infile datalines4 pad; input @1 dept $12. Sales & $16. @29 Amount & 5. @46 code ; datalines4; Clothing Online Sale 1700 1612 Clothing Offline Sale 1300 . Electronics Electronics1 . . Electronics Electronics2 . . Electronics Electronics3 . . Footware Stall1 2000 . Footware Stall2 1500 . ;;;; run;quit; * preprocess; data prerpt; retain begdot 0 grantot 0 tot 0 cde 0; do until (last.dept); set have; by dept notsorted; tot=sum(tot,amount); if code ne . then cde=code; end; code=cde; amount=tot; grantot=sum(grantot,tot); sales=catx(' ','\b',dept,'Sales Total \b0'); output; do until (last.dept); set have end=dne; by dept notsorted; code=.; sales=catx(' ','\li360',sales); output; end; cde=.; tot=0; keep sales amount code; if dne then do; amount=grantot; savsales=sales; savamount=amount; sales=.; amount=.; output; sales='\b Total \b0'; savsales=savsales; amount=savamount; output; end; run;quit; /* Up to 40 obs WORK.PRERPT total obs=12 Obs SALES AMOUNT CODE 1 \b Clothing Sales Total \b0 3000 1612 2 \li360 Online Sale 1700 . 3 \li360 Offline Sale 1300 . 4 \b Electronics Sales Total \b0 0 . 5 \li360 Electronics1 . . 6 \li360 Electronics2 . . 7 \li360 Electronics3 . . 8 \b Footware Sales Total \b0 3500 . 9 \li360 Stall1 2000 . 10 \li360 Stall2 1500 . 11 . . . 12 \b Total \b0 6500 . */ * macro on end; %utl_rtflan100; options orientation=portrait; ods escapechar='^'; ods rtf file="d:/rtf/prerpt.rtf" style=utl_rtflan100; proc report data=prerpt nowd style(header)={font_weight=bold font_size=10pt just=left}; cols ("^S={just=l font_weight=bold font_size=12pt} Total sales calculator February 2017" sales amount code); define sales / display "Sales Overview" left; define amount / display "Amount" center format=dollar8.; define code / display "Center Code" center; run;quit; ods rtf close; %Macro utl_rtflan100 ( style=utl_rtflan100, frame=box, rules=groups, bottommargin=1.0in, topmargin=1.5in, rightmargin=1.0in, cellheight=10pt, cellpadding = 7, cellspacing = 3, leftmargin=.75in, borderwidth = 1 ) / Des="SAS Rtf Template for CompuCraft"; options orientation=landscape;run;quit; ods path work.templat(update) sasuser.templat(update) sashelp.tmplmst(read); Proc Template; define style &Style; parent=styles.rtf; replace body from Document / protectspecialchars=off asis=on bottommargin=&bottommargin topmargin =&topmargin rightmargin =&rightmargin leftmargin =&leftmargin ; replace color_list / 'link' = blue 'bgH' = _undef_ 'fg' = black 'bg' = _undef_; replace fonts / 'TitleFont2' = ("Arial, Helvetica, Helv",11pt,Bold) 'TitleFont' = ("Arial, Helvetica, Helv",11pt,Bold) 'HeadingFont' = ("Arial, Helvetica, Helv",10pt) 'HeadingEmphasisFont' = ("Arial, Helvetica, Helv",10pt,Italic) 'StrongFont' = ("Arial, Helvetica, Helv",10pt,Bold) 'EmphasisFont' = ("Arial, Helvetica, Helv",10pt,Italic) 'FixedFont' = ("Courier New, Courier",9pt) 'FixedEmphasisFont' = ("Courier New, Courier",9pt,Italic) 'FixedStrongFont' = ("Courier New, Courier",9pt,Bold) 'FixedHeadingFont' = ("Courier New, Courier",9pt,Bold) 'BatchFixedFont' = ("Courier New, Courier",7pt) 'docFont' = ("Arial, Helvetica, Helv",10pt) 'FootFont' = ("Arial, Helvetica, Helv", 9pt) 'StrongFootFont' = ("Arial, Helvetica, Helv",8pt,Bold) 'EmphasisFootFont' = ("Arial, Helvetica, Helv",8pt,Italic) 'FixedFootFont' = ("Courier New, Courier",8pt) 'FixedEmphasisFootFont'= ("Courier New, Courier",8pt,Italic) 'FixedStrongFootFont' = ("Courier New, Courier",7pt,Bold); replace GraphFonts / 'GraphDataFont' = ("Arial, Helvetica, Helv",8pt) 'GraphAnnoFont' = ("Arial, Helvetica, Helv",8pt) 'GraphValueFont' = ("Arial, Helvetica, Helv",10pt) 'GraphUnicodeFont' = ("Arial, Helvetica, Helv",10pt) 'GraphLabelFont' = ("Arial, Helvetica, Helv",10pt,Bold) 'GraphLabel2Font' = ("Arial, Helvetica, Helv",10pt,Bold) 'GraphFootnoteFont' = ("Arial, Helvetica, Helv",8pt) 'GraphTitle1Font' = ("Arial, Helvetica, Helv",11pt,Bold) 'GraphTitleFont' = ("Arial, Helvetica, Helv",11pt,Bold); style table from table / outputwidth=100% protectspecialchars=off asis=on background = colors('tablebg') frame=&frame rules=&rules cellheight = &cellheight cellpadding = &cellpadding cellspacing = &cellspacing bordercolor = colors('tableborder') borderwidth = &borderwidth; replace Footer from HeadersAndFooters / font = fonts('FootFont') just=left asis=on protectspecialchars=off ; replace FooterFixed from Footer / font = fonts('FixedFootFont') just=left asis=on protectspecialchars=off; replace FooterEmpty from Footer / font = fonts('FootFont') just=left asis=on protectspecialchars=off; replace FooterEmphasis from Footer / font = fonts('EmphasisFootFont') just=left asis=on protectspecialchars=off; replace FooterEmphasisFixed from FooterEmphasis / font = fonts('FixedEmphasisFootFont') just=left asis=on protectspecialchars=off; replace FooterStrong from Footer / font = fonts('StrongFootFont') just=left asis=on protectspecialchars=off; replace FooterStrongFixed from FooterStrong / font = fonts('FixedStrongFootFont') just=left asis=on protectspecialchars=off; replace RowFooter from Footer / font = fonts('FootFont') asis=on protectspecialchars=off just=left; replace RowFooterFixed from RowFooter / font = fonts('FixedFootFont') just=left asis=on protectspecialchars=off; replace RowFooterEmpty from RowFooter / font = fonts('FootFont') just=left asis=on protectspecialchars=off; replace RowFooterEmphasis from RowFooter / font = fonts('EmphasisFootFont') just=left asis=on protectspecialchars=off; replace RowFooterEmphasisFixed from RowFooterEmphasis / font = fonts('FixedEmphasisFootFont') just=left asis=on protectspecialchars=off; replace RowFooterStrong from RowFooter / font = fonts('StrongFootFont') just=left asis=on protectspecialchars=off; replace RowFooterStrongFixed from RowFooterStrong / font = fonts('FixedStrongFootFont') just=left asis=on protectspecialchars=off; replace SystemFooter from TitlesAndFooters / asis=on protectspecialchars=off just=left; end; run; quit; %Mend utl_rtflan100; ... View more

filename fylfat "d:/txt/txtbig.txt" lrecl=16000 recfm=v; * create the input fat file; data sasfat; informat state $2. num1-num720 best21.; infile fylfat end=dne; input state $ num1-num720 ; output; if _n_=3 then stop; run;quit; proc print data=sasfat; format num1-num720 21.17; run;quit; Norte SAS cannot handle 18 significat digits(you need R or Python for 18 sig digit arithmetic) 1.0021709654943634 Original number 1.0021709654943600 SAs number (lost precistion) Obs STATE NUM1 NUM2 ... NUM720 1 AK 1.00217096549436000 1.00414185896059000 ... 2.26668456775932000 2 AL 1.00203845526359000 1.00408994140026000 ... 2.70441496537969000 3 AR 1.00187083703867000 1.00367877037134000 ... 2.27810994554249000 Middle Observation(1 ) of sasfat - Total Obs 3 -- CHARACTER -- STATE C 2 AK STATE -- NUMERIC -- NUM1 N 8 1.0021709655 NUM1 NUM2 N 8 1.004141859 NUM2 NUM3 N 8 1.0059412003 NUM3 NUM4 N 8 1.0075022638 NUM4 NUM5 N 8 1.0089031672 NUM5 NUM6 N 8 1.0103131154 NUM6 ... NUM717 N 8 2.2575557326 NUM717 NUM718 N 8 2.2610511943 NUM718 NUM719 N 8 2.2640534503 NUM719 NUM720 N 8 2.2666845678 NUM720 If you want to maintain precision you van use python (R does not have a native 64 bit integers) Drop the decimal until last calc then add it with a format; * there are extended precision packages in R and python; * did not add the code to place the decimal you need a format; %utl_submit_py64(' import numpy as np; big1=np.int64(10021709654943634); print(big1); big1=np.int64(80000000000000008/4 ); print(big1); '); 1.0021709654943634 2.0000000000000002 ... View more