eCTDv3.2.2のチェックサムファイル

*---XMLメッセージの置き場所指定(パス記入);

%let _inpath=./util;

*---XMLメッセージ名(拡張子ごと記入);

%let _infile=index.xml;

*---チェックサムファイル出力フォルダー指定(パス記入);

%let _outpath=./util;

*---チェックサムファイル名(拡張子ごと記入);

%let _outfile=index-m5.txt;

 

filename _inpath "&_inpath.";

data _null_;

  folder=pathname("_inpath");

  dir="'certutil -hashfile "||tranwrd(strip(folder),' ','" "')||"\&_infile. MD5'";

  call symputx("dir",dir);

run;

 

filename in Pipe &dir.;

filename out "&_outpath.\&_outfile.";

data checksum;

  infile in pad;

  input text $1000.;

  if kindex(text,"MD5")=0 & kindex(text,"CertUtil:")=0;

  file out;

  put text;

run;