LoginSignup
1
0

watsonx.aiの生成AIを使ってIBM i アプリの保守が可能か(ほんの少し)検証してみる ⑤RPGⅢ修正の検証2回目

Last updated at Posted at 2024-04-25

前回の記事でRPGⅢが解析できなかった、という一時回答をしましたが、guri_guriさんのアドバイスを元に再チャレンジしてみました。

再チャレンジ内容

「RPGⅢプログラム修正の検証」も、具体的に記述すれば成功するでしょうか?

検証結果

指定した命令 と 入力例

下記のようにILE RPGの修正例と同様に具体的な例を与えてみました。
image.png

利用したサンプルソース

 H            Y
 F* IPH110 *
 FIPH110S CF  E                    WORKSTN
 FTOKMSL01IF  E           K        DISK
 C                     DO   *HIVAL
 C*PANEL01の表示
 C                     EXFMTPANEL01
 C           *IN03     IFEQ '1'
 C                     SETON                     LR
 C                     RETRN
 C                     END
 C*得意先マスターの読み取り
 C           S1TOKB    CHAINTOKMSL01             30
 C           *IN30     IFEQ '0'
 C*画面フィールドセット
 C                     MOVELTKNAKJ    S2NAKJ
 C                     MOVELTKADR1    S2ADR1
 C                     MOVELTKADR2    S2ADR2
 C                     MOVELTKTIKU    S2TIKU
 C                     MOVELTKPOST    S2POST
 C                     MOVELTKGEND    S2GEND
 C                     MOVELTKUZAN    S2UZAN
 C*係数計算
 C           KEISU     MULT 1.10      KEISU
 C           TKGEND    MULT KEISU     TKGEND
 C*
 C*差額計算
 C           TKGEND    SUB  TKUZAN    S2GAKU
 C*
 C*PANEL02の表示
 C                     SETOF                     30
 C                     WRITEPANEL01
 C                     EXFMTPANEL02
 C           *IN03     IFEQ '1'
 C                     SETON                     LR
 C                     RETRN
 C                     ENDIF
 C*
 C                     ENDIF
 C                     ENDDO                        

テスト結果

上記のサンプルソースを試行欄にコピペしました。

image.png

そして、生成ボタンを押下
テケテケテケ・・
image.png
正しく(期待通りに)プログラムソースが更新されました!

※所感
RPGⅢと明示指定しなければコード解析自体は問題なくできる模様
単純な例ですが、複雑なものであってもストリングサーチなどでプログラム修正はできるという事かと思います。

p.s
guri_guriさんありがとうございました。

1
0
3

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
1
0