output not getting properly

Dear All,

i am getting problem in At new command, in my out put i am getting '****' after first field, i refer some threads also then also not getting plz any body help me.

Thanks.

REPORT ZLC_REP no standard page heading.

• line-size 250

*line-count 36(4).

TABLES : LFA1,BKPF,BSEG,BSAD.

SELECT-OPTIONS : DATE FOR BKPF-BLDAT,

LC FOR BKPF-XBLNR.

*SELECT-OPTIONS :

TYPES : BEGIN OF TY_FINAL,

XBLNR TYPE BKPF-XBLNR,

BELNR TYPE BKPF-BELNR,

LIFNR TYPE LFA1-LIFNR,

• LAND1 TYPE LFA1-LAND1,

NAME1 TYPE LFA1-NAME1,

BLDAT TYPE BKPF-BLDAT,

BKTXT TYPE BKPF-BKTXT,

dmbtr TYPE BSEG-dmbtr,

END OF TY_FINAL.

TYPES : BEGIN OF TY_BKPF,

BUKRS TYPE BUKRS, "Company Code

BELNR TYPE BKPF-BELNR, "Doc.Number

XBLNR TYPE XBLNR,

BLDAT TYPE BLDAT, "Vendor Invoice Date

BKTXT TYPE BKTXT,

END OF TY_BKPF.

TYPES : BEGIN OF TY_BSEG,

BUKRS TYPE BUKRS, "Company Code

BELNR TYPE BSEG-BELNR,

dmbtr TYPE dmbtr,

umskz type umskz,

LIFNR TYPE BSEG-LIFNR, "Vendor Number

END OF TY_BSEG.

TYPES :BEGIN OF TY_LFA1,

LIFNR TYPE LIFNR,

NAME1 TYPE NAME1,

• LAND1 TYPE LAND1,

END OF TY_LFA1.

DATA : T_FINAL TYPE STANDARD TABLE OF TY_FINAL INITIAL SIZE 1,

W_FINAL TYPE TY_FINAL.

DATA : M_FINAL TYPE STANDARD TABLE OF TY_FINAL INITIAL SIZE 1,

W1_FINAL TYPE TY_FINAL.

DATA : T_BKPF TYPE STANDARD TABLE OF TY_BKPF INITIAL SIZE 1,

W_BKPF TYPE TY_BKPF.

DATA : T_BSEG TYPE STANDARD TABLE OF TY_BSEG INITIAL SIZE 1,

W_BSEG TYPE TY_BSEG.

DATA : T_LFA1 TYPE STANDARD TABLE OF TY_LFA1 INITIAL SIZE 1,

W_LFA1 TYPE TY_LFA1.

data : res type i.

SELECT BUKRS

BELNR

XBLNR

BLDAT

BKTXT

FROM BKPF INTO TABLE T_BKPF

where BLDAT IN DATE

AND XBLNR in LC.

IF T_BKPF IS NOT INITIAL.

SELECT BUKRS

BELNR

dmbtr

umskz

LIFNR

FROM BSEG INTO TABLE T_BSEG

FOR ALL ENTRIES IN T_BKPF

• WHERE BUKRS = T_BKPF-BUKRS

WHERE BELNR = T_BKPF-BELNR

and umskz = 'L'.

ENDIF.

IF T_BSEG IS NOT INITIAL.

SELECT LIFNR

• LAND1

NAME1

FROM LFA1 INTO TABLE T_LFA1

FOR ALL ENTRIES IN T_BSEG

WHERE LIFNR = T_BSEG-LIFNR.

ENDIF.

&----

*& Sending Data to Final Internal table *

&----

LOOP AT T_BKPF INTO W_BKPF.

READ TABLE T_BSEG INTO W_BSEG WITH KEY BELNR = W_BKPF-BELNR.

READ TABLE T_LFA1 INTO W_LFA1 WITH KEY LIFNR = W_BSEG-LIFNR.

W_FINAL-XBLNR = W_BKPF-XBLNR.

W_FINAL-BELNR = W_BKPF-BELNR.

*W_FINAL-LAND1 = W_LFA1-LAND1.

W_FINAL-NAME1 = W_LFA1-NAME1.

W_FINAL-BLDAT = W_BKPF-BLDAT.

W_FINAL-BKTXT = W_BKPF-BKTXT.

W_FINAL-dmbtr = W_BSEG-dmbtr.

APPEND W_FINAL TO T_FINAL.

delete adjacent duplicates from t_final comparing belnr dmbtr.

ENDLOOP.

clear w_final.

SORT T_FINAL.

lOOP AT T_FINAL INTO W_FINAL.

AT NEW XBLNR.

WRITE : 05 W_FINAL-XBLNR ,

15 W_FINAL-LIFNR, 30 W_final-name1.

uline : /05(60).

endat.

WRITE : /05 w_FINAL-BELNR,

• 20 w_FINAL-LIFNR,

35 w_FINAL-BLDAT,

50 w_FINAL-BKTXT,

80 w_final-dmbtr.

• 90 w_final-name1.

AT END OF XBLNR.

SUM.

uline /80(20).

WRITE : /60 'LC TOTAL:',W_FINAL-XBLNR,80 W_FINAL-dmbtr.

uline /80(20).

• res = sy-linct - sy-linno.

• reserve res lines.

ENDAT.

AT LAST.

SUM.

WRITE : /65 'GRAND TOTAL:',80 W_FINAL-dmbtr.

uline /80(20).

uline /80(20).

• res = sy-linct - sy-linno.

• reserve res lines.

ENDAT.

ENDLOOP.

• ENDLOOP.

clear w_final.

TOP-OF-PAGE.

write :50 'LETTER OF CREDIT'.

uline /05(150).

WRITE : /05 'DOCUMENTNO',

• 20 'VENDORNO',

35 'DOCDATE',

50 'DESCRIPTION',

85 'AMOUNT'.

uline /05(150).

END-OF-PAGE.

uline /05(50).

write :/05 'end of page:',sy-pagno.