Usage of virtual Charcterstic.

Question

Hi gurus,
I have a scenario where in need to populate ZINDICATOR with different status depending on the values in ZSTATUS.
And i want to do it at the time of the query execution and i have preferred to do it in Virtual Characterstic
i am giving the code below which i have copied from SDN and made some changes eventhough without much knowledge in ABAP, so kindly if somebody can guide me whether i am in right track or not....
***INCLUDE ZXRSRU02
DATA: L_S_CHANM TYPE RRKE_S_CHANM.
CASE I_S_RKB1D-INFOCUBE.
WHEN 'DEMOCUBE'.
L_S_CHANM-CHANM = 'ZINDICATOR'.
L_S_CHANM-MODE = RRKE_C_MODE-READ.
APPEND L_S_CHANM TO E_T_CHANM.
APPEND 'ZSTATUS' TO E_T_KYFNM.
ENDCASE.
The include ZXRSRTOP: global data
***INCLUDE ZXRSRTOP .
DATA: G_POS_DEMOCUBE_ZINDICATOR TYPE I.
DATA: G_POS_DEMOCUBE_ZSTATUS TYPE I.
The Include ZXRSRZZZ: Changing the data
***INCLUDE ZXRSRZZZ .
FORM USER_DEMOCUBE USING I_S_RKB1D TYPE RSR_S_RKB1D
CHANGING C_S_DATA TYPE ANY.
FIELD-SYMBOLS <L_ZINDICATOR>.
FIELD-SYMBOLS <L_ZSTATUS>.
ASSIGN COMPONENT G_POS_DEMOCUBE_ZINDICATOR
OF STRUCTURE C_S_DATA TO <L_ZINDICATOR>.
ASSIGN COMPONENT G_POS_DEMOCUBE_ZSTATUS
OF STRUCTURE C_S_DATA TO <L_ZSTATUS>.
Routine to get the ZINDICATOR
PERFORM GET_ZINDICATOR USING <L_ZSTATUS>
IF <ZSTATUS> EQ 1.
<L_ZINDICATOR> = 'ACCEPTED'.
ELSE
<ZSTATUS> EQ 2.
<L_ZINDICATOR> = 'REJECTED'.
ELSE
<ZSTATUS> EQ 3.
<L_ZINDICATOR> = 'INPROCESS'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
thanks and regards
Neel
Message was edited by:
        Neel Kamal

Answer 1

Hi,
As far as creating constant variables are concern its very simple..pls. go through
the below code which would not only tells you how to declare a constant variable
and it's usage..
coming to your second question you can also see how to handle the conditions..
Check the Blod Parts of the code;
***INCLUDE ZXRSRU02
DATA: L_S_CHANM TYPE RRKE_S_CHANM.
<b>Constant variable Delcaration EX:
DATA : L_ACCEPTED(8)      TYPE C VALUE 'ACCEPTED',
           L_REJECTED(8)  TYPE C VALUE 'REJECTED',
            L_INPROCESS(9)    TYPE C VALUE 'INPROCESS'.</b>
CASE I_S_RKB1D-INFOCUBE.
WHEN 'DEMOCUBE'.
L_S_CHANM-CHANM = 'ZINDICATOR'.
L_S_CHANM-MODE = RRKE_C_MODE-READ.
APPEND L_S_CHANM TO E_T_CHANM.
APPEND 'ZSTATUS' TO E_T_KYFNM.
ENDCASE.
The include ZXRSRTOP: global data
***INCLUDE ZXRSRTOP .
DATA: G_POS_DEMOCUBE_ZINDICATOR TYPE I.
DATA: G_POS_DEMOCUBE_ZSTATUS TYPE I.
The Include ZXRSRZZZ: Changing the data
***INCLUDE ZXRSRZZZ .
FORM USER_DEMOCUBE USING I_S_RKB1D TYPE RSR_S_RKB1D
CHANGING C_S_DATA TYPE ANY.
FIELD-SYMBOLS <L_ZINDICATOR>.
FIELD-SYMBOLS <L_ZSTATUS>.
ASSIGN COMPONENT G_POS_DEMOCUBE_ZINDICATOR
OF STRUCTURE C_S_DATA TO <L_ZINDICATOR>.
ASSIGN COMPONENT G_POS_DEMOCUBE_ZSTATUS
OF STRUCTURE C_S_DATA TO <L_ZSTATUS>.
Routine to get the ZINDICATOR
PERFORM GET_ZINDICATOR USING <L_ZSTATUS>
IF <ZSTATUS> EQ 1.  <b>instead IF <ZSTATUS> EQ '1' or IF <ZSTATUS> EQ '001'.</b>
<L_ZINDICATOR> = 'ACCEPTED'. <b>instead <L_ZINDICATOR> = L_ACCEPTED.</b>
ELSE
<ZSTATUS> EQ 2. <b>instead IF <ZSTATUS> EQ '2' or IF <ZSTATUS> EQ '002'.</b>
<L_ZINDICATOR> = 'REJECTED'. <b>instead <L_ZINDICATOR> = L_REJECTED.</b>
ELSE
<ZSTATUS> EQ 3.
<L_ZINDICATOR> = 'INPROCESS'.  <b>instead <L_ZINDICATOR> = L_INPROCESS.</b>
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
Hope it helps..
assign points if useful..
Cheers,
Pattan.
Message was edited by:
        Nasiroddin Pattan