詳細設計書

基本情報

#	項目	内容
1	システム名	勤怠休暇管理システム
2	プログラムID	KIN02UPD
3	プログラム名	休暇申請DB更新処理
4	PGMタイプ	メイン
5	PGMパターン	DB更新
6	機能概要	WORK-LEAVEファイルの各レコードをDB2テーブルLEAVE_RECORDSに反映する。
7		ステータスによって新規登録(INSERT)、変更(DELETE+INSERT)、取消(DELETE)を行う。

※PGMタイプ：メイン、サブ ※PGMパターン：マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新

前提条件

NO	対象ファイル	条件
1	KIN01W01	KIN01INPの出力順に従う。ソート不要。

使用ファイル一覧

NO	使用ファイル/DB名	識別子	DD名	I/O	COPY群	形式	ブロック	レコード長	媒体	備考
1	WORK-LEAVE	R01	KIN01W01	I	KIN01REC	FB		80	PS
2	ERROR-LOG	W01	KIN02W01	O	KIN05REC	VB		200	PS	DBエラー時出力
3	LEAVE_RECORDS	DB	—	I/U/D	—	—	—	—	DB	SQLite

キー項目一覧

NO	ファイル名	ソート条件(キー項目)	キー条件(マッチング/キーブレイク)
1	WORK-LEAVE	なし	なし

使用モジュール一覧

NO	機能	プログラムID	使用COPY名
1	メッセージ編集出力SUB	SUB02MSG	ZANMSGAC
2	ABEND処理SUB	SUB03END	ZANENDAC

処理詳細

1.初期処理（1000ITTSOR）
  1-1.開始メッセージ出力
    【メッセージ編集】
    メッセージ番号：1(開始メッセージ)
  1-2.コンパイル日時出力
    【メッセージ編集】
    メッセージ番号：33(コンパイル日時)
    PARM1：コンパイル日時
    PARM2：'COMPILED'
  1-3.ワークエリアの初期化
  1-4.DB接続
    EXEC SQL CONNECT TO 'data/kin.db'
   1-5.R01ファイルOPEN（入力）+ W01ファイルOPEN（出力）
   1-6.R01を初回読込(1100R01INNSOR)

2.主処理（2000MAJSOR)(R01を全て読み終えるまで下記を繰り返す）
  2-1.レコード処理(2100PROCSOR)
    2-1-1.R01各項目をホスト変数(WS-*)にMOVEする。
    2-1-2.ロジック分岐判定(EVALUATE)
      2-1-2-1.STATUS='1' AND APPL-ID=0（新規）の場合
        INSERT処理(2110INSERTSOR)
        【SQL】
        INSERT INTO LEAVE_RECORDS
            (EMP_ID, LEAVE_TYPE, START_DATE, START_TIME,
             END_DATE, END_TIME, STATUS)
        VALUES
            (:WS-EMP-ID, :WS-LEAVE-TYPE,
             :WS-START-DATE, :WS-START-TIME,
             :WS-END-DATE, :WS-END-TIME,
             :WS-STATUS)
        SQLCODE≠0の場合、DBエラー処理(9100DBERRSOR)を実行する。
        CUN-DBXINSを+1する。
      2-1-2-2.STATUS='1' AND APPL-ID>0（変更）の場合
        UPDATE処理(2120UPDATESOR)
        【SQL】
        DELETE FROM LEAVE_RECORDS
            WHERE APPLICATION_ID = :WS-APPL-ID
        INSERT INTO LEAVE_RECORDS
            (EMP_ID, LEAVE_TYPE, START_DATE, START_TIME,
             END_DATE, END_TIME, STATUS)
        VALUES
            (:WS-EMP-ID, :WS-LEAVE-TYPE,
             :WS-START-DATE, :WS-START-TIME,
             :WS-END-DATE, :WS-END-TIME,
             :WS-STATUS)
        各SQLでSQLCODE≠0の場合、DBエラー処理(9100DBERRSOR)を実行する。
        CUN-DBXUPDを+1する。
      2-1-2-3.STATUS='9'（取消）の場合
        DELETE処理(2130DELETESOR)
        【SQL】
        DELETE FROM LEAVE_RECORDS
            WHERE APPLICATION_ID = :WS-APPL-ID
        SQLCODE≠0の場合、DBエラー処理(9100DBERRSOR)を実行する。
        CUN-DBXDELを+1する。
      2-1-2-4.その他
        何も処理しない(CONTINUE)
  2-2.次レコード読込(1100R01INNSOR)(2件目以降)

3.終了処理（3000STPSOR）
  3-1.COMMIT
    EXEC SQL COMMIT WORK
  3-2.入出力ファイルのクローズ
  3-3.件数メッセージ出力
    【メッセージ編集】
    メッセージ番号：6(入力件数)
    PARM1：'KIN01W01'
    PARM2：入力件数
    PARM1：'INS'、'UPD'、'DEL'
    PARM2：各処理件数
  3-4.終了メッセージ出力
    【メッセージ編集】
    メッセージ番号：2(終了メッセージ)

4.DBエラー処理（9100DBERRSOR）
  4-1.ROLLBACK
    EXEC SQL ROLLBACK WORK
   4-2.ERROR-LOG出力（W01OUTFIL）
     【MOVE → INITIALIZE & WRITE】
     MOVE SQLCODE TO WRK-SQLCODE-DISP
     W01ERR-CATEGORY = '01'（固定）
     W01ERR-DETAIL = 'KIN02UPD SQLCODE=' + WRK-SQLCODE-DISP + ' APPL-ID=' + WS-APPL-ID
     CUN-W01OUTを+1する。
  4-3.エラーメッセージ出力
    【メッセージ編集】
    メッセージ番号：5(サブエラー)
    PARM1：'KIN02UPD SQL ERROR'
    PARM2：SQLCODE
    PARM3：WS-APPL-ID
  4-4.ABEND処理SUB呼出(9999ABDSOR)
    ABENDコード:999

出力レコード定義

出力ファイル1（W01/ERROR-LOG）

No	項目名	設定元	備考
1	ERR-CATEGORY	01で固定	DBエラー
2	ERR-DETAIL	STRINGで編集	KIN02UPD SQLCODE= + WRK-SQLCODE-DISP + APPL-ID= + WS-APPL-ID

DB更新結果

LEAVE_RECORDSテーブルに直接反映される。

5.6 KiB Raw Permalink Blame History Unescape Escape

詳細設計書

基本情報

前提条件

使用ファイル一覧

キー項目一覧

使用モジュール一覧

処理詳細

出力レコード定義

出力ファイル1（W01/ERROR-LOG）

DB更新結果

5.6 KiB

Raw Permalink Blame History