256 IBM Content Manager OnDemand Guide
         la    r15,1(,r15)        bump address                          00830005
         j     nulloop            And try next                          00840005
nomore   ds    0h                                                       00850005
         lr    r3,r1              Save length of message                00860005
         mvc   msgtxt+2(3),=c'XXX' Set the prefix                       00870007
         la    r14,msgtxt+5       Start to place number                 00880005
         l     r15,msgnum         Get start of message number           00890005
numloop  ds    0h                                                       00900005
         cli   0(r15),x'00'       Null?                                 00910005
         je    nomove                                                   00920005
         mvc   0(0,r14),0(15)     move it                               00930005
         la    r14,1(,r14)        next destination                      00940005
         la    r15,1(,r15)        next source                           00950005
         j     numloop            go do next                            00960005
nomove   ds    0h                                                       00970005
         l     r15,sev            Get severity                          00980005
         cli   0(r15),c'1'        Is it Alert                           00990005
         jne   tryerror           No skip                               01000005
         mvi   0(r14),c'E'        Set error severity                    01010006
         j     donesev                                                  01020005
tryerror ds    0h                                                       01030005
         cli   0(r15),c'2'        "Error" severity?                     01040005
         jne   trywarn            No - skip                             01050005
         mvi   0(r14),c'E'        Set error                             01060005
         j     donesev                                                  01070006
trywarn  ds    0h                                                       01080005
         cli   0(r15),c'3'        Is it Warning                         01090006
         jne   setinfo                                                  01100005
         mvi   0(r14),C'W'        Set Warning                           01110005
         j     donesev                                                  01120005
setinfo  ds    0h                                                       01130005
         mvi   0(r14),c'I'        Indicate info                         01140005
donesev  ds    0h                                                       01150005
         mvi   1(r14),c' '        Put in blank                          01160005
         la    r14,2(,r14)        Skip                                  01170005
                                                                        01180005
         c     r3,=f'60'          More than 60 chars                    01190005
         jnh   singlwto           No - issue it                         01200005
         lhi   r3,60              Only first 60 chars                   01210005
                                                                        01220005
* We only need to issue a single WTO                                    01230005
                                                                        01240005
singlwto ds    0h                                                       01250005
         la    r4,msgtxt+2        Get start of text                     01260005
         lr    r15,r14            Get where we stopped                  01270005
         sr    r15,r4             Get how much we've done               01280005
         ar    r15,r3             add length of text                    01290005
         stcm  r15,b'0011',msgtxt  Set the length                       01300005