Assembler example with CIB control block
This is a simple example of a WTO, where the text is not variable.
It is also not re-entrant code.
Assume the address of the CIB has been previously loaded into R7
.
.
.
USING CIB,R7 CIB based on R7
LR R8,R7 Set up R8 as address of CIBX
AH R8,CIBXOFF CIBX=addr(CIB)+CIBXOFF
USING CIBX,R8 Addressability to CIBX
WTO 'ABC123I XYZ COMMAND COMPLETED SUCCESSFULLY', X
DESC=5, X
CONSID=CIBXCNID, X
CART=CIBXCART
DROP R8 done with CIBX
CIB DSECT
IEZCIB
.
.
+CIBXCART DS CL8 - COMMAND AND RESPONSE TOKEN
+CIBXCNID DS F - CONSOLE ID
.
.