In COBOL, we can use DISPLAY to display some variable's value; Instead, we can issue macro WTO(Write To Operator)
in assembler to meet it.
WTO MF=(E,LISTMSG1)
LTR R15,R15 IS REG-15 = ZERO...
BNZ ABEND4 IF NOT, ABEND...
*
LA R8,LISTMSG2
WTO MF=(E,(R8))
LTR R15,R15 IS REG-15 = ZERO...
BNZ ABEND4 IF NOT, ABEND...
*
***********************************************************************
* WTO using the EXECUTE format with user-coded WTO buffer. This
* routine illustrates the use of a single WTO to display different
* messages.
*
BAL