* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 * &   R e p o r t     Z _ A S I K I D I N _ T E M P 
 
 * & 
 
 * & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 * & 
 
 * & 
 
 * & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 
 
 
 
 R E P O R T     Z _ A S I K I D I N _ T E M P . 
 
 
 
 T Y P E S : 
 
 
 
 B E G I N   O F   t _ s t y l e , 
 
     s t y l e _ o l d   T Y P E   t a b n a m e , 
 
     s t y l e _ n e w   T Y P E   t a b n a m e , 
 
 E N D   O F   t _ s t y l e . 
 
 
 
 p a r a m e t e r :   p _ f n a m e   t y p e   t e x t 1 2 8   o b l i g a t o r y   d e f a u l t   ' ' . " # # # # # # # # # # 
 
 
 
 d a t a : 
 
     _ r c   t y p e   i , 
 
     _ i t _ f i l e _ t a b l e   t y p e   t a b l e   o f   f i l e _ t a b l e , 
 
     g t _ d a t f l   t y p e   t a b l e   o f   s t r i n g   w i t h   h e a d e r   l i n e , 
 
     g v _ f n a m e   t y p e   s t r i n g , 
 
     i t _ s t y l e   T Y P E   T A B L E   O F   t _ s t y l e   W I T H   H E A D E R   L I N E , 
 
     i t _ s p l i t   t y p e   t a b l e   o f   e d p l i n e   W I T H   H E A D E R   L I N E , 
 
     i t _ s o u r c e   T Y P E   T A B L E   O F   s t r i n g   W I T H   H E A D E R   L I N E , 
 
             k   t y p e   i , 
 
             s ( 3 2 ) , 
 
             n ( 1 7 ) , 
 
             i n d ( 2 ) , 
 
             i n d 1 ( 2 ) , 
 
             s t r   t y p e   s t r i n g , 
 
             a l i g n m e n t ( 7 )   t y p e   c , 
 
             s i z e ( 2 )   t y p e   n , 
 
             b o l d   t y p e   c , 
 
             i t a l i c   t y p e   c , 
 
             u n d e r l i n e ( 6 )   t y p e   c , 
 
             f r a m e   t y p e   c , 
 
             c o l o r ( 6 )   t y p e   c , 
 
             r o t a t e ( 1 4 )   t y p e   c , 
 
             l v _ f l a g _ i n   t y p e   c , 
 
             l v _ f l a g _ i n _ r o w   t y p e   c , 
 
             l v _ f l a g _ i n _ c e l   t y p e   c , 
 
             l v _ s t r   t y p e   s t r i n g , 
 
             l v _ s t r 2   t y p e   s t r i n g , 
 
             l v _ s t r 3   t y p e   s t r i n g , 
 
 
 
             c e l l _ s t y l e   T Y P E   s t r i n g , 
 
             c e l l _ m e r g e _ d o w n   t y p e   s t r i n g , 
 
             c e l l _ m e r g e _ a c r o s s   T Y P E   s t r i n g , 
 
             c e l l _ t y p e   t y p e   s t r i n g , 
 
             c e l l _ d a t a   t y p e   s t r i n g , 
 
             c e l l _ i n d e x   t y p e   s t r i n g , 
 
             c e l l _ c e l l     t y p e   s t r i n g , 
 
 
 
             C o l u m n _ W i d t h   T Y P E   s t r i n g , 
 
             c o l u m n _ i n d e x   t y p e   s t r i n g , 
 
             c o l u m n _ s p a n   t y p e   s t r i n g , 
 
             c o l u m n _ H i d d e n   t y p e   s t r i n g , 
 
             c o l u m n _ A u t o F i t W i d t h   t y p e   s t r i n g . 
 
 a t   s e l e c t i o n - s c r e e n   o n   v a l u e - r e q u e s t   f o r   p _ f n a m e . 
 
     c a l l   m e t h o d   c l _ g u i _ f r o n t e n d _ s e r v i c e s = > f i l e _ o p e n _ d i a l o g 
 
         e x p o r t i n g 
 
             w i n d o w _ t i t l e             =   '     ' 
 
             d e f a u l t _ e x t e n s i o n   =   ' * . c s v ' 
 
             f i l e _ f i l t e r               =   '       X M L " ; "   ( * . x m l ) | * . x m l |             ( * . * ) | * . * ' 
 
             " i n i t i a l _ d i r e c t o r y   =   ' C : \ ' 
 
         c h a n g i n g 
 
             f i l e _ t a b l e                 =   _ i t _ f i l e _ t a b l e 
 
             r c                                 =   _ r c . 
 
 
 
     i f   s y - s u b r c   < >   0 . 
 
         e x i t . 
 
     e l s e . 
 
         r e a d   t a b l e   _ i t _ f i l e _ t a b l e   i n t o   p _ f n a m e   i n d e x   1 . 
 
         i f   s y - s u b r c   < >   0 . 
 
             e x i t . 
 
         e n d i f . 
 
     e n d i f . 
 
 
 
   e n d - o f - s e l e c t i o n . 
 
 
 
   S T A R T - O F - S E L E C T I O N . 
 
 
 
     C L E A R : 
 
         g t _ d a t f l [ ] . 
 
 
 
 *     03@C7:0  87  D09;0
 
     g v _ f n a m e   =   p _ f n a m e . 
 
     C A L L   F U N C T I O N   ' G U I _ U P L O A D ' 
 
         E X P O R T I N G 
 
             f i l e n a m e                                 =   g v _ f n a m e 
 
         T A B L E S 
 
             d a t a _ t a b                                 =   g t _ d a t f l 
 
         E X C E P T I O N S 
 
             f i l e _ o p e n _ e r r o r                   =   1 
 
             f i l e _ r e a d _ e r r o r                   =   2 
 
             n o _ b a t c h                                 =   3 
 
             g u i _ r e f u s e _ f i l e t r a n s f e r   =   4 
 
             i n v a l i d _ t y p e                         =   5 
 
             n o _ a u t h o r i t y                         =   6 
 
             u n k n o w n _ e r r o r                       =   7 
 
             b a d _ d a t a _ f o r m a t                   =   8 
 
             h e a d e r _ n o t _ a l l o w e d             =   9 
 
             s e p a r a t o r _ n o t _ a l l o w e d       =   1 0 
 
             h e a d e r _ t o o _ l o n g                   =   1 1 
 
             u n k n o w n _ d p _ e r r o r                 =   1 2 
 
             a c c e s s _ d e n i e d                       =   1 3 
 
             d p _ o u t _ o f _ m e m o r y                 =   1 4 
 
             d i s k _ f u l l                               =   1 5 
 
             d p _ t i m e o u t                             =   1 6 
 
             O T H E R S                                     =   1 7 . 
 
     I F   s y - s u b r c   < >   0 . 
 
         M E S S A G E   I D   s y - m s g i d   T Y P E   s y - m s g t y   N U M B E R   s y - m s g n o 
 
                         W I T H   s y - m s g v 1   s y - m s g v 2   s y - m s g v 3   s y - m s g v 4 . 
 
     E N D I F . 
 
 
 
 * S T Y L E 
 
     C L E A R   l v _ f l a g _ i n . 
 
     L O O P   A T   g t _ d a t f l . 
 
         F I N D   F I R S T   O C C U R R E N C E   O F   '     < S t y l e   s s : I D '   I N   g t _ d a t f l . 
 
         I F   s y - s u b r c   =   0 . 
 
             l v _ f l a g _ i n         =   ' X ' . 
 
             a l i g n m e n t           =   ' l ' . 
 
             s i z e                     =   ' 1 0 ' . 
 
             b o l d                     =   ' - ' . 
 
             i t a l i c                 =   ' - ' . 
 
             u n d e r l i n e           =   ' - ' . 
 
             f r a m e                   =   ' - ' . 
 
             c o l o r                   =   ' F F F F F F ' . 
 
             r o t a t e                 =   ' ' . 
 
 
 
             S P L I T   g t _ d a t f l   A T ' " '   I N T O   T A B L E   i t _ s p l i t . 
 
             R E A D   T A B L E   i t _ s p l i t   I N D E X   2 . 
 
             i t _ s t y l e - s t y l e _ o l d   =   i t _ s p l i t . 
 
             C O N T I N U E . 
 
         E N D I F . 
 
 
 
         F I N D   F I R S T   O C C U R R E N C E   O F   '     < / S t y l e > '   I N   g t _ d a t f l . 
 
         I F   s y - s u b r c   =   0 . 
 
             C L E A R   l v _ f l a g _ i n . 
 
             C O N C A T E N A T E   a l i g n m e n t   s i z e   b o l d   i t a l i c   u n d e r l i n e   f r a m e   c o l o r   r o t a t e   I N T O   i t _ s t y l e - s t y l e _ n e w . 
 
             A P P E N D   i t _ s t y l e . 
 
             C O N T I N U E . 
 
         E N D I F . 
 
 
 
         I F   l v _ f l a g _ i n   I S   N O T   I N I T I A L . 
 
 *   a l i g m e n t 
 
             F I N D   R E G E X   ' s s : H o r i z o n t a l = " ( \ w + ) " '   I N   g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 C A S E   l v _ s t r . 
 
                     W H E N   ' L e f t ' . 
 
                         a l i g n m e n t   =   ' L ' . 
 
                     W H E N   ' C e n t e r ' . 
 
                         a l i g n m e n t   =   ' C ' . 
 
                     W H E N   ' R i g h t " ' . 
 
                         a l i g n m e n t   =   ' R ' . 
 
                     W H E N   ' J u s t i f y ' . 
 
                         a l i g n m e n t   =   ' J ' . 
 
                 E N D C A S E . 
 
             E N D I F . 
 
 * s i z e 
 
             F I N D   R E G E X   ' s s : S i z e = " ( \ n + ) 8 " '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 s i z e   =   l v _ s t r . 
 
                 C A L L   F U N C T I O N   ' C O N V E R S I O N _ E X I T _ A L P H A _ I N P U T ' 
 
                     E X P O R T I N G 
 
                         i n p u t     =   s i z e 
 
                     I M P O R T I N G 
 
                         o u t p u t   =   s i z e . 
 
             E N D I F . 
 
 * b o l d 
 
             F I N D   R E G E X   ' s s : B o l d = " 1 " '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 b o l d   =   ' B ' . 
 
             E N D I F . 
 
 * i t a l i c 
 
             F I N D   R E G E X   ' s s : I t a l i c = " 1 " '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 i t a l i c   =   ' I ' . 
 
             E N D I F . 
 
 * u n d e r l i n e 
 
             F I N D   R E G E X   ' s s : U n d e r l i n e = " S i n g l e " '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 u n d e r l i n e   =   ' U ' . 
 
             E N D I F . 
 
 * f r a m e 
 
             F I N D   R E G E X   ' < B o r d e r s > '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 f r a m e   =   ' R ' . 
 
             E N D I F . 
 
 * c o l o r 
 
             F I N D   R E G E X   ' s s : C o l o r = " # ( \ w + ) " '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 c o l o r   =   l v _ s t r . 
 
             E N D I F . 
 
 * r o t a t e 
 
             F I N D   R E G E X   ' s s : R o t a t e = '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 r o t a t e   =   ' X ' . 
 
             E N D I F . 
 
 
 
         E L S E . 
 
             C O N T I N U E . 
 
         E N D I F . 
 
 
 
 
 
     E N D L O O P . 
 
 
 
 * s o m e   s o u r c e 
 
     A P P E N D   ' d a t a :     l v _ s t r   t y p e   s t r i n g , '   T O   i t _ s o u r c e . 
 
     A P P E N D   '                 _ v _ f i l e n a m e   t y p e   s t r i n g . '   T O   i t _ s o u r c e . 
 
     A P P E N D   ' '   T O   i t _ s o u r c e . 
 
     A P P E N D   '     x m l _ h e a d e r . '   T O   i t _ s o u r c e . 
 
     A P P E N D   ' '   T O   i t _ s o u r c e . 
 
     A P P E N D   '     x m l _ o p e n _ w o r k s h e e t   ' ' BG5B' ' . '   T O   i t _ s o u r c e . 
 
 
 
 * c o l u m n   w i d t h 
 
     C L E A R   l v _ f l a g _ i n . 
 
     L O O P   A T   g t _ d a t f l . 
 
 
 
         F I N D   R E G E X     ' < C o l u m n '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
         I F   s y - s u b r c   =   0 . 
 
             l v _ f l a g _ i n   =   ' X ' . 
 
             C L E A R :   c o l u m n _ w i d t h   , 
 
                           c o l u m n _ i n d e x   , 
 
                           c o l u m n _ s p a n   , 
 
                           c o l u m n _ h i d d e n , 
 
                           c o l u m n _ a u t o f i t w i d t h . 
 
 
 
         E N D I F . 
 
 
 
         I F     l v _ f l a g _ i n   I S   N O T   I N I T I A L . 
 
             F I N D   R E G E X   ' ( s s : W i d t h = " \ d + \ . ? \ d * " ) '   I N     g t _ d a t f l   S U B M A T C H E S   c o l u m n _ w i d t h . 
 
             F I N D   R E G E X   ' ( s s : I n d e x = " \ d + " ) '   I N     g t _ d a t f l   S U B M A T C H E S   c o l u m n _ i n d e x . 
 
             F I N D   R E G E X   ' ( s s : S p a n = " \ d + " ) '   I N     g t _ d a t f l   S U B M A T C H E S   c o l u m n _ s p a n . 
 
             F I N D   R E G E X   ' ( s s : H i d d e n = " \ d + " ) '   I N     g t _ d a t f l   S U B M A T C H E S   c o l u m n _ h i d d e n . 
 
             F I N D   R E G E X   ' ( s s : A u t o F i t W i d t h = " \ d + " ) '   I N     g t _ d a t f l   S U B M A T C H E S   c o l u m n _ a u t o f i t w i d t h . 
 
         E N D I F . 
 
 
 
 
 
         F I N D   R E G E X     ' / > '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
         I F   s y - s u b r c   =   0 . 
 
             I F   l v _ f l a g _ i n   I S   N O T   I N I T I A L . 
 
 *                 I F   c o l u m n _ w i d t h   I S   N O T   I N I T I A L   A N D   c o l u m n _ i n d e x   I S   N O T   I N I T I A L   A N D   c o l u m n _ s p a n   I S   N O T   I N I T I A L . 
 
 *                     C O N C A T E N A T E   ' x m l _ c o l u m n w i d t h i n d e x s p a n   ' ' '   c o l u m n _ w i d t h   ' ' '   ' ' '   c o l u m n _ i n d e x   ' ' '   ' ' '   c o l u m n _ s p a n   ' ' ' . '   I N T O     l v _ s t r . 
 
 *                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
 *                     C O N T I N U E . 
 
 *                 E N D I F . 
 
 * 
 
 *                 I F   c o l u m n _ w i d t h   I S   N O T   I N I T I A L   A N D   c o l u m n _ i n d e x   I S   N O T   I N I T I A L . 
 
 *                     C O N C A T E N A T E   ' x m l _ c o l u m n w i d t h i n d e x   ' ' '   c o l u m n _ w i d t h   ' ' '   ' ' '   c o l u m n _ i n d e x   ' ' ' . '   I N T O   l v _ s t r . 
 
 *                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
 *                     C O N T I N U E . 
 
 *                 E N D I F . 
 
 * 
 
 *                 I F   c o l u m n _ w i d t h   I S   N O T   I N I T I A L . 
 
 *                     C O N C A T E N A T E   ' x m l _ c o l u m n w i d t h   ' ' '   c o l u m n _ w i d t h   ' ' ' . '   I N T O   l v _ s t r . 
 
 *                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
 *                 E N D I F . 
 
 
 
                 C O N C A T E N A T E   ' x m l _ c o l u m n   ' ' '   ' < C o l u m n '   c o l u m n _ i n d e x   c o l u m n _ h i d d e n   c o l u m n _ a u t o f i t w i d t h   c o l u m n _ w i d t h   c o l u m n _ s p a n   ' / > ' ' . '   I N T O   l v _ s t r   S E P A R A T E D   B Y   s p a c e . 
 
                 A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
             E N D I F . 
 
             C L E A R   l v _ f l a g _ i n . 
 
         E N D I F . 
 
 
 
     E N D L O O P . 
 
 
 
 * r o w   c e l l 
 
     C L E A R :   l v _ f l a g _ i n _ r o w , 
 
                   l v _ f l a g _ i n _ c e l . 
 
 
 
     L O O P   A T   g t _ d a t f l . 
 
 
 
 * =0G0;>  AB@>:8
 
         F I N D   R E G E X     ' < R o w '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
         I F   s y - s u b r c   =   0 . 
 
             l v _ f l a g _ i n _ r o w   =   ' X ' . 
 
 
 
 * AB@>:0  A  2KA>B>9
 
             F I N D   R E G E X   ' s s : H e i g h t = " ( \ d + \ . ? \ d * ) " > '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 C O N C A T E N A T E   ' x m l _ b e g i n r o w h e i g h t   ' ' ' '   ' ' '   l v _ s t r   ' ' ' . '   I N T O   l v _ s t r . 
 
                 A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                 F I N D   R E G E X   ' / > '   I N   g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     C L E A R   l v _ f l a g _ i n _ r o w   . 
 
                     A P P E N D   ' x m l _ e n d r o w . '   T O   i t _ s o u r c e . 
 
                     A P P E N D   ' '   T O   i t _ s o u r c e . 
 
                 E N D I F . 
 
                 C O N T I N U E . 
 
             E N D I F . 
 
 
 
 * AB@>:0  A  8=45:A><
 
             F I N D   R E G E X   ' s s : I n d e x = " ( \ d + ) " '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 C O N C A T E N A T E   ' x m l _ b e g i n r o w i n d e x   ' ' ' '   ' ' '   l v _ s t r   ' ' ' . '   I N T O   l v _ s t r . 
 
                 A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                 F I N D   R E G E X   ' / > '   I N   g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     C L E A R   l v _ f l a g _ i n _ r o w   . 
 
                     A P P E N D   ' x m l _ e n d r o w . '   T O   i t _ s o u r c e . 
 
                     A P P E N D   ' '   T O   i t _ s o u r c e . 
 
                 E N D I F . 
 
                 C O N T I N U E . 
 
             E N D I F . 
 
 
 
 * ?@>AB>  AB@>:0
 
             A P P E N D   ' x m l _ b e g i n r o w   ' ' ' ' .   '   T O   i t _ s o u r c e . 
 
             F I N D   R E G E X   ' / > '   I N   g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 C L E A R   l v _ f l a g _ i n _ r o w   . 
 
                 A P P E N D   ' x m l _ e n d r o w . '   T O   i t _ s o u r c e . 
 
                 A P P E N D   ' '   T O   i t _ s o u r c e . 
 
             E N D I F . 
 
             C O N T I N U E . 
 
         E N D I F . 
 
 
 
 * :>=5F  AB@>:8
 
         F I N D   R E G E X     ' < / R o w > '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
         I F   s y - s u b r c   =   0 . 
 
             C L E A R   l v _ f l a g _ i n _ r o w   . 
 
             A P P E N D   ' x m l _ e n d r o w . '   T O   i t _ s o u r c e . 
 
             A P P E N D   ' '   T O   i t _ s o u r c e . 
 
             C O N T I N U E . 
 
         E N D I F . 
 
 
 
 * OG59:8- - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 * =0G0;>  OG59:8
 
         F I N D   R E G E X     ' < C e l l '   I N     g t _ d a t f l   S U B M A T C H E S   l v _ s t r . 
 
         I F   s y - s u b r c   =   0   . 
 
             C L E A R :   c e l l _ s t y l e   , 
 
                           c e l l _ m e r g e _ d o w n   , 
 
                           c e l l _ m e r g e _ a c r o s s   , 
 
                           c e l l _ t y p e   , 
 
                           c e l l _ d a t a   , 
 
                           c e l l _ i n d e x   , 
 
                           c e l l _ c e l l   . 
 
 
 
             l v _ f l a g _ i n _ c e l   =   ' X ' . 
 
             c e l l _ s t y l e     =   ' l 0 8 - - - - F F F F F F ' . 
 
         E N D I F . 
 
 
 
         I F   l v _ f l a g _ i n _ c e l   I S   N O T   I N I T I A L . 
 
             C O N C A T E N A T E   c e l l _ c e l l     g t _ d a t f l   I N T O   c e l l _ c e l l . 
 
             F I N D   R E G E X   ' ( < / C e l l > | / > ) '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
             I F   s y - s u b r c   =   0 . 
 
                 C L E A R   l v _ f l a g _ i n _ c e l . 
 
 * s t y l e 
 
                 F I N D   R E G E X   ' s s : S t y l e I D = " ( \ w + ) " '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     R E A D   T A B L E   i t _ s t y l e   W I T H   K E Y   s t y l e _ o l d   =   l v _ s t r . 
 
                     I F   s y - s u b r c   =   0 . 
 
                         c e l l _ s t y l e   =   i t _ s t y l e - s t y l e _ n e w . 
 
                     E N D I F . 
 
                 E N D I F . 
 
 
 
 * m e r g e _ d o w n 
 
                 F I N D   R E G E X   ' s s : M e r g e D o w n = " ( \ d + ) " '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     c e l l _ m e r g e _ d o w n   =   l v _ s t r . 
 
                 E N D I F . 
 
 
 
 * m e r g e _ a c r o s s 
 
                 F I N D   R E G E X   ' s s : M e r g e A c r o s s = " ( \ d + ) " '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     c e l l _ m e r g e _ a c r o s s   =   l v _ s t r . 
 
                 E N D I F . 
 
 
 
 * t y p e 
 
                 F I N D   R E G E X   ' s s : T y p e = " ( \ w + ) " '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     C A S E   l v _ s t r . 
 
                         W H E N   ' S t r i n g ' . 
 
                             c e l l _ t y p e   =   ' S ' . 
 
                         W H E N   ' N u m b e r ' . 
 
                             c e l l _ t y p e   =   ' N ' . 
 
                     E N D C A S E . 
 
                 E N D I F . 
 
 
 
 * d a t a 
 
                 F I N D   R E G E X   ' < D a t a . * " > ( . * ) < / D a t a > '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     c e l l _ d a t a   =   l v _ s t r . 
 
                 E N D I F . 
 
 
 
 * i n d e x 
 
                 F I N D   R E G E X   ' s s : I n d e x = " ( \ d + ) " '   I N     c e l l _ c e l l   S U B M A T C H E S   l v _ s t r . 
 
                 I F   s y - s u b r c   =   0 . 
 
                     c e l l _ i n d e x   =   l v _ s t r . 
 
                 E N D I F . 
 
 
 
 
 
 * g e n e r a t e   w r i t e   c e l l - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 * x m l _ w r i t e m e r g e a c r o s s d o w n . 
 
                 I F   c e l l _ m e r g e _ d o w n   I S   N O T   I N I T I A L   A N D   c e l l _ m e r g e _ a c r o s s   I S   N O T   I N I T I A L . 
 
                     C O N C A T E N A T E   ' x m l _ w r i t e m e r g e a c r o s s d o w n   ' ' '     c e l l _ m e r g e _ a c r o s s   ' ' '   ' ' '   c e l l _ m e r g e _ d o w n   ' ' '   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' ' . '   I N T O   l v _ s t r . 
 
                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                     C O N T I N U E . 
 
                 E N D I F . 
 
 
 
 * x m l _ w r i t e m e r g e i n d e x d o w n . 
 
                 I F     c e l l _ i n d e x   I S   N O T   I N I T I A L   A N D   c e l l _ m e r g e _ d o w n   I S   N O T   I N I T I A L . 
 
                     C O N C A T E N A T E   ' x m l _ w r i t e m e r g e i n d e x d o w n   ' ' '   c e l l _ i n d e x   ' ' '   ' ' '   c e l l _ m e r g e _ d o w n   ' ' '   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' ' . '   I N T O   l v _ s t r . 
 
                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                     C O N T I N U E . 
 
                 E N D I F . 
 
 
 
 * x m l _ w r i t e m e r g e d o w n . 
 
                 I F   c e l l _ m e r g e _ d o w n   I S   N O T   I N I T I A L . 
 
                     C O N C A T E N A T E   ' x m l _ w r i t e m e r g e d o w n   ' ' '   c e l l _ m e r g e _ d o w n   ' ' '   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' '   . '   I N T O   l v _ s t r   . 
 
                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                     C O N T I N U E . 
 
                 E N D I F . 
 
 
 
 * x m l _ w r i t e m e r g e i n d e x a c r o s s . 
 
                 I F     c e l l _ i n d e x   I S   N O T   I N I T I A L   A N D   c e l l _ m e r g e _ a c r o s s   I S   N O T   I N I T I A L . 
 
                     C O N C A T E N A T E   ' x m l _ w r i t e m e r g e i n d e x a c r o s s   ' ' '   c e l l _ i n d e x   ' ' '   ' ' '   c e l l _ m e r g e _ a c r o s s   ' ' '   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' ' . '   I N T O   l v _ s t r . 
 
                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                     C O N T I N U E . 
 
                 E N D I F . 
 
 
 
 * x m l _ w r i t e m e r g e a c r o s s . 
 
                 I F   c e l l _ m e r g e _ a c r o s s   I S   N O T   I N I T I A L . 
 
                     C O N C A T E N A T E   ' x m l _ w r i t e m e r g e a c r o s s   ' ' '   c e l l _ m e r g e _ a c r o s s   ' ' '   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' '   . '   I N T O   l v _ s t r   . 
 
                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                     C O N T I N U E . 
 
                 E N D I F . 
 
 
 
 * x m l _ w r i t e c e l l i n d e x . 
 
                 I F   c e l l _ i n d e x   I S   N O T   I N I T I A L . 
 
                     C O N C A T E N A T E   ' x m l _ w r i t e c e l l i n d e x   ' ' '   c e l l _ i n d e x   ' ' '   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' '   . '   I N T O   l v _ s t r   . 
 
                     A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
                     C O N T I N U E . 
 
                 E N D I F . 
 
 
 
 * x m l _ w r i t e c e l l . 
 
                 C O N C A T E N A T E   ' x m l _ w r i t e c e l l   ' ' '   c e l l _ s t y l e   ' ' '   ' ' '   c e l l _ t y p e   ' ' '   ' ' '   c e l l _ d a t a   ' ' '   . '   I N T O   l v _ s t r   . 
 
                 A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
 
 
             E N D I F . 
 
         E N D I F . 
 
 
 
     E N D L O O P . 
 
 
 
     A P P E N D   ' x m l _ c l o s e _ w o r k s h e e t   ' ' X ' '   ' ' 8 0 ' '   ' ' 6 7 ' ' . '   T O   i t _ s o u r c e . 
 
     A P P E N D   ' c o n c a t e n a t e   ' ' R E P _ D C _ ' '   s y - d a t u m   s y - u z e i t   ' ' . x m l ' '   i n t o   _ v _ f i l e n a m e . '   T O   i t _ s o u r c e . 
 
     A P P E N D   ' x m l _ d o w n l o a d   ' ' C : \ T e m p \ ' '   _ v _ f i l e n a m e . '   T O   i t _ s o u r c e . 
 
 
 
     R E P L A C E       ' . x m l '   I N   p _ f n a m e   W I T H   ' . t x t '   I G N O R I N G   C A S E   . 
 
 
 
     g v _ f n a m e   =   p _ f n a m e . 
 
     C A L L   F U N C T I O N   ' G U I _ D O W N L O A D ' 
 
         E X P O R T I N G 
 
             f i l e n a m e                                 =   g v _ f n a m e 
 
             a p p e n d                                     =   '   ' 
 
             w r i t e _ l f                                 =   ' X ' 
 
         T A B L E S 
 
             d a t a _ t a b                                 =   i t _ s o u r c e 
 
         E X C E P T I O N S 
 
             f i l e _ w r i t e _ e r r o r                 =   1 
 
             n o _ b a t c h                                 =   2 
 
             g u i _ r e f u s e _ f i l e t r a n s f e r   =   3 
 
             i n v a l i d _ t y p e                         =   4 
 
             n o _ a u t h o r i t y                         =   5 
 
             u n k n o w n _ e r r o r                       =   6 
 
             h e a d e r _ n o t _ a l l o w e d             =   7 
 
             s e p a r a t o r _ n o t _ a l l o w e d       =   8 
 
             f i l e s i z e _ n o t _ a l l o w e d         =   9 
 
             h e a d e r _ t o o _ l o n g                   =   1 0 
 
             d p _ e r r o r _ c r e a t e                   =   1 1 
 
             d p _ e r r o r _ s e n d                       =   1 2 
 
             d p _ e r r o r _ w r i t e                     =   1 3 
 
             u n k n o w n _ d p _ e r r o r                 =   1 4 
 
             a c c e s s _ d e n i e d                       =   1 5 
 
             d p _ o u t _ o f _ m e m o r y                 =   1 6 
 
             d i s k _ f u l l                               =   1 7 
 
             d p _ t i m e o u t                             =   1 8 
 
             f i l e _ n o t _ f o u n d                     =   1 9 
 
             d a t a p r o v i d e r _ e x c e p t i o n     =   2 0 
 
             c o n t r o l _ f l u s h _ e r r o r           =   2 1 
 
             O T H E R S                                     =   2 2 . 
 
     I F   s y - s u b r c   < >   0 . 
 
         M E S S A G E   I D   s y - m s g i d   T Y P E   s y - m s g t y   N U M B E R   s y - m s g n o 
 
                         W I T H   s y - m s g v 1   s y - m s g v 2   s y - m s g v 3   s y - m s g v 4 . 
 
     E N D I F . 
 
 
 
     R E F R E S H   i t _ s o u r c e . 
 
 
 
 *     A P P E N D   ' d a t a :     l v _ s t r   t y p e   s t r i n g , '   T O   i t _ s o u r c e . 
 
 *     A P P E N D   '                 _ v _ f i l e n a m e   t y p e   s t r i n g . '   T O   i t _ s o u r c e . 
 
 *     A P P E N D   ' '   T O   i t _ s o u r c e . 
 
 
 
     A P P E N D   ' r e f r e s h   t _ x m l _ f i l e . '   T O   i t _ s o u r c e . 
 
     A P P E N D   ' r e f r e s h   t _ x m l _ h e a d e r . '   T O   i t _ s o u r c e . 
 
 
 
     L O O P   A T   g t _ d a t f l . 
 
         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   g t _ d a t f l   W I T H   ' ' ' ' ' ' . 
 
         f i n d   r e g e x   ' ( \ $ ! \ $ ) '   i n   g t _ d a t f l   S U B M A T C H E S   l v _ s t r     l v _ s t r 2 . 
 
         I F   s y - s u b r c   =   0 . 
 
             R E P L A C E   R E G E X   ' ( \ $ ! \ $ ) '   i n   g t _ d a t f l   W I T H   ' ' . 
 
             A P P E N D   ' '   t o   i t _ s o u r c e . 
 
             A P P E N D   ' " / - / * / * / * / * / - / * - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / - * / '   t o   i t _ s o u r c e . 
 
             A P P E N D   ' '   t o   i t _ s o u r c e . 
 
         E N D I F . 
 
 
 
         f i n d   r e g e x   ' ( s s : E x p a n d e d R o w C o u n t = " \ d + " ) '   i n   g t _ d a t f l   S U B M A T C H E S   l v _ s t r     l v _ s t r 2 . 
 
         I F   s y - s u b r c   =   0 . 
 
             R E P L A C E   R E G E X   ' ( s s : E x p a n d e d R o w C o u n t = " \ d + " ) '   i n   g t _ d a t f l   W I T H   ' ' . 
 
         E N D I F . 
 
 
 
         f i n d   R E G E X   ' ( \ $ # ( . * ) \ $ # ) '   i n   g t _ d a t f l   S U B M A T C H E S   l v _ s t r     l v _ s t r 2 . 
 
         I F   s y - s u b r c   =   0 . 
 
             C O N C A T E N A T E   ' p e r f o r m   t o _ u t f   C H A N G I N G '   l v _ s t r 2   ' . '   i n t o   l v _ s t r 3   S E P A R A T E D   B Y   s p a c e . 
 
             A P P E N D   l v _ s t r 3   t o   i t _ s o u r c e . 
 
 
 
             R E P L A C E   R E G E X   ' ( \ $ # ( . * ) \ $ # ) '   i n   g t _ d a t f l   W I T H   ' ' '   u t f _ o u t   ' ' ' . 
 
             C O N C A T E N A T E   ' c o n c a t e n a t e   ' ' '   g t _ d a t f l   ' ' '   i n t o   l v _ s t r _ x m l   .   " # # # # # # # #     < -         ?5@5<5==0O  745AL'   i n t o   l v _ s t r . 
 
             A P P E N D   l v _ s t r   t o   i t _ s o u r c e . 
 
 
 
 *             c o n c a t e n a t e   ' '   l v _ s t r 2   ' '   i n t o   l v _ s t r 2 . 
 
 *             s p l i t   g t _ d a t f l   a t   l v _ s t r   i n t o   t a b l e   i t _ s p l i t . 
 
 *             l v _ s t r 3   =   ' c o n c a t e n a t e   ' . 
 
 *             L O O P   A T   i t _ s p l i t . 
 
 *                 C O N C A T E N A T E   l v _ s t r 3   ' ' ' '   i t _ s p l i t   ' ' ' '   i n t o   l v _ s t r 3 . 
 
 *                 i f   s y - t a b i x   =   1 . 
 
 *                     c o n c a t e n a t e   l v _ s t r 3   ' u t f _ o u t '   i n t o   l v _ s t r 3 . 
 
 *               e n d i f . 
 
 *             E N D L O O P . 
 
 * 
 
 *             C O N C A T E N A T E   l v _ s t r 3   '   i n t o   l v _ s t r _ x m l   .   " # # # # # # # #     < -         ?5@5<5==0O  745AL'   I N T O   l v _ s t r 3   S E P A R A T E D   B Y   s p a c e . 
 
 *             A P P E N D   l v _ s t r 3   t o   i t _ s o u r c e . 
 
 
 
             l v _ s t r   =   ' x m l _ s i m p l e   l v _ s t r _ x m l   . ' . 
 
         e l s e . 
 
             C O N C A T E N A T E   ' x m l _ s i m p l e   ' ' '   g t _ d a t f l   ' ' ' . '   I N T O   l v _ s t r . 
 
         E N D I F . 
 
 
 
         A P P E N D   l v _ s t r   T O   i t _ s o u r c e . 
 
     E N D L O O P . 
 
 
 
     A P P E N D   ' c o n c a t e n a t e   ' ' R E P _ D C _ ' '   s y - d a t u m   s y - u z e i t   ' ' . x m l ' '   i n t o   _ v _ f i l e n a m e . '   T O   i t _ s o u r c e . 
 
 *     A P P E N D   ' x m l _ d o w n l o a d 2   ' ' C : \ T e m p \ ' '   _ v _ f i l e n a m e . '   T O   i t _ s o u r c e . 
 
     A P P E N D   ' x m l _ d o w n l o a d 4 .   '   T O   i t _ s o u r c e . 
 
 
 
     R E P L A C E       ' . t x t '   I N   p _ f n a m e   W I T H   ' 1 . t x t '   I G N O R I N G   C A S E   . 
 
 
 
     g v _ f n a m e   =   p _ f n a m e . 
 
     C A L L   F U N C T I O N   ' G U I _ D O W N L O A D ' 
 
         E X P O R T I N G 
 
             f i l e n a m e                                 =   g v _ f n a m e 
 
             a p p e n d                                     =   '   ' 
 
             w r i t e _ l f                                 =   ' X ' 
 
         T A B L E S 
 
             d a t a _ t a b                                 =   i t _ s o u r c e 
 
         E X C E P T I O N S 
 
             f i l e _ w r i t e _ e r r o r                 =   1 
 
             n o _ b a t c h                                 =   2 
 
             g u i _ r e f u s e _ f i l e t r a n s f e r   =   3 
 
             i n v a l i d _ t y p e                         =   4 
 
             n o _ a u t h o r i t y                         =   5 
 
             u n k n o w n _ e r r o r                       =   6 
 
             h e a d e r _ n o t _ a l l o w e d             =   7 
 
             s e p a r a t o r _ n o t _ a l l o w e d       =   8 
 
             f i l e s i z e _ n o t _ a l l o w e d         =   9 
 
             h e a d e r _ t o o _ l o n g                   =   1 0 
 
             d p _ e r r o r _ c r e a t e                   =   1 1 
 
             d p _ e r r o r _ s e n d                       =   1 2 
 
             d p _ e r r o r _ w r i t e                     =   1 3 
 
             u n k n o w n _ d p _ e r r o r                 =   1 4 
 
             a c c e s s _ d e n i e d                       =   1 5 
 
             d p _ o u t _ o f _ m e m o r y                 =   1 6 
 
             d i s k _ f u l l                               =   1 7 
 
             d p _ t i m e o u t                             =   1 8 
 
             f i l e _ n o t _ f o u n d                     =   1 9 
 
             d a t a p r o v i d e r _ e x c e p t i o n     =   2 0 
 
             c o n t r o l _ f l u s h _ e r r o r           =   2 1 
 
             O T H E R S                                     =   2 2 . 
 
     I F   s y - s u b r c   < >   0 . 
 
         M E S S A G E   I D   s y - m s g i d   T Y P E   s y - m s g t y   N U M B E R   s y - m s g n o 
 
                         W I T H   s y - m s g v 1   s y - m s g v 2   s y - m s g v 3   s y - m s g v 4 . 
 
     E N D I F . 