topic Re: ABAP Code Corrections in Application Development and Automation Discussions

ABAP Code Corrections

Former Member — Mon, 07 Jul 2008 19:12:25 GMT

Hi Experts

Please correct the ABAP CODE written as Field routine in Transformations

Requirment

If ZB_AMT = '0.00'

then result should be '0.00'

If ZB_AMT '0.00' and

SOURCE_FIELDS-/BIC/ZB_TPE1 = 'AMOUNT'

the result should be

CONCATENATE '$' SOURCE_FIELDS-/BIC/ZB_AMT INTO RESULT.

If ZB_AMT '0.00' and

SOURCE_FIELDS-/BIC/ZB_TPE1 = 'PERCENTAGE'

the result should be

CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.

The code below is not working as it should please update me where i went wrong

Source Fields

SOURCE_FIELDS-/BIC/ZB_AMT (CHAR)

SOURCE_FIELDS-/BIC/ZB_TPE1 (CHAR)

CODE

IF SOURCE_FIELDS-/BIC/ZB_AMT = '0.00'.

RESULT = '0.00'.

ELSE.

IF SOURCE_FIELDS-/BIC/ZB_TPE1 = 'AMOUNT' AND

SOURCE_FIELDS-/BIC/ZB_AMT '0.00'.

CONCATENATE '$' SOURCE_FIELDS-/BIC/ZBON_AMT INTO RESULT.

IF SOURCE_FIELDS-/BIC/ZB_TPE1 = 'PERCENTAGE' AND

SOURCE_FIELDS-/BIC/ZB_AMT '0.00'.

CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.

ENDIF.

Re: ABAP Code Corrections

former_member156446 — Mon, 07 Jul 2008 19:18:22 GMT

If ZB_AMT '0.00' and

SOURCE_FIELDS-/BIC/ZB_TPE1 = 'AMOUNT'

the result should be

CONCATENATE '$' SOURCE_FIELDS-/BIC/ZB_AMT INTO RESULT.

If ZB_AMT '0.00' and

SOURCE_FIELDS-/BIC/ZB_TPE1 = 'PERCENTAGE'

the result should be

CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.


if zb_amt = '0.00' and SOURCE_FIELDS-/BIC/ZB_TPE1 = 'AMOUNT'.
CONCATENATE '$' SOURCE_FIELDS-/BIC/ZB_AMT INTO RESULT.
endif.

if zb_amt = '0.00' and SOURCE_FIELDS-/BIC/ZB_TPE1 = 'PERCENTAGE'.
CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.
endif.

you can use a case statement as well


if zb_amt = '0.00'.
case SOURCE_FIELDS-/BIC/ZB_TPE1.
when 'AMOUNT'.
CONCATENATE '$' SOURCE_FIELDS-/BIC/ZB_AMT INTO RESULT.
when 'PERCENTAGE'.
CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.
endcase.
endif.

Re: ABAP Code Corrections

Former Member — Mon, 07 Jul 2008 19:26:46 GMT

Hi Jay,

Thanks for the update...Sorry i wasn't not clear in my posting

My requirment

If ZB_AMT = '0.00'

Then the result should be '0.00'

endif.

else

if ZB_AMT <> (not equal) '0.00' and

SOURCE_FIELDS-/BIC/ZB_TPE1 = 'AMOUNT'

the result should be

CONCATENATE '$' SOURCE_FIELDS-/BIC/ZB_AMT INTO RESULT.

If ZB_AMT <> (not equal) '0.00' and

SOURCE_FIELDS-/BIC/ZB_TPE1 = 'PERCENTAGE'

the result should be

CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.

Re: ABAP Code Corrections

Former Member — Mon, 07 Jul 2008 19:27:00 GMT

Try this...

IF SOURCE_FIELDS-/BIC/ZB_AMT = '0.00'.

RESULT = '0.00'.

ELSE.

IF SOURCE_FIELDS-/BIC/ZB_TPE1 = 'AMOUNT' AND

SOURCE_FIELDS-/BIC/ZB_AMT '0.00'.

CONCATENATE '$' SOURCE_FIELDS-/BIC/ZBON_AMT INTO RESULT.

ENDIF.

IF SOURCE_FIELDS-/BIC/ZB_TPE1 = 'PERCENTAGE' AND

SOURCE_FIELDS-/BIC/ZB_AMT '0.00'.

CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.

ENDIF.

Regards,

Joy.

Re: ABAP Code Corrections

former_member156446 — Mon, 07 Jul 2008 19:40:13 GMT

if zb_amt NE '0.00'.
case SOURCE_FIELDS-/BIC/ZB_TPE1.
when 'AMOUNT'.
CONCATENATE '$' SOURCE_FIELDS-/BIC/ZB_AMT INTO RESULT.
when 'PERCENTAGE'.
CONCATENATE SOURCE_FIELDS-/BIC/ZB_AMT '%' INTO RESULT.
endcase.

else.
move '0.00' to result.
endif.

Re: ABAP Code Corrections

Former Member — Tue, 08 Jul 2008 07:05:35 GMT

Hi...

Please update