qiuqiuqiu
14 lines
707 B
COBOL
14 lines
707 B
COBOL
* 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).
|