AS400(system-i)のCLの使い方

求人

CLはウィンドウズでいうバッチのようなもので、RPGプログラムやCobolなどを呼び出すことができます。

記述方法

CLは、PGMで始まり、ENDPGMで終わります。

CLに引数を渡す方法

CLには引数を渡して実行することができます。これはウィンドウズのバッチと同じです。

記述方法は以下のようにします。

IF文の記述方法

CLでは、変数は&IDというように&から始まります。

IF文の条件式にはCONDを使います。

*EQは、=です。&ID = 0なら、THEN以降を実行します。*NEは、!=です。

複数コマンド実行させたい場合は以下のようにDOを記述します。

変数定義

変数定義には、DCLを使います。TYPEには、*CHAR、*DECの3種類あります。

以下宣言例です。

*DECのときはLEN(6 0)としていますが、これは6桁で、小数点0桁を意味します。

CHGVARを使うと変数の値を変更することができます。以下は&IDを100にする例です。

コメント

CLのコメントは/*~*/を使います。複数行コメントすることができます。

ラベル

とすることで、ABCというラベルに遷移することができます。

例えば、ABCというラベルに遷移し、プログラムを終了させる場合以下のように記述します。

ネットワーク属性を検索するコマンドで、RTVNETAコマンドがあります。

上記のように記述すると、&SSにシステム名が設定されます。

ファイル(テーブル)関連

ファイル(テーブル)に対してなにかしたい場合、OVRDBF,OPNQRYFコマンドを使います。この辺は作法だと思います。

QRYSLT内でテーブルが100万件あるとすると、条件で絞り込んで件数を指定することができます。

また、QLYSLT内で、CL変数はシングルクォート、または、ダブルクォートで囲む場合は*CAT演算子で囲む必要があります。

QLYSLT内で絞り込み条件が複数の場合は以下のように、&で条件をつなげます。

関西で140-170/80~120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
Python3.6,Djangoを勉強中です,Javaは少し飽きてしまってます–;
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくば、我に七難八苦を与えたまえ」です^^

スポンサーリンク
  • このエントリーをはてなブックマークに追加
スポンサーリンク

コメントをどうぞ

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA