SO text in ALV

Hi Guys,

I am developing a ALV list report ( to wrap texts) to display SO header and item texts.

In the below code- I face the this problem.

If header text in SO has 2 lines and item text has 5 lines, it prints only

2lines of item text.

*---Header Text
     v_head_name = wa_out-vbeln.

     CALL FUNCTION 'READ_TEXT'
       EXPORTING
         id                      = 'ZOR5'
         language                = 'E'
         name                    = v_head_name
         object                  = 'VBBK'
       TABLES
         lines                   = gt_head_txt
       EXCEPTIONS
         id                      = 1
         language                = 2
         name                    = 3
         not_found               = 4
         object                  = 5
         reference_check         = 6
         wrong_access_to_archive = 7
         OTHERS                  = 8.

     IF sy-subrc EQ 0.
       DELETE gt_head_txt WHERE tdline = ''.
       CLEAR : v_tabix , it_sentence_h.
       LOOP AT gt_head_txt INTO wa_head_txt.
         v_tabix = sy-tabix.
         CALL FUNCTION 'RKD_WORD_WRAP'
           EXPORTING
             textline            = wa_head_txt-tdline
             outputlen           = c_len
           TABLES
             out_lines           = it_sentence_h
           EXCEPTIONS
             outputlen_too_large = 1
             OTHERS              = 2.

         IF sy-subrc EQ 0.
           READ TABLE it_sentence_h INTO wa_word_h INDEX v_tabix.
           wa_out-htext = wa_word_h-text.
           IF v_tabix = 1.
             MOVE: v_head_name TO wa_so_head-vbeln.
           ENDIF.
           APPEND wa_out TO it_out.
           CLEAR: wa_out, wa_word_h.
         ENDIF.
       ENDLOOP.
     ENDIF.
   ENDLOOP.

*-- Item Text
   LOOP AT it_out INTO wa_out.
     CONCATENATE wa_out-vbeln wa_out-posnr INTO v_item_name.
     v_posnr = wa_out-posnr.
*--Plant Specific Instruction Text
     CALL FUNCTION 'READ_TEXT'
       EXPORTING
         id                      = 'ZPSI'
         language                = 'E'
         name                    = v_item_name
         object                  = 'VBBP'
       TABLES
         lines                   = gt_item_txt
       EXCEPTIONS
         id                      = 1
         language                = 2
         name                    = 3
         not_found               = 4
         object                  = 5
         reference_check         = 6
         wrong_access_to_archive = 7
         OTHERS                  = 8.

     IF sy-subrc NE 0.
       lv_no = lv_no + 1.
     ENDIF.

     IF sy-subrc EQ 0.
       DELETE gt_item_txt WHERE tdline = ''.
*      AT NEW vbeln.
       CLEAR :it_sentence_i, v_tabix.
       LOOP AT gt_item_txt INTO wa_item_txt.
         lv_no = lv_no + 1.
         v_tabix = sy-tabix.
         IF v_tabix = 1.
           MOVE: v_item_name TO wa_get-vbeln,
                 v_posnr TO wa_get-posnr.
         ENDIF.

         CALL FUNCTION 'RKD_WORD_WRAP'
           EXPORTING
             textline            = wa_item_txt-tdline
             outputlen           = c_len
           TABLES
             out_lines           = it_sentence_i
           EXCEPTIONS
             outputlen_too_large = 1
             OTHERS              = 2.

         IF sy-subrc EQ 0.
           READ TABLE it_sentence_i INTO wa_word_i INDEX v_tabix.
           wa_out-ltext = wa_word_i-text.
           IF NOT wa_out-ltext IS INITIAL.
             MODIFY it_out FROM wa_out INDEX lv_no TRANSPORTING ltext.
           ENDIF.
           CLEAR: wa_out-ltext, wa_word_i.
         ENDIF.
       ENDLOOP.
     ENDIF.
   ENDLOOP.
ENDFORM.                    " FETCH_DATA

modify statement fails when sy-tabix is 3, as it_out has only 2 lines,

Any suggestion will be appreciated.