PSDS の例
プログラム内で PSDS を指定するためには、使用したいプログラム状況データ構 造およびサブフィールドを定義仕様書にコーディングします。
図 1. PSDS のコーディング例
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++
DMYPSDS SDS
D PROC_NAME *PROC * プロシージャー名
D PGM_STATUS *STATUS * 状況コード
D PRV_STATUS 16 20S 0 * 前の状況
D LINE_NUM 21 28 * ソース・リスト行番号
D ROUTINE *ROUTINE * ルーチン名
D PARMS *PARMS * 渡されたパラメーターの数
D EXCP_TYPE 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 * 日付 (*DATE 形式)
D YEAR 199 200S 0 * 年 (*YEAR 形式)
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 288 293 * 作成日
D CRT_TIME 294 299 * 作成時刻
D CPL_LEVEL 300 303 * コンパイラー・レベル
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 * Mod Proc is in
注: キーワードはラベルではないので、サブフィールドのアクセスに使用する
ことはできません。 記入項目が短い場合には、右側にブランクが埋め込まれます。