About Ronein

Ronein · ‎12-01-2025

At my work have task to create a panel data which has one row ( wide structure) instead of long structure ( multiple rows per offer id). I know it is strange but for most of people it is easier to look at wide structure data where each offer id has one row

Ronein · ‎12-01-2025

Hello In real life I have a big data set 17 million rows and many offer_ID's. Is there a better way to perform convertion from long to wide . Please see the current code data have; input offerID degem amnt; cards; 111123 200 1000 111123 300 2000 111123 400 3000 ; run; PROC TRANSPOSE DATA=have OUT=wide1(DROP=_name_) prefix=degem_; BY offerID; VAR degem; RUN; PROC TRANSPOSE DATA=have OUT=wide2(DROP=_name_) prefix=Amnt_; BY offerID; VAR degem; RUN; Data want_Wide; merge wide1 wide2; BY offerID; Run;

Ronein · ‎11-18-2025

Hello LEts say I run proc sql query (I must run it because it is many to many merge that is not working well in data step). Please note that in this example I didnt perform merge and just want to select speicifc columns by criteria. Let's say that I want to check which columns exist with name "Offer" in the source data set, and then select them in my query. What is the way to do it? I want to select CustID and all columns have subs tring "offer" and I wan tto do it via proc sql please Data have; Input CustID Offer_Tomato Offer_Banana Milk_offer newspapaer_offer offer_water Firstname $ Year_birth; cards; 111 10 30 20 40 50 Jow 1990 222 15 25 10 40 18 Yulia 1987 ; Run;

Ronein · ‎11-18-2025

I saw this example and it is working 100% In this example ther is no action of saving Log file . What is the purpose of saving the Log file? Did you recommend to add the Log file as attach file to the email? Or print the Log file in the email body??(Not good if log is very big) data a; input x $ y; cards; a 1 b 2 c 3 ; Run; proc means sum; var x y; run; %macro send_mail; filename mymail email to=('xxx.xxx@xxx.xxx.xxx') subject='סיכום אם הייתה שגיאה בריצה' encoding='utf-8'; %if &syscc>0 %then %do; data _null_; file mymail; put 'התרחשה שגיאה בהרצה של תוכנית סאס'; run; %end; %else %do; data _null_; file mymail; put 'הריצה בוצעה ללא שגיאות'; run; %end; %let syscc=0; %mend; %send_mail

Ronein · ‎11-18-2025

