*------------------------------------------------------------------
*     (c)  Copyright   Roger Lacroix  1991
*
*  Designed, developed and programmed by Roger Lacroix
*------------------------------------------------------------------
*
*     Sample code to show how to output an integer number
*     using WTO.
*
*------------------------------------------------------------------



         L     R0,ABCXYZ
         ST    R0,OFFSET                STORE OFFSET
         UNPK  WTOMSG02(9),OFFSET(5)    CHANGE TO EBCDIC
         TR    WTOMSG02(8),CHARTRAN     CHANGE TO DISPLAY CHARACTERS
         MVI   WTOMSG02+8,C' '



         LA    R1,WTO002
         WTO   MF=(E,(1))
*
&WTOBLNK SETC  (120)' '
WTO002   WTO   '&WTOBLNK',MF=L
         ORG   *-120
         DC    C'SIZE = '
WTOMSG02 DS    CL8
         DC    C' **** '
         ORG   ,



*
         DC    C'0123456789ABCDEF'
CHARTRAN EQU   *-256
WORKDBL  DS    2D                  DOUBLE WORD WORK FIELD
OFFSET   DS    F                   TEMP. STORAGE FOR OFFSET VALUE