write all sas sample program(object) names in sasproduct sample folder into log-经管之家官网！

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;
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

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP