AS400 IT備忘録

AS400/IBMi QRYプログラムからSQL文を生成

投稿日:

あまり意味ないかもしれないけど、備忘録。

使用しているQRY/400の定義からSQL文を逆算して出力する方法。

 

まずSQLソースファイルを作る。逆算したSQL文を置く場所ですね。

CRTSRCPF FILE(HOGELIB/QSQLSRC) RCDLEN(112) IGCDTA(*YES) TEXT(‘****’)

これでQRPGSRCやQCLSRCなどと同じようにQSQLSRCが出来る。まぁ名前は何でもいいのでしょうけど、とりあえずソースファイルですね。

 

後はRTVQMQRYコマンドをF4でプロンプトを開いて、パラメータを埋めていく。

 

QUERY管理プログラム = 作成したQRY名
ライブラリー     = QRYを保存しているライブラリ
ソースファイル    = QSQLSRC
ライブラリー     = HOGELIB
QRYDFNからの・・  = *ONLY

 

で実行すると、QSQLSRCにソースメンバーとしてテキストが生成される。

これ大丈夫かなぁと思うようなSQL文があるけど、まぁいいか。

 

さらにCLを組んでライブラリ内の全QRY定義を変換

当たり前の話だけど、DSPOBJDを使ってQRY定義の一覧をファイル出力してそれをCLでREADしながらRTVQMQRYすれば全てのQRY定義を一気に変換できる。

 

QRY定義を出力する方法は

DSPOBJD OBJ(HOGELIB/*ALL) OBJTYPE(*QRYDFN) OUTPUT(*OUTFILE) OUTFILE(HOGELIB/QRYLST)

これでHOGELIBのQRY定義を、HOGELIBの中にQRYLSTとしてファイル出力することができる。

 

出力したファイルをこんな感じで回す

PGM

DCLF FILE(HOGELIB/QRYLST)

READ: RCVF RCDFMT(QLIDOBJD)

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

RTVQMQRY QMQRY(HOGELIB/&ODOBNM) SRCFILE(HOGELIB/QSQLSRC) ALWQRYDFN(*YES)

GOTO READ

END:

ENDPGM

CPF0864はファイルが読めなかった場合に受け取る。&ODOBNMは出力したファイルの中にあるオブジェクトのフィールド名の変数。

スポンサーリンク




スポンサーリンク




-AS400, IT備忘録

執筆者:


comment

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

関連記事

Laravel SQLでWhereをIF文で追加したり外したりしたい

LaravelでSQL文を直で打ちたいときは、コントローラーの冒頭で

を宣言し、   こんな感じでSQL文を書く。 [cra …

Windows ファイルをゴミ箱に入れずに完全に消去する

やり方 ファイルを選択して、「Shiftキー」を押しながら「Deleteキー」を押す。これだけ。   使い道 システムエンジニアをやっているせいか、別の社員のパソコンにリモートで入って作業を …

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

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

AS400 IBMi DTFで出来ること色々

自分用備忘録&書きかけです。   SELECT句に色々指定してみる。 今日は2019年03月07日   CURRENT DATE 19/03/07   YEAR(CURR …

AS400を 無料でWeb化 GUI化 オープン化 Linuxサーバ構築編 2/3

1/3でグダグダと説明してまいりましたが、構築作業の事前準備として2/3を設けました。   さっそく初めて行きます。   準備するもの Linux用Access_Client_So …