ACOS2便利ツール

• ・ＡＣＯＳのジョブ実行中に異常終了した場合、管理者宛にｅ−ｍａｉｌを送信する。※1
• ・ＡＣＯＳのFTPサーバーにバッチファイル、スクリプトファイル等を用意してＰＣの自動化を一元管理する。

ＪＣＬ：ＢＡＴの内容

\MAC ID=(CRT=NIL);

\COMM ; ユーザ制御変数を定義
\DCV UCOS ,CHAR ,LEN=80;
\DCV UCWIN ,CHAR ,LEN=80;
\DCV UCDRV ,CHAR ,LEN=1 ;
\DCV UCDIR ,CHAR ,LEN=80;
\DCV UCTXT ,CHAR ,LEN=80;
\DCV UCBAT ,CHAR ,LEN=80;
\DCV UCVBS ,CHAR ,LEN=80;
\DCV UCJS ,CHAR ,LEN=80;
\DCV UCMON ,CHAR ,LEN=1 ;
\DCV UCSTY ,CHAR ,LEN=1 ;
\DCV UCCUR ,CHAR ,LEN=80;
\DCV UCCMD ,CHAR ,LEN=80;
\DCV UCADR ,CHAR ,LEN=16;
\DCV UCUID ,CHAR ,LEN=80;
\DCV UCPWD ,CHAR ,LEN=80;
\DCV UCFNM ,CHAR ,LEN=80;
\DCV UCSTS ,CHAR ,LEN=3 ;

\COMM ; 環境情報を取得する
\EXEC RPCOMM,ACT=ENV,CRT=&CRT ,PORT=8081 ;
\RRDRFT WSTN=&CRT ,DSTN=T,TUNIT=%UCDRV ,MODE=W, TFILE=%UCTXT ,FILE=EXCELTEXT,MEDIA=DS06,TEMP,RFM=V;

\COMM ; ＦＴＰクライアントを実行する
\LET UCMON ,'Y';
\LET UCSTY ,'0';
\LET UCADR,'192.168.1.4';
\LET UCUID ,'administrator';
\LET UCPWD ,'admin';
\LET UCFNM ,'get test.bat acos.bat';
\EXEC RPCOMM,ACT=FTP,CRT=&CRT ,PORT=8081 ;
\WHEN UCSTS,/=,'221',JUMP=JEND; ＦＴＰがエラーの場合

\COMM ; ＦＴＰで転送したバッチファイルを実行する
\LET UCMON ,'Y';
\LET UCSTY ,'1';
\LET UCCMD ,'%UCDRV :%UCBAT ';
\EXEC RPCOMM,ACT=RUN,CRT=&CRT ,PORT=8081 ;

JEND \CONTINUE ;