options missing=' '; data cntl; retain fmtname 'F_RONEIN' type 'N' sexcl "N"; length s e i 8 label $64; s=0; do e = 0, 1e2 to 5e2 by 1e2, 1e3 to 1e4 by 1e3, 15e3,.H; i + 1; start = s; end = e; select(end); when(.h) do; hlo = 'H'; label = catx(' ',cats('(',i,')'),cats(s,'+')); end; otherwise do; hlo = ' '; label = catx(' ',cats('(',i,')'),catx('-',s,ifn(e=0,.,e))); end; end; output; s = e; sexcl = 'Y'; end; run; proc print; run; proc format cntlin=cntl cntlout=cntlout; run; proc print; run; ... View more

ARRAY array-name[dimensions] </NOSYMBOLS> | <variable(s)> | <constant(s)> | <initial-values)>;   PROC FCMP   @ballardw wrote: I think you may need to go back a bit and describe what is going on. Write where? to a text file? data set? Word document? something else? Where is the value "3" coming from? A macro variable? A data set? The result of a calculation?   And possibly which programming language you are discussing. I am not familiar with " /nosymbols" involved with arrays.   ... View more

This may be helpful, but you will have to figure how to adapt to your specific needs.   49 data _null_; 50 array ma[4] _temporary_ (11:14); 51 do i = 1 to dim(ma); 52 put ma[i]= +(-1) ';'; 53 end; 54 run; ma[1]=11; ma[2]=12; ma[3]=13; ma[4]=14; ... View more

I think you need IML EXP function. proc iml; /* Define the matrix A */ A = {0 1, -1 0}; /* Compute the matrix exponential */ expA = exp(A); /* Print the result */ print expA; quit; ... View more

You need to show us some output. Show the result of LSMEANS without Control;   lsmeans Trt_Amend_App * Trt_CC / pdiff; ... View more

There is an IN ARRAY syntax.   49 data _null_; 50 array array_1 [3] $ 3 ('abc', 'cfr','ser'); 51 diag = 'cfr'; 52 if diag in array_1 then do; 53 found = 1; 54 put _all_; 55 end; 56 run; array_11=abc array_12=cfr array_13=ser diag=cfr found=1 _ERROR_=0 _N_=1 ... View more

This will fill missing rows at the end and in the middle.   data have; do projid='28533', '29344'; do year = 0 to 3, 5; y = ranuni(1234); output; end; end; run; proc format; value xyear(notsorted) 0 = 'Baseline' 1 = '1 Year' 2 = '2 Year' 3 = '3 Year' 4 = '4 Year' 5 = '5 Year' 6 = '6 Year' 7 = '7 Year' ; quit; proc summary data=have nway missing completetypes; by projid; class year / preloadfmt; format year xyear.; output out=expanded(drop=_type_); run; data want; merge expanded have; by projid year; run; proc print; run;     ... View more

How about a multlabel format.   data all_freqs; PARCAT3='HAEMATOLOGY';btoxgr='Grade0';TRT01A='LZA';PARAMCD='GRAN';cnt=12;output; PARCAT3='HAEMATOLOGY';btoxgr='Grade2';TRT01A='LZA';PARAMCD='GRAN';cnt=20;output; PARCAT3='HAEMATOLOGY';btoxgr='Grade1';TRT01A='LZA';PARAMCD='LYMP';cnt=19;output; PARCAT3='HAEMATOLOGY';btoxgr='Grade2';TRT01A='LZA';PARAMCD='KKSP';cnt=90;output; PARCAT3='LIVER AND KIDNEY';btoxgr='Grade0';TRT01A='LZA';PARAMCD='PLAT';cnt=12;output; PARCAT3='LIVER AND KIDNEY';btoxgr='Grade2';TRT01A='LZA';PARAMCD='WBC';cnt=22;output; PARCAT3='LIVER AND KIDNEY';btoxgr='Grade1';TRT01A='LZA';PARAMCD='WBC';cnt=24;output; PARCAT3='LIVER AND KIDNEY';btoxgr='Grade3';TRT01A='LZA';PARAMCD='AST';cnt=11;output; run; proc sort; by parcat3 paramcd trt01a; run; proc format; value $txg(notsorted multilabel) 'Grade0' = 'Grade 0' 'Grade1' = 'Grade 1' 'Grade2' = 'Grade 2' 'Grade3' = 'Grade 3' 'Grade4' = 'Grade 4' 'Grade0'-'Grade4' = 'Total' ; quit; proc summary data=all_freqs nway missing completetypes; by parcat3 paramcd trt01a; class btoxgr / mlf order=data preloadfmt; format btoxgr $txg.; freq cnt; output out=summary; run; proc print; run; ... View more

