データ記述仕様書 (DDS)

図 1 および 図 2 は、例で使われる物理ファイルの データ記述仕様書 (DDS) を示します。 図 3 は、最初の 3 つの例で使われる 論理ファイルの DDS を示します。

図 1. データベース・ファイル EMPMST (物理ファイル) の DDS
     A*****************************************************************
     A* 説明:  これは物理ファイル EMPMST の DDS です。                *
     A*        これには 1 つのレコード様式 EMPREC が入っています。    *
     A*        このファイルには、会社の各社員ごとに 1 レコードが      *
     A*        入っています。                                         *
     A*****************************************************************
     A*
     A          R EMPREC
     A            ENUM           5  0       TEXT('EMPLOYEE NUMBER')
     A            ENAME         20          TEXT('EMPLOYEE NAME')
     A            ETYPE          1          TEXT('EMPLOYEE TYPE')
     A            EDEPT          3  0       TEXT('EMPLOYEE DEPARTMENT')
     A            ENHRS          3  1       TEXT('EMPLOYEE NORMAL WEEK HOURS')
     A          K ENUM
図 2. データベース・ファイル TRWEEK (物理ファイル) の DDS
     A*****************************************************************
     A* 説明:  これは、物理ファイル TRWEEK の DDS です。              *
     A*        これには 1 つのレコード様式 RCWEEK が入っています。    *
     A*        このファイルには、勤務時間報告書作成システムに対して   *
     A*        作成されるすべての週間項目が入っています。             *
     A*****************************************************************
     A*
     A          R RCWEEK
     A            ENUM           5  0       TEXT('EMPLOYEE NUMBER')
     A            WEEKNO         2  0       TEXT('WEEK NUMBER OF CURRENT YEAR')
     A            EHWRK          4  1       TEXT('EMPLOYEE HOURS WORKED')
     A          K ENUM
     A          K WEEKNO
図 3. データベース・ファイル EMPL1 (論理ファイル) の DDS
     A*****************************************************************
     A* 関連ファイル:  EMPMST    (物理ファイル)                       *
     A*                TRWEEK    (物理ファイル)                       *
     A*        説明:   これは論理ファイル EMPL1 の DDS です。         *
     A*                これには、2 つのレコード様式                   *
     A*                EMPREC と RCWEEK が入っています。              *
     A*****************************************************************
     A          R EMPREC                    PFILE(EMPMST)
     A          K ENUM
     A*
     A          R RCWEEK                    PFILE(TRWEEK)
     A          K ENUM
     A          K WEEKNO