 HOME |
 FUN_home |
 연구회 |
 자료실 |
 SAS 9.1.3 |
 |
| SAS TIP |
|
| work |
|
처음메뉴로
|
다운로드 : PULIST 파일
| SAS CODE |
| SAS Statements |
|---|
|
****************************************************************; 1. 아래의 글이 예전의 버젼이라서 제가 수정을 하여서 완성하였습니다. 참고하기를 바랍니다. - http://listserv.uga.edu/cgi-bin/wa?A2=ind9804D&L=sas-l&P=R12035&D=0; 2. cleanwork - UNIX에서 SAS 프로세스가 종료뒤에 남은 WORK 디렉토리의 파일을 지우기 위한 옵션(SAS도움말 참조) WORK 디렉토리 청소를 하는 도구. 3. PULIST : 현재 운영중인 PROCESS ID를 확인하는 MS에서 제공하는 프로그램 유사한 프로그램 : PsTools 4. LOGEVENT : 파일 삭제시 오류발생시 NT로그에 로그 생성 설정-제어판-관리도구-이벤트뷰어-응용프로그램로그 참고사이트 : http://support.microsoft.com/kb/315410 http://www.petri.co.il/download_free_reskit_tools.htm 5. 사용방법 : NT 스케쥴에서 Batch 모드로 프로그램 실행 6. 주의점 : 프로그램의 다양한 테스트를 하신후에, 주의하시고 사용하시기를 바랍니다. 필요한 WORK파일을 지울수도 있습니다. 7. 참고 FILENAME : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0162.htm DOPEN : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0139.htm DNUM : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0138.htmDCLOSE : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0124.htmDREAD : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0142.htmFDELETE : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0156.htmMODULEN : http://www.statwith.pe.kr/SAS/1.FUNCTION/F0275.htm ****************************************************************; * 기본 설정; * NT Resource Kit의 위치 지정; %let ntrk ='"C:\Program Files\Resource Kit\pulist.exe"'; %let LOGEVENT ='"C:\Program Files\Resource Kit\logevent.exe"'; * 기본설정 종료; ****************************************************************; options noxwait xsync obs=max; * Win32 API 호출 테이블을 위해 Work catalogue에 Temporary Entry 생성.; filename sascbtbl catalog 'work.temp.winapi.source'; data _null_; file sascbtbl; put "routine RemoveDirectoryA"; put "module=KERNEL32"; put "minarg=1"; put "maxarg=1"; put "stackpop=called"; put "returns=short;"; put "arg 1 input char format=$cstr200.;"; run;
* Work라이브러리들이 저장되는 디렉토리 위치를 찾는다.; %let wdir=; data _null_; * Config를 검색하여서 위치를 찾는 방법도 있지만, 간단하게 아래와 같이 처리; workdir = substr(pathname("work"),1,index(pathname("work"),'\_TD')-1); call symput('wdir',trim(left(workdir))); run ;
* SAS TEMP파일 위치를 반환한다.(LOG창에서 확인); *기본 WORK위치 : C:\Documents and Settings\Administrator\Local Settings\Temp\SAS Temporary Files; %put wdir=&wdir; * WORK 서브디렉토리의 이름을 데이터세트로 생성. * WORK subdirectory 형태 : _TDxxxx * (_TD + SAS 세션의 프로세스 ID(Process ID,PID) 번호 4자리); data sasdirs(index=(workdir)); attrib dirname length=$50 workdir length=$8 pid length=$5; * 위에서 저장된 디렉토리 위치를 FILENAME "mydir"에 할당; rc=filename('mydir',"&wdir"); * 할당된 디렉토리를 접근허가; did=dopen('mydir'); * DIRNAME변수 초기화; dirname=' '; * WORK디렉토리 내의 디렉토리의 수자를 할당; memcount=dnum(did); if (memcount>0) then do; do t = 1 to memcount; * WORK 디렉토리 내에 존재하는 디렉토리명을 할당; * 현재 프로세스에 존재하는 디렉토리명과 세션이 죽은 디렉토리명 할당; dirname=trim(left(upcase(dread(did,t)))); * WORK 디렉토리 내의 _TDxxxx만을 대상으로 실행; if dirname =: "_TD" then do; workdir = trim(dirname); pid = substr(dirname,4); output; end; end; end; rc=dclose(did); run;
* PULIST유틸리티를 이용하여 현재 실행중인 SAS 프로세스의 리스트를 획득한다.; * 각 현재 실행중인 SAS 프로세스에 의해 생성된 WORK하위디렉토리명을 생성; * 파이프 참고 : D:\D드라이브\baek\00.홈페이지관리\SAS\1.FUNCTION\F0175.htm; filename pulist pipe &ntrk; data sasprocs(keep=pid workdir index=(workdir)); attrib process length=$18 workdir length=$8 rawpid length=$5 pid length=$5; * 파이트 기능을 이용하여 PULIST에 의해 생성된 프로세스 리스트 이용한다.; infile pulist lrecl=100 pad; input process rawpid; process = trim(left(upcase(process))); * 현재 실행중인 프로세스중에서 SAS 프로세스만 선택; if process =: 'SAS.' and pid ne 'PID' then do; * 현재 실행중인 SAS의 WORK 하위디렉토리 명과 PID를 획득; pid = put(input(rawpid,4.),z4.); workdir = trim("_TD" || trim(pid)); output; end; run; filename pulist;
* 현재 실행중인 SAS프로세스와 관계 없는 WORK 하부디렉토리 내의 파일을 삭제하고, WORK 하부디렉토리를 삭제한다. 만약 하부디렉토리를 삭제하지 못하면, 이벤트로그에 에러를 작성한다.; * 하부디렉토리 내의 디렉토리명(SASDIRS)와 현재 실행중인 SAS프로세스의 디렉토리명(SASPROCS)를 MERGE; data _NULL_; merge sasdirs(in=a) sasprocs(in=b); by workdir; if a and not b then do; * WORK 하부디렉토리내의 디렉토리명을 할당; rc = filename('subdir',"&wdir.\" || trim(workdir)); * WORK 하부디렉토리내의 각 디렉토리 접근허가; sid = dopen('subdir'); * WORK 하부디렉토리내 디렉토리 내의 파일 숫자를 얻는다.; numfiles = dnum(sid); do sind=1 to numfiles; * 각 디렉토리 내(SID)의 파일을 읽는다; fname = dread(sid,sind); if fname not in ('.','..') then do; rc = filename('workfile', "&wdir.\" || trim(workdir) || '\' || fname); if rc eq 0 then do; * 각 디렉토리 내의 파일을 순차적으로 할당; rc = fdelete('workfile'); rc = filename('workfile',''); end; end; end; rc = dclose(sid); * 위에서 생성된 WIN32 API를 위하여 WORK 하부디렉토리 내의 디렉토리 삭제; rc = modulen('RemoveDirectoryA', "&wdir.\" || trim(workdir)); * 만약 디렉토리를 삭제하지 못할경우 실행; if rc ne 1 then do; * 이벤트 로그에 에러 생성; xcmd = '"'||&LOGEVENT||'"'||" -s E 'CLEANWRK.SAS failed to delete " || "&wdir.\" || workdir || "'"; call system(xcmd); * 로그에 경고 출력; xput = "Warning! CLEANWRK.SAS failed to delete " || "&wdir.\" || workdir; put xput; end; end; run; filename sascbtbl catalog 'work.temp.winapi.source'; * The End; |
2007년 백 승 민 제작하였답니다.
( http://cafe.daum.net/statsas
, http://www.statwith.pe.kr )