Thanks so much, I have some questions please- Here is the code I run based on your feedback Where should I write my email address??? Should I located this code - proc printto log="/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log" new; run; in top of program?? I run the coe and get error- ERROR: Insufficient authorization to access /usr/local/SAS/Config/Lev1/LabRet/email.dat. /* save your sas code 's LOG into a file*/ proc printto log="/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log" new; run; /**My program code**/ data cars; set sashelp.cars; Run; proc sql; create table want as select make, min(invoice) as min_invoice, max(invoice) as max_invoice, median(invoice) as median_invoice, count(disinct type_ as distinct_types from cars group by make ; quit; proc printto log=log; run; /*parse this LOG file and check it is ERROR or WARNING*/ %let error=no; %let warning=no; data _null_; infile "/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log"; input; if _infile_ =: 'ERROR' then call symputx('error','yes'); if _infile_ =: 'WARNING' then call symputx('warning','yes'); run; /*make a macro to send your e-mail or not.*/ %macro email; data _null_; file email; %if &error.=yes %then %do; put 'there is an error.'; %end; %else %if &warning.=yes %then %do; put 'there is an warning.'; %end; %else %if &error.=yes and &warning.=yes %then %do; put 'there is an error and warning .'; %end; run; %mend; %email The log with the error- 1 The SAS System 14:21 Tuesday, November 18, 2025 1 ;*';*";*/;quit;run; 2 OPTIONS PAGENO=MIN; 3 %LET _CLIENTTASKLABEL='Program'; 4 %LET _CLIENTPROCESSFLOWNAME='Standalone Not In Project'; 5 %LET _CLIENTPROJECTPATH=''; 6 %LET _CLIENTPROJECTPATHHOST=''; 7 %LET _CLIENTPROJECTNAME=''; 8 %LET _SASPROGRAMFILE=''; 9 %LET _SASPROGRAMFILEHOST=''; 10 11 ODS _ALL_ CLOSE; 12 OPTIONS DEV=SVG; 13 GOPTIONS XPIXELS=0 YPIXELS=0; 14 %macro HTML5AccessibleGraphSupported; 15 %if %_SAS_VERCOMP_FV(9,4,4, 0,0,0) >= 0 %then ACCESSIBLE_GRAPH; 16 %mend; 17 FILENAME EGHTML TEMP; 18 ODS HTML5(ID=EGHTML) FILE=EGHTML 19 OPTIONS(BITMAP_MODE='INLINE') 20 %HTML5AccessibleGraphSupported 21 ENCODING='utf-8' 22 STYLE=HTMLBlue 23 NOGTITLE 24 NOGFOOTNOTE 25 GPATH=&sasworklocation 26 ; NOTE: Writing HTML5(EGHTML) Body file: EGHTML 27 28 /* save your sas code 's LOG into a file*/ 29 proc printto log="/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log" new; 30 run; NOTE: PROCEDURE PRINTTO used (Total process time): real time 0.00 seconds cpu time 0.00 seconds 49 50 /*parse this LOG file and check it is ERROR or WARNING*/ 51 %let error=no; 52 %let warning=no; 53 data _null_; 54 infile "/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log"; 55 input; 56 if _infile_ =: 'ERROR' then call symputx('error','yes'); 57 if _infile_ =: 'WARNING' then call symputx('warning','yes'); 58 run; NOTE: The infile "/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log" is: Filename=/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log, Owner Name=udclk79, Group Name=gr_il_sas_users_labret, Access Permission=-rw-r--r--, Last Modified=18Nov2025:14:35:46, File Size (bytes)=1902 NOTE: 53 records were read from the infile "/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/RonLog.log". The minimum record length was 0. The maximum record length was 133. NOTE: DATA statement used (Total process time): real time 0.00 seconds cpu time 0.00 seconds 59 3 The SAS System 14:21 Tuesday, November 18, 2025 60 61 /*make a macro to send your e-mail or not.*/ 62 %macro email; 63 data _null_; 64 file email; 65 %if &error.=yes %then %do; put 'there is an error.'; %end; 66 %else %if &warning.=yes %then %do; put 'there is an warning.'; %end; 67 %else %if &error.=yes and &warning.=yes %then %do; put 'there is an error and warning .'; %end; 68 run; 69 %mend; 70 %email ERROR: Insufficient authorization to access /usr/local/SAS/Config/Lev1/LabRet/email.dat. NOTE: The SAS System stopped processing this step because of errors. NOTE: DATA statement used (Total process time): real time 0.00 seconds cpu time 0.00 seconds 71 72 %LET _CLIENTTASKLABEL=; 73 %LET _CLIENTPROCESSFLOWNAME=; 74 %LET _CLIENTPROJECTPATH=; 75 %LET _CLIENTPROJECTPATHHOST=; 76 %LET _CLIENTPROJECTNAME=; 77 %LET _SASPROGRAMFILE=; 78 %LET _SASPROGRAMFILEHOST=; 79 80 ;*';*";*/;quit;run; 81 ODS _ALL_ CLOSE; 82 83 84 QUIT; RUN; 85

Ronein · ‎11-18-2025

Hello I want to run a sas program and - 1-create a binary macro variable that get value 1 if program had error 2-create a binary macro variable that get value 1 if program had warning send automatic email via sas to my email (Only in case of error or warning) and say one of these 3 options: "Error occured during run the code" "Warning occured during run the code" "Error and Warning occured during run the code" What is the way to do it? For example lets say I run this code that has error data cars; set sashelp.cars; Run; proc sql; create table want as select make, min(invoice) as min_invoice, max(invoice) as max_invoice, median(invoice) as median_invoice, count(disinct type_ as distinct_types from cars group by make ; quit;

Ronein · ‎11-16-2025

Hello I am running SAS program-I get a message -Large results were detected I dont want to print any report on screen because the report is export into XLSX file and sent automaticaly by email Note- I am using ods excel to crate multiple sheets XLSX file Here is the code I runMy question- What changes should I do in code to prevent this message??? %include '!RSMEHOME/SASCode/SHARECode/Libname.sas'; %let datetime = %sysfunc(datetime(), datetime20.) ; %let datetime_clean = %sysfunc(translate(&datetime,_, %str(: ))) ; %let path="/usr/local/SAS/SASUsers/LabRet/UserDir/udclk79/R&datetime_clean..xlsx"; proc sql noprint; select max(mon) as last_mon_in_Report_YYMM1 into :last_mon_in_Report_YYMM1 from R_R.P_CrdRate_Bakara_S1 ; quit; %put last_mon_in_Report_YYMM1=&last_mon_in_Report_YYMM1; proc sql noprint; select max(mon) as last_mon_in_Report_YYMM2 into :last_mon_in_Report_YYMM2 from R_R.CrdRate_Gini_S9 ; quit; %put last_mon_in_Report_YYMM2=&last_mon_in_Report_YYMM2; data _null_; ddate=input("&last_mon_in_Report_YYMM1.",yymmn4.); prev=intnx('month',ddate,-1); prev_YYMM=input(put(prev,yymmn4.),best.); format ddate prev ddmmyy10.; call symputx('prev_YYMM',prev_YYMM); Run; %put prev_YYMM=&prev_YYMM; /**** S1--No pepper***/ /**** S1--No pepper***/ /**** S1--No pepper***/ proc sort data=R_R.NP_CrdRate_Bakara_S1 out=a_NP_S1; by mon; Run; data b_NP_S1; retain NP_IND_Prob mon; set a_NP_S1; by mon; NP_DIF_Tamhil_NrY_POS=NP_Tamhil_NrY_POS-LAG(NP_Tamhil_NrY_POS); NP_DIF_Tamhil_NrY_Null=NP_Tamhil_NrY_Null-LAG(NP_Tamhil_NrY_Null); NP_DIF_Tamhil_NrY_0=NP_Tamhil_NrY_0-LAG(NP_Tamhil_NrY_0); NP_DIF_Tamhil_NrY_NoPreClean=NP_Tamhil_NrY_NoPreClean-LAG(NP_Tamhil_NrY_NoPreClean); NP_DIF_Tamhil_NrY_PreClean_NoCrd=NP_Tamhil_NrY_PreClean_NoCrd-LAG(NP_Tamhil_NrY_PreClean_NoCrd); format NP_DIF_Tamhil_NrY_POS NP_DIF_Tamhil_NrY_Null NP_DIF_Tamhil_NrY_0 NP_DIF_Tamhil_NrY_NoPreClean NP_DIF_Tamhil_NrY_PreClean_NoCrd percent10.2; IF abs(NP_DIF_Tamhil_NrY_POS)>0.03 OR abs(NP_DIF_Tamhil_NrY_Null)>0.03 OR abs(NP_DIF_Tamhil_NrY_0)>0.03 OR abs(NP_DIF_Tamhil_NrY_NoPreClean)>0.03 OR abs(NP_DIF_Tamhil_NrY_PreClean_NoCrd)>0.03 then NP_IND_Prob=1; else NP_IND_Prob=0;Run; proc sort data=b_NP_S1; by descending mon; Run; proc sql noprint; select NP_IND_Prob as Ind_NP_S1_lastMon into :Ind_NP_S1_lastMon trimmed from b_NP_S1 where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_NP_S1_lastMon=&Ind_NP_S1_lastMon.; proc sql noprint; select case when &Ind_NP_S1_lastMon.=1 then 'Red' when max(NP_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S1 into : Ind_Color_Sheet_NP_S1 from b_NP_S1 ; quit; %put Ind_Color_Sheet_NP_S1=&Ind_Color_Sheet_NP_S1.; /*Bakara_Crd_Rate*/ /*ODS _ALL_ CLOSE; */ /**to prevent print on screen***/ ods excel file=&path. options (sheet_name='NP_S1' embedded_titles='yes' embedded_footnotes='yes' sheet_interval="proc" /***One table in sheet**/ gridlines = 'yes' tab_color="&Ind_Color_Sheet_NP_S1." ); title; title1 bold color=red height=5 font=simplex 'בקרת תמהיל ציון כא ריק-אפס או חיובי'; title2 bold color=red height=5 font=simplex 'קריטריון להדלקה- שינוי לפחות 3% בתמהיל יישויות בעלות ציון כא חיובי'; title3 bold color=red height=4 font=simplex 'אוכלוסייה-יישויות_שאינן_פפר-אינן_חטיבה_860_ואינן_סניף_998'; title4 bold color=black height=4 font=simplex 'הערה-ציון כא יכול ליהיות עם ערך ריק-0 מ-2 סיבות אפשריות'; title5 bold color=black height=4 font=simplex 'סיבה1-אוכלוסיה לא מדורגת '; title6 bold color=black height=4 font=simplex 'סיבה2-אוכלוסיה מדורגת ללא פעילות בכא וללא קיום כא בשנה אחרונה'; proc report data=b_NP_S1 missing nowd split='*'; column NP_IND_Prob mon ("מספר_יישויות" NP_Nr NP_NrY_POS NP_NrY_Null NP_NrY_0 NP_NrY_NoPreClean NP_NrY_PreClean_NoCrd) ("תמהיל_יישויות" NP_Tamhil_NrY_POS NP_Tamhil_NrY_Null NP_Tamhil_NrY_0 NP_Tamhil_NrY_NoPreClean NP_Tamhil_NrY_PreClean_NoCrd) ("הפרש_בתמהיל_מחודש_קודם" NP_DIF_Tamhil_NrY_POS NP_DIF_Tamhil_NrY_Null NP_DIF_Tamhil_NrY_0 NP_DIF_Tamhil_NrY_NoPreClean NP_DIF_Tamhil_NrY_PreClean_NoCrd) ; define NP_IND_Prob / 'אינד להדלקה' DISPLAY; define mon / 'חודש' DISPLAY; define NP_Nr / 'מספר יישויות' DISPLAY format=comma32.; define NP_NrY_POS / ' ציון כא חיובי' DISPLAY format=comma32.; define NP_NrY_Null / ' ציון כא ריק' DISPLAY format=comma32.; define NP_NrY_0 / ' ציון כא 0' DISPLAY format=comma32.; define NP_NrY_NoPreClean / 'ציון כא ריק* מסיבת*לא מדורגת' DISPLAY format=comma32.; define NP_NrY_PreClean_NoCrd / 'ציון כא ריק* מסיבת *יישות מדורגת*ללא פעילות בכא' DISPLAY format=comma32.; define NP_Tamhil_NrY_POS / 'ציון כא חיובי' DISPLAY; define NP_Tamhil_NrY_Null / 'ציון כא ריק' DISPLAY; define NP_Tamhil_NrY_0 / 'ציון כא 0' DISPLAY; define NP_Tamhil_NrY_NoPreClean / 'ציון כא ריק* מסיבת *לא מדורגת' DISPLAY; define NP_Tamhil_NrY_PreClean_NoCrd / 'ציון כא ריק* מסיבת*יישות מדורגת* ללא פעילות כא' DISPLAY; define NP_DIF_Tamhil_NrY_POS / 'ציון כא חיובי' DISPLAY; define NP_DIF_Tamhil_NrY_Null / 'ציון כא ריק' DISPLAY; define NP_DIF_Tamhil_NrY_0 / 'ציון כא 0' DISPLAY; define NP_DIF_Tamhil_NrY_NoPreClean / 'ציון כא ריק* מסיבת *יישות לא מדורגת' DISPLAY; define NP_DIF_Tamhil_NrY_PreClean_NoCrd / 'ציון כא ריק* מסיבת*יישות מדורגת* ללא פעילות כא' DISPLAY; compute NP_IND_Prob; if NP_IND_Prob = 1 then call define (_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute NP_DIF_Tamhil_NrY_POS; if abs(NP_DIF_Tamhil_NrY_POS) >0.03 then do; call define ('NP_DIF_Tamhil_NrY_POS',"style", "style={background=lightred}"); call define ('NP_Tamhil_NrY_POS',"style", "style={background=lightred}"); call define ('NP_NrY_POS',"style", "style={background=lightred}"); end; endcomp; compute NP_DIF_Tamhil_NrY_Null; if abs(NP_DIF_Tamhil_NrY_Null) >0.03 then do; call define ('NP_DIF_Tamhil_NrY_Null',"style", "style={background=lightred}"); call define ('NP_Tamhil_NrY_Null',"style", "style={background=lightred}"); call define ('NP_NrY_Null',"style", "style={background=lightred}"); end; endcomp; compute NP_DIF_Tamhil_NrY_0; if abs(NP_DIF_Tamhil_NrY_0) >0.03 then do; call define ('NP_DIF_Tamhil_NrY_0',"style", "style={background=lightred}"); call define ('NP_Tamhil_NrY_0',"style", "style={background=lightred}"); call define ('NP_NrY_0',"style", "style={background=lightred}"); end; endcomp; compute NP_DIF_Tamhil_NrY_NoPreClean; if abs(NP_DIF_Tamhil_NrY_NoPreClean) >0.03 then do; call define ('NP_DIF_Tamhil_NrY_NoPreClean',"style", "style={background=lightred}"); call define ('NP_Tamhil_NrY_NoPreClean',"style", "style={background=lightred}"); call define ('NP_NrY_NoPreClean',"style", "style={background=lightred}"); end; endcomp; compute NP_DIF_Tamhil_NrY_PreClean_NoCrd; if abs(NP_DIF_Tamhil_NrY_PreClean_NoCrd) >0.03 then do; call define ('NP_DIF_Tamhil_NrY_PreClean_NoCrd',"style", "style={background=lightred}"); call define ('NP_Tamhil_NrY_PreClean_NoCrd',"style", "style={background=lightred}"); call define ('NP_NrY_PreClean_NoCrd',"style", "style={background=lightred}"); end; endcomp; run; /****Pelet S1-- pepper***/ /****Pelet S1-- pepper***/ /****Pelet S1-- pepper***/ /**נדרש תיקון אך ורק ב2201-2206 בלל שבחודשים הללו אין פרי קלין**/ proc sort data=R_R.P_CrdRate_Bakara_S1 out=a_P_S1; by mon; Run; data b_P_S1; retain P_IND_Prob mon; set a_P_S1; by mon; P_DIF_Tamhil_NrY_POS=P_Tamhil_NrY_POS-LAG(P_Tamhil_NrY_POS); P_DIF_Tamhil_NrY_Null=P_Tamhil_NrY_Null-LAG(P_Tamhil_NrY_Null); P_DIF_Tamhil_NrY_0=P_Tamhil_NrY_0-LAG(P_Tamhil_NrY_0); P_DIF_Tamhil_NrY_NoPreClean=P_Tamhil_NrY_NoPreClean-LAG(P_Tamhil_NrY_NoPreClean); P_DIF_Tamhil_NrY_PreClean_NoCrd=P_Tamhil_NrY_PreClean_NoCrd-LAG(P_Tamhil_NrY_PreClean_NoCrd); format P_DIF_Tamhil_NrY_POS P_DIF_Tamhil_NrY_Null P_DIF_Tamhil_NrY_0 P_DIF_Tamhil_NrY_NoPreClean P_DIF_Tamhil_NrY_PreClean_NoCrd percent10.2; IF abs(P_DIF_Tamhil_NrY_POS)>0.03 OR abs(P_DIF_Tamhil_NrY_Null)>0.03 OR abs(P_DIF_Tamhil_NrY_0)>0.03 OR abs(P_DIF_Tamhil_NrY_NoPreClean)>0.03 OR abs(P_DIF_Tamhil_NrY_PreClean_NoCrd)>0.03 then P_IND_Prob=1; else P_IND_Prob=0;Run; proc sort data=b_P_S1; by descending mon; Run; proc sql noprint; select P_IND_Prob as Ind_P_S1_lastMon into :Ind_P_S1_lastMon Trimmed from b_P_S1 where mon=&last_mon_in_Report_YYMM1. and mon>=2502 ; quit; %put Ind_P_S1_lastMon=&Ind_P_S1_lastMon.; proc sql noprint; select case when &Ind_P_S1_lastMon.=1 then 'Red' when max(P_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S1 into : Ind_Color_Sheet_P_S1 Trimmed from b_P_S1 where mon>=2502 ; quit; %put Ind_Color_Sheet_P_S1=&Ind_Color_Sheet_P_S1.; /*Bakara_Crd_Rate*/ /*ODS _ALL_ CLOSE; */ /**to prevent print on screen***/ ods excel options (sheet_name='P_S1' sheet_interval="PROC" /**One table in sheet***/ embedded_titles='yes' embedded_footnotes='yes' sheet_interval="PROC" /***One table in sheet**/ gridlines = 'yes' tab_color="&Ind_Color_Sheet_P_S1." ); title; title1 bold color=red height=4 font=simplex 'אוכלוסייה-יישויות_פפר-חטיבה_860_או_סניף_998'; proc report data=b_P_S1 missing nowd split='*'; column P_IND_Prob mon ("מספר_יישויות" P_Nr P_NrY_POS P_NrY_Null P_NrY_0 P_NrY_NoPreClean P_NrY_PreClean_NoCrd) ("תמהיל_יישויות" P_Tamhil_NrY_POS P_Tamhil_NrY_Null P_Tamhil_NrY_0 P_Tamhil_NrY_NoPreClean P_Tamhil_NrY_PreClean_NoCrd) ("הפרש_בתמהיל_מחודש_קודם" P_DIF_Tamhil_NrY_POS P_DIF_Tamhil_NrY_Null P_DIF_Tamhil_NrY_0 P_DIF_Tamhil_NrY_NoPreClean P_DIF_Tamhil_NrY_PreClean_NoCrd) ; define P_IND_Prob / 'אינד להדלקה' DISPLAY; define mon / 'חודש' DISPLAY; define P_Nr / 'מספר יישויות' DISPLAY format=comma32.; define P_NrY_POS / ' ציון כא חיובי' DISPLAY format=comma32.; define P_NrY_Null / ' ציון כא ריק' DISPLAY format=comma32.; define P_NrY_0 / ' ציון כא 0' DISPLAY format=comma32.; define P_NrY_NoPreClean / 'ציון כא ריק* מסיבת*לא מדורגת' DISPLAY format=comma32.; define P_NrY_PreClean_NoCrd / 'ציון כא ריק* מסיבת *יישות מדורגת*ללא פעילות בכא' DISPLAY format=comma32.; define P_Tamhil_NrY_POS / 'ציון כא חיובי' DISPLAY; define P_Tamhil_NrY_Null / 'ציון כא ריק' DISPLAY; define P_Tamhil_NrY_0 / 'ציון כא 0' DISPLAY; define P_Tamhil_NrY_NoPreClean / 'ציון כא ריק* מסיבת *לא מדורגת' DISPLAY; define P_Tamhil_NrY_PreClean_NoCrd / 'ציון כא ריק* מסיבת*יישות מדורגת* ללא פעילות כא' DISPLAY; define P_DIF_Tamhil_NrY_POS / 'ציון כא חיובי' DISPLAY; define P_DIF_Tamhil_NrY_Null / 'ציון כא ריק' DISPLAY; define P_DIF_Tamhil_NrY_0 / 'ציון כא 0' DISPLAY; define P_DIF_Tamhil_NrY_NoPreClean / 'ציון כא ריק* מסיבת *יישות לא מדורגת' DISPLAY; define P_DIF_Tamhil_NrY_PreClean_NoCrd / 'ציון כא ריק* מסיבת*יישות מדורגת* ללא פעילות כא' DISPLAY; compute P_IND_Prob; if P_IND_Prob = 1 then call define (_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute P_DIF_Tamhil_NrY_POS; if abs(P_DIF_Tamhil_NrY_POS) >0.03 then do; call define ('P_DIF_Tamhil_NrY_POS',"style", "style={background=lightred}"); call define ('P_Tamhil_NrY_POS',"style", "style={background=lightred}"); call define ('P_NrY_POS',"style", "style={background=lightred}"); end; endcomp; compute P_DIF_Tamhil_NrY_Null; if abs(P_DIF_Tamhil_NrY_Null) >0.03 then do; call define ('P_DIF_Tamhil_NrY_Null',"style", "style={background=lightred}"); call define ('P_Tamhil_NrY_Null',"style", "style={background=lightred}"); call define ('P_NrY_Null',"style", "style={background=lightred}"); end; endcomp; compute P_DIF_Tamhil_NrY_0; if abs(P_DIF_Tamhil_NrY_0) >0.03 then do; call define ('P_DIF_Tamhil_NrY_0',"style", "style={background=lightred}"); call define ('P_Tamhil_NrY_0',"style", "style={background=lightred}"); call define ('P_NrY_0',"style", "style={background=lightred}"); end; endcomp; compute P_DIF_Tamhil_NrY_NoPreClean; if abs(P_DIF_Tamhil_NrY_NoPreClean) >0.03 then do; call define ('P_DIF_Tamhil_NrY_NoPreClean',"style", "style={background=lightred}"); call define ('P_Tamhil_NrY_NoPreClean',"style", "style={background=lightred}"); call define ('P_NrY_NoPreClean',"style", "style={background=lightred}"); end; endcomp; compute P_DIF_Tamhil_NrY_PreClean_NoCrd; if abs(P_DIF_Tamhil_NrY_PreClean_NoCrd) >0.03 then do; call define ('P_DIF_Tamhil_NrY_PreClean_NoCrd',"style", "style={background=lightred}"); call define ('P_Tamhil_NrY_PreClean_NoCrd',"style", "style={background=lightred}"); call define ('P_NrY_PreClean_NoCrd',"style", "style={background=lightred}"); end; endcomp; run; /***Pelet S1-b------No_Pepper+Pepper all together in one report***/ /***Pelet S1-b------No_Pepper+Pepper all together in one report***/ /***Pelet S1-b------No_Pepper+Pepper all together in one report***/ proc sort data=R_R.CrdRate_Bakara_S1b out=S1b; by descending mon; Run; proc sql noprint; select Ind_Prob as Ind_S1b_lastMon into :Ind_S1b_lastMon trimmed from S1b where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_S1b_lastMon=&Ind_S1b_lastMon.; proc sql noprint; select case when &Ind_S1b_lastMon.=1 then 'Red' when max(Ind_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_S1_b into : Ind_Color_Sheet_S1_b trimmed from S1b ; quit; %put Ind_Color_Sheet_S1_b=&Ind_Color_Sheet_S1_b.; ods excel options (sheet_name='S1-b' sheet_interval="PROC" /**One table in sheet**/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_S1_b." ); title; title1 bold color=red height=4 font=simplex 'בדיקת תקינות ערכי ציון כא'; title2 bold color=red height=4 font=simplex 'קריטריון להדלקה-קיימות יישויות עם ציון כא שלילי או מעל 1'; proc report data=S1b missing nowd split='*'; column ind_prob mon ("מספר יישויות" Nr_Y NR_Nulls NR_0 NR_POS_Ad1 NR_POS_MAAL1 NR_NEG) ; define IND_Prob / 'אינד להדלקה' DISPLAY; define mon / 'חודש' DISPLAY; define Nr_Y / 'מספר יישויות' DISPLAY f=comma32.; define NR_Nulls / 'ציון כא * ריק' DISPLAY f=comma32.; define NR_0/ 'ציון כא * 0' DISPLAY f=comma32.; define NR_POS_Ad1 / 'ציון כא * חיובי קטן שווה 1' DISPLAY f=comma32.; define NR_POS_MAAL1 / 'ציון כא * גדול מ1' DISPLAY f=comma32. style(header)={font_weight=bold color=red}; define NR_NEG / 'ציון כא * שלילי' DISPLAY f=comma32. style(header)={font_weight=bold color=red}; compute IND_Prob; if IND_Prob = 1 then call define(_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute NR_POS_MAAL1; if NR_POS_MAAL1 >0 then call define ('NR_POS_MAAL1',"style", "style={background=lightred}"); endcomp; compute NR_NEG; if NR_NEG >0 then call define ('NR_NEG',"style", "style={background=lightred}"); endcomp; Run; /***Pelet S2--NP***/ /***Pelet S2--NP***/ /***Pelet S2--NP***/ proc sort data=R_R.CrdRate_Bakara_S2_NP out=S2_NP; by mon; Run; data S2_NP_b; retain NP_IND_Prob mon; set S2_NP; by mon; NP_Dif_Tamhil_PRE_CLEAN=NP_Tamhil_PRE_CLEAN-LAG(NP_Tamhil_PRE_CLEAN); NP_Dif_Tamhil_NoPreClean=NP_Tamhil_NoPreClean-LAG(NP_Tamhil_NoPreClean); NP_Dif_Tamhil_PRE_CLEAN_CRD=NP_Tamhil_PRE_CLEAN_CRD-LAG(NP_Tamhil_PRE_CLEAN_CRD); NP_Dif_Tamhil_PRE_CLEAN_NoCRD=NP_Tamhil_PRE_CLEAN_NoCRD-LAG(NP_Tamhil_PRE_CLEAN_NoCRD); format NP_Dif_Tamhil_PRE_CLEAN NP_Dif_Tamhil_NoPreClean NP_Dif_Tamhil_PRE_CLEAN_CRD NP_Dif_Tamhil_PRE_CLEAN_NoCRD percent10.2; IF abs(NP_Dif_Tamhil_PRE_CLEAN)>0.03 OR abs(NP_Dif_Tamhil_NoPreClean)>0.03 OR abs(NP_Dif_Tamhil_PRE_CLEAN_CRD)>0.03 OR abs(NP_Dif_Tamhil_PRE_CLEAN_NoCRD)>0.03 then NP_IND_Prob=1; else NP_IND_Prob=0; Run; proc sort data=S2_NP_b; by descending mon; Run; proc sql noprint; select NP_IND_Prob as Ind_NP_S2_lastMon into :Ind_NP_S2_lastMon trimmed from S2_NP_b where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_NP_S2_lastMon=&Ind_NP_S2_lastMon.; proc sql noprint; select case when &Ind_NP_S2_lastMon.=1 then 'Red' when max(NP_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S2 into : Ind_Color_Sheet_NP_S2 trimmed from S2_NP_b ; quit; %put Ind_Color_Sheet_NP_S2=&Ind_Color_Sheet_NP_S2.; ods excel options (sheet_name='S2_NP' sheet_interval="PROC" /**One table in sheet***/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_NP_S2." ); title; title1 bold color=red height=5 font=simplex 'בקרת מספר יישויות לפי-כן/לא מדורגת,כן/לא פעילות או קיום בכא שנה אחרונה'; title2 bold color=red height=5 font=simplex 'אוכלוסייה-יישויות שאינן פפר'; title3 bold color=red height=5 font=simplex 'אינד להדלקה-הפרש בתמהיל מעל 3% מחודש קודם'; title4 bold color=black height=5 font=simplex 'בקרה זו הינה עזר בלבד ולא בקרה ישירה של ציון כא'; title5 bold color=black height=5 font=simplex 'בדיקת כא נעשית בשנה אחרונה'; proc report data=S2_NP_b missing nowd split='*'; column NP_IND_Prob mon ("מספר יישויות" NP_nr_Y NP_nr_PRE_CLEAN NP_nr_PRE_CLEAN_CRD NP_nr_PRE_CLEAN_NoCRD NP_nr_NoPreClean) ("תמהיל יישויות" NP_Tamhil_PRE_CLEAN NP_Tamhil_PRE_CLEAN_CRD NP_Tamhil_PRE_CLEAN_NoCRD NP_Tamhil_NoPreClean) ("הפרש תמהיל מחודש קודם" NP_Dif_Tamhil_PRE_CLEAN NP_Dif_Tamhil_PRE_CLEAN_CRD NP_Dif_Tamhil_PRE_CLEAN_NoCRD NP_Dif_Tamhil_NoPreClean) ; define NP_IND_Prob / 'אינד להדלקה' DISPLAY; define mon / 'חודש' DISPLAY; define NP_nr_Y / 'מספר יישויות' DISPLAY f=comma32.; define NP_nr_PRE_CLEAN / 'יישויות*מדורגות' DISPLAY f=comma32.; define NP_nr_PRE_CLEAN_CRD / 'יישויות_מדורגות*קיימת פעילות בכא' DISPLAY f=comma32.; define NP_nr_PRE_CLEAN_NoCRD / 'יישויות_מדורגות*אין פעילות בכא' DISPLAY f=comma32.; define NP_nr_NoPreClean / 'יישויות*לא מדורגות' DISPLAY f=comma32.; define NP_Tamhil_PRE_CLEAN / 'יישויות_מדורגות' DISPLAY; define NP_Tamhil_PRE_CLEAN_CRD / 'יישויות_מדורגות*קיימת פעילות בכא' DISPLAY; define NP_Tamhil_PRE_CLEAN_NoCRD / 'יישויות_מדורגות*אין פעילות בכא' DISPLAY; define NP_Tamhil_NoPreClean / 'יישויות*לא מדורגות' DISPLAY; define NP_Dif_Tamhil_PRE_CLEAN / 'יישויות_מדורגות' DISPLAY style(header)={font_weight=bold color=blue}; define NP_Dif_Tamhil_PRE_CLEAN_CRD / 'יישויות_מדורגות*קיימת פעילות בכא' DISPLAY style(header)={font_weight=bold color=blue}; define NP_Dif_Tamhil_PRE_CLEAN_NoCRD / 'יישויות_מדורגות*אין פעילות בכא' DISPLAY style(header)={font_weight=bold color=blue}; define NP_Dif_Tamhil_NoPreClean / 'יישויות*לא מדורגות' DISPLAY style(header)={font_weight=bold color=blue}; compute NP_IND_Prob; if NP_IND_Prob = 1 then call define (_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute NP_Dif_Tamhil_PRE_CLEAN; if abs(NP_Dif_Tamhil_PRE_CLEAN )>0.03 then do; call define ('NP_Dif_Tamhil_PRE_CLEAN',"style", "style={background=lightyellow}"); call define ('NP_nr_PRE_CLEAN',"style", "style={background=lightyellow}"); call define ('NP_Tamhil_PRE_CLEAN',"style", "style={background=lightyellow}"); end; endcomp; compute NP_Dif_Tamhil_PRE_CLEAN_CRD; if abs(NP_Dif_Tamhil_PRE_CLEAN_CRD )>0.03 then do; call define ('NP_Dif_Tamhil_PRE_CLEAN_CRD',"style", "style={background=lightyellow}"); call define ('NP_nr_PRE_CLEAN_CRD',"style", "style={background=lightyellow}"); call define ('NP_Tamhil_PRE_CLEAN_CRD',"style", "style={background=lightyellow}"); end; endcomp; compute NP_Dif_Tamhil_PRE_CLEAN_NoCRD; if abs(NP_Dif_Tamhil_PRE_CLEAN_NoCRD )>0.03 then do; call define ('NP_Dif_Tamhil_PRE_CLEAN_NoCRD',"style", "style={background=lightyellow}"); call define ('NP_Tamhil_PRE_CLEAN_NoCRD',"style", "style={background=lightyellow}"); call define ('NP_nr_PRE_CLEAN_NoCRD',"style", "style={background=lightyellow}"); end; endcomp; compute NP_Dif_Tamhil_NoPreClean; if abs(NP_Dif_Tamhil_NoPreClean )>0.03 then do; call define ('NP_Dif_Tamhil_NoPreClean',"style", "style={background=lightyellow}"); call define ('NP_Tamhil_NoPreClean',"style", "style={background=lightyellow}"); call define ('NP_nr_NoPreClean',"style", "style={background=lightyellow}"); end; endcomp; Run; /***Pelet S2---pepper***/ /***Pelet S2---pepper***/ /***Pelet S2---pepper***/ proc sort data=R_R.CrdRate_Bakara_S2_P out=S2_P; by mon; Run; data S2_P_b; retain P_IND_Prob mon; set S2_P; by mon; P_Dif_Tamhil_PRE_CLEAN=P_Tamhil_PRE_CLEAN-LAG(P_Tamhil_PRE_CLEAN); P_Dif_Tamhil_NoPreClean=P_Tamhil_NoPreClean-LAG(P_Tamhil_NoPreClean); P_Dif_Tamhil_PRE_CLEAN_CRD=P_Tamhil_PRE_CLEAN_CRD-LAG(P_Tamhil_PRE_CLEAN_CRD); P_Dif_Tamhil_PRE_CLEAN_NoCRD=P_Tamhil_PRE_CLEAN_NoCRD-LAG(P_Tamhil_PRE_CLEAN_NoCRD); format P_Dif_Tamhil_PRE_CLEAN P_Dif_Tamhil_NoPreClean P_Dif_Tamhil_PRE_CLEAN_CRD P_Dif_Tamhil_PRE_CLEAN_NoCRD percent10.2; IF abs(P_Dif_Tamhil_PRE_CLEAN)>0.03 OR abs(P_Dif_Tamhil_NoPreClean)>0.03 OR abs(P_Dif_Tamhil_PRE_CLEAN_CRD)>0.03 OR abs(P_Dif_Tamhil_PRE_CLEAN_NoCRD)>0.03 then P_IND_Prob=1; else P_IND_Prob=0; Run; proc sort data=S2_P_b; by descending mon; Run; proc sql noprint; select P_IND_Prob as Ind_P_S2_lastMon into :Ind_P_S2_lastMon trimmed from S2_P_b where mon>=2502 AND mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_P_S2_lastMon=&Ind_P_S2_lastMon.; proc sql noprint; select case when &Ind_P_S2_lastMon.=1 then 'Red' when max(P_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S2 into : Ind_Color_Sheet_P_S2 trimmed from S2_P_b where mon>=2502 ; quit; %put Ind_Color_Sheet_P_S2=&Ind_Color_Sheet_P_S2.; ods excel options (sheet_name='S2_P' sheet_interval="PROC" /***One table in sheet**/ absolute_column_width="13,13,13,18,18,18,18,18,18,18,18,18,18,18,18,18" row_heights='30,16,20,20,20' embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_P_S2." ); title; title1 bold color=red height=5 font=simplex 'בקרת מספר יישויות לפי-כן/לא אוכלוסייה מדורגת,כן/לא פעילות או קיום כא שנה אחרונה'; title2 bold color=red height=5 font=simplex 'אוכלוסייה-יישויות פפר'; title3 bold color=red height=5 font=simplex 'אינד להדלקה-הפרש בתמהיל מעל 3% מחודש קודם'; title4 bold color=red height=5 font=simplex 'הדלקת גליון-החל מ 2502 בגלל שזה פפר'; title5 bold color=black height=5 font=simplex 'בקרה זו הינה עזר בלבד ולא בקרה ישירה של ציון כא'; title6 bold color=black height=5 font=simplex 'בדיקת פעילות כא נעשית בשנה אחרונה'; proc report data=S2_P_b missing nowd split='*'; column P_IND_Prob mon ("מספר יישויות" P_nr_Y P_nr_PRE_CLEAN P_nr_PRE_CLEAN_CRD P_nr_PRE_CLEAN_NoCRD P_nr_NoPreClean) ("תמהיל יישויות" P_Tamhil_PRE_CLEAN P_Tamhil_PRE_CLEAN_CRD P_Tamhil_PRE_CLEAN_NoCRD P_Tamhil_NoPreClean) ("הפרש תמהיל מחודש קודם" P_Dif_Tamhil_PRE_CLEAN P_Dif_Tamhil_PRE_CLEAN_CRD P_Dif_Tamhil_PRE_CLEAN_NoCRD P_Dif_Tamhil_NoPreClean) ; define P_IND_Prob / 'אינד להדלקה' DISPLAY; define mon / 'חודש' DISPLAY; define P_nr_Y / 'מספר יישויות' DISPLAY f=comma32.; define P_nr_PRE_CLEAN / 'יישויות*מדורגות' DISPLAY f=comma32.; define P_nr_PRE_CLEAN_CRD / 'יישויות_מדורגות*קיימת פעילות בכא' DISPLAY f=comma32.; define P_nr_PRE_CLEAN_NoCRD / 'יישויות_מדורגות*אין פעילות בכא' DISPLAY f=comma32.; define P_nr_NoPreClean / 'יישויות*לא מדורגות' DISPLAY f=comma32.; define P_Tamhil_PRE_CLEAN / 'יישויות_מדורגות' DISPLAY; define P_Tamhil_PRE_CLEAN_CRD / 'יישויות_מדורגות*קיימת פעילות בכא' DISPLAY; define P_Tamhil_PRE_CLEAN_NoCRD / 'יישויות_מדורגות*אין פעילות בכא' DISPLAY; define P_Tamhil_NoPreClean / 'יישויות*לא מדורגות' DISPLAY; define P_Dif_Tamhil_PRE_CLEAN / 'יישויות_מדורגות' DISPLAY style(header)={font_weight=bold color=blue}; define P_Dif_Tamhil_PRE_CLEAN_CRD / 'יישויות_מדורגות*קיימת פעילות בכא' DISPLAY style(header)={font_weight=bold color=blue}; define P_Dif_Tamhil_PRE_CLEAN_NoCRD / 'יישויות_מדורגות*אין פעילות בכא' DISPLAY style(header)={font_weight=bold color=blue}; define P_Dif_Tamhil_NoPreClean / 'יישויות*לא מדורגות' DISPLAY style(header)={font_weight=bold color=blue}; compute P_IND_Prob; if P_IND_Prob = 1 then call define (_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute P_Dif_Tamhil_PRE_CLEAN; if abs(P_Dif_Tamhil_PRE_CLEAN )>0.03 then do; call define ('P_Dif_Tamhil_PRE_CLEAN',"style", "style={background=lightyellow}"); call define ('P_nr_PRE_CLEAN',"style", "style={background=lightyellow}"); call define ('P_Tamhil_PRE_CLEAN',"style", "style={background=lightyellow}"); end; endcomp; compute P_Dif_Tamhil_PRE_CLEAN_CRD; if abs(P_Dif_Tamhil_PRE_CLEAN_CRD )>0.03 then do; call define ('P_Dif_Tamhil_PRE_CLEAN_CRD',"style", "style={background=lightyellow}"); call define ('P_nr_PRE_CLEAN_CRD',"style", "style={background=lightyellow}"); call define ('P_Tamhil_PRE_CLEAN_CRD',"style", "style={background=lightyellow}"); end; endcomp; compute P_Dif_Tamhil_PRE_CLEAN_NoCRD; if abs(P_Dif_Tamhil_PRE_CLEAN_NoCRD )>0.03 then do; call define ('P_Dif_Tamhil_PRE_CLEAN_NoCRD',"style", "style={background=lightyellow}"); call define ('P_Tamhil_PRE_CLEAN_NoCRD',"style", "style={background=lightyellow}"); call define ('P_nr_PRE_CLEAN_NoCRD',"style", "style={background=lightyellow}"); end; endcomp; compute P_Dif_Tamhil_NoPreClean; if abs(P_Dif_Tamhil_NoPreClean )>0.03 then do; call define ('P_Dif_Tamhil_NoPreClean',"style", "style={background=lightyellow}"); call define ('P_Tamhil_NoPreClean',"style", "style={background=lightyellow}"); call define ('P_nr_NoPreClean',"style", "style={background=lightyellow}"); end; endcomp; Run; /***Pelet S3--No pepper****/ /***Pelet S3--No pepper****/ /***Pelet S3--No pepper****/ proc sort data=R_R.NP_CrdRate_Bakara_S3; by Help mon; Run; Data NP_S3_a; retain NP_IND_Prob mon _prev_mx_pos_prob_ Ind_CRD_12Mon help Ind_Stira NP_nr NP_Tamhil NP_dif_tamhil ; set R_R.NP_CrdRate_Bakara_S3; by Help; NP_dif_tamhil=NP_Tamhil-LAG(NP_Tamhil); If first.Help then do; NP_dif_tamhil=.; end; Format NP_dif_tamhil percent10.2; IF abs(NP_dif_tamhil)>0.03 then NP_IND_Prob=1; else NP_IND_Prob=0; Run; proc sort data=NP_S3_a; by descending mon descending Ind_Stira descending Ind_CRD_12Mon; Run; data NP_S3_b; retain NP_IND_Prob mon; set NP_S3_a; IF abs(NP_dif_tamhil)>0.03 then NP_IND_Prob=1; else NP_IND_Prob=0; Run; proc sql noprint; select max(NP_IND_Prob) as Ind_NP_S3_lastMon into :Ind_NP_S3_lastMon trimmed from NP_S3_b where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_NP_S3_lastMon=&Ind_NP_S3_lastMon.; proc sql noprint; select case when &Ind_NP_S3_lastMon.=1 then 'Red' when max(NP_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S3 into : Ind_Color_Sheet_NP_S3 trimmed from NP_S3_b ; quit; %put Ind_Color_Sheet_NP_S3=&Ind_Color_Sheet_NP_S3.; proc format; value red_fmt 1=lightred other=lightgreen; run; proc format; value red2_fmt 1=lightorange other=white; run; ods excel options(sheet_name="S3-NP_one_tbl" embedded_titles='yes' sheet_interval="PROC" /**one table in sheet***/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_NP_S3." ); title; title1 j=l bold color=red height=4 font=simplex 'אוכלוסיה-יישויות מדורגות שאינן פפר'; title2 j=l bold color=red height=4 font=simplex 'בקרת אוכלוסיה של דוד'; title3 j=l bold color=red height=4 font=simplex 'פלט כלל חודשים בטבלה אחת'; title4 j=l bold color=black height=4 font=simplex 'ב2505 בוצע שינוי בלוגיקה ומעתה ואילך נבדק ניצול בכא או החזר לכא או קיום כא ללא ניצול או החזר'; proc report data=NP_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns NP_IND_Prob mon Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira NP_nr NP_Tamhil NP_dif_tamhil; define mon/display order=data ' '; define Ind_CRD_12Mon/display 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/display 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/display 'אינד לסתירה'; define NP_IND_Prob/display 'אינד להדלקה'; define NP_nr/display 'מספר יישויות'; define NP_Tamhil/display 'תמהיל יישויות'; define NP_dif_tamhil/display 'הפרש תמהיל יישויות'; compute NP_IND_Prob; IF NP_IND_Prob=1 then call define(_col_,"Style","style={background=LIGHTRED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; compute Ind_Stira; If Ind_Stira=1 then call define (_row_,"style","style=[backgroundcolor=lightblue]"); endcomp; compute NP_dif_tamhil; if NP_IND_Prob=1 then call define(_col_,"Style","style={background=LIGHTRED}"); endcomp; run; ods excel options(sheet_name="S3-NP_Multi_tables" embedded_titles='yes' sheet_interval="none" /**Multiple tables in sheet***/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_NP_S3." ); /**Here multiple reports in same sheet***/ title; title1 j=l bold color=red height=4 font=simplex 'חלוקת הפלט למספר טבלאות'; title2 j=l 'אינד להדלקה'; proc report data=NP_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira NP_IND_Prob,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define NP_IND_Prob/mean 'אינד להדלקה'; compute NP_IND_Prob; call define(_col_,"Style","style={background=red_fmt.}"); endcomp; compute Ind_Stira; call define(_col_,"Style","style={background=lightblue.}"); endcomp; run; title; title j=l 'מספר יישויות'; proc report data=NP_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira NP_nr,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define NP_nr/mean 'מספר יישויות' f=comma32.; compute Ind_Stira; call define(_col_,"Style","style={background=lightblue.}"); endcomp; run; title; title j=l 'תמהיל יישויות'; proc report data=NP_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira NP_Tamhil,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define NP_Tamhil/mean 'תמהיל יישויות'; compute Ind_Stira; call define(_col_,"Style","style={background=lightblue.}"); endcomp; run; title; title j=l 'הפרש בתמהיל יישויות מחודש קודם'; proc report data=NP_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira NP_dif_tamhil,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define NP_dif_tamhil/mean 'הפרש תמהיל יישויות'; compute Ind_Stira; If Ind_Stira=1 then call define (_row_,"style","style=[backgroundcolor=lightblue]"); endcomp; run; /***Pelet S3--pepper****/ /***Pelet S3--pepper****/ /***Pelet S3--pepper****/ proc sort data=R_R.P_CrdRate_Bakara_S3; by Help mon; Run; Data P_S3_a; retain P_IND_Prob mon _prev_mx_pos_prob_ Ind_CRD_12Mon help Ind_Stira P_nr P_Tamhil P_dif_tamhil ; set R_R.P_CrdRate_Bakara_S3; by Help; P_dif_tamhil=P_Tamhil-LAG(P_Tamhil); If first.Help then do; P_dif_tamhil=.; end; Format P_dif_tamhil percent10.2; IF abs(P_dif_tamhil)>0.03 then P_IND_Prob=1; else P_IND_Prob=0; Run; proc sort data=P_S3_a; by descending mon descending Ind_Stira descending Ind_CRD_12Mon; Run; data P_S3_b; retain P_IND_Prob mon; set P_S3_a; IF abs(P_dif_tamhil)>0.03 then P_IND_Prob=1; else P_IND_Prob=0; Run; proc sql noprint; select max(P_IND_Prob) as Ind_P_S3_lastMon into :Ind_P_S3_lastMon trimmed from P_S3_b where mon=&last_mon_in_Report_YYMM1. and mon>=2502 ; quit; %put Ind_P_S3_lastMon=&Ind_P_S3_lastMon.; proc sql noprint; select case when &Ind_P_S3_lastMon.=1 then 'Red' when max(P_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S3 into : Ind_Color_Sheet_P_S3 trimmed from P_S3_b where mon>=2502 ; quit; %put Ind_Color_Sheet_P_S3=&Ind_Color_Sheet_P_S3.; ods excel options(sheet_name="S3-P_one_tbl" embedded_titles='yes' sheet_interval="PROC" /**one table in sheet***/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_P_S3." ); title; title1 j=l bold color=red height=4 font=simplex 'אוכלוסיה-יישויות מדורגות פפר'; title2 j=l bold color=red height=4 font=simplex 'בקרת אוכלוסיה של דוד'; title3 j=l bold color=red height=4 font=simplex 'פלט כלל חודשים בטבלה אחת'; title4 j=l bold color=black height=4 font=simplex 'ב2505 בוצע שינוי בלוגיקה ומעתה ואילך נבדק ניצול בכא או החזר לכא או קיום כא ללא ניצול או החזר'; proc report data=P_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns P_IND_Prob mon Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira P_nr P_Tamhil P_dif_tamhil; define mon/display order=data ' '; define Ind_CRD_12Mon/display 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/display 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/display 'אינד לסתירה'; define P_IND_Prob/display 'אינד להדלקה'; define P_nr/display 'מספר יישויות'; define P_Tamhil/display 'תמהיל יישויות'; define P_dif_tamhil/display 'הפרש תמהיל יישויות'; compute P_IND_Prob; IF P_IND_Prob=1 then call define(_col_,"Style","style={background=LIGHTRED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; compute Ind_Stira; If Ind_Stira=1 then call define (_row_,"style","style=[backgroundcolor=lightblue]"); endcomp; compute P_dif_tamhil; if P_IND_Prob=1 then call define(_col_,"Style","style={background=LIGHTRED}"); endcomp; run; ods excel options(sheet_name="S3-P_Multi_tables" embedded_titles='yes' sheet_interval="none" /**Multiple tables in sheet***/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&Ind_Color_Sheet_P_S3." ); /**Here multiple reports in same sheet***/ title; title1 j=l bold color=red height=5 font=simplex 'אוכלוסייה-יישויות מדורגות_פפר'; title2 j=l bold color=red height=5 font=simplex 'בקרת אוכלוסיה של דוד'; title3 j=l 'אינד להדלקה'; proc report data=P_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira P_IND_Prob,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define P_IND_Prob/mean 'אינד להדלקה'; compute P_IND_Prob; call define(_col_,"Style","style={background=red_fmt.}"); endcomp; compute Ind_Stira; call define(_col_,"Style","style={background=red2_fmt.}"); endcomp; run; title; title j=l 'מספר יישויות'; proc report data=P_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira P_nr,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define P_nr/mean 'מספר יישויות' f=comma32.; compute Ind_Stira; call define(_col_,"Style","style={background=red2_fmt.}"); endcomp; run; title; title j=l 'תמהיל יישויות'; proc report data=P_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira P_Tamhil,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define P_Tamhil/mean 'תמהיל יישויות'; compute Ind_Stira; call define(_col_,"Style","style={background=red2_fmt.}"); endcomp; run; title; title j=l 'הפרש בתמהיל יישויות מחודש קודם'; proc report data=P_S3_b missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; columns Ind_CRD_12Mon _prev_mx_pos_prob_ Ind_Stira P_dif_tamhil,mon; define Ind_CRD_12Mon/group 'אינד לקיום *פעילות כא'; define _prev_mx_pos_prob_/group 'אינד ציון כא *חיובי או ריק'; define Ind_Stira/group 'אינד לסתירה'; define mon/across order=data ' '; define P_dif_tamhil/mean 'הפרש תמהיל יישויות'; compute Ind_Stira; call define(_col_,"Style","style={background=red2_fmt.}"); endcomp; run; /*****Pelet S4--NO pepper****/ /*****Pelet S4--NO pepper****/ /*****Pelet S4--NO pepper****/ proc sort data=R_R.NP_CrdRate_Bakara_S4; by mon; Run; Data a_pelet_Sheet_S4_NP; retain NP_IND_Prob mon; set R_R.NP_CrdRate_Bakara_S4; dif_p10=abs(sum(P10,-LAG(p10))); dif_p20=abs(sum(P20,-LAG(p20))); dif_p30=abs(sum(P30,-LAG(p30))); dif_p40=abs(sum(P40,-LAG(p40))); dif_p50=abs(sum(P50,-LAG(p50))); dif_p60=abs(sum(P60,-LAG(p60))); dif_p70=abs(sum(P70,-LAG(p70))); dif_p80=abs(sum(P80,-LAG(p80))); dif_p90=abs(sum(P90,-LAG(p90))); dif_p95=abs(sum(P95,-LAG(p95))); dif_p100=abs(sum(P100,-LAG(p100))); If _N_=1 then do; dif_p10=.; dif_p20=.; dif_p30=.; dif_p40=.; dif_p50=.; dif_p60=.; dif_p70=.; dif_p80=.; dif_p90=.; dif_p95=.; dif_p100=.; end; Format dif_p10 dif_p20 dif_p30 dif_p40 dif_p50 dif_p60 dif_p70 dif_p80 dif_p90 dif_p95 dif_p100 percent10.5; IF abs(dif_p10)>0.05 OR abs(dif_p20)>0.05 OR abs(dif_p30)>0.05 OR abs(dif_p40)>0.05 OR abs(dif_p50)>0.05 OR abs(dif_p60)>0.05 OR abs(dif_p70)>0.05 OR abs(dif_p80)>0.05 OR abs(dif_p90)>0.05 OR abs(dif_p95)>0.05 OR abs(dif_p100)>0.05 then NP_IND_Prob=1; else NP_IND_Prob=0; Run; proc sort data=a_pelet_Sheet_S4_NP out=NP_S4; by descending mon; Run; proc sql noprint; select NP_IND_Prob as Ind_NP_S4_lastMon into :Ind_NP_S4_lastMon trimmed from NP_S4 where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_NP_S4_lastMon=&Ind_NP_S4_lastMon.; proc sql noprint; select case when &Ind_NP_S4_lastMon.=1 then 'Red' when max(NP_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S4 into : Ind_Color_Sheet_NP_S4 trimmed from NP_S4 ; quit; %put Ind_Color_Sheet_NP_S4=&Ind_Color_Sheet_NP_S4.; ods excel options (sheet_name='S4-NP' sheet_interval="PROC" /***One table in sheet**/ absolute_column_width="12,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8" row_heights='30,16,20,20,20' tab_color="&Ind_Color_Sheet_NP_S4." embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); title; title1 bold color=red height=5 font=simplex 'אוכ-יישויות שאינן פפר בעלות ציון כא חיובי'; title2 bold color=red height=5 font=simplex 'Percentiles בדיקת יציבות אחוזונים'; title3 bold color=red height=5 font=simplex 'קריטריון להדלקה- קפיצה מעל 5% כלומר מעל 0.05 בערך האחוזון מחודש קודם'; title4 bold color=black height=5 font=simplex 'בודקים הפרש בערכי אחוזונים בכל חודש מחודש קודם'; title5 bold color=black height=5 font=simplex 'כלומר בודקים דלתא בערך האחוזון מחודש לחודש קודם'; title6 bold color=black height=5 font=simplex 'לשם נוחיות הערכים מוצגים באחוזים ולא במספר עשרוני כלומר ערכים בין 0 ל 100%'; proc report data=NP_S4 missing nowd style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; column NP_IND_Prob mon ("אחוזון_Percentiles" P10 P20 P30 P40 P50 P60 P70 P80 P90 P95 P100 ) ("הפרש_באחוזון מחודש קודם" dif_p10 dif_p20 dif_p30 dif_p40 dif_p50 dif_p60 dif_p70 dif_p80 dif_p90 dif_p95 dif_p100 ) n ; define NP_IND_Prob/DISPLAY 'אינד להדלקה'; define mon/DISPLAY 'חודש' ; define P10/DISPLAY '10' f=percent10.4 style(column)=[font_size=8pt]; define P20/DISPLAY '20' f=percent10.4 style(column)=[font_size=8pt]; define P30/DISPLAY '30' f=percent10.4 style(column)=[font_size=8pt]; define P40/DISPLAY '40' f=percent10.4 style(column)=[font_size=8pt]; define P50/DISPLAY '50' f=percent10.4 style(column)=[font_size=8pt]; define P60/DISPLAY '60' f=percent10.4 style(column)=[font_size=8pt]; define P70/DISPLAY '70' f=percent10.4 style(column)=[font_size=8pt]; define P80/DISPLAY '80' f=percent10.4 style(column)=[font_size=8pt]; define P90/DISPLAY '90' f=percent10.4 style(column)=[font_size=8pt]; define P95/DISPLAY '95' f=percent10.4 style(column)=[font_size=8pt]; define P100/DISPLAY '100' f=percent10.4 style(column)=[font_size=8pt]; define dif_p10/DISPLAY '10' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p20/DISPLAY '20' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p30/DISPLAY '30' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt] ; define dif_p40/DISPLAY '40' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p50/DISPLAY '50' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p60/DISPLAY '60' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p70/DISPLAY '70' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p80/DISPLAY '80' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p90/DISPLAY '90' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p95/DISPLAY '95' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p100/DISPLAY '100' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; compute NP_IND_Prob; if NP_IND_Prob = 1 then call define (_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute dif_p100; if dif_p10>0.05 then call define ('P10',"style", "style={background=red}"); if dif_p20>0.05 then call define ('P20',"style", "style={background=red}"); if dif_p30>0.05 then call define ('P30',"style", "style={background=red}"); if dif_p40>0.05 then call define ('P40',"style", "style={background=red}"); if dif_p50>0.05 then call define ('P50',"style", "style={background=red}"); if dif_p60>0.05 then call define ('P60',"style", "style={background=red}"); if dif_p70>0.05 then call define ('P70',"style", "style={background=red}"); if dif_p80>0.05 then call define ('P80',"style", "style={background=red}"); if dif_p90>0.05 then call define ('P90',"style", "style={background=red}"); if dif_p95>0.05 then call define ('P95',"style", "style={background=red}"); if dif_p100>0.05 then call define ('P100',"style", "style={background=red}"); endcomp; compute dif_p10; if dif_p10>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p20; if dif_p20>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p30; if dif_p30>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p40; if dif_p40>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p50; if dif_p50>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p60; if dif_p60>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p70; if dif_p70>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p80; if dif_p80>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p90; if dif_p90>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; Run; /*pelet S4-pepper*/ /*pelet S4-pepper*/ /*pelet S4-pepper*/ proc sort data=R_R.P_CrdRate_Bakara_S4; by mon; Run; Data a_pelet_Sheet_S4_P; retain P_IND_Prob mon; set R_R.P_CrdRate_Bakara_S4; dif_p10=abs(sum(P10,-LAG(p10))); dif_p20=abs(sum(P20,-LAG(p20))); dif_p30=abs(sum(P30,-LAG(p30))); dif_p40=abs(sum(P40,-LAG(p40))); dif_p50=abs(sum(P50,-LAG(p50))); dif_p60=abs(sum(P60,-LAG(p60))); dif_p70=abs(sum(P70,-LAG(p70))); dif_p80=abs(sum(P80,-LAG(p80))); dif_p90=abs(sum(P90,-LAG(p90))); dif_p95=abs(sum(P95,-LAG(p95))); dif_p100=abs(sum(P100,-LAG(p100))); If _N_=1 then do; dif_p10=.; dif_p20=.; dif_p30=.; dif_p40=.; dif_p50=.; dif_p60=.; dif_p70=.; dif_p80=.; dif_p90=.; dif_p95=.; dif_p100=.; end; Format dif_p10 dif_p20 dif_p30 dif_p40 dif_p50 dif_p60 dif_p70 dif_p80 dif_p90 dif_p95 dif_p100 percent10.5; IF abs(dif_p10)>0.05 OR abs(dif_p20)>0.05 OR abs(dif_p30)>0.05 OR abs(dif_p40)>0.05 OR abs(dif_p50)>0.05 OR abs(dif_p60)>0.05 OR abs(dif_p70)>0.05 OR abs(dif_p80)>0.05 OR abs(dif_p90)>0.05 OR abs(dif_p95)>0.05 OR abs(dif_p100)>0.05 then P_IND_Prob=1; else P_IND_Prob=0; Run; proc sort data=a_pelet_Sheet_S4_P out=P_S4; by descending mon; Run; proc sql noprint; select P_IND_Prob as Ind_P_S4_lastMon into :Ind_P_S4_lastMon trimmed from P_S4 where mon=&last_mon_in_Report_YYMM1. and mon>=2502 ; quit; %put Ind_P_S4_lastMon=&Ind_P_S4_lastMon.; proc sql noprint; select case when &Ind_P_S4_lastMon.=1 then 'Red' when max(P_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S4 into : Ind_Color_Sheet_P_S4 trimmed from P_S4 where mon>=2502 ; quit; %put Ind_Color_Sheet_P_S4=&Ind_Color_Sheet_P_S4.; Proc format ; value highlight_S4_Fmt 0.05<-high = 'red' ; Run; ods excel options (sheet_name='S4-P' sheet_interval="PROC" /***One table in sheet**/ absolute_column_width="12,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8" row_heights='30,16,20,20,20' tab_color="&Ind_Color_Sheet_P_S4." embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); title; title1 j=l bold color=red height=5 font=simplex 'אוכ-יישויות פפר בעלות ציון כא חיובי'; title2 j=l bold color=red height=5 font=simplex 'Percentiles בדיקת יציבות אחוזונים'; title3 j=l bold color=red height=5 font=simplex 'קריטריון להדלקה- קפיצה מעל 5% כלומר מעל 0.05 בערך האחוזון מחודש קודם'; title4 j=l bold color=red height=5 font=simplex 'הדלקת גליון-החל מ 2502 בגלל שזה פפר'; title5 j=l bold color=black height=5 font=simplex 'בודקים הפרש בערכי אחוזונים בכל חודש מחודש קודם'; title6 j=l bold color=black height=5 font=simplex 'כלומר בודקים דלתא בערך האחוזון מחודש לחודש קודם'; title7 bold color=black height=5 font=simplex 'לשם נוחיות הערכים מוצגים באחוזים ולא במספר עשרוני כלומר ערכים בין 0 ל 100%'; proc report data=P_S4 missing nowd style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} ; column P_IND_Prob mon ("אחוזון_Percentiles" P10 P20 P30 P40 P50 P60 P70 P80 P90 P95 P100 ) ("הפרש_באחוזון מחודש קודם" dif_p10 dif_p20 dif_p30 dif_p40 dif_p50 dif_p60 dif_p70 dif_p80 dif_p90 dif_p95 dif_p100 ) n ; define P_IND_Prob/DISPLAY 'אינד להדלקה'; define mon/DISPLAY 'חודש' ; define P10/DISPLAY '10' f=percent10.4 style(column)=[font_size=8pt]; define P20/DISPLAY '20' f=percent10.4 style(column)=[font_size=8pt]; define P30/DISPLAY '30' f=percent10.4 style(column)=[font_size=8pt]; define P40/DISPLAY '40' f=percent10.4 style(column)=[font_size=8pt]; define P50/DISPLAY '50' f=percent10.4 style(column)=[font_size=8pt]; define P60/DISPLAY '60' f=percent10.4 style(column)=[font_size=8pt]; define P70/DISPLAY '70' f=percent10.4 style(column)=[font_size=8pt]; define P80/DISPLAY '80' f=percent10.4 style(column)=[font_size=8pt]; define P90/DISPLAY '90' f=percent10.4 style(column)=[font_size=8pt]; define P95/DISPLAY '95' f=percent10.4 style(column)=[font_size=8pt]; define P100/DISPLAY '100' f=percent10.4 style(column)=[font_size=8pt]; define dif_p10/DISPLAY '10' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p20/DISPLAY '20' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p30/DISPLAY '30' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt] ; define dif_p40/DISPLAY '40' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p50/DISPLAY '50' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p60/DISPLAY '60' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p70/DISPLAY '70' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p80/DISPLAY '80' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p90/DISPLAY '90' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p95/DISPLAY '95' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; define dif_p100/DISPLAY '100' f=percent10.4 style=[background=highlight_S4_Fmt.] style(column)=[font_size=8pt]; compute P_IND_Prob; if P_IND_Prob = 1 then call define (_col_,"style", "style={background=lightred}"); else call define (_col_,"style", "style={background=lightgreen}"); endcomp; compute dif_p100; if dif_p10>0.05 then call define ('P10',"style", "style={background=red}"); if dif_p20>0.05 then call define ('P20',"style", "style={background=red}"); if dif_p30>0.05 then call define ('P30',"style", "style={background=red}"); if dif_p40>0.05 then call define ('P40',"style", "style={background=red}"); if dif_p50>0.05 then call define ('P50',"style", "style={background=red}"); if dif_p60>0.05 then call define ('P60',"style", "style={background=red}"); if dif_p70>0.05 then call define ('P70',"style", "style={background=red}"); if dif_p80>0.05 then call define ('P80',"style", "style={background=red}"); if dif_p90>0.05 then call define ('P90',"style", "style={background=red}"); if dif_p95>0.05 then call define ('P95',"style", "style={background=red}"); if dif_p100>0.05 then call define ('P100',"style", "style={background=red}"); endcomp; compute dif_p10; if dif_p10>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p20; if dif_p20>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p30; if dif_p30>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p40; if dif_p40>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p50; if dif_p50>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p60; if dif_p60>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p70; if dif_p70>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p80; if dif_p80>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; compute dif_p90; if dif_p90>0.05 then call define (_COL_,"style", "style={background=red}"); endcomp; Run; /***Pelet S5--Here no have crietria for problem***/ /***Pelet S5--Here no have crietria for problem***/ /***Pelet S5--Here no have crietria for problem***/ proc sort data=r_r.CrdRate_Bakara_S5 out=S5; by descending mon; Run; proc format; value $hdfmt 'לא_פפר'='cyan' 'פפר'='cyan' ; Run; ods excel options (sheet_name='S5' sheet_interval="PROC" /***One table in sheet**/ absolute_column_width="13,25,15,15,15,15,15,15,15,15" row_heights='15' tab_color='grey' embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); title; title1 j=l bold color=red height=5 font=simplex 'אוכלוסייה--כלל יישויות קלין'; title2 j=l bold color=red height=5 font=simplex 'בקרת אחוז יישויות בכשל 12 חודשים קדימה'; title3 j=l bold color=red height=5 font=simplex 'לא הוגדר קריטריון להדלקה'; title4 j=l bold color=black height=4 font=simplex 'זוהי איננה בקרה ישירה לנושא ציון כא'; title5 j=l bold color=black height=4 font=simplex 'אם למשל מפורסם סקור 2507 אז מתעדכן קלין של 2407'; proc report data=S5 missing nowd split='*' /*STYLE(Report) = {frame=box bordercolor = grey borderwidth=2px}*/ /*STYLE(header) = HEADER{background=verylightgrey fontsize=2}*/ style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} style(header)={font_weight=bold borderwidth=0 borderspacing=0 font_size=9pt background=$hdfmt. }; ; column mon ("לא_פפר" NP_Nr_Y NP_nr_KESHELFUTURE NP_nr_NoKESHELFUTURE NP_PCT_KESHELFUTURE) ("פפר" P_Nr_Y P_nr_KESHELFUTURE P_nr_NoKESHELFUTURE P_PCT_KESHELFUTURE) ; define mon/Display "חודש" style(header)=[background=lightblue] ; define NP_Nr_Y/Display style(header)=[background=lightblue] 'מספר יישויות' f=comma32. ; define NP_nr_KESHELFUTURE/Display style(header)=[background=lightblue] 'מספר יישויות * בכשל' f=comma32. ; define NP_nr_NoKESHELFUTURE/Display style(header)=[background=lightblue] 'מספר יישויות * לא בכשל' f=comma32. ; define NP_PCT_KESHELFUTURE/Display style(header)=[background=lightblue] style(header)={font_weight=bold color=red} STYLE(column)=[just=c width=.6in] 'אחוז בכשל ' ; define P_Nr_Y/Display style(header)=[background=lightblue] 'מספר יישויות '; define P_nr_KESHELFUTURE/Display style(header)=[background=lightblue] 'מספר יישויות * בכשל ' f=comma32. ; define P_nr_NoKESHELFUTURE/Display style(header)=[background=lightblue] 'מספר יישויות * לא בכשל' f=comma32. ; define P_PCT_KESHELFUTURE/Display style(header)=[background=lightblue] style(header)={font_weight=bold color=red} STYLE(column)=[just=c width=.6in] 'אחוז בכשל' ; COMPUTE NP_PCT_KESHELFUTURE; IF _col_ = 6 THEN DO; CALL DEFINE(_col_,'style','style={background=verylightyellow}'); END; ENDCOMP; COMPUTE P_PCT_KESHELFUTURE; IF _col_ = 10 THEN DO; CALL DEFINE(_col_,'style','style={background=verylightyellow}'); END; ENDCOMP; Run; /****Pelet S6---No pepper***/ /****Pelet S6---No pepper***/ /****Pelet S6---No pepper***/ proc sort data=R_R.NP_CrdRate_Bakara_S6 out=NP_S6; by descending mon _cat_; Run; Data NP_S6_Last_mon; set NP_S6(Where=(mon=&YYMM2.)); Run; proc sql noprint; select max(case when Ind_prob_Ordinal='1' then 1 else 0 end ) as Ind_NP_S6_lastMon into :Ind_NP_S6_lastMon trimmed from NP_S6_Last_mon ; quit; %put Ind_NP_S6_lastMon=&Ind_NP_S6_lastMon.; proc sql noprint; select case when &Ind_NP_S6_lastMon.=1 then 'Red' when max(case when Ind_prob_Ordinal='1' then 1 else 0 end )=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S6 into : Ind_Color_Sheet_NP_S6 trimmed from NP_S6 ; quit; %put Ind_Color_Sheet_NP_S6=&Ind_Color_Sheet_NP_S6.; ods excel options(sheet_name="S6A_NP" embedded_titles='yes' /*sheet_interval="proc" */ sheet_interval="none" /*Multiple tables in sheet**/ tab_color="&Ind_Color_Sheet_NP_S6." embedded_footnotes='yes' gridlines = 'yes' ); /**Here multiple reports in same sheet***/ title; title1 j=l bold color=red height=4 font=simplex 'בדיקה אורדינליות באחוז כשל בקבוצת ציון כא'; title2 j=l bold color=red height=4 font=simplex 'ניתוח עבור חודש אחרון בלבד'; title3 j=l bold color=black height=4 font=simplex 'אוכ-יישויות נקיות שאינן פפר'; title4 j=l color=black height=3 font=simplex 'בדיקת אורדינליות נעשית ללא קטגוריית ערכים ריקים/0'; title5 j=l color=black height=3 font=simplex 'הערה:חלוקת ציון כא לקבוצות '; title6 j=l color=black height=3 font=simplex '0-10/ 10-20/ 20-30/ 30-40/ 40-50/ 50-60/ 60-70/ 70-80/ 80-90/ 90-100/0-Null'; proc report data=NP_S6_Last_mon; column Ind_prob_Ordinal mon CAT NP_nr NP_nr_Ra NP_PCT_ra ; define Ind_prob_Ordinal/Display style(header)=[background=lightblue] 'אינד להדלקה'; define mon/Display style(header)=[background=lightblue] 'חודש' ; define CAT/Display style(header)=[background=lightblue] 'קטגוריית ציון כא' ; define NP_nr/Display style(header)=[background=lightblue] 'מספר יישויות' ; define NP_nr_Ra/Display style(header)=[background=lightblue] 'מספר יישויות בכשל' ; define NP_PCT_ra/Display style(header)=[background=lightblue] 'אחוז כשל' style(column)=[backgroundcolor=lightgrey] style(header)=[color=red]; compute Ind_prob_Ordinal; IF Ind_prob_Ordinal=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; title; title1 'פלט שכולל את כלל החודשים'; proc report data=NP_S6; column Ind_prob_Ordinal mon CAT NP_nr NP_nr_Ra NP_PCT_ra ; define Ind_prob_Ordinal/Display style(header)=[background=lightblue] 'אינד להדלקה'; define mon/Display style(header)=[background=lightblue] 'חודש' ; define CAT/Display style(header)=[background=lightblue] 'קטגוריית*ציון כא' ; define NP_nr/Display style(header)=[background=lightblue] 'מספר יישויות' ; define NP_nr_Ra/Display style(header)=[background=lightblue] 'מספר יישויות בכשל' ; define NP_PCT_ra/Display style(header)=[background=lightblue] 'אחוז כשל' style(column)=[backgroundcolor=lightgrey] style(header)=[color=red]; compute Ind_prob_Ordinal; IF Ind_prob_Ordinal=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /*************S6B_NP*********************/ /*************S6B_NP*********************/ /*************S6B_NP*********************/ /*************S6B_NP*********************/ proc sort data=R_R.NP_CrdRate_Bakara_S6(DROP=Ind_prob_Ordinal) out=NP_S6b; by _cat_ mon; Run; data NP_S6b_2; set NP_S6b; by _cat_; dif_Tamhil_nr=NP_Tamhil_nr-LAG(NP_Tamhil_nr); dif_Tamhil_ra=NP_Tamhil_ra-Lag(NP_Tamhil_ra); dif_PCT_ra=NP_PCT_ra-Lag(NP_PCT_ra); if first._cat_ then do; dif_Tamhil_nr=.; dif_Tamhil_ra=.; dif_PCT_ra=.; end; format dif_Tamhil_nr dif_Tamhil_ra dif_PCT_ra percent10.2; if abs(dif_Tamhil_nr)>0.03 or abs(dif_Tamhil_ra)>0.03 or abs(dif_PCT_ra)>0.03 then NP_IND_Prob=1;else NP_IND_Prob=0; Run; data NP_S6b_3; retain NP_IND_Prob mon; set NP_S6b_2; Run; proc sort data=NP_S6b_3; by descending mon _CAT_; Run; proc sql noprint; select max(NP_IND_Prob) as Ind_NP_S6b into :Ind_NP_S6b trimmed from NP_S6b_3 ; quit; %put Ind_NP_S6b=&Ind_NP_S6b.; proc sql noprint; select max(NP_IND_Prob) as Ind_NP_S6b_Lastmon into :Ind_NP_S6b_Lastmon trimmed from NP_S6b_3 where mon=&YYMM2. ; quit; %put Ind_NP_S6b_Lastmon=&Ind_NP_S6b_Lastmon.; proc sql noprint; select case when &Ind_NP_S6b_Lastmon.=1 then 'Red' when max(NP_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S6b into : Ind_Color_Sheet_NP_S6b trimmed from NP_S6b_3 ; quit; %put Ind_Color_Sheet_NP_S6b=&Ind_Color_Sheet_NP_S6b.; ods excel options(sheet_name="S6B_NP" embedded_titles='yes' sheet_interval="proc" /**one table in sheet**/ tab_color="&Ind_Color_Sheet_NP_S6b." ); title; title2 j=l bold color=red height=4 font=simplex 'אוכ-יישויות נקיות שאינן פפר'; title3 j=l bold color=red height=4 font=simplex 'בדיקה2-בדיקת יציבות במספר יישויות נקיות, מספר יישויות בכשל'; title4 j=l bold color=red height=4 font=simplex 'הערה: קריטריון להדלקה- שינוי מעל 3% בתמהיל יישויות/תמהיל יישויות בכשל/אחוז כשל מחודש לחודש'; title5 j=l bold color=red height=4 font=simplex'הערה- בודקים שינויים בתמהיל בין חודש לחודש קודם'; proc report data=NP_S6b_3 missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} style(header)={font_weight=bold borderwidth=0 borderspacing=0 font_size=8pt background=$hdfmt. }; ; column NP_IND_Prob mon CAT _CAT_ NP_nr NP_nr_Ra NP_PCT_ra NP_Tamhil_nr NP_Tamhil_ra dif_Tamhil_nr dif_Tamhil_ra dif_PCT_ra ; define NP_IND_Prob/Display style(header)=[background=lightblue] 'אינד להדלקה'; define mon/Display style(header)=[background=lightblue] 'חודש' ; define CAT/Display style(header)=[background=lightblue] 'ציון כא' ; define _CAT_/Display style(header)=[background=lightblue] 'סדר קטגוריית'; define NP_nr/Display style(header)=[background=lightblue] 'מספר יישויות' ; define NP_nr_Ra/Display style(header)=[background=lightblue] ' יישויות בכשל' ; define NP_PCT_ra/Display style(header)=[background=lightblue] 'אחוז בכשל' ; define NP_Tamhil_nr/Display style(header)=[background=lightblue] 'תמהיל יישויות' ; define NP_Tamhil_ra/Display style(header)=[background=lightblue] 'תמהיל בכשל' ; define dif_Tamhil_nr/Display style(header)=[background=lightblue] 'הפרש תמהיל יישויות' ; define dif_Tamhil_ra/Display style(header)=[background=lightblue] 'הפרש תמהיל כשל' ; define dif_PCT_ra/Display style(header)=[background=lightblue] 'הפרש אחוז כשל' ; compute NP_IND_Prob; IF NP_IND_Prob=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /***Pelet S6--pepper***/ /***Pelet S6--pepper***/ /***Pelet S6--pepper***/ proc sort data=R_R.P_CrdRate_Bakara_S6 out=P_S6; by descending mon _cat_; Run; Data P_S6_Last_mon; retain Ind_prob_Ordinal mon; set P_S6(Where=(mon=&YYMM2.)); Run; proc sql noprint; select max(case when Ind_prob_Ordinal='1' then 1 else 0 end ) as Ind_P_S6_lastMon into :Ind_P_S6_lastMon trimmed from P_S6_Last_mon ; quit; %put Ind_P_S6_lastMon=&Ind_P_S6_lastMon.; proc sql noprint; select case when &Ind_P_S6_lastMon.=1 then 'Red' when max(case when Ind_prob_Ordinal='1' then 1 else 0 end )=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S6 into : Ind_Color_Sheet_P_S6 trimmed from P_S6 ; quit; %put Ind_Color_Sheet_P_S6=&Ind_Color_Sheet_P_S6.; ods excel options(sheet_name="S6A_P" embedded_titles='yes' sheet_interval="none" /*Multiple tables in sheet**/ tab_color="&Ind_Color_Sheet_P_S6." embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); /**Here multiple reports in same sheet***/ title; title1 j=l bold color=red height=4 font=simplex 'בדיקה אורדינליות באחוז כשל בקבוצת ציון כא עבור חודש אחרון בלבד'; title2 j=l bold color=black height=4 font=simplex 'אוכ-יישויות נקיות פפר'; title3 j=l color=black height=3 font=simplex 'בדיקת אורדינליות נעשית ללא קטגוריית ערכים ריקים'; title4 j=l color=black height=3 font=simplex 'הערה:חלוקת ציון כא לקבוצות '; title5 j=l color=black height=3 font=simplex '0-10/ 10-20/ 20-30/ 30-40/ 40-50/ 50-60/ 60-70/ 70-80/ 80-90/ 90-100/0-Null'; proc report data=P_S6_Last_mon; column Ind_prob_Ordinal mon CAT P_nr P_nr_Ra P_PCT_ra ; define Ind_prob_Ordinal/Display style(header)=[background=lightblue] 'אינד להדלקה'; define mon/Display style(header)=[background=lightblue] 'חודש' ; define CAT/Display style(header)=[background=lightblue] 'קטגוריית*ציון כא' ; define P_nr/Display style(header)=[background=lightblue] 'מספר יישויות' ; define P_nr_Ra/Display style(header)=[background=lightblue] 'מספר יישויות בכשל' ; define P_PCT_ra/Display style(header)=[background=lightblue] 'אחוז כשל' style(column)=[backgroundcolor=lightgrey] style(header)=[color=red]; compute Ind_prob_Ordinal; IF Ind_prob_Ordinal=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; title; title1 'פלט שכולל את כלל החודשים'; proc report data=P_S6; column Ind_prob_Ordinal mon CAT P_nr P_nr_Ra P_PCT_ra ; define Ind_prob_Ordinal/Display style(header)=[background=lightblue] 'אינד להדלקה'; define mon/Display style(header)=[background=lightblue] 'חודש' ; define CAT/Display style(header)=[background=lightblue] 'קטגוריית*ציון כא' ; define P_nr/Display style(header)=[background=lightblue] 'מספר יישויות' ; define P_nr_Ra/Display style(header)=[background=lightblue] 'מספר יישויות בכשל' ; define P_PCT_ra/Display style(header)=[background=lightblue] 'אחוז כשל' style(column)=[backgroundcolor=lightgrey] style(header)=[color=red]; compute Ind_prob_Ordinal; IF Ind_prob_Ordinal=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /*************S6B_P*********************/ /*************S6B_P*********************/ /*************S6B_P*********************/ proc sort data=R_R.P_CrdRate_Bakara_S6(DROP=Ind_prob_Ordinal) out=P_S6b; by _cat_ mon; Run; data P_S6b_2; set P_S6b; by _cat_; dif_Tamhil_nr=P_Tamhil_nr-LAG(P_Tamhil_nr); dif_Tamhil_ra=P_Tamhil_ra-Lag(P_Tamhil_ra); dif_PCT_ra=P_PCT_ra-Lag(P_PCT_ra); if first._cat_ then do; dif_Tamhil_nr=.; dif_Tamhil_ra=.; dif_PCT_ra=.; end; format dif_Tamhil_nr dif_Tamhil_ra dif_PCT_ra percent10.2; if abs(dif_Tamhil_nr)>0.03 or abs(dif_Tamhil_ra)>0.03 or abs(dif_PCT_ra)>0.03 then P_IND_Prob=1;else P_IND_Prob=0; Run; data P_S6b_3; retain P_IND_Prob mon; set P_S6b_2; Run; proc sort data=P_S6b_3; by descending mon _CAT_; Run; proc sql noprint; select max(P_IND_Prob) as Ind_P_S6b into :Ind_P_S6b trimmed from P_S6b_3 ; quit; %put Ind_P_S6b=&Ind_P_S6b.; proc sql noprint; select max(P_IND_Prob) as Ind_P_S6b_Lastmon into :Ind_P_S6b_Lastmon trimmed from P_S6b_3 where mon=&YYMM2. ; quit; %put Ind_P_S6b_Lastmon=&Ind_P_S6b_Lastmon.; proc sql noprint; select case when &Ind_P_S6b_Lastmon.=1 then 'Red' when max(P_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S6b into : Ind_Color_Sheet_P_S6b trimmed from P_S6b_3 ; quit; %put Ind_Color_Sheet_P_S6b=&Ind_Color_Sheet_P_S6b.; ods excel options(sheet_name="S6B_P" embedded_titles='yes' sheet_interval="PROC" /***One table in sheet**/ tab_color="&Ind_Color_Sheet_P_S6b." embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); title; title2 j=l bold color=red height=4 font=simplex 'אוכ-יישויות נקיות פפר'; title3 j=l bold color=red height=4 font=simplex 'בדיקה2-בדיקת יציבות במספר יישויות נקיות, מספר יישויות בכשל'; title4 j=l bold color=red height=4 font=simplex 'הערה: קירטריון להדלקה שינוי של מעל 3% בתמהיל יישויות/תמהיל יישויות בכשל/אחוז כשל מחודש לחודש'; title5 j=l bold color=red height=4 font=simplex'הערה- בודקים שינויים בתמהיל בין חודש לחודש קודם'; proc report data=P_S6b_3 missing nowd split='*' style(report)={frame=box font_size=8pt bordercolor=black borderwidth=2px} style(header)={font_weight=bold borderwidth=0 borderspacing=0 font_size=8pt background=$hdfmt. }; ; column P_IND_Prob mon CAT _CAT_ P_nr P_nr_Ra P_PCT_ra P_Tamhil_nr P_Tamhil_ra dif_Tamhil_nr dif_Tamhil_ra dif_PCT_ra ; define P_IND_Prob/Display style(header)=[background=lightblue] 'אינד להדלקה'; define mon/Display style(header)=[background=lightblue] 'חודש' ; define CAT/Display style(header)=[background=lightblue] 'ציון כא' ; define _CAT_/Display style(header)=[background=lightblue] 'סדר קטגוריית'; define P_nr/Display style(header)=[background=lightblue] 'מספר יישויות' ; define P_nr_Ra/Display style(header)=[background=lightblue] ' יישויות בכשל' ; define P_PCT_ra/Display style(header)=[background=lightblue] 'אחוז בכשל' ; define P_Tamhil_nr/Display style(header)=[background=lightblue] 'תמהיל יישויות' ; define P_Tamhil_ra/Display style(header)=[background=lightblue] 'תמהיל בכשל' ; define dif_Tamhil_nr/Display style(header)=[background=lightblue] 'הפרש תמהיל יישויות' ; define dif_Tamhil_ra/Display style(header)=[background=lightblue] 'הפרש תמהיל כשל' ; define dif_PCT_ra/Display style(header)=[background=lightblue] 'הפרש אחוז כשל' ; compute P_IND_Prob; IF P_IND_Prob=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /****Pelet S7---No pepper--Last Month***/ /****Pelet S7---No pepper--Last Month***/ /****Pelet S7---No pepper--Last Month***/ /**Dummy code will not print anyting**/ /***We must put it between 2 none***/ data R_R.NP_CrdRate_Mavarim_S7; set R_R.NP_CrdRate_Mavarim_S7; IF mon=2201 then delete; /**Becuase first month so we didnt check one month before so mavarim are not good to show***/ Run; proc sort data=R_R.NP_CrdRate_Mavarim_S7 out=NP_S7_a; by combine mon; Run; data NP_S7_b; set NP_S7_a; by combine; NP_Dif_Tamhil_nr=NP_tamhil_nr-LAG(NP_tamhil_nr); format NP_Dif_Tamhil_nr percent10.4; if first.combine then NP_Dif_Tamhil_nr=.; Run; data NP_S7_c; set NP_S7_b; IF abs(NP_Dif_Tamhil_nr)>0.015 then NP_IND_Prob=1; else NP_IND_Prob=0; Run; /*קריטריון להדלקה- שינוי בתמהיל במעל 1.5%*/ proc sort data=NP_S7_c; by descending mon _CAT_ _PREVCAT_; Run; Data NP_Want_Mavarim_S7; length Ind_Same_Better_Worse $20.; set NP_S7_c; IF _PREVCAT_=0 then Ind_Same_Better_Worse='NO_EXIST_PREV_MON'; else IF _PREVCAT_=1 AND _CAT_=1 then Ind_Same_Better_Worse='NULL_TO_NULL'; else IF _PREVCAT_=1 AND _CAT_ ne 1 then Ind_Same_Better_Worse='NULL_TO_POS'; else IF _PREVCAT_ ne 1 AND _CAT_ = 1 then Ind_Same_Better_Worse='POS_TO_NULL'; else IF _CAT_=_PREVCAT_ then Ind_Same_Better_Worse='SAME'; else IF _CAT_>_PREVCAT_ then Ind_Same_Better_Worse='WORSE'; else IF _CAT_<_PREVCAT_ then Ind_Same_Better_Worse='BETTER'; IF _PREVCAT_ not in (0,1) then dif_Categories=abs(sum(_CAT_,-_PREVCAT_)); Run; proc sort data= NP_Want_Mavarim_S7; by descending mon; Run; proc sql noprint; select MAX(NP_IND_Prob) as Ind_NP_S7_lastMon into :Ind_NP_S7_lastMon TRIMMED from NP_Want_Mavarim_S7 where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_NP_S7_lastMon=&Ind_NP_S7_lastMon.; proc sql noprint; select case when &Ind_NP_S7_lastMon.=1 then 'Red' when max(NP_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_NP_S7 into : Ind_Color_Sheet_NP_S7 TRIMMED from NP_Want_Mavarim_S7 ; quit; %put Ind_Color_Sheet_NP_S7=&Ind_Color_Sheet_NP_S7.; data last_mon_Mavarim_NP; retain Ind_Same_Better_Worse mon Combine PREV_TO_CUR cat _CAT_ PREVCAT _PREVCAT_ dif_Categories NP_nr NP_tamhil_nr NP_Dif_Tamhil_nr NP_IND_Prob dif_Categories; set NP_Want_Mavarim_S7(Where=(mon in (&YYMM1.))); if cat='1_NULL/0' AND PREVCAT='' THEN dif_Categories=0; PREV_TO_CUR=catx(',',PREVCAT,cat); run; proc sort data=last_mon_Mavarim_NP(keep=mon PREV_TO_CUR NP_nr NP_tamhil_nr NP_Dif_Tamhil_nr NP_IND_Prob) OUT=NP_S7_PELET1; by descending NP_IND_Prob PREV_TO_CUR; Run; ods select none; ods excel options( sheet_interval="proc"); proc print data=sashelp.class;run; ods select all; ods excel options(sheet_name="S7_NP_LastMon_Matrices" embedded_titles='yes' sheet_interval="none" /**Multiple tables in sheet***/ tab_color="&Ind_Color_Sheet_NP_S7." ); title; title1 j=l bold color=red height=5 font=simplex 'מטריצת מעברים עבור חודש אחרון'; title2 j=l bold color=black height=5 font=simplex 'בחישוב התמהיל לא לוקחים בחשבון מעבר מקטגוריה ריק לריק'; title3 j=l bold color=black height=5 font=simplex 'קריטריון להדלקה- שינוי בתמהיל במעל 1.5%'; proc tabulate data=last_mon_Mavarim_NP missing; by descending mon ; class PREVCAT CAT /order=data ; var NP_IND_Prob; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*NP_IND_Prob='אינד הדלקה'*f=8.0) / rts=10 misstext='0' box='קודם'; run; title; title j=l bold color=red height=5 font=simplex 'מספר יישויות'; proc tabulate data=last_mon_Mavarim_NP missing; by descending mon ; class PREVCAT CAT /order=data ; var NP_nr; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*NP_nr='מספר_יישויות'*f=comma32.) / rts=10 misstext='0' box='קודם'; run; title; title j=l bold color=red height=5 font=simplex 'תמהיל'; proc tabulate data=last_mon_Mavarim_NP missing; by descending mon ; class PREVCAT CAT /order=data ; var NP_tamhil_nr; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*NP_tamhil_nr='תמהיל'*f=percent10.2) / rts=10 misstext='0' box='קודם'; run; title; title j=l bold color=red height=5 font=simplex 'הפרש תמהיל מחודש שעבר'; proc tabulate data=last_mon_Mavarim_NP missing; by descending mon ; class PREVCAT CAT /order=data ; var NP_Dif_Tamhil_nr; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*NP_Dif_Tamhil_nr='הפרש_תמהיל'*f=percent10.2) / rts=10 misstext='0' box='קודם'; run; ods excel options(sheet_name="S7_NP_LAST_MON_Table" embedded_titles='yes' sheet_interval="proc" /**one table in sheet**/ tab_color="&Ind_Color_Sheet_P_S7." ); title; title1 j=l bold color=red height=7 font=simplex 'הצגת מעברים רק של חודש אחרון'; title2 j=l bold color=black height=5 font=simplex 'אוכ-יישויות 833 לא מקושרים שאינן פפר'; title3 j=l bold color=red height=5 font=simplex 'הקבוצות אינן דירוגים אלה קבוצות ציון כא'; proc report data=NP_S7_PELET1; column NP_IND_Prob mon PREV_TO_CUR NP_nr NP_tamhil_nr NP_Dif_Tamhil_nr ; define NP_IND_prob/Display style(header)=[background=lightblue] 'אינד להדלקה' ; define mon/Display style(header)=[background=lightblue] 'חודש' ; define prev_to_cur/Display style(header)=[background=lightblue] 'חודש_קודם+חודש_נוכחי' ; define np_nr/Display style(header)=[background=lightblue] 'ש' ; define np_tamhil_nr/Display style(header)=[background=lightblue] 'חודש' ; define np_dif_tamhil_nr/Display style(header)=[background=lightblue] 'חודש' ; compute NP_IND_Prob; IF NP_IND_Prob=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /****Pelet S7--- pepper--Last Month***/ /****Pelet S7--- pepper--Last Month***/ /****Pelet S7--- pepper--Last Month***/ /**Dummy code will not print anyting**/ /***We must put it between 2 none***/ data R_R.P_CrdRate_Mavarim_S7; set R_R.P_CrdRate_Mavarim_S7; IF mon=2201 then delete; /**Becuase first month so we didnt check one month before so mavarim are not good to show***/ Run; proc sort data=R_R.P_CrdRate_Mavarim_S7 out=P_S7_a; by combine mon; Run; data P_S7_b; set P_S7_a; by combine; P_Dif_Tamhil_nr=P_tamhil_nr-LAG(P_tamhil_nr); format P_Dif_Tamhil_nr percent10.4; if first.combine then P_Dif_Tamhil_nr=.; Run; data P_S7_c; set P_S7_b; IF abs(P_Dif_Tamhil_nr)>0.015 then P_IND_Prob=1; else P_IND_Prob=0; Run; /*קריטריון להדלקה- שינוי בתמהיל במעל 1.5%*/ proc sort data=P_S7_c; by descending mon _CAT_ _PREVCAT_; Run; Data P_Want_Mavarim_S7; length Ind_Same_Better_Worse $20.; set P_S7_c; IF _PREVCAT_=0 then Ind_Same_Better_Worse='NO_EXIST_PREV_MON'; else IF _PREVCAT_=1 AND _CAT_=1 then Ind_Same_Better_Worse='NULL_TO_NULL'; else IF _PREVCAT_=1 AND _CAT_ ne 1 then Ind_Same_Better_Worse='NULL_TO_POS'; else IF _PREVCAT_ ne 1 AND _CAT_ = 1 then Ind_Same_Better_Worse='POS_TO_NULL'; else IF _CAT_=_PREVCAT_ then Ind_Same_Better_Worse='SAME'; else IF _CAT_>_PREVCAT_ then Ind_Same_Better_Worse='WORSE'; else IF _CAT_<_PREVCAT_ then Ind_Same_Better_Worse='BETTER'; IF _PREVCAT_ not in (0,1) then dif_Categories=abs(sum(_CAT_,-_PREVCAT_)); Run; proc sort data= P_Want_Mavarim_S7; by descending mon; Run; proc sql noprint; select MAX(P_IND_Prob) as Ind_P_S7_lastMon into :Ind_P_S7_lastMon TRIMMED from P_Want_Mavarim_S7 where mon=&last_mon_in_Report_YYMM1. ; quit; %put Ind_P_S7_lastMon=&Ind_P_S7_lastMon.; proc sql noprint; select case when &Ind_P_S7_lastMon.=1 then 'Red' when max(P_IND_Prob)=1 then 'Orange' else 'Green' end as Ind_Color_Sheet_P_S7 into : Ind_Color_Sheet_P_S7 TRIMMED from P_Want_Mavarim_S7 ; quit; %put Ind_Color_Sheet_P_S7=&Ind_Color_Sheet_P_S7.; data last_mon_Mavarim_P; retain Ind_Same_Better_Worse mon Combine PREV_TO_CUR cat _CAT_ PREVCAT _PREVCAT_ dif_Categories P_nr P_tamhil_nr P_Dif_Tamhil_nr P_IND_Prob dif_Categories; set P_Want_Mavarim_S7(Where=(mon in (&YYMM1.))); if cat='1_NULL/0' AND PREVCAT='' THEN dif_Categories=0; PREV_TO_CUR=catx(',',PREVCAT,cat); run; proc sort data=last_mon_Mavarim_P(keep=mon PREV_TO_CUR P_nr P_tamhil_nr P_Dif_Tamhil_nr P_IND_Prob) OUT=P_S7_PELET1; by descending P_IND_Prob PREV_TO_CUR; Run; ods select none; ods excel options( sheet_interval="proc"); proc print data=sashelp.class;run; ods select all; ods excel options(sheet_name="S7_P_LAST_MON_MATRICES" embedded_titles='yes' sheet_interval="none" /**Multiple tables in sheet***/ tab_color="&Ind_Color_Sheet_P_S7." ); title; title1 j=l bold color=red height=5 font=simplex 'מטריצת מעברים עבור חודש אחרון'; title2 j=l bold color=black height=5 font=simplex 'בחישוב התמהיל לא לוקחים בחשבון מעבר מקטגוריה ריק לריק'; title3 j=l bold color=black height=5 font=simplex 'קריטריון להדלקה- שינוי בתמהיל במעל 1.5%'; proc tabulate data=last_mon_Mavarim_P missing; by descending mon ; class PREVCAT CAT /order=data ; var P_IND_Prob; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*P_IND_Prob='אינד הדלקה'*f=8.0) / rts=10 misstext='0' box='קודם'; run; title; title j=l bold color=red height=5 font=simplex 'מספר יישויות'; proc tabulate data=last_mon_Mavarim_P missing; by descending mon ; class PREVCAT CAT /order=data ; var P_nr; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*P_nr='מספר_יישויות'*f=comma32.) / rts=10 misstext='0' box='קודם'; run; title; title j=l bold color=red height=5 font=simplex 'תמהיל'; proc tabulate data=last_mon_Mavarim_P missing; by descending mon ; class PREVCAT CAT /order=data ; var P_tamhil_nr; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*P_tamhil_nr='תמהיל'*f=percent10.2) / rts=10 misstext='0' box='קודם'; run; title; title j=l bold color=red height=5 font=simplex 'הפרש תמהיל מחודש שעבר'; proc tabulate data=last_mon_Mavarim_P missing; by descending mon ; class PREVCAT CAT /order=data ; var P_Dif_Tamhil_nr; table PREVCAT='' all, (CAT='נוכחי' all)*(SUM=''*P_Dif_Tamhil_nr='הפרש_תמהיל'*f=percent10.2) / rts=10 misstext='0' box='קודם'; run; ods excel options(sheet_name="S7_P_LAST_MON_Table" embedded_titles='yes' sheet_interval="proc" /**one table in sheet**/ tab_color="&Ind_Color_Sheet_P_S7." ); title; title1 j=l bold color=red height=7 font=simplex 'הצגה נוספת בצורת טבלה ולא מטריצה של מעברים של חודש אחרון'; title2 j=l bold color=black height=5 font=simplex 'אוכ-יישויות 833 לא מקושרים שאינן פפר'; title3 j=l bold color=red height=5 font=simplex 'הקבוצות אינן דירוגים אלה קבוצות ציון כא'; proc report data=P_S7_PELET1; column P_IND_Prob mon PREV_TO_CUR P_nr P_tamhil_nr P_Dif_Tamhil_nr ; define P_IND_prob/Display style(header)=[background=lightblue] 'אינד להדלקה' ; define mon/Display style(header)=[background=lightblue] 'חודש' ; define prev_to_cur/Display style(header)=[background=lightblue] 'חודש_קודם+חודש_נוכחי' ; define p_nr/Display style(header)=[background=lightblue] 'ש' ; define p_tamhil_nr/Display style(header)=[background=lightblue] 'חודש' ; define p_dif_tamhil_nr/Display style(header)=[background=lightblue] 'חודש' ; compute P_IND_Prob; IF P_IND_Prob=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /*******PELETS7-NP---ALL months****/ /*******PELETS7-NP---ALL months****/ /*******PELETS7-NP---ALL months****/ ods excel options(sheet_name="S7_NP_All_Months" embedded_titles='yes' embedded_footnotes='yes' sheet_interval="PROC" /***One table in sheet**/ gridlines = 'yes' ); title; title1 j=l 'ללא פפר-מעברים בקבוצות ציון כא-הצגה עבור כלל חודשים'; proc report data=NP_Want_Mavarim_S7 missing; columns _CAT_ CAT _PREVCAT_ PREVCAT Ind_Same_Better_Worse dif_Categories NP_IND_Prob,mon NP_nr,mon NP_tamhil_nr,mon NP_Dif_Tamhil_nr,mon ; define _CAT_/group; define CAT/group; define _PREVCAT_/group; define PREVCAT/group; define Ind_Same_Better_Worse/group; define dif_Categories/group; define mon/across order=data ' '; define NP_IND_Prob/mean; compute NP_IND_Prob; IF NP_IND_Prob=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; run; /*******PELETS7-Pepper---ALL months****/ /*******PELETS7-Pepper---ALL months****/ /*******PELETS7-Pepper---ALL months****/ ods excel options(sheet_name="S7_P_All_Months" embedded_titles='yes' embedded_footnotes='yes' sheet_interval="PROC" /***One table in sheet**/ gridlines = 'yes' ); title; title1 j=l 'פפר-מעברים בקבוצות ציון כא-הצגה עבור כלל חודשים'; proc report data=P_Want_Mavarim_S7 missing; columns _CAT_ CAT _PREVCAT_ PREVCAT Ind_Same_Better_Worse dif_Categories P_IND_Prob,mon P_nr,mon P_tamhil_nr,mon P_Dif_Tamhil_nr,mon ; define _CAT_/group; define CAT/group; define _PREVCAT_/group; define PREVCAT/group; define Ind_Same_Better_Worse/group; define dif_Categories/group; define mon/across order=data ' '; define P_IND_Prob/mean; compute P_IND_Prob; IF P_IND_Prob=1 then call define(_col_,"Style","style={background=RED}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; run; /****Pelet S8--No pepper--Last month****/ /****Pelet S8--No pepper--Last month****/ /****Pelet S8--No pepper--Last month****/ proc sort data=R_R.NP_CrdRate_MavarimKeshel_S8 out=NP_S8; by combine mon; Run; data NP_S8_b; set NP_S8; by combine; NP_Dif_Tamhil_nr=NP_tamhil_nr-LAG(NP_tamhil_nr); NP_Dif_Tamhil_nr_ra=NP_tamhil_nr_ra-LAG(NP_tamhil_nr_ra); NP_Dif_PCT_ra=NP_PCT_ra-LAG(NP_PCT_ra); Format NP_Dif_Tamhil_nr NP_Dif_PCT_ra NP_Dif_Tamhil_nr NP_Dif_Tamhil_nr_ra percent10.2; if first.combine then do; NP_Dif_Tamhil_nr=.; NP_Dif_PCT_ra=.; NP_Dif_Tamhil_nr=.; NP_Dif_Tamhil_nr_ra=.; end; IF abs(NP_Dif_Tamhil_nr)>0.03 OR abs(NP_Dif_Tamhil_nr_ra)>0.03 /*OR abs(NP_Dif_PCT_ra)>0.03 */ then NP_IND_Prob=1; else NP_IND_Prob=0; Run; data NP_S8_c; retain NP_IND_Prob mon; set NP_S8_b; Run; Data NP_S8_Want1; retain NP_IND_Prob mon; length Ind_Same_Better_Worse $20.; set NP_S8_c; IF _PREVCAT_=0 then Ind_Same_Better_Worse='NO_EXIST_PREV_MON'; else IF _PREVCAT_=1 AND _CAT_=1 then Ind_Same_Better_Worse='NULL_TO_NULL'; else IF _PREVCAT_=1 AND _CAT_ ne 1 then Ind_Same_Better_Worse='NULL_TO_POS'; else IF _PREVCAT_ ne 1 AND _CAT_ = 1 then Ind_Same_Better_Worse='POS_TO_NULL'; else IF _CAT_=_PREVCAT_ then Ind_Same_Better_Worse='SAME'; else IF _CAT_>_PREVCAT_ then Ind_Same_Better_Worse='WORSE'; else IF _CAT_<_PREVCAT_ then Ind_Same_Better_Worse='BETTER'; IF _PREVCAT_ not in (0,1) then dif_Categories=abs(sum(_CAT_,-_PREVCAT_)); Run; proc sort data= NP_S8_Want1; by descending mon _CAT_; Run; data NP_S8_Want_LastMon; set NP_S8_Want1(Where=(mon=&YYMM2.)); Run; proc sql noprint; select MAX(NP_IND_Prob) as Ind_NP_S8_lastMon into :Ind_NP_S8_lastMon TRIMMED from NP_S8_Want_LastMon where mon=&YYMM2. ; quit; %put Ind_NP_S8_lastMon=&Ind_NP_S8_lastMon.; proc sql noprint; select case when &Ind_NP_S8_lastMon.=1 then 'Red' else 'Green' end as Ind_Color_Sheet_S8_lastMon into : NP_Ind_Color_Sheet_S8_lastMon TRIMMED from NP_S8_Want_LastMon ; quit; %put NP_Ind_Color_Sheet_S8_lastMon=&NP_Ind_Color_Sheet_S8_lastMon.; ods excel options (sheet_name='S8-NP_LastMon' sheet_interval="PROC" /**one table in sheet**/ absolute_column_width="13,30,16" row_heights='30,16,20,20,20' gridlines = 'yes' tab_color="&NP_Ind_Color_Sheet_S8_lastMon." ); title; title1 j=l bold color=red height=5 font=simplex 'הצגה עבור חודש אחרון '; title2 j=l bold color=red height=5 font=simplex 'קריטריון להדלקה- שינוי בתמהיל במעל 3%'; title3 j=l bold color=red height=5 font=simplex 'אוכ-יישויות נקיות מחטיבה 833 לא מקושרים שאינן פפר'; proc report data=NP_S8_Want_LastMon; column _ALL_; compute NP_IND_Prob; IF NP_IND_Prob=1 then call define(_col_,"Style","style={background=lightred}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /****Pelet S8--No pepper--All months****/ /****Pelet S8--No pepper--All months****/ /****Pelet S8--No pepper--All months****/ ods excel options (sheet_name='S8-NP_all_months' sheet_interval="PROC" /**one table in sheet**/ absolute_column_width="13,30,16" row_heights='30,16,20,20,20' embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); title; title1 j=l bold color=red height=5 font=simplex 'הצגה עבור כלל חודשים'; title2 j=l bold color=red height=5 font=simplex 'קריטריון להדלקה- שינוי בתמהיל במעל 3%'; title3 j=l bold color=red height=5 font=simplex 'אוכ-יישויות נקיות מחטיבה 833 לא מקושרים שאינן פפר'; proc report data=NP_S8_Want1 missing; columns _CAT_ CAT _PREVCAT_ PREVCAT Ind_Same_Better_Worse dif_Categories NP_IND_Prob,mon NP_nr,mon NP_nr_RA,mon NP_PCT_ra,mon NP_tamhil_nr,mon NP_tamhil_nr_ra,mon NP_Dif_PCT_ra,mon NP_Dif_Tamhil_nr,mon NP_Dif_Tamhil_nr_ra,mon ; define _CAT_/group; define CAT/group; define _PREVCAT_/group; define PREVCAT/group; define Ind_Same_Better_Worse/group; define dif_Categories/group; define mon/across order=data ' '; define NP_IND_Prob/mean; compute NP_IND_Prob; IF NP_IND_Prob=1 then call define(_col_,"Style","style={background=lightred}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; run; /****Pelet S8--pepper--Last month****/ /****Pelet S8--pepper--Last month****/ /****Pelet S8--pepper--Last month****/ proc sort data=R_R.P_CrdRate_MavarimKeshel_S8 out=P_S8; by combine mon; Run; data P_S8_b; set P_S8; by combine; P_Dif_Tamhil_nr=P_tamhil_nr-LAG(P_tamhil_nr); P_Dif_Tamhil_nr_ra=P_tamhil_nr_ra-LAG(P_tamhil_nr_ra); P_Dif_PCT_ra=P_PCT_ra-LAG(P_PCT_ra); Format P_Dif_Tamhil_nr P_Dif_PCT_ra P_Dif_Tamhil_nr P_Dif_Tamhil_nr_ra percent10.2; if first.combine then do; P_Dif_Tamhil_nr=.; P_Dif_PCT_ra=.; P_Dif_Tamhil_nr=.; P_Dif_Tamhil_nr_ra=.; end; IF abs(P_Dif_Tamhil_nr)>0.03 OR abs(P_Dif_Tamhil_nr_ra)>0.03 /*OR abs(P_Dif_PCT_ra)>0.03 */ then P_IND_Prob=1; else P_IND_Prob=0; Run; data P_S8_c; retain P_IND_Prob mon; set P_S8_b; Run; Data P_S8_Want1; retain P_IND_Prob mon; length Ind_Same_Better_Worse $20.; set P_S8_c; IF _PREVCAT_=0 then Ind_Same_Better_Worse='NO_EXIST_PREV_MON'; else IF _PREVCAT_=1 AND _CAT_=1 then Ind_Same_Better_Worse='NULL_TO_NULL'; else IF _PREVCAT_=1 AND _CAT_ ne 1 then Ind_Same_Better_Worse='NULL_TO_POS'; else IF _PREVCAT_ ne 1 AND _CAT_ = 1 then Ind_Same_Better_Worse='POS_TO_NULL'; else IF _CAT_=_PREVCAT_ then Ind_Same_Better_Worse='SAME'; else IF _CAT_>_PREVCAT_ then Ind_Same_Better_Worse='WORSE'; else IF _CAT_<_PREVCAT_ then Ind_Same_Better_Worse='BETTER'; IF _PREVCAT_ not in (0,1) then dif_Categories=abs(sum(_CAT_,-_PREVCAT_)); Run; proc sort data= P_S8_Want1; by descending mon _CAT_; Run; data P_S8_Want_LastMon; set P_S8_Want1(Where=(mon=&YYMM2.)); Run; proc sql noprint; select MAX(P_IND_Prob) as Ind_P_S8_lastMon into :Ind_P_S8_lastMon TRIMMED from P_S8_Want_LastMon where mon=&YYMM2. ; quit; %put Ind_P_S8_lastMon=&Ind_P_S8_lastMon.; proc sql noprint; select case when &Ind_P_S8_lastMon.=1 then 'Red' else 'Green' end as Ind_Color_Sheet_S8_lastMon into : P_Ind_Color_Sheet_S8_lastMon TRIMMED from P_S8_Want_LastMon ; quit; %put P_Ind_Color_Sheet_S8_lastMon=&P_Ind_Color_Sheet_S8_lastMon.; ods excel options (sheet_name='S8-P_LastMon' sheet_interval="PROC" /**one table in sheet**/ absolute_column_width="13,30,16" row_heights='30,16,20,20,20' embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color="&P_Ind_Color_Sheet_S8_lastMon." ); title; title1 j=l bold color=red height=5 font=simplex 'הצגה עבור חודש אחרון '; title2 j=l bold color=red height=5 font=simplex 'קריטריון להדלקה- שינוי בתמהיל במעל 3%'; title3 j=l bold color=red height=5 font=simplex 'אוכ-יישויות נקיות פפר'; proc report data=P_S8_Want_LastMon; column _ALL_; compute P_IND_Prob; IF P_IND_Prob=1 then call define(_col_,"Style","style={background=lightred}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; Run; /****Pelet S8-- pepper--All months****/ /****Pelet S8-- pepper--All months****/ /****Pelet S8-- pepper--All months****/ ods excel options (sheet_name='S8-P_all_months' sheet_interval="PROC" /**one table in sheet**/ absolute_column_width="13,30,16" row_heights='30,16,20,20,20' embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' ); title; title1 j=l bold color=red height=5 font=simplex 'הצגה עבור כלל חודשים'; title2 j=l bold color=red height=5 font=simplex 'קריטריון להדלקה- שינוי בתמהיל במעל 3%'; title3 j=l bold color=red height=5 font=simplex 'אוכ-יישויות נקיות מחטיבה 833 לא מקושרים שאינן פפר'; proc report data=P_S8_Want1 missing; columns _CAT_ CAT _PREVCAT_ PREVCAT Ind_Same_Better_Worse dif_Categories P_IND_Prob,mon P_nr,mon P_nr_RA,mon P_PCT_ra,mon P_tamhil_nr,mon P_tamhil_nr_ra,mon P_Dif_PCT_ra,mon P_Dif_Tamhil_nr,mon P_Dif_Tamhil_nr_ra,mon ; define _CAT_/group; define CAT/group; define _PREVCAT_/group; define PREVCAT/group; define Ind_Same_Better_Worse/group; define dif_Categories/group; define mon/across order=data ' '; define P_IND_Prob/mean; compute P_IND_Prob; IF P_IND_Prob=1 then call define(_col_,"Style","style={background=lightred}"); else call define(_col_,"Style","style={background=LIGHTGREEN}"); endcomp; run; /***Pelet S9***/ /***Pelet S9***/ /***Pelet S9***/ proc sort data=R_R.CrdRate_Gini_S9 out=sorted_CrdRate_Gini_S9; by descending mon; Run; ods excel options (sheet_name='S9_Gini' sheet_interval="PROC" /***One table in sheet**/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color='white' ); title; title1 j=l color=red height=3 'אוכ-יישויות נקיות בעלות ציון כא חיובי'; title2 j=l color=red height=3 'מדד גני -בודק ציון כא מול כשל בפועל'; title3 j=l 'לא הוגדר קריטירון להדלקה'; /*proc print data=sorted_CrdRate_Gini_S9 noobs;Run;*/ proc print data=sorted_CrdRate_Gini_S9 noobs; var mon / style =[width=3in]; var NR_Y / style =[width=3in]; var gini / style =[width=3in]; run; /***Pelet S10***/ /***Pelet S10***/ /***Pelet S10***/ proc sort data=R_R.CrdRate_Tfisa_S10 out=sorted_CrdRate_Tfisa_S10; by descending mon; Run; ods excel options (sheet_name='S10_תפיסה' sheet_interval="PROC" /***One table in sheet**/ embedded_titles='yes' embedded_footnotes='yes' gridlines = 'yes' tab_color='white' ); title; title1 j=l color=red height=2 'אוכ-יישויות נקיות עם ציון כא חיובי'; title2 j=l color=red height=2 'אחוז_תפיסה'; title3 j=l 'לא הוגדר קריטירון להדלקה'; proc print data=sorted_CrdRate_Tfisa_S10 noobs; var mon / style =[width=14in]; var PCT_Tfisa20 / style =[width=14in]; run; ods excel close; /****SEND EMAIL****/ /****SEND EMAIL****/ /****SEND EMAIL****/ /****SEND EMAIL****/ FILENAME mail EMAIL from="XXX.EXXX@XXXX" TO=("XXX.EXXX@XXXX") SUBJECT=" --&last_mon_in_Report_YYMM1.-בקרת ציון כא-דוח לפני פרסום סקור" encoding='utf-8' /**To show Hebrew!!!**/ CONTENT_TYPE="text/plain" attach=(&path. content_type="excel"); ODS LISTING CLOSE; /*ODS HTML BODY=mail;*/ data _null_; file mail; put 'היי'; put 'מצורף קובץ בקרה -&last_mon_in_Report_YYMM1.'; put ' '; put 'בברכה, XXX XXX'; run;

Ronein · ‎11-16-2025

Hello I want to calculate number of missing values for each variable in data set (numeric/Char). I saw this code.(SAS/IML language) I want to ask- How can I calculate it only for Make='Audi' ?(I found solution using (Where=(Make='Audi')) so i think it is fine) How can I export result into a data set? proc iml; use sashelp.cars(Where=(Make='Audi')); read all var _NUM_ into x[colname=nNames]; n = countn(x,"col"); nmiss = countmiss(x,"col"); read all var _CHAR_ into x[colname=cNames]; close sashelp.cars; c = countn(x,"col"); cmiss = countmiss(x,"col"); /* combine results for num and char into a single table */ Names = cNames || nNames; rNames = {" Missing", "Not Missing"}; cnt = (cmiss // c) || (nmiss // n); print cnt[r=rNames c=Names label=""];

Ronein · ‎11-13-2025

Hello I am writing a long sas code that create a permanent data set in a library called r_r. Then I want to send an email from sas about it. I get one warning message in Log: 6924 /* 1) Reset */ 6925 ods _all_ close; 6926 ods listing close; 194 The SAS System 13:20 Thursday, November 13, 2025 6927 ods results off; 6928 filename m clear; WARNING: No logical assign for filename M. Here is the code I run to send the email. /****Send via Email**********/ /****Send via Email**********/ /****Send via Email**********/ proc sql noprint; select put(max(Haamada_date),ddmmyy10.) as max_Haamada_date into : max_Haamada_date from r_r.XXXPanel_xxxt_CS ; quit; /*%let TO_Email=("Ron.Einstein@BankLeumi.co.il");*/ /* 1) Reset */ ods _all_ close; ods listing close; ods results off; filename m clear; FILENAME m EMAIL /*TO=&TO_Email.*/ TO="xxx.xxx@xxx.co.il" FROM="xxx.xxx@xxx.co.il" SUBJECT="xxxx-CS" CONTENT_TYPE="text/html" encoding="utf-8"; data _null_; file m lrecl=32767; put "פאנל חדש עודכן עד תאריך &max_Haamada_date. "; put " "; put " "; put " "; put " "; put " "; put "בברכה "; put "xxx xxx "; run;

Ronein · ‎10-20-2025

If Igo to log what word should I search there to find the data set where it's creation cause the problem?

Ronein · ‎10-20-2025

But how can I know where did it occur in the program??

Ronein · ‎10-20-2025

Hello I am running a sas program and get 0 errors and 0 warnings. However, there is red X in program tab and also rex X in error tab

Ronein · ‎10-15-2025

Both examples are same . I run it in two different sas programs. First program is a program with long code that I run previous to send email code. Second program is a program with only send to email code. In the First program I recieve email without text in body email. In the Second program I recieve email with text in body email.

Ronein · ‎10-15-2025

I run your code in my sas program and still get emty body text in email. When I open a new sas program and run same code then I see the body text in email. My question- Why in my current program I dont see the body text in email???????? Here is the code I run filename m email to="Ron.xxx@gmail.com" subject="Test from SAS" content_type="text/html" encoding="utf-8" ; ods _all_ close; ods html body=m; proc odstext; p "test message"; run; ods html close;

Ronein · ‎10-15-2025

What change should I do in code?

Online Status	Offline
Date Last Visited	a week ago

compress and upcase in Merge

send email +attach log file only in case of error or warning

Read Log

calculate seq number within group

check if string contain substring.

Re: apply labels of columns from other data set

apply labels of columns from other data set

wide or long structure

Re: order of data sets that appear in window

order of data sets that appear in window

Re: calculate seq number within group

Re: wide or long structure

Re: wide or long structure

Re: wide or long structure

Re: wide or long structure

Full Merge

Re: Max per loan in last 7 days

Re: Max per loan in last 7 days

Max per loan in last 7 days

Long to wide

Re: Long to wide Ronein

Long to wide Ronein

select all columns with substring Offer via proc sql

Re: send email if error or warning

Re: send email if error or warning

send email if error or warning

message -Large results were detected

calculate number of missing values for each variable

warning in Log- code to send an email via sas

Re: red X in error tab

Re: red X in error tab

red X in error tab

Re: send email via sas

Re: send email via sas

Re: send email via sas

SAS Users Group in Israel