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 *

関連記事

AS400/IBMi 知ってるコマンドまとめと解説

備忘録です。追記していきますので書きかけです。   コマンドの一覧を表示する SLTCMD SLTCMD CMD(*ALL) これでコマンドの一覧が表示される。 だいたいDSPとかWRKとか …

AS400/IBMi 無料でWeb化 GUI化 オープン化 PHP/Laravel開発編

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

XAMPPのShellを開けない。0xc0000142

Windows10パソコンにXAMPPを入れて、Shellを起動したら下記のようなエラーが出た。   アプリケーションエラー。0xc0000142。 解決法は、ググっても日本語では出てきやし …

【PHP】 WordPressで使ってる意味不明な

今実行しているコードのファイル名を取得

index.phpなら、c:\xampp\htdocs\index.phpとなる。 &nbsp …

gitで本番と開発環境の連携 初めてのデプロイ

これは自分用の備忘録です。職場での操作なので画像はありません。他のサイトの説明が難しすぎて、文字だけでもヒントが欲しいという私と同じレベルの人はどうぞ。何があっても責任は取れませんがご参考までに。 & …

Adsense広告


文字で検索

人気記事

なぜだか人気記事