Read field status settings for account assignment block

FUNCTION z_fieldstatus_getdetail.
*”———————————————————————-
*”*”Lokale Schnittstelle:
*” IMPORTING
*” VALUE(I_BSCHL) TYPE BSCHL
*” VALUE(I_BUKRS) TYPE BUKRS
*” VALUE(I_SAKNR) TYPE SAKNR
*” TABLES
*” T_COBLF STRUCTURE COBLF
*” T_FIELDS STRUCTURE TCOBF OPTIONAL
*” EXCEPTIONS
*” ERROR_MESSAGE
*”———————————————————————-
***
* liefert Feldstatus in Liste t_coblf:
* Feldname (DDIC) nicht in der Liste -> Feld ausgeblendet
* Feldname (DDIC) in der Liste -> Feld eingabebereit
* required = 1:
* Mussfeld;
* required = 0: kein Mussfeld
* active = 0: Feld ausgblendet
* Als Hilfstabelle wird die gesamte Feldliste der Felder (t_fields)
* ausgegeben,
* deren Eingabebereitschaft im Customizing steht

DATA: ls_faus1 LIKE tbsl-faus1.
DATA: ls_faus2 LIKE tbsl-faus2.
* Feldstatus holen
CALL FUNCTION ‘FI_FIELD_SELECTION_DETERMINE’
EXPORTING
i_bschl     = i_bschl
i_bukrs     = i_bukrs
i_saknr     = i_saknr
IMPORTING
e_faus1     = ls_faus1
e_faus2     = ls_faus2
EXCEPTIONS
customizing = 1
OTHERS      = 2.
IF sy-subrc <> 0.
MESSAGE a613(/ssc/comon).
ENDIF.
DATA lv_char.
DATA int_coblf LIKE coblf OCCURS 0 WITH HEADER LINE.
DATA p_cobl LIKE cobl.
DATA: dummy_ktosl LIKE bseg-ktosl.

PERFORM kontierungsblock_ermitteln(sapff001)
TABLES int_coblf
USING lv_char(1)
ls_faus1 ls_faus2 dummy_ktosl.
t_coblf[] = int_coblf[].
SELECT * FROM tcobf INTO TABLE t_fields.

ENDFUNCTION.