b3e800e601
- 全6プログラム(ZAN01CHK~ZAN06UPD)ソース・実行ファイル - 5サブプログラム(SUB01DAT~SUB05TIM)ソース・DLL - 10 COPY書式ファイル - 詳細設計書12ファイル - サブシステムB全体設計書 - bin/配下の実行ファイル资産
1.3 KiB
1.3 KiB
詳細設計書
基本情報
| # | 項目 | 内容 |
|---|---|---|
| 1 | システム名 | 残業統計管理システム |
| 2 | プログラムID | SUB03END |
| 3 | プログラム名 | ABEND処理サブ |
| 4 | PGMタイプ | サブ |
| 5 | PGMパターン | - |
| 6 | 機能概要 | ABENDコードを表示し、異常終了する。 |
※PGMタイプ:メイン、サブ ※PGMパターン:マッチング(1:1、1:N、N:1、M:N)、レイアウト編集のみ(GETPUT)、振り分け(IF文、EVALUATE文)、キーブレイク(集計、集約、集計・集約の以外)、DB更新
使用方法
CALL 'SUB03END' USING E01ABDPAR
入出力パラメータ
| COPY句 | ZANENDAC |
|---|
| NO | 入出力区分 | 名称 | 属性 | 桁数 | 説明 |
|---|---|---|---|---|---|
| 1 | I | E01ABDCOD | 9(3) | 3 | ABENDコード |
リターンコード一覧
| NO | コード | 説明 |
|---|---|---|
| 1 | - | ABENDするため復帰コードなし(STOP RUN実行) |
処理詳細
1.制御処理(0000MAINSOR)
1-1.ABENDメッセージを編集する。
MOVE 'ABEND CODE=' TO WRK-ABEND-MSG.
MOVE E01ABDCOD TO WRK-ABEND-MSG(12:3).
1-2.メッセージを表示する。
DISPLAY WRK-ABEND-MSG.
1-3.異常終了する。
STOP RUN.