рд╢реБрдн рджреЛрдкрд╣рд░, рдкреНрд░рд┐рдп рдкрд╛рдардХреЛрдВред
рдЗрд╕ рд▓реЗрдЦ рдореЗрдВ рдореИрдВ рдПрд╕рдПрдПрд╕ рдмреЗрд╕ рднрд╛рд╖рд╛ рдХреА рджреЛ рдкреНрд░рдХреНрд░рд┐рдпрд╛рдУрдВ рдФрд░ рдЙрдирдХреЗ рдЖрд╡реЗрджрди рдХреА рдЫреЛрдЯреА рд╕реВрдХреНрд╖реНрдорддрд╛рдУрдВ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рдмрд╛рдд рдХрд░реВрдВрдЧрд╛ред
рдЙрди рд▓реЛрдЧреЛрдВ рдХреЗ рд▓рд┐рдП рдЬреЛ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдЗрд╕ рднрд╛рд╖рд╛ рдХреЗ рд╕рд╛рде рдкрд░реНрдпрд╛рдкреНрдд рд░реВрдк рд╕реЗ рдХрд╛рдо рдХрд░рддреЗ рд╣реИрдВ, рдпреЗ рдЪреАрдЬреЗрдВ рдкреНрд░рд╛рдердорд┐рдХ рдкреНрд░рддреАрдд рд╣реЛрдВрдЧреА, рд▓реЗрдХрд┐рди рд╢реБрд░реБрдЖрддреА рд▓реЛрдЧреЛрдВ рдХреЗ рд▓рд┐рдП рд╡реЗ рд╕рдВрднрд╡рддрдГ рдЙрд╕ рд░реЗрдХ рд╕реЗ рдмрдЪрдиреЗ рдореЗрдВ рдорджрдж рдХрд░реЗрдВрдЧреЗ рдЬреЛ рдореИрдВрдиреЗ рдПрд╕рдПрдПрд╕ рдмреЗрд╕ рдХреЗ рд╕рд╛рде рдЕрдкрдиреЗ рдкрд░рд┐рдЪрд┐рдд рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ рдХрджрдо рд░рдЦрд╛ рдерд╛ред
рдХреЙрд▓ рд╕рдВрдХреЗрдд
рдХреЙрд▓ рд╕рд┐рдореНрдкрдЯ рдХрд╛ рдЙрдкрдпреЛрдЧ рдЙрди рдорд╛рдорд▓реЛрдВ рдХреЗ рд▓рд┐рдП рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ рдЬрдм рдХрд┐рд╕реА рдбреЗрдЯрд╛ рдЪрд░рдг (рдбреЗрдЯрд╛рд╕реНрдЯреЗрдк) рдореЗрдВ рдЪрд░ рдХрд╛ рдорд╛рди рдПрдХ рд╕реНрдереВрд▓ рдЪрд░ рдХреЛ рд╕реМрдВрдкрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдПред
рд╕рд┐рдВрдЯреЗрдХреНрд╕: call symput ("<>", < >)
symput
рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдореЗрдВ рдкрд╣рд▓рд╛ рддрд░реНрдХ рдореИрдХреНрд░реЛ рд╡реИрд░рд┐рдПрдмрд▓ рдХрд╛ рдирд╛рдо рд╣реИ рдЬрд┐рд╕рдХреЗ рд▓рд┐рдП рдЖрдкрдХреЛ рджреВрд╕рд░реЗ рддрд░реНрдХ рдХреЗ рдорд╛рди рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рдиреЗ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИред
рджреВрд╕рд░рд╛ рддрд░реНрдХ рдореИрдХреНрд░реЛ рдЪрд░ рдХреЛ рд╕реМрдВрдкрд╛ рдЬрд╛рдиреЗ рд╡рд╛рд▓рд╛ рд╡рд░реНрдг рдорд╛рди рд╣реИред рджреВрд╕рд░рд╛ рддрд░реНрдХ рд╣рдореЗрд╢рд╛ рдмрд┐рд▓реНрдХреБрд▓ рдкреНрд░рддреАрдХрд╛рддреНрдордХ рд╣реЛрдирд╛ рдЪрд╛рд╣рд┐рдП, рдЕрдиреНрдпрдерд╛, рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдорд╛рди рдХреЛ рдПрдХ рд╕реНрдереВрд▓ рдЪрд░ рдкрд░ рдЕрд╕рд╛рдЗрди рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рдкреНрд░рддреАрдХ рдЪрд░ рдореЗрдВ рдкрд░рд┐рд╡рд░реНрддрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рдирд╛ рдЪрд╛рд╣рд┐рдПред рдпрджрд┐ рдЖрдк рдЯрд╛рдЗрдк рдирд╣реАрдВ рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдЗрд╕рд╕реЗ рд╕рдорд╕реНрдпрд╛рдПрдВ рд╣реЛ рд╕рдХрддреА рд╣реИрдВред рдЗрд╕ рдорд╛рдорд▓реЗ рдореЗрдВ, рдПрд╕рдПрдПрд╕ рд╕реНрд╡рдЪрд╛рд▓рд┐рдд рд░реВрдк рд╕реЗ рдЪрд░ рдХреЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдореВрд▓реНрдп рдХреЛ рдПрдХ рд╕реНрдереВрд▓ рдЪрд░ рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рдПрдХ рдкреНрд░рддреАрдХрд╛рддреНрдордХ рдореВрд▓реНрдп рдореЗрдВ рдкрд░рд┐рд╡рд░реНрддрд┐рдд рдХрд░рддрд╛ рд╣реИ, рдФрд░ рд▓реЙрдЧ рд╕рдВрджреЗрд╢ рдореЗрдВ рдкреНрд░рджрд░реНрд╢рд┐рдд рдХрд░рддрд╛ рд╣реИ рдХрд┐ рд░реВрдкрд╛рдВрддрд░рдг рдХрд┐рдпрд╛ рдЧрдпрд╛ рд╣реИред
рдПрдХ рдЙрджрд╛рд╣рд░рдг:
data _null_;
count=1978;
call symput('count',count);
run;
%put &count;
19 data _null_;
20 count=1978;
21 call symput('count',count);
22 run;
NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column).
21:21
NOTE: DATA statement used (Total process time):
real time 0.00 seconds
cpu time 0.01 seconds
23 %put &count;
1978
рд╣рд╛рд▓рд╛рдБрдХрд┐ рдореИрдХреНрд░реЛ рд╡реИрд░рд┐рдПрдмрд▓
count
рдХреЗ рдореВрд▓реНрдп рдХреЛ 1978 рдХреЗ рд░реВрдк рдореЗрдВ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛, рдПрд╕рдПрдПрд╕ рдиреЗ рдПрдХ рдЯрд┐рдкреНрдкрдгреА рдЬрд╛рд░реА рдХреА
NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column).
21:21
рдЗрд╕рд╕реЗ рдмрдЪрдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдкрдХреЛ рд╕реНрдереВрд▓ рдЪрд░ рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдорд╛рди рдХреЛ рд╡рд░реНрдг рдорд╛рди рдореЗрдВ рдмрджрд▓рдирд╛ рдЪрд╛рд╣рд┐рдПред рдпрд╣рд╛рдБ, рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, рдпрд╣ рдХреИрд╕реЗ рдХрд░реЗрдВ:
data _null_;
count=1978;
call symput('count',strip(put(count,8.)));
run;
%put &count;
29 data _null_;
30 count=1978;
31 call symput('count',left(put(count,8.)));
32 run;
NOTE: DATA statement used (Total process time):
real time 0.00 seconds
cpu time 0.00 seconds
33 %put &count;
1978
рдЯрд┐рдкреНрдкрдгреА:
- рдЗрд╕ рддрдереНрдп рдХреЗ рдмрд╛рд╡рдЬреВрдж рдХрд┐ рд╣рдордиреЗ
CALL SYMPUT
рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рд╡реИрд░рд┐рдПрдмрд▓ рдмрдирд╛рдпрд╛ рд╣реИ, рдЗрд╕ рдореИрдХреНрд░реЛ рд╡реИрд░рд┐рдПрдмрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ рд╕реАрдзреЗ рдЙрд╕реА рдбреЗрдЯрд╛рд╕реНрдЯреЗрдк рдореЗрдВ рдирд╣реАрдВ рдХрд┐рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рдЗрд╕ рдШрдЯрдирд╛ рдХрд╛ рдХрд╛рд░рдг рдпрд╣ рд╣реИ рдХрд┐ рдбреЗрдЯрд╛рд╕реНрдЯреЗрдк рд╕рдВрдХрд▓рд┐рдд рдФрд░ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рд╣реЛрдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рдореИрдХреНрд░реЛ рдХреЛрдб рд╕рдВрдХрд▓рд┐рдд рдФрд░ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рддреЛ, CALL SYMPUT
рджреНрд╡рд╛рд░рд╛ рдмрдирд╛рдпрд╛ рдЧрдпрд╛ рдореИрдХреНрд░реЛ рд╡реИрд░рд┐рдПрдмрд▓ рдЗрд╕ рддрдереНрдп рдХреЗ рдХрд╛рд░рдг рдбреЗрдЯрд╛рд╕реНрдЯреЗрдк рдореЗрдВ рдЙрдкрд▓рдмреНрдз рдирд╣реАрдВ рд╣реЛрдЧрд╛ рдХрд┐ рдпрд╣ рдореИрдХреНрд░реЛ рд╡реИрд░рд┐рдПрдмрд▓ рдХреЗрд╡рд▓ рдбреЗрдЯрд╛рд╕реНрдЯреЗрдк рдХреЛрдб рдХреЗ рдирд┐рд╖реНрдкрд╛рджрди рдХреЗ рджреМрд░рд╛рди рдпрд╛ рдЙрд╕рдХреЗ рдмрд╛рдж рдмрдирд╛рдпрд╛ рдЬрд╛рдПрдЧрд╛ред
(рдпрджрд┐ рдЖрдкрдХреЛ рдЕрднреА рднреА рдбреЗрдЯрд╛рд╕реНрдЯреЗрдк рдХреЗ рдЕрдВрджрд░ рдПрдХ рд╣реА рдореИрдХреНрд░реЛ рдЪрд░ рддрдХ рдкрд╣реБрдВрдЪ рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рддреЛ рдЖрдк рдирд┐рд╢реНрдЪрд┐рдд рд░реВрдк рд╕реЗ рджреЛ рдЕрд▓рдЧ-рдЕрд▓рдЧ рдореИрдХреНрд░реЛ рдлрд╝рдВрдХреНрд╢рди - RESOLVE
рдпрд╛ SYMGET
рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдРрд╕рд╛ рдХрд░рдиреЗ рдореЗрдВ рд╕рдХреНрд╖рдо SYMGET
) - рдПрд╕рдПрдПрд╕ рд╣рдореЗрд╢рд╛ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдорд╛рдиреЛрдВ рдХреЛ рджрд╛рдИрдВ рдУрд░ рд╕рдВрд░реЗрдЦрд┐рдд рдХрд░рддрд╛ рд╣реИ, рдЬреЛ рд░реВрдкрд╛рдВрддрд░рдг рдХреЗ рджреМрд░рд╛рди рдкреНрд░рддреАрдХ рдЪрд░ рдХреА рд╢реБрд░реБрдЖрдд рдореЗрдВ рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рдХреА рдУрд░ рдЬрд╛рддрд╛ рд╣реИ рдпрджрд┐ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдЪрд░ рдХрд╛ рдореВрд▓реНрдп рдЗрд╕рдХреА рд▓рдВрдмрд╛рдИ рд╕реЗ рдХрдо рдерд╛ред рдЗрди рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рд╕реЗ рдЫреБрдЯрдХрд╛рд░рд╛ рдкрд╛рдиреЗ рдХреЗ рд▓рд┐рдП, рдЙрди рдлрд╝рдВрдХреНрд╢рди рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВ рдЬреЛ рд╕рднреА рдкреНрд░рдореБрдЦ рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рдХреЛ рд╣рдЯрд╛рддреЗ рд╣реИрдВ (рдЬреИрд╕рд╛ рдХрд┐ рдКрдкрд░ рдЙрджрд╛рд╣рд░рдг рдореЗрдВ)ред
- рдпрджрд┐
CALL SYMPUT
рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдореИрдХреНрд░реЛ рдХреЗ рдмрд╛рд╣рд░ рдХрд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИ (рдЕрд░реНрдерд╛рдд, рдЦреБрд▓реЗ рд╕реНрд░реЛрдд рдореЗрдВ), рддреЛ рдпрд╣ рдПрдХ рд╡реИрд╢реНрд╡рд┐рдХ рдореИрдХреНрд░реЛ рд╡реИрд░рд┐рдПрдмрд▓ рдмрдирд╛рддрд╛ рд╣реИ, рдЬрдмрдХрд┐ рдореИрдХреНрд░реЛ рдХреЗ рдЕрдВрджрд░ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдкрд░ рдпрд╣ рдПрдХ рд╕реНрдерд╛рдиреАрдп рдмрдирд╛рддрд╛ рд╣реИред
рдХреЙрд▓ SYMPUTX
CALL SYMPUTX
рдХреЛ SAS рджреНрд╡рд╛рд░рд╛ рд╕рдВрд╕реНрдХрд░рдг 9 рдореЗрдВ рдШреЛрд╖рд┐рдд рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛ рддрд╛рдХрд┐
CALL SYMPUT
рдЯреНрд░реИрдк рдХреЛ рдмрд╛рдпрдкрд╛рд╕ рдХрд┐рдпрд╛ рдЬрд╛
CALL SYMPUT
ред
CALL SYMPUTX
рдкрд░
CALL SYMPUT
рд▓рд╛рдн рдореЗрдВ рд╢рд╛рдорд┐рд▓ рд╣реИрдВ:
SYMPUTX
рд╕реНрд╡рдЪрд╛рд▓рд┐рдд рд░реВрдк рд╕реЗ рдХрд┐рд╕реА рд╡реИрд░рд┐рдПрдмрд▓ рд╡реИрд░рд┐рдПрдмрд▓ рдкрд░ рдЕрд╕рд╛рдЗрди рдХрд░рдиреЗ рд╕реЗ рдкрд╣рд▓реЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдХреЛ рд╡рд░реНрдг рдЪрд░ рдореЗрдВ рдкрд░рд┐рд╡рд░реНрддрд┐рдд рдХрд░рддрд╛ рд╣реИред (рдЖрдкрдХреЛ рдЙрдкрд░реЛрдХреНрдд рдЙрджрд╛рд╣рд░рдг рдореЗрдВ PUT рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдХреЗ рдореИрдиреНрдпреБрдЕрд▓ рд░реВрдк рд╕реЗ рд░реВрдкрд╛рдВрддрд░рдг рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИ)CALL SYMPUTX
рдкреНрд░рдореБрдЦ рдФрд░ рдЕрдиреБрдЧрд╛рдореА рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рдХреЛ рдирд┐рдХрд╛рд▓рддрд╛ рд╣реИред рддреЛ рдЕрддрд┐рд░рд┐рдХреНрдд рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рдХреЛ рд╕рд╛рдлрд╝ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП STRIP
рдпрд╛ LEFT
рдЬреИрд╕реЗ рдХрд╛рд░реНрдпреЛрдВ рдХреА рдХреЛрдИ рдЖрд╡рд╢реНрдпрдХрддрд╛ рдирд╣реАрдВ рд╣реИред
рд╕рд┐рдВрдЯреИрдХреНрд╕: call symputx ("<>", < >, < >)
рдкрд╣рд▓реЗ рджреЛ рддрд░реНрдХ
CALL SYMPUT
рддрд░реНрдХреЛрдВ рдХреЗ рд╕рдорд╛рди рд╣реИрдВред рддреАрд╕рд░рд╛ рддрд░реНрдХ (рдкреНрд░рддреАрдХ рддрд╛рд▓рд┐рдХрд╛) рд╡реИрдХрд▓реНрдкрд┐рдХ рд╣реИ рдФрд░ рдорд╛рдиреЛрдВ рдХреЛ рд▓реЗ рд╕рдХрддрд╛ рд╣реИ G, L рдпрд╛ F. рдпрджрд┐ рдЖрдк G рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рд╡реИрд╢реНрд╡рд┐рдХ рдЪрд┐рд╣реНрди рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рдПрдХ рдореИрдХреНрд░реЛ рдЪрд░ рдмрдирд╛рдпрд╛ рдЬрд╛рдПрдЧрд╛, рдпрджрд┐ рдЖрдк L рдХреЛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рддреЗ рд╣реИрдВ, рддреЛ SAS рд╕реНрдерд╛рдиреАрдп рддрд╛рд▓рд┐рдХрд╛ рдореЗрдВ рдореИрдХреНрд░реЛ рдЪрд░ рдХреЛ рдмрдЪрд╛рдПрдЧрд╛ред рдпрджрд┐ рддреАрд╕рд░рд╛ рддрд░реНрдХ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирд╣реАрдВ рд╣реИ рдпрд╛ F рдкрд░ рд╕реЗрдЯ рд╣реИ, рддреЛ
CALL SYMPUTX
рд╕рдорд╛рди рд╡реНрдпрд╡рд╣рд╛рд░ рдХрд░реЗрдЧрд╛ред
рдПрдХ рдЙрджрд╛рд╣рд░рдг:
data _null_;
count=1978;
call symputx('count',count,'G');
run;
%put &count;
29 data _null_;
30 count=1978;
31 call symputx('count',count,'G');
32 run;
NOTE: DATA statement used (Total process time):
real time 0.00 seconds
cpu time 0.00 seconds
33 %put &count;
1978
рдиреЛрдЯ: рдпрджрд┐ рдЖрдк
CALL SYMPUT
рдмрдЬрд╛рдп
CALL SYMPUT
рдЙрдкрдпреЛрдЧ
CALL SYMPUTX
, рддреЛ рдкреНрд░реЛрдЧреНрд░рд╛рдо рдХреЛ рдкрд╣рдЪрд╛рди рдХреЗ рдЕрдиреБрд╕рд╛рд░ рдирд┐рд╖реНрдкрд╛рджрд┐рдд рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛, рд▓реЗрдХрд┐рди рдПрдХ рд╡рд░реНрдг рдорд╛рди рдХреЗ рд╕рдВрдЦреНрдпрд╛рддреНрдордХ рдорд╛рди рдХреЗ рд╕реНрд╡рдЪрд╛рд▓рд┐рдд рд░реВрдкрд╛рдВрддрд░рдг рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ рд▓реЙрдЧ рдХреЛ рдПрдХ рдиреЛрдЯ рдЬрд╛рд░реА рдХрд┐рдпрд╛ рдЬрд╛рдПрдЧрд╛ред
CALL SYMPUT
рдФрд░
CALL SYMPUTX
рдмреАрдЪ рдЕрдВрддрд░
рдХреЛ рдпрд╛рдж рд░рдЦрдиреЗ рдХрд╛
рдПрдХ рд╕рд░рд▓ рддрд░реАрдХрд╛ :
(SAScommunity.org рдкрд░ Use_the_SAS_V9_CALL_SYMPUTX_Routine рд╕реЗ рд▓рд┐рдпрд╛ рдЧрдпрд╛)
SAS V9 рдХреЙрд▓ SYMPUTX рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдЖрдкрдХреЛ рдХреАрд╕реНрдЯреНрд░реЛрдХреНрд╕ рдХреЛ рдмрдЪрд╛рдиреЗ рдФрд░ рдЕрдзрд┐рдХ рдХреЙрдореНрдкреИрдХреНрдЯ рдФрд░ рд╕рдордЭрдиреЗ рдпреЛрдЧреНрдп рдХреЛрдб рдмрдирд╛рдиреЗ рдХреА рдЕрдиреБрдорддрд┐ рджреЗрддреА рд╣реИред
рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рдмрдЬрд╛рдп
call symput('macrovar', trim(left(charvar)));
рдХрд┐рд╕реА рд╡рд░реНрдг рд╕реНрдЯреНрд░рд┐рдВрдЧ рдХреЗ рд╕рд╛рде рдореИрдХреНрд░реЛ рдЪрд░ рдмрдирд╛рдиреЗ рдХреЗ рд▓рд┐рдП рдЬрд┐рд╕рдореЗрдВ рдЕрддрд┐рд░рд┐рдХреНрдд рд╕реНрдерд╛рди рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ, рдЖрдкрдХреЛ SYMPUTX рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдирд╛ рдЪрд╛рд╣рд┐рдП:
call symputx('macrovar', charvar);