35 lines
1.5 KiB
Java
35 lines
1.5 KiB
Java
import dto.ZanmsgacPar;
|
||
import util.ConvUtil;
|
||
|
||
/**
|
||
* ============================================================
|
||
* 【COBOL→Java】SUB02MSG メッセージ編集出力サブ
|
||
* ============================================================
|
||
* PROGRAM-ID. SUB02MSG → 类 Sub02MsgSub
|
||
* LINKAGE: M00MHOPAR（COPY ZANMSGAC → dto.ZanmsgacPar）
|
||
* 処理概要: メッセージ番号とパラメータを編集し標準出力へ出力する。
|
||
*
|
||
* ※STRING文は DELIMITED 句省略時 = DELIMITED BY SIZE：
|
||
* 各 X(30) 置換項目は后尾空格含め30桁そのまま連結されるため
|
||
* Java 侧也按 padRight(30) 忠实再现。
|
||
* ※DISPLAY は PIC X(303) 全長出力（后尾空格含む）。
|
||
*/
|
||
public class Sub02MsgSub {
|
||
|
||
/**
|
||
* PROCEDURE DIVISION USING M00MHOPAR ／ 段落 0000MAINSOR。
|
||
*/
|
||
public static void execute(final ZanmsgacPar par) {
|
||
// STRING 'MSG[' M00MSGCOD '] P1=' ... INTO WRK-MSG-LINE END-STRING.
|
||
String line = "MSG["
|
||
+ ConvUtil.padLeftZero(par.getM00MsgCod(), 3) + "] P1="
|
||
+ ConvUtil.padRight(par.getM00Umkdats2201(), 30) + " P2="
|
||
+ ConvUtil.padRight(par.getM00Umkdats2202(), 30) + " P3="
|
||
+ ConvUtil.padRight(par.getM00Umkdats2203(), 30) + " P4="
|
||
+ ConvUtil.padRight(par.getM00Umkdats2204(), 30) + " P5="
|
||
+ ConvUtil.padRight(par.getM00Umkdats2205(), 30);
|
||
// DISPLAY WRK-MSG-LINE.（X(303) 全长，含后尾空格）
|
||
System.out.println(ConvUtil.padRight(line, 303));
|
||
}
|
||
}
|