Caché 専用のシステム/ツールおよびユーティリティ - InterSystems ...

^%ZSTART ルーチンと ^%ZSTOP ルーチンによる 開 始 動 作 と 停 止 動 作 のカスタマイズ; construct the name of the file; use the month and day as part of the name so that; it will create a separate log file each dayset ThisLog = "ZSS"_ "-"_ $EXTRACT($ZDATE($HOROLOG, 3), 6, 10)_".log"; and change $IO to point to our fileopen ThisLog:"AWS":0use ThisLog; now loop over the items writing one line per item pairfor i = 1 : 2 : $LISTLENGTH(items){set DataString = $LISTGET(items, i, "*MISSING*")if ($LISTGET(items, (i + 1), $$$Empty) '= $$$Empty){set DataString = DataString_ ": "_ $LISTGET(items, (i + 1))}write $ZDATETIME($HOROLOG, 3, 1),?21, rtnname,?28, entryname,?35, DataString, !}; stop using the log file and switch $IO back; to the value saved on entryclose $IO; pick up here in case of an errorWriteLogExit ;set $ZTRAP = ""use ThisIOquit各 ラベルの 説 明 を 以 下 に 示 します。^%ZSSUtilこのルーチンは、 他 のルーチンと 同 様 に、 以 下 のコマンドから 呼 び 出 されると 良 好 な 結 果 が 得 られるように、まず QUIT コマンドを 実 行 します。do ^%ZSSUtil#DEFINE 配 列 は、 外 観 をそろえるために、プログラムの 本 文 に 指 定 された 制 約 を 提 供 します。このインスタンスでは、 空 文 字 列 とオペレータのコンソール・ログのデバイス 番 号 を 指 定 します。WriteConsole^%ZSSUtilこのエントリ・ポイントは 非 常 に 単 純 です。 容 量 の 少 ない 出 力 用 に、またデバッグの 出 力 に 使 用 するための 最 小限 のルーチンとして、 設 計 されたものです。引 数 として 1 つの 文 字 列 を 取 り、これをオペレータのコンソール・ログに 出 力 します。ただし、 呼 び 出 し 全 体 にわたり、 現 在 の $IO の 接 続 状 態 を 保 持 し、リストアするための 注 意 が 必 要 です。各 項 目 がデバイスに 送 信 された 結 果 、コンソール・ログには 別 々のレコードが 出 力 されます。したがって、 以 下のように、4 つのレコードを 出 力 します。WRITE 1, 2, 3, !最 初 の 3 つは 1 桁 の 数 字 から 成 り、4 つ 目 は 空 白 行 から 成 ります。1 行 に 複 数 の 項 目 を 記 述 したい 場 合 は、呼 び 出 し 元 がこれらを 文 字 列 に 連 結 させなければなりません。WriteLog^%ZSSUtilこのサブルーチンは、^%ZSTART または ^%ZSTOP 内 の 任 意 のエントリ・ポイントから 呼 び 出 すことができます。最 初 の 2 つの 引 数 により、サブルーチンがどのように 起 動 されたかを 報 告 するために 必 要 な 情 報 を 渡 します。3 番 目 の 引 数 は、ログに 出 力 される 名 前 と 値 の 組 み 合 わせの $LIST です。Caché 専 用 のシステム/ツールおよびユーティリティ 21