I was not really playing just showing how to trim a few characters with autocorrect. I copied your code but not the working version ##- Please type your reply above this line. No attachments. -## ... View more

dat;se;arra i[10]$1;CAL POKELONG(ISBN,ADDRLONG(i1),10); s=0;do r=1to 9;s+i[r]*r;en;b=min(i[r],10)=mod(s,11);ru; Is this legal? ... View more

To me the real problem is you don't have ID on all obs for an ID.  I think the first thing you should do is get the ID and demographic information and all records.   Then you have a data set that you can work with more easily.   data have; retain dummy 0; input ID age dx :$15. weight test :$15.; datalines; 1 29 covid 140 covid . . flu . blood_pressure . . diabetes . . 2 33 high_bp 165 covid . . gest_diab . blood_pressure . . preeclamp . . ; data want1(drop=dummy); update have(obs=0 keep=dummy) have(keep=dummy id); by dummy; set have(drop=dummy id); output; run; proc print; run; data want2; update want1(obs=0 keep=ID) want1(keep=id age weight); by id; if first.id then r=0; r+1; set want1(keep=dx test); output; run; proc print; run; proc transpose data=want2 out=want3; by id age weight r; var dx test; run; proc sort data=want3; by id _name_ r; run; proc transpose data=want3 out=want4(drop=_name_) delim=_; by id age weight; var col1; id _name_ r; run; proc print; run; This example uses the UPDATE statement to carry forward non-missing values ID,  and then again to update age and weight.  ... View more

Are you using DBCS or MBCS.  You might try KCOMPRESS to resolve issue.   @ProcWes wrote: I run this block before I send data to GCP but for some reason, it is adding weird characters to my strings that aren't there before the compress. array Chars[*] _character_; do i = 1 to dim(Chars); Chars[i] = compress(Chars[i],,'kw'); end; drop i; array Nums[*] _numeric_; do i = 1 to dim(Nums); Nums[i] = round(Nums[i],0.01); end; drop i; These weird characters, the @ etc.  Is there a better way to go about this?  Where are these coming from??   ... View more

This might work but I doubt you example data covers all scenarios.   DATA SALE; LENGTH FILE $3 DEPARTMENT $10 ; INPUT FILE DATE:YYMMDD10. DEPARTMENT $; FORMAT DATE YYMMDD10.; DATALINES; 102 2024-01-15 RECEPTION 102 2024-01-30 RECEPTION 102 2024-02-10 SHOES 102 2024-02-29 RECEPTION 102 2024-02-29 SHOES 103 2024-01-22 RECEPTION 103 2024-02-15 RECEPTION 103 2024-02-20 RECEPTION 103 2024-03-02 PANTS 104 2024-04-12 RECEPTION 104 2024-05-02 RECEPTION 104 2024-05-20 RECEPTION 104 2024-05-30 SHIRTS 104 2024-06-14 SHIRTS 104 2024-06-30 SHIRTS ; RUN; data sale; set sale; by file; ddif = dif(date); if first.file then ddif=.; run; proc print; run; proc summary data=sale nway; by file; where department ne: 'REC' and ddif ne 0; class department; output out=test(drop=_:) idgroup(min(ddif) out[1](date ddif)=); run; proc print; run; ... View more

SYMGET   49 %let string = "This is sample string" & char(10) & "This is second line of sample string"; 50 %put &=string; STRING="This is sample string" & char(10) & "This is second line of sample string" 51 52 data a; 53 x = symget('STRING'); 54 put 'NOTE: ' x=; 55 run; NOTE: x="This is sample string" & char(10) & "This is second line of sample string" ... View more