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.