%MACRO ChkValueList_Add(p_list =
,p_value =
)/minoperator mindelimiter = ' ';
/*----------------------------------------------------------------
Parameter
----------------------------------------------------------------*/
%put @_&sysmacroname._500_p_list: &p_list.;
%put @_&sysmacroname._502_p_value: &p_value.;
/*----------------------------------------------------------------
Check
----------------------------------------------------------------*/
%if %length(&p_value.) = 0 %then %do;
%put ERROR: Parameter 'p_value' ist leer. (ku-508);
%return;
%end;
/*----------------------------------------------------------------
----------------------------------------------------------------*/
%let pos_found = %sysfunc(findw(&p_list., &p_value.)); /* */
/*%if NOT (&p_value. IN (&&&p_list.)) %then %do; /* */
%put @_&sysmacroname._517_Position_Found: &pos_found.;
%if &pos_found. = 0 %then %do;
%let &p_list. = &&&p_list. &p_value.;
%put @_&sysmacroname._522: Wert (&p_value.) wurde in Liste hinzugefügt (&p_list.).;
%end;
%else %do;
%put @_&sysmacroname._525: Wert (&p_value.) ist bereits in Liste enthalten (&p_list.).; /* nicht möglich Name der Liste anzuzeigen!!!)
%end;
%put;
%put #---------------------------------------------------#;
%put # &sysmacroname._End;
%put #---------------------------------------------------#;
%MEND ChkValueList_Add;
------------------------------------------------------------------------------
------------------------------------------------------------------------------
%global list_epi list_add;
%let list_epi =;
%let list_add =;
/* */
%include "/......_ChkVariableExist.sas";
%ChkValueList_Add(p_list= &list_epi., p_value= Hallo);
%put ----list_epi: &list_epi.;
------------------------------------------------------------------------------
Log
------------------------------------------------------------------------------
1 ;*';*";*/;quit;run;
2 OPTIONS PAGENO=MIN;
3 %LET _CLIENTTASKLABEL='Config';
4 %LET _CLIENTPROCESSFLOWNAME='Manual';
5 %LET _CLIENTPROJECTPATH='/SAS/......egp';
6 %LET _CLIENTPROJECTPATHHOST='........';
7 %LET _CLIENTPROJECTNAME='.......egp';
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
MPRINT(HTML5ACCESSIBLEGRAPHSUPPORTED): ACCESSIBLE_GRAPH
21 ENCODING='utf-8'
22 STYLE=HTMLBlue
23 NOGTITLE
24 NOGFOOTNOTE
25 GPATH=&sasworklocation
26 ;
27
28
29 %include "/SAS/................sas";
574 %ChkValueList_Add(p_list= &list_epi., p_value= Hallo);
#---------------------------------------------------#
# ChkValueList_Add_Start
#---------------------------------------------------#
@_ChkValueList_Add_500_p_list:
ERROR: Expecting a variable name after %LET.
ERROR: The macro variable name is either all blank or missing.
ERROR: The macro ChkValueList_Add will stop executing.
575
576
578
579 %put ----list_epi: &list_epi.;
----list_epi:
580 %put &=list_epi;
LIST_EPI=
581 /* */
582
583
584 %LET _CLIENTTASKLABEL=;
585 %LET _CLIENTPROCESSFLOWNAME=;
586 %LET _CLIENTPROJECTPATH=;
587 %LET _CLIENTPROJECTPATHHOST=;
588 %LET _CLIENTPROJECTNAME=;
589 %LET _SASPROGRAMFILE=;
2 The SAS System 09:26 Monday, March 18, 2024
590 %LET _SASPROGRAMFILEHOST=;
591
592 ;*';*";*/;quit;run;
593 ODS _ALL_ CLOSE;
594
595
596 QUIT; RUN;
597
... View more