* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 * &     I n c l u d e                       Z B F I _ R E S _ D E B T _ U N I 
 
 * & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 D A T A   u t f _ o u t   T Y P E   s t r i n g . 
 
 D A T A   u t f _ o u t 2   T Y P E   s t r i n g . 
 
 * & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 * &             F o r m     t o _ u t f 
 
 * & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 *               t e x t 
 
 * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 *             - - > P _ V A L U E         t e x t 
 
 * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 F O R M   t o _ u t f   U S I N G   p _ v a l u e . 
 
     D A T A :   l e n   T Y P E   i , 
 
                 l a s t   t y p e   i , 
 
                 i   T Y P E   i , 
 
                 c   T Y P E   c , 
 
                 s t r   T Y P E   s t r i n g . 
 
     c l e a r   :   s t r ,   u t f _ o u t . 
 
 
 
       s t r   =   p _ v a l u e . 
 
     R E P L A C E   a l l   O C C U R R E N C E S   O F   ' < ( > , < ) > '   i n   s t r   W I T H   ' , ' . 
 
 
 
 
 
     l e n   =   S T R L E N (   s t r   ) . 
 
     D O   l e n   T I M E S . 
 
         i   =   s y - i n d e x   -   1 . 
 
         c   =     s t r + i ( 1 ) . 
 
 
 
         C A S E   c . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  R'   I N T O   u t f _ o u t   . 
 
             W H E N   ' 0' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 1' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 2' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 3' .     C O N C A T E N A T E   u t f _ o u t   '  V'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 4' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  " '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 5' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' Q' .     C O N C A T E N A T E   u t f _ o u t   ' ! '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 6' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 7' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' 8' .     C O N C A T E N A T E   u t f _ o u t   '  Q'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  "!'   I N T O   u t f _ o u t   . 
 
             W H E N   ' 9' .     C O N C A T E N A T E   u t f _ o u t   '  !'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  Y'   I N T O   u t f _ o u t   . 
 
             W H E N   ' :' .     C O N C A T E N A T E   u t f _ o u t   '  T'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  : '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ;' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  Z'   I N T O   u t f _ o u t   . 
 
             W H E N   ' <' .     C O N C A T E N A T E   u t f _ o u t   '  X'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  \'   I N T O   u t f _ o u t   . 
 
             W H E N   ' =' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  ['   I N T O   u t f _ o u t   . 
 
             W H E N   ' >' .     C O N C A T E N A T E   u t f _ o u t   '  U'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  _'   I N T O   u t f _ o u t   . 
 
             W H E N   ' ?' .     C O N C A T E N A T E   u t f _ o u t   '  W'   I N T O   u t f _ o u t   . 
 
             W H E N   '  ' .     C O N C A T E N A T E   u t f _ o u t   '  $ '   I N T O   u t f _ o u t   . 
 
             W H E N   ' @' .     C O N C A T E N A T E   u t f _ o u t   ' !'   I N T O   u t f _ o u t   . 
 
             W H E N   ' !' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' A' .     C O N C A T E N A T E   u t f _ o u t   ' !'   I N T O   u t f _ o u t   . 
 
             W H E N   ' "' .     C O N C A T E N A T E   u t f _ o u t   '  ^'   I N T O   u t f _ o u t   . 
 
             W H E N   ' B' .     C O N C A T E N A T E   u t f _ o u t   ' ! '   I N T O   u t f _ o u t   . 
 
             W H E N   ' #' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' C' .     C O N C A T E N A T E   u t f _ o u t   ' !S'   I N T O   u t f _ o u t   . 
 
             W H E N   ' $' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' D' .     C O N C A T E N A T E   u t f _ o u t   ' ! '   I N T O   u t f _ o u t   . 
 
             W H E N   ' %' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' E' .     C O N C A T E N A T E   u t f _ o u t   ' !& '   I N T O   u t f _ o u t   . 
 
             W H E N   ' &' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' F' .     C O N C A T E N A T E   u t f _ o u t   ' !  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' '' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' G' .     C O N C A T E N A T E   u t f _ o u t   ' !! '   I N T O   u t f _ o u t   . 
 
             W H E N   ' (' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' H' .     C O N C A T E N A T E   u t f _ o u t   ' ! '   I N T O   u t f _ o u t   . 
 
             W H E N   ' )' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' I' .     C O N C A T E N A T E   u t f _ o u t   ' !0 '   I N T O   u t f _ o u t   . 
 
             W H E N   ' *' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' J' .     C O N C A T E N A T E   u t f _ o u t   ' !	'   I N T O   u t f _ o u t   . 
 
             W H E N   ' +' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' K' .     C O N C A T E N A T E   u t f _ o u t   ' !9 '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ,' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' L' .     C O N C A T E N A T E   u t f _ o u t   ' !
'   I N T O   u t f _ o u t   . 
 
             W H E N   ' -' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' M' .     C O N C A T E N A T E   u t f _ o u t   ' !'   I N T O   u t f _ o u t   . 
 
             W H E N   ' .' .     C O N C A T E N A T E   u t f _ o u t   '   '   I N T O   u t f _ o u t   . 
 
             W H E N   ' N' .     C O N C A T E N A T E   u t f _ o u t   ' !'   I N T O   u t f _ o u t   . 
 
             W H E N   ' /' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' O' .     C O N C A T E N A T E   u t f _ o u t   ' !'   I N T O   u t f _ o u t   . 
 
             W H E N   ' !' .     C O N C A T E N A T E   u t f _ o u t   ' 2  '   I N T O   u t f _ o u t   . 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '    '   I N T O   u t f _ o u t   . 
 
             W H E N   ' V' .     C O N C A T E N A T E   u t f _ o u t   ' ! '   I N T O   u t f _ o u t   . 
 
 
 
             W H E N   ' ' .     C O N C A T E N A T E   u t f _ o u t   '  ! '   I N T O   u t f _ o u t   . 
 
             W H E N   ' W' .     C O N C A T E N A T E   u t f _ o u t   ' ! '   I N T O   u t f _ o u t   . 
 
             W H E N   '   ' .     C O N C A T E N A T E   u t f _ o u t   ' $ '   I N T O   u t f _ o u t   . 
 
             W H E N   '  ' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
             W H E N   '  ' .     C O N C A T E N A T E   u t f _ o u t   '  '   I N T O   u t f _ o u t   . 
 
 
 
             W H E N   O T H E R S .   C O N C A T E N A T E   u t f _ o u t   c   I N T O   u t f _ o u t   . 
 
         E N D C A S E . 
 
 
 
 
 
     E N D D O . 
 
 
 
     T R A N S L A T E   u t f _ o u t   U S I N G   ' $   ' . 
 
     R E P L A C E   a l l   O C C U R R E N C E S   O F   ' < '   i n   u t f _ o u t   W I T H   ' < ' . 
 
     R E P L A C E   a l l   O C C U R R E N C E S   O F   ' > '   i n   u t f _ o u t   W I T H   ' > ' . 
 
 
 
 E N D F O R M .   " t o _ u t f 
 
 
 
 f o r m   d a t e _ c o n v e r t   U S I N G   p _ v a l u e . 
 
     I F   p _ v a l u e   =   ' 0 0 0 0 0 0 0 0 ' . 
 
         u t f _ o u t   =   ' ' . 
 
     e l s e . 
 
         c o n c a t e n a t e       p _ v a l u e + 6 ( 2 )   p _ v a l u e + 4 ( 2 )   p _ v a l u e ( 4 )   i n t o   u t f _ o u t   S E P A R A T E D   B Y   ' . ' . 
 
     E N D I F . 
 
 
 
 e n d f o r m . 