独自開発プログラムのデバッグの仕方

coblog関数を使う

参考例：
03  WRK-ERRMSG              PIC X(200).
STRING "COMB-KOH1HKNNUM " DELIMITED   BY  SIZE
COMB-KOH1HKNNUM   DELIMITED   BY  SIZE
" COMB-KOH2HKNNUM " DELIMITED   BY  SIZE
COMB-KOH2HKNNUM   DELIMITED   BY  SIZE
" COMB-KOH3HKNNUM " DELIMITED   BY  SIZE
COMB-KOH3HKNNUM   DELIMITED   BY  SIZE
" COMB-KOH4HKNNUM " DELIMITED   BY  SIZE
COMB-KOH4HKNNUM   DELIMITED   BY  SIZE
INTO   WRK-ERRMSG
END-STRING
CALL    "coblog"    USING   WRK-ERRMSG

結果が「/var/log/syslog」に出力されます。