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

Your case is a good example for a BY with the NOTSORTED option.   data ds1 ; input id seq stop; cards ; 1 1 0 1 2 1 1 3 0 1 4 0 1 5 1 1 6 1 2 1 0 2 2 0 2 3 1 2 4 1 2 5 1 2 6 0 2 7 1 2 8 0 2 9 1 ; run; data ds1; set ds1; by id stop notsorted; if first.id then _sseq = 0; if first.stop and stop ne 0 then _sseq + 1; if stop ne 0 then sseq=_sseq; drop _sseq; run; proc print; run; ... View more

  data test; input Id B w g; cards; 1 8 . . 1 7 . . 1 . 6 . 1 . 5 . 1 . . 4 1 . . 5 2 4 . . 2 3 . . 2 . 6 . 2 . 2 . 2 . . 8 2 . . 4 ;;;; run; proc print; run; proc summary data=test nway; class id; output out=means mean(b w g)=; run; proc print; run; ... View more