SDS システムデータ定義

プログラム実行時のシステム値を取得するときにプログラム状況データ構造をしようすると簡単に取得できる

データ構造DSの頭にSをつける
データ構造のなかに各システム値が埋め込まれているので、それを適宜とりだしてしようする

http://www.as400-net.com/tips/rpg/09.html

 Quote

     I*( プログラム状況データ構造 )                                             
     IINFDSP     SDS                                                            
     I* ﾌﾟﾛｸﾞﾗﾑ 名                                                              
     I                                        1  10 PGM                         
     I* 状況コード ( *STATUS )                                                  
     I                                       11  150STATUS                      
     I* 以前の状況コード ( *STATUS )                                            
     I                                       16  200BEFSTS                      
     I* 原始ステートメント                                                      
     I                                       21  28 STMNO                       
     I* 例外エラーのルーチン                                                    
     I                                       29  36 ROUTIN                      
     I* 受取パラメータの数                                                      
     I                                       37  390PARMS                       
     I* CPF メッセージ番号                                                      
     I                                       43  46 CPFID                       
     I* ｵﾌﾞｼﾞｪｸﾄ･ﾗｲﾌﾞﾗﾘｰ                                                        
     I                                       81  90 OBJLIB                      
     I* 最後に使用した ﾌｧｲﾙ                                                     
     I                                      201 208 LSTFIL                      
     I* ｼﾞｮﾌﾞ 名                                                                
     I                                      244 253 JOB                         
     I* ﾕｰｻﾞｰ 名                                                                
     I                                      254 263 USER                        
     I* ｼﾞｮﾌﾞ 番号                                                              
     I                                      264 269 JOBNBR                      
     I* 原始ファイル                                                            
     I                                      304 313 SRCFIL                      
     I* 原始 ﾗｲﾌﾞﾗﾘｰ                                                            
     I                                      314 323 SRCLIB                      
     I* 原始 ﾒﾝﾊﾞｰ                                                              
     I                                      324 333 SRCMBR  

 Quote

 reference

• http://hrm.fixa.jp/as400/AS4001/AS4048.htm