D PGMINFDS       SDS                                                                           
     D  PROC_NAME        *PROC                                                   プロシージャー名   
     D  PGM_STATUS       *STATUS                                                 状況コード         
     D  PRV_STATUS            16     20S 0                                       前の状況           
     D  ROUTINE          *ROUTINE                                                ルーチン名         
     D  PARMS            *PARMS                                                  パラメータ数       
     D  EXCP_TYPES            40     42                                          例外タイプ         
     D  EXCP_NUM              43     46                                          例外番号           
     D  PGM_LIB               81     90                                          ライブラリー       
     D  EXCP_DATA             91    170                                          例外データ         
     D  EXCP_ID              171    174                                          例外 ID            
     D  DATE                 191    198                                          日付               
     D  YEAR                 199    200S 0                                       年 (*DATE 形式 )   
     D  LAST_FILE            201    208                                          最終使用ファイル   
     D  FILE_INFO            209    243                                          ファイルエラー情報 
     D  JOB_NAME             244    253                                          ジョブ名           
     D  USER                 254    263                                          ユーザー名         
     D  JOB_NUM              264    269S 0                                       ジョブ番号         
     D  JOB_DATE             270    275S 0                                       日付 (UDATE 形式 ) 
     D  RUN_DATE             276    281S 0                                       実行 (UDATE 形式 ) 
     D  RUN_TIME             282    287S 0                                       時刻 (UDATE 形式 ) 
     D  CRT_DATE             270    293                                          作成日             
     D  CRT_TIME             294    299                                          作成時刻           
     D  CPL_LEVEL            300    303                                          コンパイラー LVL   
     D  SRC_FILE             304    313                                          ソース・ファイル   
     D  SRC_LIB              314    323                                          ソース・ライブラリ 
     D  SRC_MBR              324    333                                          ソース・メンバー   
     D  PROC_PGM             334    343                                          プログラム         
     D  PROC_MOD             344    353                                          モジュール