ILE RPGを用いて、プログラム状況データ構造から、ユーザー名を取得する

Question

弊社ではWindows端末からFTPのリモートコマンドで、RPGⅢのプログラムをCALLしています。 プログラムの中で、プログラム状況データ構造からユーザー名（254桁～263桁）を取得し、どのFTPサイン・オンユーザーが更新を行ったか、タイムスタンプを取得しています。 今回、プログラムをILE RPGに刷新するに当たり、同様のプログラムをILEに変換しコンパイルしたところ、どのユーザーが実施しても、ユーザー名がQTCPとなってしまいました。 RPGⅢとILE RPGで動きが違うのでしょうか。

Answer

お客様ご懸念の通り、RPGⅢとILE RPGではプログラム状況データ構造の動作が異なります。ILE RPGは機能拡張により、RPGⅢでは取得できなかった値が取得できるようになっています。

RPGⅢでは「現行ユーザー・プロファイル名」のみ取得できました。これが254桁目～263桁目に該当します。

ILE RPGでは、「現行ユーザー・プロファイル名」とは別に「ユーザー・プロファイルからのユーザー名」が取得できるようになりました。「ユーザー・プロファイルからのユーザー名」はWRKACTJOBでジョブの現行ユーザーに表示されている値と考えていただければよろしいかと存じます。（名前から混同しやすいですが「現行ユーザー・プロファイル名」は、今回の場合FTPでサイン・オンしているユーザーを指します）

ILE RPGでは「現行ユーザー・プロファイル名」は358桁目～367桁目まで、「ユーザー・プロファイルからのユーザー名」が254桁目～263桁目までとなりますので、手間が掛かってしまいますが、ソースからSDS範囲を変更する必要がございます。

参考：
IBM Knowledge Center

by 大熊猫橋

あわせて読みたい記事

ライブラリーサイズが肥大化していませんか？

サポートチーム便り2024.11.27

ACSの「SQLスクリプトの実行」でライブラリー・リストを変更したい

サポートチーム便り2024.11.27

あれっ？データ転送で間違って指定したファイル名が一覧に候補で表示されてる？

サポートチーム便り2024.11.13

業務が止まってしまう可能性も...！？「システム・ジョブ・テーブルが容量に近づいている」

サポートチーム便り2024.11.13