前回の記事でRPGⅢが解析できなかった、という一時回答をしましたが、guri_guriさんのアドバイスを元に再チャレンジしてみました。
再チャレンジ内容
「RPGⅢプログラム修正の検証」も、具体的に記述すれば成功するでしょうか?
検証結果
指定した命令 と 入力例
下記のようにILE RPGの修正例と同様に具体的な例を与えてみました。
利用したサンプルソース
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
テスト結果
上記のサンプルソースを試行欄にコピペしました。
そして、生成ボタンを押下
テケテケテケ・・
正しく(期待通りに)プログラムソースが更新されました!
※所感
RPGⅢと明示指定しなければコード解析自体は問題なくできる模様
単純な例ですが、複雑なものであってもストリングサーチなどでプログラム修正はできるという事かと思います。
p.s
guri_guriさんありがとうございました。