※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

%LET CTRL_IN =c-sim-template.txt; *** コントロールファイルのテンプレート ***;
%LET CTRL_OUT=c-sim.txt; *** 出力コントロールファイル ***;

%LET OUTPUT=output.txt; *** NONMEM の出力ファイル名 ***;

%LET NMFE5 =nmfe5;

%LET SEED  =260199; *** 乱数の種 ***;

*** コントロールファイルのテンプレートを読み込む ***;
DATA CfileTemplate;
  INFILE "&CTRL_IN" DLM="\";
  LENGTH str $80;
  INPUT str;
RUN;

*** $SIM 部分を書き換え ***;
DATA CfileOUT;
  SET CfileTemplate;
  IF SUBSTR(str, 1, 4) = "$SIM" THEN DO;
    str = "$SIM (" || "&SEED" || ")";
  END;
RUN;

*** 書き出し ***;
DATA _NULL_;
  SET CfileOUT;
  FILE "&CTRL_OUT";
  PUT str;
RUN;

*** NONMEM 実行 ***;
OPTIONS NOXWAIT;
X "&NMFE5 &CTRL_OUT &OUTPUT";