ISU_DISCDOC_ENVIRONMENT_SELECT SAP Function module - Private: Determine Environment for Disconnection Order / Disconnection

ISU_DISCDOC_ENVIRONMENT_SELECT 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 ISU_DISCDOC_ENVIRONMENT_SELECT into the relevant SAP transaction such as SE37 or SE80.

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

Pattern for FM ISU_DISCDOC_ENVIRONMENT_SELECT - ISU DISCDOC ENVIRONMENT SELECT

CALL FUNCTION 'ISU_DISCDOC_ENVIRONMENT_SELECT' "Private: Determine Environment for Disconnection Order / Disconnection
  EXPORTING
    x_is_compl =                " ebagen-kennzx  General Checkbox: X or SPACE
    x_is_discor =               " ebagen-kennzx  General Checkbox: X or SPACE
*   x_is_disced =               " ebagen-kennzx  General Checkbox: X or SPACE
*   x_wact =                    " ediscact
  IMPORTING
    yt_locked_dvalobj =         " dvalobj_tab   Internal: DD Management for Disconnection Objects
  TABLES
    xt_eanl =                   " v_eanl        Generated Table for View &
    xt_eger =                   " v_eger        Generated Table for View &
    yt_dvalobj =                " isu_ediscdvalobj  Internal: DD Management for Disconnection Objects
    yt_inv_discdoc =            " isu_i_inv_discdoc  Disconnection document number
  CHANGING
    xy_obj =                    " isu05_discdoc_internal
  EXCEPTIONS
    GENERAL_ERROR = 1           "
    .  "  ISU_DISCDOC_ENVIRONMENT_SELECT

ABAP code example for Function Module ISU_DISCDOC_ENVIRONMENT_SELECT

The ABAP code below is a full code listing to execute function module ISU_DISCDOC_ENVIRONMENT_SELECT 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:
ld_yt_locked_dvalobj  
 
 TYPE DVALOBJ_TAB
,
it_xt_eanl  
 
 TYPE STANDARD TABLE OF V_EANL,"TABLES PARAM
wa_xt_eanl
 
 LIKE LINE OF it_xt_eanl
,
it_xt_eger  
 
 TYPE STANDARD TABLE OF V_EGER,"TABLES PARAM
wa_xt_eger
 
 LIKE LINE OF it_xt_eger
,
it_yt_dvalobj  
 
 TYPE STANDARD TABLE OF ISU_EDISCDVALOBJ,"TABLES PARAM
wa_yt_dvalobj
 
 LIKE LINE OF it_yt_dvalobj
,
it_yt_inv_discdoc  
 
 TYPE STANDARD TABLE OF ISU_I_INV_DISCDOC,"TABLES PARAM
wa_yt_inv_discdoc
 
 LIKE LINE OF it_yt_inv_discdoc
.


DATA(ld_xy_obj) = 'Check type of data required'.


DATA(ld_x_is_compl) = some text here


DATA(ld_x_is_discor) = some text here


DATA(ld_x_is_disced) = some text here

DATA(ld_x_wact) = 'Check type of data required'.
 

"populate fields of struture and append to itab
append wa_xt_eanl to it_xt_eanl.
 

"populate fields of struture and append to itab
append wa_xt_eger to it_xt_eger.
 

"populate fields of struture and append to itab
append wa_yt_dvalobj to it_yt_dvalobj.
 

"populate fields of struture and append to itab
append wa_yt_inv_discdoc to it_yt_inv_discdoc.
.

CALL FUNCTION 'ISU_DISCDOC_ENVIRONMENT_SELECT'
  EXPORTING
    x_is_compl =                 ld_x_is_compl
    x_is_discor =                ld_x_is_discor
*   x_is_disced =                ld_x_is_disced
*   x_wact =                     ld_x_wact
  IMPORTING
    yt_locked_dvalobj =          ld_yt_locked_dvalobj
  TABLES
    xt_eanl =                    it_xt_eanl
    xt_eger =                    it_xt_eger
    yt_dvalobj =                 it_yt_dvalobj
    yt_inv_discdoc =             it_yt_inv_discdoc
  CHANGING
    xy_obj =                     ld_xy_obj
  EXCEPTIONS
    GENERAL_ERROR =              1
    .  "  ISU_DISCDOC_ENVIRONMENT_SELECT

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
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_xy_obj
 
 TYPE ISU05_DISCDOC_INTERNAL ,
ld_yt_locked_dvalobj
 
 TYPE DVALOBJ_TAB ,
ld_x_is_compl
 
 TYPE EBAGEN-KENNZX ,
it_xt_eanl
 
 TYPE STANDARD TABLE OF V_EANL ,
wa_xt_eanl
 
 LIKE LINE OF it_xt_eanl,
ld_x_is_discor
 
 TYPE EBAGEN-KENNZX ,
it_xt_eger
 
 TYPE STANDARD TABLE OF V_EGER ,
wa_xt_eger
 
 LIKE LINE OF it_xt_eger,
ld_x_is_disced
 
 TYPE EBAGEN-KENNZX ,
it_yt_dvalobj
 
 TYPE STANDARD TABLE OF ISU_EDISCDVALOBJ ,
wa_yt_dvalobj
 
 LIKE LINE OF it_yt_dvalobj,
ld_x_wact
 
 TYPE EDISCACT ,
it_yt_inv_discdoc
 
 TYPE STANDARD TABLE OF ISU_I_INV_DISCDOC ,
wa_yt_inv_discdoc
 
 LIKE LINE OF it_yt_inv_discdoc.


ld_xy_obj = 'Check type of data required'.

ld_x_is_compl = some text here 

"populate fields of struture and append to itab
append wa_xt_eanl to it_xt_eanl.

ld_x_is_discor = some text here 

"populate fields of struture and append to itab
append wa_xt_eger to it_xt_eger.

ld_x_is_disced = some text here 

"populate fields of struture and append to itab
append wa_yt_dvalobj to it_yt_dvalobj.
ld_x_wact = 'Check type of data required'. 

"populate fields of struture and append to itab
append wa_yt_inv_discdoc to it_yt_inv_discdoc.