J_3G_LOADING_COST_DEFAULT SAP Function module - Default Billing Indicator on Item Level

J_3G_LOADING_COST_DEFAULT is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name J_3G_LOADING_COST_DEFAULT into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: J3GM
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM J_3G_LOADING_COST_DEFAULT - J 3G LOADING COST DEFAULT

CALL FUNCTION 'J_3G_LOADING_COST_DEFAULT' "Default Billing Indicator on Item Level
  EXPORTING
    i_atyp =                    " kna1-j_3getyp  Recipient Type Sender
    i_etyp =                    " kna1-j_3getyp  Recipient Type Recipient
    i_beweg =                   " j_3gbelk-j_3gbeweg  Internal Indicator for Transaction Type
    i_absdeb =                  " j_3gbelk-j_3gabsdeb  Debtor of Sender
    i_empdeb =                  " j_3gbelk-j_3gempdeb  Debtor of Recipient
    i_blart =                   " j_3gbelk-j_3gblart  Document Type - ETM
* TABLES
*   xbelp =                     " j_3gbelp_s    Shipping Document Item (Equipment)
*   xbelp_bal =                 " j_3gbelp_s    Document Item (Material)
    .  "  J_3G_LOADING_COST_DEFAULT

ABAP code example for Function Module J_3G_LOADING_COST_DEFAULT

The ABAP code below is a full code listing to execute function module J_3G_LOADING_COST_DEFAULT including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
it_xbelp  
 
 TYPE STANDARD TABLE OF J_3GBELP_S,"TABLES PARAM
wa_xbelp
 
 LIKE LINE OF it_xbelp
,
it_xbelp_bal  
 
 TYPE STANDARD TABLE OF J_3GBELP_S,"TABLES PARAM
wa_xbelp_bal
 
 LIKE LINE OF it_xbelp_bal
.

 

SELECT single J_3GETYP 
  FROM KNA1 
  INTO @DATA(ld_i_atyp).

 

SELECT single J_3GETYP 
  FROM KNA1 
  INTO @DATA(ld_i_etyp).

 

SELECT single J_3GBEWEG 
  FROM J_3GBELK 
  INTO @DATA(ld_i_beweg).

 

SELECT single J_3GABSDEB 
  FROM J_3GBELK 
  INTO @DATA(ld_i_absdeb).

 

SELECT single J_3GEMPDEB 
  FROM J_3GBELK 
  INTO @DATA(ld_i_empdeb).

 

SELECT single J_3GBLART 
  FROM J_3GBELK 
  INTO @DATA(ld_i_blart).

 

"populate fields of struture and append to itab
append wa_xbelp to it_xbelp.
 

"populate fields of struture and append to itab
append wa_xbelp_bal to it_xbelp_bal.
.

CALL FUNCTION 'J_3G_LOADING_COST_DEFAULT'
  EXPORTING
    i_atyp =                     ld_i_atyp
    i_etyp =                     ld_i_etyp
    i_beweg =                    ld_i_beweg
    i_absdeb =                   ld_i_absdeb
    i_empdeb =                   ld_i_empdeb
    i_blart =                    ld_i_blart
* TABLES
*   xbelp =                      it_xbelp
*   xbelp_bal =                  it_xbelp_bal
    .  "  J_3G_LOADING_COST_DEFAULT

IF SY-SUBRC EQ 0.
  "All OK
ENDIF.

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_i_atyp
 
 TYPE KNA1-J_3GETYP ,
it_xbelp
 
 TYPE STANDARD TABLE OF J_3GBELP_S ,
wa_xbelp
 
 LIKE LINE OF it_xbelp,
ld_i_etyp
 
 TYPE KNA1-J_3GETYP ,
it_xbelp_bal
 
 TYPE STANDARD TABLE OF J_3GBELP_S ,
wa_xbelp_bal
 
 LIKE LINE OF it_xbelp_bal,
ld_i_beweg
 
 TYPE J_3GBELK-J_3GBEWEG ,
ld_i_absdeb
 
 TYPE J_3GBELK-J_3GABSDEB ,
ld_i_empdeb
 
 TYPE J_3GBELK-J_3GEMPDEB ,
ld_i_blart
 
 TYPE J_3GBELK-J_3GBLART .



SELECT single J_3GETYP 
  FROM KNA1 
  INTO ld_i_atyp.
 

"populate fields of struture and append to itab
append wa_xbelp to it_xbelp.

SELECT single J_3GETYP 
  FROM KNA1 
  INTO ld_i_etyp.
 

"populate fields of struture and append to itab
append wa_xbelp_bal to it_xbelp_bal.

SELECT single J_3GBEWEG 
  FROM J_3GBELK 
  INTO ld_i_beweg.


SELECT single J_3GABSDEB 
  FROM J_3GBELK 
  INTO ld_i_absdeb.


SELECT single J_3GEMPDEB 
  FROM J_3GBELK 
  INTO ld_i_empdeb.


SELECT single J_3GBLART 
  FROM J_3GBELK 
  INTO ld_i_blart.