Monday 17 August 2015

SAP ALV using tree Concept SAP ALV reports

 & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* &   R e p o r t     Z _ S i m p l e t r e e                                                                                   *
* &   A u t h o r   :   S w a r n a . S .                                                                                       *
* &   P u b l i s h e d   a t   S A P T e c h n i c a l . C O M
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* &   A S   :   S i m p l e   t r e e   r e p o r t   u s i n g   R S _ T R E E _ C O N S T R U C T                             *
* &   a n d   R S _ T R E E _ L I S T _ D I S P L A Y   u p t o   6   l e v e l s                                               *
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
R E P O R T     z _ s i m p l e t r e e .
*   t y p e   p o o l   d e c l a r a t i o n s   f o r   t r e e
T Y P E - P O O L S   :   f i b s , s t r e e .
* D a t a   d e c l a r a t i o n   f o r   a d d i t i o n a l   n o d e   i n f o r m a t i o n
D A T A   :   t _ n o d e   T Y P E   s n o d e t e x t .
* I n t e r n a l   t a b l e   a n d   w a   d e c l   f o r   n o d e s
D A T A   :   i t _ n o d e   L I K E   T A B L E   O F   t _ n o d e   I N I T I A L   S I Z E   0 ,
w a _ n o d e   L I K E   t _ n o d e .
* I n t e r n a l   t a b l e   a n d   w a   d e c l   f o r   E d u c a t i o n   t a b l e   P A 0 0 2 2
D A T A   :   i t _ 0 0 2 2   T Y P E   S T A N D A R D   T A B L E   O F   p a 0 0 2 2   I N I T I A L   S I Z E   0 ,
w a _ 0 0 2 2   T Y P E   p a 0 0 2 2 .
* I n t e r n a l   t a b l e   a n d   w a   d e c l   f o r   t e x t   t a b l e   t 5 1 7 x
D A T A   :   i t _ 5 1 7 x   T Y P E   S T A N D A R D   T A B L E   O F   t 5 1 7 x   I N I T I A L   S I Z E   0 ,
w a _ 5 1 7 x   T Y P E   t 5 1 7 x .
* I n t e r n a l   t a b l e   a n d   w a   d e c l   f o r   t e x t   t a b l e   t 5 1 7 T
D A T A   :   i t _ 5 1 7 t   T Y P E   S T A N D A R D   T A B L E   O F   t 5 1 7 t   I N I T I A L   S I Z E   0 ,
w a _ 5 1 7 t   T Y P E   t 5 1 7 t .
* I n t e r n a l   t a b l e   a n d   w a   d e c l   f o r   t e x t   t a b l e   t 5 1 9 T
D A T A   :   i t _ 5 1 9 t   T Y P E   S T A N D A R D   T A B L E   O F   t 5 1 9 t   I N I T I A L   S I Z E   0 ,
w a _ 5 1 9 t   T Y P E   t 5 1 9 t .
* i n i t i a l i z a t i o n   e v e n t
I N I T I A L I Z A T I O N .
* S t a r t   o f   s e l e c t i o n     e v e n t
S T A R T - O F - S E L E C T I O N .
* S e l e c t   t h e   d a t a   f o r   t r e e
P E R F O R M   f e t c h _ d a t a .
* B u i l d   t h e   h i e r a r c h y   f o r   t r e e
P E R F O R M   b u i l d _ h i e r a r c h y .
* B u i l d   T r e e   f o r   d i s p l a y
P E R F O R M   b u i l d _ t r e e .
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* &             F o r m     f e t c h _ d a t a
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*               t e x t


* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*     - - >     p 1                 t e x t
*     < - -     p 2                 t e x t
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
F O R M   f e t c h _ d a t a   .
* s e l e c t   d a t a   f r o m   P A 0 0 2 2
S E L E C T   *   F R O M   p a 0 0 2 2   I N T O   C O R R E S P O N D I N G   F I E L D S   O F   T A B L E   i t _ 0 0 2 2
U P   T O   5 0   R O W S .
* s e l e c t   d a t a   f r o m   T 5 1 7 x
S E L E C T   *   F R O M   t 5 1 7 x   I N T O   C O R R E S P O N D I N G   F I E L D S   O F   T A B L E   i t _ 5 1 7 x
W H E R E   l a n g u   =   ' E ' .
* s e l e c t   d a t a   f r o m   T 5 1 7 T
S E L E C T   *   F R O M   t 5 1 7 t   I N T O   C O R R E S P O N D I N G   F I E L D S   O F   T A B L E   i t _ 5 1 7 t
W H E R E   s p r s l   =   ' E ' .
* s e l e c t   d a t a   f r o m   T 5 1 9 t
S E L E C T   *   F R O M   t 5 1 9 t   I N T O   C O R R E S P O N D I N G   F I E L D S   O F   T A B L E   i t _ 5 1 9 t
W H E R E   s p r s l   =   ' E ' .
E N D F O R M .                                         "   f e t c h _ d a t a
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* &             F o r m     b u i l d _ h i e r a r c h y
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*               t e x t
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*     - - >     p 1                 t e x t
*     < - -     p 2                 t e x t
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
F O R M   b u i l d _ h i e r a r c h y   .
* B u i l d i n g   t h e   n o d e s   a n d   h i e r a r c h y   f o r   t r e e
C L E A R   :   i t _ n o d e [ ] ,   w a _ n o d e .
w a _ n o d e - t y p e   =   ' T ' .
w a _ n o d e - n a m e   =   ' E d u c a t i o n ' .
w a _ n o d e - t l e v e l   =   ' 0 1 ' .
w a _ n o d e - n l e n g t h   =   ' 1 5 ' .
w a _ n o d e - c o l o r   =   ' 4 ' .
w a _ n o d e - t e x t   =   ' I n f o t y p e   0 0 2 2 ' .
w a _ n o d e - t l e n g t h   = ' 2 0 ' .
w a _ n o d e - t c o l o r   =   3 .
A P P E N D   w a _ n o d e   T O   i t _ n o d e .
C L E A R   w a _ n o d e .
* F i l l i n g   t h e   v a l u e s   o f   i n t e r n a l   t a b l e   i n t o   t r e e
L O O P   A T   i t _ 0 0 2 2   I N T O   w a _ 0 0 2 2 .
w a _ n o d e - t y p e   =   ' P ' .
w a _ n o d e - n a m e   =   ' P E R N R ' .
w a _ n o d e - t l e v e l   =   ' 0 2 ' .
w a _ n o d e - n l e n g t h   =   ' 8 ' .
w a _ n o d e - c o l o r   =   ' 1 ' .
w a _ n o d e - t e x t   =   w a _ 0 0 2 2 - p e r n r .
w a _ n o d e - t l e n g t h   = ' 2 0 ' .
w a _ n o d e - t c o l o r   =   4 .
A P P E N D   w a _ n o d e   T O   i t _ n o d e .
C L E A R   w a _ n o d e .
* F i l l i n g   t h e   t e x t   o f   T 5 1 7 t
R E A D   T A B L E   i t _ 5 1 7 t   I N T O   w a _ 5 1 7 t   W I T H   K E Y   s l a r t   =   w a _ 0 0 2 2 - s l a r t .
w a _ n o d e - t y p e   =   ' P ' .
w a _ n o d e - n a m e   =   w a _ 0 0 2 2 - s l a r t .
w a _ n o d e - t l e v e l   =   ' 0 3 ' .
w a _ n o d e - n l e n g t h   =   ' 8 ' .
w a _ n o d e - c o l o r   =   ' 1 ' .
w a _ n o d e - t e x t   =   w a _ 5 1 7 t - s t e x t .
w a _ n o d e - t l e n g t h   = ' 4 0 ' .
w a _ n o d e - t c o l o r   =   4 .
A P P E N D   w a _ n o d e   T O   i t _ n o d e .
C L E A R   w a _ n o d e .


