Initial import: 子系统B 前三本程序 production 资源

2026-06-15 08:12:54 +08:00
commit 9813dd7772
26 changed files with 2655 additions and 0 deletions
@@ -0,0 +1,76 @@
+       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.
+      *
+       01  M00MHOPAR.
+           03  M00MSGCOD                      PIC 9(003).
+           03  M00UMKDATS22-01                PIC X(030).
+           03  M00UMKDATS22-02                PIC X(030).
+           03  M00UMKDATS22-03                PIC X(030).
+           03  M00UMKDATS22-04                PIC X(030).
+           03  M00UMKDATS22-05                PIC X(030).
+           03  M00UMKDATS22-06                PIC X(030).
+           03  M00UMKDATS22-07                PIC X(030).
+           03  M00UMKDATS22-08                PIC X(030).
+           03  M00UMKDATS22-09                PIC X(030).
+           03  M00UMKDATS22-10                PIC X(030).
+      *
+       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.