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 *

関連記事

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

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

AS400/IBMi 物理ファイルとテーブル INTEGER系で違和感

SQLを使って物理ファイルではなくテーブルとしてファイルを作る。   その中でINT系で違和感があったので試した実験。 INT系なら何でもいいと思うが、今回はSMALLINTでカラムを作り、 …

ヒューレットパッカードHPパソコンにある右下の?の消し方

最近会社に入ってきたHPのノートパソコンProBook 430 G7。   第10世代のCore i5のCPUで、メモリも8GBあり、HDDも256GBあるのでわりかし使い勝手が良いお利口さ …

Windows WAN上LAN外の共有フォルダにアクセス

WAN内、ようするに拠点外のPCにアクセスしようと思ったことはないだろうか。 私はあります。   私は情報システム部の人間なので、他の拠点のPCを設定すべくリモートデスクトップをすることがあ …

AS400/IBMi dtfでソースコードをダウンロード

クライアントアクセスでもACSでもある、Download Transfer From AS400、略してDTF。   ソースコードをダウンロードすることもできる。普通はファイルのところはライ …

Adsense広告




文字で検索

人気記事

なぜだか人気記事

読んでほしい順に