IT関連

AS400/IBMi CLでファイルを読む

投稿日:2019年3月15日 更新日:

RPGじゃなくてCLでファイルを読む方法。

ファイルを読んでその値を使ってCLコマンドを動かして、ループしてまたファイルを読んでを繰り返す。

SNDBRKMSGを使って、全端末にアラートを送るなど使えるかも。

 

PGM

DCLF FILE(ライブラリ/読むファイル)

READ: RCVF RCDFMT(読むファイルのレコード様式)

MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

CLコマンドなど FILE(HOGELIB/&FIELD)

GOTO READ

END:

ENDPGM

DCLFが読むファイルの指定。

&FIELDがファイルのフィールド名にする。これが変数となり、読んで繰り返すたびに値が変わる。

CPF0864が読むレコードが無くなった場合の処理。ここではENDに飛んでプログラム終了させる。

 

例えばこんな感じ。

SNDBRKMSG MSG(‘端末を止めてください’) TOMSGQ(&WRKSTNID)

スポンサーリンク




スポンサーリンク




-IT関連
-, ,

執筆者:


comment

Your email address will not be published. Required fields are marked *

関連記事

AS400/IBMi 作ったトリガーの一覧を取得する

トリガーを作ったのはいいけど、どんなトリガーを作ったのか解らなくなり管理できなくなっては困るので、その見方。 ちなみに、作ったトリガーはファイルを消す(DROP)すると消えます。実際に消えました。 & …

FTPのバッチを作る

自分の備忘録です。間違ってるかもしれませんし大した内容ではありません。   バッチはテキストファイルにPUTやGETなどのコマンドを書いて、それを呼び出すバッチプログラムを拡張子を.batに …

Windows Defender があれば市販のセキュリティソフトはいらないらしい

今回はパソコンのセキュリティソフトについての話です。これまた自己責任でお願いします。 しかもこれは聞いた話を記事にしているだけなので、真偽は確認しておりません。   私のいる会社 私のいる会 …

色々ショートカットキーまとめ Win/Mac/ブラウザ/Excel他

ショートカットのまとめです。随時追記していきます。   ちなみに実際に使っている動画はこちらです。Vol.1/5~1/5までございます。 覚え方等も説明しています。   Windo …

Excel VBA マクロ アドインをエクセル本体に登録する方法

エクセルで作ったマクロをエクセル本体に保存して、いつでも使えるようにする方法。 要するにファイルではなくエクセル本体に保存する方法。 今さら当たり前の話ですが、備忘録として載せておきます。 &nbsp …

Adsense広告




文字で検索

人気記事

なぜだか人気記事

読んでほしい順に