SAP CRM Service Request subjet storage design

PARAMETERS: id TYPE crmt_object_id OBLIGATORY DEFAULT '8000000010'.

DATA: lv_guid  TYPE crmt_object_guid,
      ls_osset TYPE crmt_srv_osset_wrk.

SELECT SINGLE header_guid INTO lv_guid FROM crms4d_serv_h WHERE object_id = id.

IF sy-subrc <> 0.
  WRITE:/ 'No service request found for id:', id.
  RETURN.
ENDIF.

CALL FUNCTION 'CRM_SERVICE_OS_READ_OB'
  EXPORTING
    iv_ref_guid      = lv_guid
    iv_ref_kind      = 'A'
  IMPORTING
    es_srv_osset_wrk = ls_osset.

LOOP AT ls_osset-osset ASSIGNING FIELD-SYMBOL(<osset>).
  LOOP AT <osset>-subject ASSIGNING FIELD-SYMBOL(<subject>).
    WRITE:/ |sort： { <subject>-sort }, ASP id: { <subject>-asp_id }, CAT id: { <subject>-cat_id }| COLOR COL_NEGATIVE.
  ENDLOOP.
ENDLOOP.