AS400 IT備忘録

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

投稿日:

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)

スポンサーリンク




スポンサーリンク




-AS400, IT備忘録

執筆者:


comment

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

関連記事

WordPressのテーマ pacifyで検索窓が使えない

備忘録やTipsを作るのに、WordPressのテーマでpacifyが見やすいので使用してみた。 Tipsが1つ1つのカードの形で表示されるので見やすく気に入っているが、右上の検索がどうも動かない。 …

Vimエディタ 備忘録

基本コマンド エディタの起動

  保存せず終了

&nbsp …

【WordPress】プラグインでディレクトリを作成できませんでしたと怒られる

ワードプレスをまっさらにして戻ってきたの投稿以来、ちょこちょこ投稿を重ねている。     そこで表でも作りたいなと思ったので、プラグインのTablePressでも入れようかと思った …

AS400/IBMi からデータを取得 ExcelVBA クラス化編

注意 これは私の環境下における私の備忘録です。お使いの環境によっては内容が異なる場合があります。システム管理者でない方は絶対にやらないでください。システムにはログが残るものなので、万が一があればクビに …

CPIのACEにあるテストサイトと公開サイトの違い

CPIのシェアードプランZ2からACEに切り替えた際に疑問に思ったこと備忘録。   HPより引用。公開されているものだから大丈夫でしょう。問題あれば連絡ください。   サーバ構成で …

Adsense広告


文字で検索

人気記事

なぜだか人気記事

読んでほしい順に