Files
cobol-tna-system/詳細設計書/詳細設計書_SUB03END.md
T

1001 B
Raw Blame History

詳細設計書

基本情報

# 項目 内容
1 システム名 残業統計管理システム
2 プログラムID SUB03END
3 プログラム名 ABEND処理サブ
4 PGMタイプ サブ
5 PGMパターン -
6 機能概要 ABENDコードを表示し、異常終了する。

使用方法

  CALL 'SUB03END' USING  E01ABDPAR

入出力パラメータ

COPY句 ZANENDAC
NO 入出力区分 名称 属性 桁数 説明
1 I E01ABDCOD 9(3) 3 ABENDコード

リターンコード一覧

NO コード 説明
1 - ABENDするため復帰コードなし(STOP RUN実行)

処理詳細

1.制御処理(0000MAINSOR
  1-1.ABENDメッセージを表示する。
    DISPLAY 'ABEND CODE=' E01ABDCOD.
  1-2.異常終了する。
    STOP RUN.