write all sas sample program(object) names in sasproduct sample folder into log

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

The purpose is as in title.

options cmplib=sasuser.funcs;
proc fcmp outlib=sasuser.funcs.dir;

function diropen(dir $);
   length dir $ 256 fref $ 8;
   rc = filename(fref, dir);
   if rc = 0 then do;
      did = dopen(fref);
      rc = filename(fref);
   end;
   else do;
      msg = sysmsg();
      put msg '(DIROPEN(' dir= ')';
      did = .;
   end;
   return(did);
endsub;

subroutine dirclose(did);
   outargs did;
   rc = dclose(did);
   did = .;
endsub;

subroutine dir_entries(dir $, files[*] $, n, trunc);
   outargs files, n, trunc;
   length dir entry $ 256;

   if trunc then return;

   did = diropen(dir);
   if did <= 0 then return;

   dnum = dnum(did);
   do i = 1 to dnum;
      entry = dread(did, i);
      /* If this entry is a file, then add to array */
      /* Else entry is a directory, recurse. */
      fid = mopen(did, entry);
      entry = trim(dir) || '\' || entry;
      if fid > 0 then do;
         rc = fclose(fid);
         if n < dim(files) then do;
            trunc = 0;
            n = n + 1;
            files[n] = entry;
         end;
         else do;
            trunc = 1;
            call dirclose(did);
            return;
         end;
      end;
      else
         call dir_entries(entry, files, n, trunc);
   end;

   call dirclose(did);
endsub;
run;


*%let prod=access;
*%let prod=iml;
%let prod=core;

data _null_;
   array files[1000] $ 256 _temporary_;
   dnum = 0;
   trunc = 0;
   call dir_entries("%sysget(sasroot)\&prod.\sample", files, dnum, trunc);
   if trunc then put 'ERROR: Not enough result array entries. Increase array
size.';
   do i = 1 to dnum;
      put files[i];
   end;
run;

**********************************************;
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\append.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\armsamp.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\biorythm.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\bpg01r01.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\bpg02r01.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\bpg05r01.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\bpg07r01.sas
.........................
SNIPPED
.........................
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\univar2.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\univar3.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\update2.sas
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\User.gif
C:\Program Files\SASHome\x86\SASFoundation\9.3\core\sample\wordfreq.sas
NOTE: DATA statement used (Total process time):
      real time           4.93 seconds
      cpu time            0.26 seconds

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏5 回帖

关键词：Program Product Sample folder produc return names into all function

没看懂。先收藏，慢慢琢磨。

不大明白，需要仔细看一下！