HI GURUS NEED HELP in CODING in SAP SCRIPT

Question

Hi Gurus,
here i hav some complication for displaying data in output of a sap script form .In output I have to show characteristics(ysd-characteristics,,,, ysd is a customized tablehaving fields vbeln, matnr, posnr, characteristics......) of material with respect to sales document number(vbap-vbeln).
I am  below SELECT statement for arry fetching----
select distinct
ysd~vbeln
ysdposnr ysdmatnr
ysd~characteristic
vbapposnr vbapmatnr
vbap~arktx
vbap~kwmeng
into corresponding fields of table itab1
from ysd_famd_chrctcs as ysd inner join vbap
on ysdvbeln = vbapvbeln
and ysdposnr = vbapposnr
where vbap~vbeln = p_vbeln.
For data to be write in the form's output im using below code
LOOP AT itab1.
PERFORM write_form USING 'ITEM_LINE' 'SET' 'BODY' 'MAIN'.
  ENDLOOP.
using perform write_form i am calling function module " WRITE_FORM" for script.
After looping itab1 it is giving output like below.
-->>
Sr | MatNum | MatDesc | Charecteristics | Quantity
no |              |                |                       |
1 | 00000012 | CCslab | Moisture | 50
1 | 00000012 | CCslab | over size | 50
1 | 00000012 | CCslab | under size | 50
1 | 00000012 | CCslab | phos percnt | 50
1 | 00000012 | CCslab | chrome | 50
1 | 00000012 | CCslab | Ferrous | 50
but I want the output should be like below
-->>
Sr | MatNum | MatDesc | Charecteristics | Quantity
no |              |               |                        |
1 | 00000012 | CCslab | Moisture     | 50
over size
under size
phos percnt
chrome
Ferrous
I tried using DELETE ADJACENT after PERFORM write_form USING 'ITEM_LINE' 'SET' 'BODY' 'MAIN'....... but it is deletin all characteristics from output.
I tried using below format ->>>
At new arktx
PERFORM write_form USING 'ITEM_LINE' 'SET' 'BODY' 'MAIN'.
ENDAT.
but it is keeping data upto arktx sfter that it is showing "*********" for characteristic field and all other remaining field.
I want to know what approach i should use before/after PERFORM write_form USING 'ITEM_LINE' 'SET' 'BODY' 'MAIN'.
to get my output like above
pls help...
Regard
Saifur rahaman

Answer 1

Thnx all for your kind co operation
i hav solved this problem just adding following code before ferform write_form using '' 'SET' 'BODY' 'MAIN'
DATA : lv_matnr LIKE mara-matnr.
  DATA : itab2 LIKE itab1 OCCURS 0 WITH HEADER LINE .
  DATA : itab3 LIKE itab1 OCCURS 0 WITH HEADER LINE .
  DATA : index TYPE sy-index .
  LOOP AT itab1 .
    AT NEW matnr .
      APPEND itab1 TO itab2 .
    ENDAT .
  ENDLOOP .
  LOOP AT itab2 .
    READ TABLE itab1 WITH KEY matnr = itab2-matnr .
    IF sy-subrc = 0 .
      index = sy-tabix .
      index = index + 1 .
      APPEND itab1 TO itab3 .
      LOOP AT itab1 FROM index .
        IF itab1-matnr <> itab2-matnr .
          EXIT .
        ENDIF .
        CLEAR :  itab1-posnr ,
          itab1-matnr ,
          itab1-arktx ,
          itab1-kwmeng .
        APPEND itab1 TO itab3 .
      ENDLOOP .
    ENDIF .
  ENDLOOP .
  REFRESH : itab1 .
  itab1[] = itab3[] .
  LOOP AT itab1.
    PERFORM write_form USING 'ITEM_HEADER' 'SET' 'TOP' 'MAIN'.
    SHIFT itab1-posnr LEFT DELETING LEADING '0'.
    PERFORM write_form USING 'ITEM_LINE' 'SET' 'BODY' 'MAIN'.
  ENDLOOP.