请问在AS400/COBOL当中如何进行error message的控制呢？

milanfeng

用rpgle的话，先会create一个error message 文件（例如：名字叫errfilename)并添加err message的信息（例如：加一条信息，名字叫xxxxx01）,然后在DSP file 里面写：
A            Field_a        1   B 10 18DSPATR(PC)               
A  10                                  ERRMSGID(xxxxx01 lib/errfilename 10)

在程序当中通过send message 和 指示器（*IN10)去控制。

请问在COBOL当中如何进行error message的控制呢？

digitalchina

the same with RPG

hualun007

非常类似的写法，一般都是通过indicator的on和off来控制dspf的显示