* SUB02MSG メッセージ出力用連絡領域
         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).