BookmarkSubscribeRSS Feed
🔒 This topic is solved and locked. Need further help from the community? Please sign in and ask a new question.
joseph626
Obsidian | Level 7

Hi there,

 

I wonder if I can use %do_over or any other loop function to write the following code?

by the way, the values in () are options following "pattern=" in proc sgplot

%drawplot(dot);
%drawplot(solid);
%drawplot(dash);
%drawplot(longdash);

 

Thanks!

 

1 ACCEPTED SOLUTION

Accepted Solutions
rogerjdeangelis
Barite | Level 11
Below is a 'do_over' implementation
and a dosubl implementation.

I am not a fan of 'call execute'.
Hopefully SAS will someday alloe
'%do' and '%if' in open code;

*    _
  __| | ___     _____   _____ _ __
 / _` |/ _ \   / _ \ \ / / _ \ '__|
| (_| | (_) | | (_) \ V /  __/ |
 \__,_|\___/___\___/ \_/ \___|_|
          |_____|
;


%macro drawplot(syms);
  %put ****  &=syms  *******;
%mend drawplot;

%array(sym,values=dot solid dash longdash);
%DO_OVER(sym,macro=drawplot);

****  SYMS=dot  *******
****  SYMS=solid  *******
****  SYMS=dash  *******
****  SYMS=longdash  *******

*    _                 _     _
  __| | ___  ___ _   _| |__ | |
 / _` |/ _ \/ __| | | | '_ \| |
| (_| | (_) \__ \ |_| | |_) | |
 \__,_|\___/|___/\__,_|_.__/|_|

;

data _null_;
  do sym="dot", "solid",  "dash", "longdash";
     call symputx('syms',sym);
     rc=dosubl('
        %drawplot(&syms);
     ');
  end;
run;quit;


****  SYMS=dot  *******
****  SYMS=solid  *******
****  SYMS=dash  *******
****  SYMS=longdash  *******



SOAPBOX ON
I favor this because, the more of us that use it,
the more likely SAS will not deprecate it.
It has enomous potential(like the somewhat deprecated libname engineS), and unlike the
trivial implementation of 'call exceute', it
requires very skilled SAS developers to bring
it to it's full potential.

It is also a language differentiator(ie it
will put WPS and others on their toes.)

SOAPBOX OFF


View solution in original post

2 REPLIES 2
Reeza
Super User

Yes...look at CALL EXECUTE or DOSUBL 

rogerjdeangelis
Barite | Level 11
Below is a 'do_over' implementation
and a dosubl implementation.

I am not a fan of 'call execute'.
Hopefully SAS will someday alloe
'%do' and '%if' in open code;

*    _
  __| | ___     _____   _____ _ __
 / _` |/ _ \   / _ \ \ / / _ \ '__|
| (_| | (_) | | (_) \ V /  __/ |
 \__,_|\___/___\___/ \_/ \___|_|
          |_____|
;


%macro drawplot(syms);
  %put ****  &=syms  *******;
%mend drawplot;

%array(sym,values=dot solid dash longdash);
%DO_OVER(sym,macro=drawplot);

****  SYMS=dot  *******
****  SYMS=solid  *******
****  SYMS=dash  *******
****  SYMS=longdash  *******

*    _                 _     _
  __| | ___  ___ _   _| |__ | |
 / _` |/ _ \/ __| | | | '_ \| |
| (_| | (_) \__ \ |_| | |_) | |
 \__,_|\___/|___/\__,_|_.__/|_|

;

data _null_;
  do sym="dot", "solid",  "dash", "longdash";
     call symputx('syms',sym);
     rc=dosubl('
        %drawplot(&syms);
     ');
  end;
run;quit;


****  SYMS=dot  *******
****  SYMS=solid  *******
****  SYMS=dash  *******
****  SYMS=longdash  *******



SOAPBOX ON
I favor this because, the more of us that use it,
the more likely SAS will not deprecate it.
It has enomous potential(like the somewhat deprecated libname engineS), and unlike the
trivial implementation of 'call exceute', it
requires very skilled SAS developers to bring
it to it's full potential.

It is also a language differentiator(ie it
will put WPS and others on their toes.)

SOAPBOX OFF


hackathon24-white-horiz.png

2025 SAS Hackathon: There is still time!

Good news: We've extended SAS Hackathon registration until Sept. 12, so you still have time to be part of our biggest event yet – our five-year anniversary!

Register Now

How to Concatenate Values

Learn how use the CAT functions in SAS to join values from multiple variables into a single value.

Find more tutorials on the SAS Users YouTube channel.

SAS Training: Just a Click Away

 Ready to level-up your skills? Choose your own adventure.

Browse our catalog!

Discussion stats
  • 2 replies
  • 989 views
  • 2 likes
  • 3 in conversation