Magic uniPaaS V1Plus トラブルシューティング ツール - Magic Software ...

10.3. 項 目 の 表 示 プログラムuniPaaS のプログラムを 実 行 している 時 、 特 定 の 時 点 での 変 数 の 値 を 見 てみたい、と 思 うことがあります。デバッガが 利 用 できる 場 合 には、ブレークを 入 れて、「 項 目 」 画 面 を 表 示 させることにより、その 時 点 で 有 効 な 項目 の 値 を 見 ることができます。しかし、(1) ブレークを 入 れたくない 場 合 、(2) デバッガが 利 用 できない 場 合 、(3)ファイルなどに 記 録 をとっておきたい 場 合 、などでは 別 の 方 法 を 考 える 必 要 があります。このような 場 合 には、ちょっとした uniPaaS プログラムの 作 成 が 必 要 になりますが、Var 関 数 を 使 って 実 現 することができます。プログラム「 項 目 出 力 」は 次 のように 作 ります。タスク 特 性入 出 力 ファイルタスク 名 : 項 目 出 力タスクタイプ: バッチ初 期 モード: 修 正タスク 終 了 条 件 : Counter(0) >= 'A'VAR名 前 : Outメディア: F=ファイルアクセス: A= 追 加書 式 : L=ライン式 : 'var.log'データビュー 変 数 A 「this counter」 数 値 型 、 書 式 8ロジック/レコード 後 処 理項 目 更 新 A = Counter(0)フォーム 出 力 O= 出 力 、 フォーム: 4 (out line)、ファイル: 1 (Out)フォーム/4 out line クラス: 1インターフェースタイプ: T=テキスト 形 式幅 : 230、 高 さ: 1項 目 1: (0,0) – (30,1)、 型 : U=Unicode、 書 式 : 30、データ= VarName(a)項 目 2: (31,0) – (200,1)、 型 : U=Unicode、 書 式 : 200、データ: CASE (VarAttr (A),'A', VarCurr(A),'N', Str(VarCurr(A),'N16.2'),'L', IF(VarCurr(A),'TRUE','FALSE'),'D', DStr(VarCurr(A), 'YY/MM/DD'),'T', TStr(VarCurr(A), 'HH:MM:SS'),'U', VarCurr(A),'(type:' & VarAttr(A) & ')')Var 関 数 を 簡 単 に 説 明 すると、VarAttr は 項 目 の 型 を 1 文 字 で 返 します ( 文 字 型 → 'A'、 数 値 型 → 'N' など)。また、VarCurr は、 項 目 の 現 在 の 値 を 返 します。 値 の 型 は、パラメータで 指 定 した 項 目 の 型 そのものです。「 項 目 出 力 」プログラムを 簡 単 に 説 明 すると、このプログラムでは、VarCurr(A) の 値 をファイルに 出 力 します。フォームの 項 目 2がその 値 ですが、この 式 が CASE を 使 った 複 雑 なものになっているのは、VarAttr (A) のタイプが 文 字 型 とは 限 らないので、 文 字 型 に 変 換 するために、それぞれの 型 に 合 った 組 み 込 み 関 数 と 書 式 とを 使 っているためで、やりたいことは、VarCurr(A)の 値 を 取 得 することです。このバッチタスクはループを 作 りますが、その 終 了 条 件 は Counter(0) >= 'A'VAR となっています。これだと、「このプログラムは、 自 分 のタスクの 変 数 A の 値 を 出 力 するだけではないか? 変 数 A の 値 は 数 値 型第 10 章 プログラミングの 小 技 134