Subsystem B: dead code cleanup (FILLER renames, CNS-MAX-HOURS/WRK-MONTH-OK removed), sync docs & coverage to production
This commit is contained in:
@@ -12,8 +12,7 @@
|
||||
| 6 | 機能概要 | OVT-SORTED2(申請番号+処理番号昇順)をキーブレイク集約し、 |
|
||||
| 7 | | 同一APPL-IDの全レコードの加班時間を積算し、 |
|
||||
| 8 | | OVT-SUMMARYに1レコードに集計して出力する。 |
|
||||
| 9 | | キーブレイク制御にCONTINUE/SET、時間計算にCOMPUTE ROUNDED/DIVIDE、 |
|
||||
| 10 | | 処理日付取得にACCEPT FROM DATEをそれぞれ使用する。 |
|
||||
| 9 | | キーブレイク制御にCONTINUE/SET、時間計算にCOMPUTE ROUNDED/DIVIDEをそれぞれ使用する。 |
|
||||
|
||||
※PGMタイプ:メイン、サブ
|
||||
※PGMパターン:マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新
|
||||
@@ -60,11 +59,8 @@
|
||||
メッセージ番号:33(コンパイル日時)
|
||||
PARM1:コンパイル日時
|
||||
PARM2:'COMPILED'
|
||||
1-3.ACCEPT FROM DATEで処理日付を取得(WRK-DATE-8)
|
||||
【新規カバレッジ】
|
||||
ACCEPT FROM DATE YYYYMMDD
|
||||
1-4.ワークエリアの初期化(WRK-ACCUM-MIN含む)
|
||||
1-5.運用日付取得SUB(SUB01DAT)により運用日を取得する。
|
||||
1-3.ワークエリアの初期化(WRK-ACCUM-MIN含む)
|
||||
1-4.運用日付取得SUB(SUB01DAT)により運用日を取得する。
|
||||
復帰コード≠ZEROの場合、メッセージを出力し、ABEND処理SUBを呼び出し異常終了する。
|
||||
【メッセージ編集】
|
||||
メッセージ番号:5(サブエラー)
|
||||
|
||||
@@ -14,7 +14,7 @@
|
||||
| 8 | | またOVT-DBCLEANの各レコードについて、該当申請を取消状態に更新し、 |
|
||||
| 9 | | OVT-MONTHLYから該当加班時間を減算する。 |
|
||||
| 10 | | 新規カバレッジ:EXEC SQL(INSERT/UPDATE/SELECT)、COMMIT/ROLLBACK、 |
|
||||
| 11 | | PERFORM VARYING/TEST AFTER、COBOL SUBTRACT/MULTIPLY |
|
||||
| 11 | | PERFORM VARYING/TEST AFTER、COBOL MULTIPLY |
|
||||
|
||||
※PGMタイプ:メイン、サブ
|
||||
※PGMパターン:マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新
|
||||
@@ -142,7 +142,7 @@
|
||||
WHERE APPL-ID = :WRK-SQL-APPL-ID
|
||||
2-2-4.YEAR-MONTH抽出:APPL-DATE(1:6)
|
||||
2-2-5.OVT-MONTHLYから減算(2210MONTHLYSUBSOR)
|
||||
【EXEC SQL UPDATE(減算)+COBOL SUBTRACT検証】
|
||||
【EXEC SQL UPDATE(減算)】
|
||||
UPDATE OVT-MONTHLY SET
|
||||
OVT-HOURS = OVT-HOURS - :WRK-SQL-OVT-HOURS,
|
||||
OVT-COUNT = OVT-COUNT - 1,
|
||||
@@ -188,8 +188,7 @@
|
||||
4-1.【EXEC SQL COMMIT】
|
||||
COMMIT WORK
|
||||
4-2.CUN-COMMITをZEROにリセット
|
||||
4-3.CUN-ETHUSに1加算
|
||||
|
||||
|
||||
5.終了処理(3000STPSOR)
|
||||
5-1.最終COMMIT(2300COMMITDBX)
|
||||
5-2.入出力ファイルのクローズ
|
||||
@@ -227,7 +226,7 @@
|
||||
| 6 | PERFORM VARYING | 月(1-12)のバリデーションループ |
|
||||
| 7 | PERFORM TEST AFTER VARYING | 月次減算のリトライ制御 |
|
||||
| 8 | COBOL MULTIPLY | 加班時間→分変換 |
|
||||
| 9 | COBOL SUBTRACT | 残加班容量検証 |
|
||||
|
||||
|
||||
## 出力レコード定義
|
||||
|
||||
|
||||
Reference in New Issue
Block a user