«
»

2009/7/31 金曜日

CL 四則演算

Filed under: CL — takahashi @ 16:35:51

CL内での四則演算について

CHGVARコマンドを使用します。VALUEパラメータ内に演算式を記入します。

以下の例は変数IIにそれぞれ１を加算・減算・乗算・除算する場合になります。

PLAIN TEXT
RPG:
  1. CHGVAR     VAR(&II) VALUE(&II + 1)  /*加算*/
  2. CHGVAR     VAR(&II) VALUE(&II - 1)  /* 減算*/
  3. CHGVAR     VAR(&II) VALUE(&II * 1)  /* 乗算*/
  4. CHGVAR     VAR(&II) VALUE(&II / 1)   /* 除算*/

«
»

2009/7/21 火曜日

CL 文字列の結合

Filed under: 未分類 — takahashi @ 17:55:27

CLでの文字列の結合方法です。

*TCAT 先行文字列の後ろスペースが削除され、後続文字列を連結する
*BCAT 先行文字列の後ろスペースが削除され、スペースを1バイト挿入し、後続文字列を連結する
*CAT スペースを考慮せずに、単純結合を行う。
例）
変数Ａ　"ABCDEF△△"
変数Ｂ "XYZ"

< 結合処理>　< 結果>
&A *TCAT &B "ABCDEFXYZ"
&A *BCAT &B "ABCDEF△XYZ"
&A *CAT &B "ABCDEF△△XYZ"

覚えにくいので
TCATはトリム
BCATはブランク
と覚えるといいかもですね。

«
»

2009/7/6 月曜日

CL 文字列の分割

Filed under: CL — takahashi @ 17:17:28

CLでの文字列の分割方法です。

(1)変数WKの5バイト目から3バイト目にABCをセット代入する

PLAIN TEXT
RPG:
  1. CHGVAR   VAR(%SST(&WK 05 3)) VALUE('ABC')

(2)変数FILEに変数OBJの１バイト目から10バイトを代入する
%SSTは%SUBSTRINGでも可

PLAIN TEXT
RPG:
  1. CHGVAR   &FILE %SST(&OBJ  1 10)
  2. CHGVAR   &FILE %SUBSTRING(&OBJ 1  10))

HTML convert time: 0.467 sec. Powered by WordPress ME