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; ... View more

Hello Experts, I would like to display the today date as DD_MM_YY. I apply this code : %let Date_today=%sysfunc(tranwrd(%sysfunc(today(),ddmmyy10.),"/","_")); But I have as result DD/MM/YY. Thank you for your help ! ... View more

Hi experts, When I deploy the viya4-monitoring-kubernetes tools on OCP, it deploys the Prometheus Pushgateway in the SAS Viya namespace. I am puzzled as I do not see anywhere how does SAS Viya "know" to communicate with this newly deployed gateway. I mean, where do I define to SAS Viya the name of the Pushgateway service and port number so it can push SWO or launched job metrics to this gateway? ... View more

Hello, I work with Visual Analytics (probably not a VA question though) and don't have much expertise at data processing, and I'm trying to figure out how to do the following: Have: Lead Writer Assistant Writer Project Joe Mac, Maggie Earwax for Dummies Joe Clock Repair Sam Joe Desk Fans: A Celebration All Writers Joe Mac Maggie Sam Want: Writer Total Projects Lead Assistant Joe 3 2 1 Mac 1 0 1 Maggie 1 0 1 Sam 1 1 0 That is, I have a list of writers in one table who might be represented in either of two columns in the second. For Assistant writer it is a "contains" relationship. I'm sure this is a fairly basic thing to do in Base SAS programming but I don't know which proc/statement you would use. I am reasonably sure this cannot be done directly in VA, although I can do some unpleasant workarounds with parameters. I am working in a Viya 4 environment. Any pointers? Thanks, Sam ... View more

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=""]; ... View more