qiuqiuqiu
66 lines
3.3 KiB
COBOL
66 lines
3.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. SUB02MSG.
|
|
*****************************************************************
|
|
* システム名 : 残業統計管理システム *
|
|
* プログラムID : SUB02MSG *
|
|
* プログラム名 : メッセージ編集出力サブ *
|
|
* 作成日 : 2026-06-14 *
|
|
* 処理概要 : メッセージ番号とパラメータを編集し *
|
|
* 標準出力へ出力する *
|
|
* *
|
|
*****************************************************************
|
|
* 更新履歴 *
|
|
*---------------------------------------------------------------*
|
|
* 更新日付 担当者 更新内容 *
|
|
*---------------------------------------------------------------*
|
|
* 26-06-14 @@@ 新規作成 *
|
|
* *
|
|
*****************************************************************
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
SOURCE-COMPUTER. IBM-ZSERIES.
|
|
OBJECT-COMPUTER. IBM-ZSERIES.
|
|
*
|
|
DATA DIVISION.
|
|
*****************************************************************
|
|
WORKING-STORAGE SECTION.
|
|
*****************************************************************
|
|
01 WRKARA.
|
|
03 WRK-MSG-LINE PIC X(303).
|
|
*
|
|
*****************************************************************
|
|
* リンケージエリア *
|
|
*****************************************************************
|
|
LINKAGE SECTION.
|
|
*
|
|
COPY ZANMSGAC.
|
|
*
|
|
PROCEDURE DIVISION USING M00MHOPAR.
|
|
*****************************************************************
|
|
* サブモジュールNO: (0.0) *
|
|
* サブモジュール名: 制御処理 *
|
|
* 処理概要 : メインコントロール処理 *
|
|
*****************************************************************
|
|
0000MAINSOR SECTION.
|
|
*
|
|
*** メッセージ行を編集する
|
|
STRING 'MSG['
|
|
M00MSGCOD
|
|
'] P1='
|
|
M00UMKDATS22-01
|
|
' P2='
|
|
M00UMKDATS22-02
|
|
' P3='
|
|
M00UMKDATS22-03
|
|
' P4='
|
|
M00UMKDATS22-04
|
|
' P5='
|
|
M00UMKDATS22-05
|
|
INTO WRK-MSG-LINE
|
|
END-STRING.
|
|
*** 標準出力へ出力
|
|
DISPLAY WRK-MSG-LINE.
|
|
*
|
|
0000MAINSOR-EXT.
|
|
GOBACK.
|