qiuqiuqiu
55 lines
3.0 KiB
COBOL
55 lines
3.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. SUB03END.
|
|
*****************************************************************
|
|
* システム名 : 残業統計管理システム *
|
|
* プログラムID : SUB03END *
|
|
* プログラム名 : ABEND処理サブ *
|
|
* 作成日 : 2026-06-14 *
|
|
* 処理概要 : ABENDコードを表示しプログラムを異常終了 *
|
|
* させる *
|
|
* *
|
|
*****************************************************************
|
|
* 更新履歴 *
|
|
*---------------------------------------------------------------*
|
|
* 更新日付 担当者 更新内容 *
|
|
*---------------------------------------------------------------*
|
|
* 26-06-14 @@@ 新規作成 *
|
|
* *
|
|
*****************************************************************
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
SOURCE-COMPUTER. IBM-ZSERIES.
|
|
OBJECT-COMPUTER. IBM-ZSERIES.
|
|
*
|
|
DATA DIVISION.
|
|
*****************************************************************
|
|
WORKING-STORAGE SECTION.
|
|
*****************************************************************
|
|
01 WRKARA.
|
|
03 WRK-ABEND-MSG PIC X(020).
|
|
*
|
|
*****************************************************************
|
|
* リンケージエリア *
|
|
*****************************************************************
|
|
LINKAGE SECTION.
|
|
*
|
|
COPY ZANENDAC.
|
|
*
|
|
PROCEDURE DIVISION USING E01ABDPAR.
|
|
*****************************************************************
|
|
* サブモジュールNO: (0.0) *
|
|
* サブモジュール名: 制御処理 *
|
|
* 処理概要 : メインコントロール処理 *
|
|
*****************************************************************
|
|
0000MAINSOR SECTION.
|
|
*
|
|
*** 異常終了メッセージを表示する
|
|
MOVE 'ABEND CODE=' TO WRK-ABEND-MSG.
|
|
MOVE E01ABDCOD TO WRK-ABEND-MSG(12:3).
|
|
DISPLAY WRK-ABEND-MSG.
|
|
*** プログラムを異常終了させる
|
|
STOP RUN.
|
|
*
|
|
0000MAINSOR-EXT.
|
|
GOBACK.
|