VAR statement accepts multiple variables, no need to transpose each variable separately.  proc transpose data=have out=want prefix=Month_; by CustID ; ID monIndex ; Var X W Z R Q Y; Run; ... View more

Thank you, @Cynthia_sas ! This works. The header background of each categorical variable was highlighted gray. With a slight modification of style element in call define statement I could eliminate it (I was not sure about my syntax, but it worked).  data want1; set want; by origin; _origin=origin; type=2; output; if first.origin then do; type=1; input cat4 cat6 cat8; _origin=''; output; end; cards; Small Medium Large Smaller Larger Largest Good Better Best ; run; ods escapechar='~'; ods tagsets.excelxp file = "Table.xml" style=listing options(sheet_name= "T1" embedded_titles = "on" embedded_footnotes = "on" Merge_Titles_Footnotes = "on" missing_align= 'center' Row_Heights='20,16,0,32,32,0,0' Skip_Space= '0,0,0,1,1' wrap_text='yes'); proc report data= want1 style(report)={background=white borderrightcolor=white borderleftcolor=white bordertopcolor=black borderbottomcolor=black bordertopwidth=1pt borderbottomwidth=1pt} style(header)={height=24pt font_face='TREBUCHET MS' fontsize=11pt background=white borderrightcolor=white borderleftcolor=white bordertopcolor=black borderbottomcolor=black bordertopwidth=1 borderbottomwidth=1} split='~'; column origin type _origin cat4 cat6 cat8; define origin/order noprint; define _origin/ '' width=8 style(column)= {just=c font_face='TREBUCHET MS' fontsize=11pt borderleftcolor=white borderleftwidth=.5pt borderrightcolor=white borderrightwidth=.5pt} display; define type / order noprint; define cat4/'' width=8 style(column)= {just=c font_face='TREBUCHET MS' fontsize=11pt borderleftcolor=white borderleftwidth=.5pt borderrightcolor=white borderrightwidth=.5pt} display; define cat6/ '' width=8 style(column)= {just=c font_face='TREBUCHET MS' fontsize=11pt borderleftcolor=white borderleftwidth=.5pt borderrightcolor=white borderrightwidth=.5pt} display; define cat8/'' width=8 style(column)= {just=c font_face='TREBUCHET MS' fontsize=11pt borderleftcolor=white borderleftwidth=.5pt borderrightcolor=white borderrightwidth=.5pt} display; compute type; if type=1 then call define(_row_,'style','style=Header {height=24pt font_face="TREBUCHET MS" fontsize=11pt background=white}'); endcomp; run; ods tagsets.excelxp close; ... View more

One way is processing data in BY/GROUP  and RETAIN statement where first.variable reads the first record in the group (USUBJID here) and the last.variable reads the second/last record, retain statement carries over the first record to the next record to enable comparison.  data have; infile datalines truncover; input usubjid $ actarm $; datalines; us222 A us222 us111 B us333 C us333 C us444 us444 ; run; proc sort data=have; by usubjid descending actarm; run; data want; set have; by usubjid descending actarm; retain _actarm; if first.usubjid then _actarm=actarm; if last.usubjid and _actarm^=actarm then delete; drop _:; run; ... View more

Edited based on the clarification: data validation; set isbn; array _nine [9] (10, 9, 8, 7, 6, 5, 4, 3, 2); array nine [9]; do i=1 to 9; nine{i}= input(substr(isbn,i, 1), best.)*_nine{i}; end; _sum=sum(of nine:); _remainder= mod(_sum, 11); result= 11-_remainder; if result eq 10 then checker= substr(isbn, 1, 9)||'X'; else if result eq 11 then checker= substr(isbn, 1, 9)||'0'; else checker= cats(substr(isbn, 1, 9), result); if isbn=checker then isbn_validated= 'Yes'; else isbn_validated='No'; if isbn_validated='No'; keep title isbn:; run; proc print; run; Fake books  (N=19): ... View more

@ChrisHemedinger wrote: [AI-generated Proc Studley]   The algorithm for validating ISBN-10 values uses a checksum approach. Here are the steps: .... For the 10th digit, if the summed result is 11, use the number 0; if 10, use the letter X.   What would be the the 10th digit if the summed result is not in 10 or 11?  ... View more

data validation; set isbn; array _nine [9] (10, 9, 8, 7, 6, 5, 4, 3, 2); array nine [9]; do i=1 to 9; nine{i}= input(substr(isbn,i, 1), best.)*_nine{i}; end; _sum=sum(of nine:); _remainder= mod(_sum, 11); result= 11-_remainder; if result eq 10 then isbn_validated= substr(isbn, 1, 9)||'X'; else if result eq 11 then isbn_validated= substr(isbn, 1, 9)||'0'; if isbn=isbn_validated; keep title isbn:; run; proc print; run; Real ones.  The remaining is fake.  ... View more

Another approach using ABS function. If we need to read only observations where change is greater than or equals 10 then  where statement is more efficient in terms of system processing.  data want; set have; where abs(starting_weight - end_weight) ge 10; run; ... View more

I would separate the required part of data using condition, then process it using BY/GROUP and set it back with the main data. It requires multiple data steps though.  proc sort data=medication out=have; where start_med=next_med; by id start_med start next; run; data have1; set have; by id start_med start next; retain startdt; if first.start_med then startdt=start; if last.start_med then start=startdt; if last.start_med; drop startdt; run; data want; set medication (where=(start_med^=next_med)) have1; by id; run; proc sort data=want; by id start next; run; ... View more

I usually list variables like this:  array _invals{3} $8 _inval1 - _inval3; or  just omit new variable names when the range is specified  with array name, like "_invals [3]" in this case. SAS takes new variable names from the declared array name (_invals) and creates the number of new variables equal to a specified range (3) and appends sequential numbers (eg. 1 to n.) to that.  see this :  data want ; set df1; array _invars{3} a b c; array _invals{3} $8; do i=1 to 3; if _invars{i} gt .z then _invals{i}=put( _invars{i},5.2) ; else _invals{i}= "NA" ; end; run ; ... View more

Hi James,  Please see this post where @DanH_sas provided step by step solution to a similar question.  Hope you will find something helpful there.  ... View more