高橋CTOのSystemiテクニカル講座

CLでのSELECT処理

CL内でもRPGのBEGSRで定義するようなサブルーチンが定義できると、同一処理等が発生する場合は
便利ですよね。
V5R4から、CALLSUBRとSUBRコマンドが新しく増えて、CL内でもサブルーチンが定義できるようになりました

RPGに例えるならば
CALLSUBRコマンドがEXSR
SUBRコマンドがBEGSRに該当するイメージです。

以下に例を書いてみました。
SHOW_TIMEサブルーチンを定義してみました。
サブルーチンでは、タイムスタンムプを取得して、表示しています

CLで変数を定義する時の文字タイプの長さは何バイトまで指定できすか？
という質問があったので、マニュアルを調べてみました。
以下、マニュアルより抜粋です

5つのタイプのそれぞれの最大長は次の通りです。

* 10進数-- 15桁（小数点以下の桁数は9桁）
* 文字-- 32767バイト

注: CL変数の初期値(VALUEパラメーターに指定）は，5000桁より大きくすることはできません。
* 論理-- 1バイト
* 整数-- 4バイト
* 符号なし整数-- 4バイト

5つのタイプのそれぞれの省略時の長さは次の通りです。

* 10進数 -- 15桁で，小数点以下の桁数は5
* 文字-- 32バイト
* 論理-- 1バイト
* 整数-- 4バイト
* 符号なし整数-- 4バイト

注: 10進数および文字タイプでは，VALUEパラメーターに1が指定された場合には，省略時の長さは初期値の長さと同じです。

文字タイプでは32767バイトまで指定できるようです。
因みに、32767を超える値を入力すると、SEU上でエラーとなります

#V5R4

CLでの条件式について

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

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

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

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

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

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

CLで８桁のジョブ日付を取得する方法をお伝えします。

RPG上では UDATEで６桁、*DATEで８桁のジョブ日付を取得する事ができます。

CL上ではRTVJOBA で６桁のジョブ日付を取得し、CVTDATで８桁へ変換します。