REDUCE- SUM in ABAP

                                    Refer - Introduction to REDUCE keyword


Report-Old

    REPORT zab_rp_reduce_sum.

    TABLES: vbak.
    DATA: sum1 TYPE netwr_ak,
          sum2 TYPE netwr_ak,
          sum3 TYPE netwr_ak.
    SELECT-OPTIONS : s_vbeln FOR vbak-vbeln.

    IF s_vbeln IS NOT INITIAL.
      SELECT vbeln,vbtyp,netwr
        FROM vbak
        INTO TABLE @DATA(lt_vbak)
        WHERE vbeln IN @s_vbeln.
    ENDIF.

    LOOP AT lt_vbak INTO DATA(lr_vbak).
      IF lr_vbak-vbtyp = 'A'.
        sum1 = sum1 + lr_vbak-netwr.
      ENDIF.
      IF lr_vbak-vbtyp = 'B'.
        sum2 = sum2 + lr_vbak-netwr.
      ENDIF.
      IF lr_vbak-vbtyp = 'C'.
        sum3 = sum3 + lr_vbak-netwr.
      ENDIF.
    ENDLOOP.

    WRITE: / 'Sum of amount for A is ', sum1.
    WRITE: / 'Sum of amount for B is ', sum2.
    WRITE: / 'Sum of amount for C is ', sum3.

Report-NEW

    REPORT zab_rp_reduce_sum.

    TABLES: vbak.
    DATA: sum1 TYPE netwr_ak,
          sum2 TYPE netwr_ak,
          sum3 TYPE netwr_ak.
    SELECT-OPTIONS : s_vbeln FOR vbak-vbeln.

    IF s_vbeln IS NOT INITIAL.
      SELECT vbeln,vbtyp,netwr
        FROM vbak
        INTO TABLE @DATA(lt_vbak)
        WHERE vbeln IN @s_vbeln.
    ENDIF.
    sum1 = REDUCE #( INIT c = 0 FOR lr_vbak in lt_vbak WHERE ( vbtyp = 'A' ) NEXT c = c + lr_vbak-netwr ).
    sum2 = REDUCE #( INIT c = 0 FOR lr_vbak in lt_vbak WHERE ( vbtyp = 'B' ) NEXT c = c + lr_vbak-netwr ).
    sum3 = REDUCE #( INIT c = 0 FOR lr_vbak in lt_vbak WHERE ( vbtyp = 'C' ) NEXT c = c + lr_vbak-netwr ).
    WRITE: / 'Sum of amount for A is ', sum1.
    WRITE: / 'Sum of amount for B is ', sum2.
    WRITE: / 'Sum of amount for C is ', sum3.


Input



Output



********************************Thank You*****************************

Comments

Post a Comment

Popular posts from this blog

Custom entity/Action dialog in RAP using Unmanaged scenario

Image
A custom action is like a button (e.g., Approve , Submit ) shown in the Fiori app. A dialog is a popup where the user can enter some input before performing the action.                    Refer:-  Determination + Side effects(On Modify) in RAP Unmanaged                    Refer:-  Determination + Side effects (On Save) in RAP Unmanaged Step 1:   Create behavior definition for abstract entity.          * Right click on Core data service - New - data definition.          * Give name and description.          * Click on Next.          * Select Abstract entity with parameters and click on finish. @EndUserText.label: 'Abstart entity for status field' @Metadata.allowExtensions: true define abstract entity ZA_AB_STUH_13 //with parameters parameter_name : paramet...
Read more

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more