Как я могу выполнить макрос для каждого наблюдения в sas-наборе данных?

Question

Вот код макроса .....

libname myfmt "&FBRMrootPath./Formats"; 
%macro CreateFormat(DSN,Label,Start,fmtname,type); 
options mprint mlogic symbolgen; 
%If &type='n' %then %do; 
    proc sort data=&DSN out=Out; by &Label; 
     Run; 
    Data ctrl; 
     set Out(rename=(&Label=label &Start=start)) end=last; 
     retain fmtname &fmtname type &type; 
     output; 
    If last then do; 
     hlo='O'; 
     label='*ERROR'; 
     output; 
    End; 
Run; 
%End; 
%Else %do; 
    proc sort data=&DSN out=Out; by &Start; 
     Run; 
    Data ctrl; 
     set Out(rename=(&Start=label &Label=start)) end=last; 
     retain fmtname &fmtname type &type; 
     output; 
    If last then do; 
     hlo='O'; 
     label='*ERROR'; 
     output; 
    End; 
Run; 
%End; 
proc format library=myfmt cntlin=ctrl; 
Run; 
%Mend CreateFormat; 

Вот код для управляющих данных, установленных с помощью которых выше макрос должен запустить для каждого наблюдения набора данных и значения наблюдений являются входами для varibales в макрорезист ...

Data OPER.format_control; 
Input DSN :$12. Label :$15. Start :$15. fmtName :$8. type :$1. fmt_Startdt :mmddyy. fmt_Enddt :mmddyy.; 
format fmt_Startdt fmt_Enddt date9.; 
Datalines; 
ssin.prd prd_nm prd_id mealnm n . 12/31/9999 
ssin.prd prd_id prd_nm mealid c . 12/31/9999 
ssin.fac fac_nm onesrc_fac_id fac1SRnm n . 12/31/9999 
ssin.fac fac_nm D3_fac_id facD3nm n . 12/31/9999 
ssin.fac onesrc_fac_id D3_fac_id facD31SR n . 12/31/9999 
oper.wrkgrp wrkgrp_nm wrkgrp_id grpnm n . 12/31/9999 
; 

Answer 1

Нечто подобное.

proc sql; 
select catx(',',cats('%CreateFormat(',DSN),Label,Start,fmtname,cats(type,')'); 
into :formcreatelist separated by ' ' 
from oper.format_control; 
quit; 

Возможно, вам потребуется указать некоторые из ваших переменных, чтобы получить желаемый формат в макропеременной. Я использую немного cludgy cats/catx combo здесь, вы могли бы кошки раз с ',' добавлен в кучу раз также.

У вас есть предел здесь - всего около 20 000 символов в макропеременной. Если это закончилось, вам либо нужно использовать CALL EXECUTE (у которого есть некоторые причудливые функции), либо вы можете поместить вызов макроса в текстовый файл и% INCLUDE.

Answer 2

Существует лучший способ сделать это, а не выбирать ... в макропеременной. Используйте временный файл, подобный этому:

Этот метод не ограничен ограничением длины 32k для макропеременных.

Обратите внимание, что вы обязательно должны использовать одинарные кавычки вокруг% createformat, чтобы предотвратить запуск SAS макроса непосредственно перед компиляцией шага данных. Вы хотите, чтобы макрос запускался при запуске% include.

Вышеупомянутый подход аналогичен вызову execute, но вызов execute является злым, потому что он не выполняет макрокоманду и внедренный код данных/proc внутри макроса в ожидаемом порядке. Избегайте выполнения вызова.

И, наконец, если вы используете интерактивный SAS и используя технику, вы можете использовать аккуратный трюк, который вы можете использовать для отладки. Прокомментируйте последние две строки кода - четкое указание и имя файла. После запуска оставшегося кода введите команду SAS «fslist dyncode» в окне команд. Появится надпись на динамическом коде, который вы только что создали. Вы можете просмотреть его и убедиться, что у вас есть то, что вы намеревались.

Answer 3

Вот вызов выполнить решение, только для полноты:

data _null_; 
    set OPER.format_control; 
    call execute('%CreateFormat(' || DSN || ',' || Label || ',' || Start || ',' || fmtname || ',' || type || ');'); 
run;