ACOS2便利ツール

• ・ＶＢスクリプト又はＪスクリプトを利用して、ＥＸＣＥＬでより高度な展開表示。
• ・ＥＸＣＥＬ以外のアプリケーションでＡＣＯＳから転送したテキストデータを利用。
• ・ＡＣＯＳで生成したテキストデータをＷｉｎｄｏｗｓへファイル転送してＯｒａｃｌｅ等のデータベースに登録する。

ＪＣＬ：ＥＸＣＥＬの内容

\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 ,'N';
\LET UCSTY ,'6';
\LET UCCUR ,'C:\TEMP';
\LET UCCMD ,'EXCEL.EXE %UCDRV :%UCTXT ';
\EXEC RPCOMM,ACT=RUN,CRT=&CRT ,PORT=8081 ;