* F i l l i n g   t h e   t e x t   o f   T 5 1 9 t
R E A D   T A B L E   i t _ 5 1 9 t   I N T O   w a _ 5 1 9 t   W I T H   K E Y   s l a b s   =   w a _ 0 0 2 2 - s l a b s .
w a _ n o d e - t y p e   =   ' P ' .
w a _ n o d e - n a m e   =   w a _ 0 0 2 2 - s l a b s .
w a _ n o d e - t l e v e l   =   ' 0 4 ' .
w a _ n o d e - n l e n g t h   =   ' 8 ' .
w a _ n o d e - c o l o r   =   ' 2 ' .
w a _ n o d e - t e x t   =   w a _ 5 1 9 t - s t e x t .
w a _ n o d e - t l e n g t h   = ' 4 0 ' .
w a _ n o d e - t c o l o r   =   4 .
A P P E N D   w a _ n o d e   T O   i t _ n o d e .
C L E A R   w a _ n o d e .
* F i l l i n g   t h e   t e x t   o f   T 5 1 7 x
R E A D   T A B L E   i t _ 5 1 7 x   I N T O   w a _ 5 1 7 x   W I T H   K E Y   f a a r t   =   w a _ 0 0 2 2 - s l t p 1 .
w a _ n o d e - t y p e   =   ' P ' .
w a _ n o d e - n a m e   =   w a _ 0 0 2 2 - s l t p 1 .
w a _ n o d e - t l e v e l   =   ' 0 5 ' .
w a _ n o d e - n l e n g t h   =   ' 8 ' .
w a _ n o d e - c o l o r   =   ' 1 ' .
w a _ n o d e - t e x t   =   w a _ 5 1 7 x - f t e x t .
w a _ n o d e - t l e n g t h   = ' 4 0 ' .
w a _ n o d e - t c o l o r   =   4 .
A P P E N D   w a _ n o d e   T O   i t _ n o d e .
C L E A R   w a _ n o d e .
w a _ n o d e - t y p e   =   ' P ' .
w a _ n o d e - n a m e   =   w a _ 0 0 2 2 - z z p e r .
w a _ n o d e - t l e v e l   =   ' 0 6 ' .
w a _ n o d e - n l e n g t h   =   ' 8 ' .
w a _ n o d e - c o l o r   =   ' 1 ' .
w a _ n o d e - t e x t   =   ' %   C o m p l e t e d ' .
w a _ n o d e - t l e n g t h   = ' 1 5 ' .
w a _ n o d e - t c o l o r   =   4 .
A P P E N D   w a _ n o d e   T O   i t _ n o d e .
C L E A R   w a _ n o d e .
E N D L O O P .
E N D F O R M .                                         "   b u i l d _ h i e r a r c h y
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
* &             F o r m     b u i l d _ t r e e
* & - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*               t e x t
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
*     - - >     p 1                 t e x t
*     < - -     p 2                 t e x t
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
F O R M   b u i l d _ t r e e   .
* F m   f o r   c o n s t r u c t i n g   t h e   t r e e
C A L L   F U N C T I O N   ' R S _ T R E E _ C O N S T R U C T '
T A B L E S
n o d e t a b   =   i t _ n o d e .
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 .
* F M   f o r   d i s p l a y i n g   t h e   t r e e
C A L L   F U N C T I O N   ' R S _ T R E E _ L I S T _ D I S P L A Y '
E X P O R T I N G
c a l l b a c k _ p r o g r a m           =   s y - r e p i d
c h e c k _ d u p l i c a t e _ n a m e   =   ' 1 '
c o l o r _ o f _ n o d e                 =   ' 4 '
c o l o r _ o f _ m a r k                 =   ' 3 '
c o l o r _ o f _ l i n k                 =   ' 1 '
c o l o r _ o f _ m a t c h               =   ' 5 '
n o d e _ l e n g t h                     =   3 0
t e x t _ l e n g t h                     =   7 5


No comments:

Post a Comment