Как динамически создавать переменные Scl в sas scl

Я ищу решение проблемы, с которой сталкиваются некоторые программисты, но я не могу найти какое-либо решение в Интернете. Вот:

Начиная с таблицы SAS, содержащей пары имя / значение. Пример:

varName          varValue 
Name             Bart
Age              54
Job              writer
Start            1983

Программа Scl должна считывать содержимое таблицы и создавать переменную Scl для каждой пары varName / varValue.

Это должно быть легко сделать что-то тривиальное, но я просто не могу найти правильный путь. Это сводит меня с ума. У кого-то есть решение?

Барт

sas,sas-af,

1

Ответов: 1


0

Ниже приведен пример размещения двух переменных из набора данных в список scl, который является очень хорошим контейнером для данных при использовании scl, а не в неизвестном числе отдельных переменных. Неважно, сколько строк в таблице, и вы можете использовать функции списка для доступа к данным по имени. Сохраните этот код в записи каталога. Sasuser.mymethods.Copytwovar2list.scl. INIT: имеет тестовый пример. У вас может быть отдельная запись scl с этим использованием.

COPY_TWO_VAR_VALUES_TO_LIST:
   *-----------------------------------------------------------------*
   | Method Name: COPY_TWO_VAR_VALUES_TO_LIST
   *--------------------------Entry Parameters-----------------------*
   | d_id      8   I   Input dataset id
   | l_id      8   O   output list
   | var1     $32  I   Var1 - Name of list item
   | var2     $32  I   Var2 - Value of item
   *-----------------------------------------------------------------*;
   method dsname     $45
          l_id        8
          var1       $32
          var2       $32
           ;
   d_id=open(dsname,'i');

   varnum1=varnum(d_id,var1);
   vartyp1=vartype(d_id,varnum1);

   if var1 ne var2 then do;
       varnum2=varnum(d_id,var2);
       vartyp2=vartype(d_id,varnum2);
   end;

   * --- fill the list with data set values;
   do while(fetch(d_id) ne -1 );
      i+1;
      if vartyp1='C' then
         u_vname=getvarc(d_id,varnum1);
      else
         u_vname=left(putn(getvarn(d_id,varnum1),'BEST12.'));

      if var1 ne var2 then do;
          if vartyp2='C' then
             u_vvalue=getvarc(d_id,varnum2);
          else
             u_vvalue=left(putn(getvarn(d_id,varnum2),'BEST12.'));

      end;
      else
         u_vvalue = u_vname;
      rc=setitemc(l_id,u_vvalue,i,'Y');
      u_vname=nameitem(l_id,i,u_vname);
   end;
   rc=close(d_id);
endmethod;

INIT:
* --- test example of usage ;
l_list=makelist();

call method('sasuser.mymethods.copytwovar2list.scl', 
    'COPY_TWO_VAR_VALUES_TO_LIST',
    'sashelp.class',l_list,
    'NAME',
    'AGE');

call putlist(l_list,'l_list=',2);

return;
SAS, SAS из,