Get Classification status of item in Sales Order for variant configuration

Question

Hi Experts,
I want to get the classification status against the variant configuration of item in sales order.
When i enter the sales order in VA03 , at the item level, I select the item and click on item configuration icon below.
Here I can see the variant configuration. Now if I do not maintain the configuraiton correctly, then the classification status shows either locked or incomplete. When it is properly maintained  it shows released. ( When it is locked, the classificaiotn status shows a red signal at the left bottom corner).
My requirement is to capture this classification status at the item level of each Sales Order.
How can I get this.

Answer 1

Hi!
try this code:
* Initialization
  CALL FUNCTION 'CUDB_INIT'.
  CALL FUNCTION 'CE_C_INIT'.
* read configuration from database
  CALL FUNCTION 'CUCB_GET_CONFIGURATION'
       EXPORTING
            instance                     = vbap-cuobj
       IMPORTING
            configuration                = gt_configuration
       EXCEPTIONS
            invalid_instance             = 1
            instance_is_a_classification = 2
            OTHERS                       = 3.
  IF sy-subrc <> 0.
    WRITE: /'   No configuration data found!'.
    EXIT.
  ENDIF.
* only sinlgle-level configuration possible
  READ TABLE gt_configuration ASSIGNING <gs_instance> INDEX 1.
* get and show status
  SELECT SINGLE * FROM tclc WHERE
       klart EQ <gs_instance>-conf-klart
       AND statu EQ <gs_instance>-conf-cstatus.
  FORMAT COLOR COL_NORMAL.
  IF tclc-frei = 'X'.
    WRITE: /'Status:', icon_green_light AS ICON.
  ENDIF.
  IF tclc-gesperrt = 'X'.
    WRITE: /'Status:', icon_red_light AS ICON.
  ENDIF.
  IF tclc-unvollstm = 'X' OR tclc-unvollsts = 'X'.
    WRITE: /'Status:', icon_yellow_light AS ICON.
  ENDIF.
  FORMAT COLOR OFF.