H*****************************************************************
     H*                                                               *
     H*           CONVERSION DECIMAL A HEXADECIMAL                    *
     H*                                             JUANRA - 2.002    *
     H*                                                               *
     H*****************************************************************
     I            DS
     I                                    B   1   20NUMBIN
     I                                        2   2 NUMHEX
     I           UDS
     I                                        1   20LDA1
     I                                       10  10 LDA2
     C                     Z-ADDLDA1      NUMBIN
     C                     MOVELNUMHEX    LDA2
     C                     SETON                     LR