RPG内でユーザー名を取得して追加レコードに更新したい場合がある。

プログラム情報データ構造を使えば、様々な情報取得が可能となる。

0001.00      I*（プログラム状況データ構造）
0002.00      IINFDSP     SDS
0003.00      I* PROGRAM 名
0004.00      I                                        1  10 PGM
0005.00      I* 状況コード （*STATUS）
0006.00      I                                       11  150STATUS
0007.00      I* 以前の状況コード （*STATUS）
0008.00      I                                       16  200BEFSTS
0009.00      I* 原始ステートメント
0010.00      I                                       21  28 STMNO
0011.00      I* 例外エラーのルーチン
0012.00      I                                       29  36 ROUTIN
0013.00      I* 受取パラメータの数
0014.00      I                                       37  390PARMS
0015.00      I* CPF メッセージ番号
0016.00      I                                       43  46 CPFID
0017.00      I* OBJECT LIBRARY
0018.00      I                                       81  90 OBJLIB
0019.00      I* 最後に使用した FILE
0020.00      I                                      201 208 LSTFIL
0021.00      I* JOB   名
0022.00      I                                      244 253 JOB
0023.00      I* USER  名
0024.00      I                                      254 263 USER
0025.00      I* JOB   番号
0026.00      I                                      264 269 JOBNBR
0027.00      I* 原始ファイル
0028.00      I                                      304 313 SRCFIL
0029.00      I* 原始 LIBRARY
0030.00      I                                      314 323 SRCLIB
0031.00      I* 原始 MEMBER
0032.00      I                                      324 333 SRCMBR