标签： ibm-midrange cobol
如何在COBOL程序中使用PROGRAM STATUS子句来控制错误。根据IBM手册（如https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzasb/sc092539.pdf），PROGRAM STATUS子句指定一个数据项，在程序中发生错误后，会将预定义程序状态结构中的值移入该数据项。