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
       .
       .