Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

RUNTIME ERROR

Former Member

‎2008 Feb 29 10:21 AM

0 Likes
702

hi experts,

i got stuck in a very big problem..m working on one report.ie journal voucher report.m sending u the code..my problem is when i enter posting dates for a full fiscal year or if there is a gap of only three months even then my report is giving an runrime error of exceeding time limit..time is taken in the first loop statement i have used..plz chk that first loop statement n suggest me why it is taking too mch time...

REPORT ZFI_JVBOOK1 NO STANDARD PAGE HEADING LINE-SIZE 250.

TABLES: BSEG,BKPF,KNA1,LFA1,ANEK,ANLA.

SELECTION-SCREEN BEGIN OF BLOCK RAMAN WITH FRAME TITLE TEXT-001.

PARAMETER BUKRS LIKE BSEG-BUKRS.

SELECT-OPTIONS POSTDAT FOR BSEG-ZFBDT.

SELECTION-SCREEN END OF BLOCK RAMAN.

DATA: BEGIN OF IT_BKPF OCCURS 0,

BELNR TYPE BKPF-BELNR,

END OF IT_BKPF.

DATA: BEGIN OF ITAB OCCURS 0,

BELNR TYPE BSEG-BELNR,

BELNR1 TYPE BSEG-BELNR,

BUDAT TYPE BKPF-BUDAT,

HKONT TYPE BSEG-HKONT,

SGTXT TYPE BSEG-SGTXT,

ZUONR TYPE BSEG-ZUONR,

KUNR TYPE BSEG-ANLN1,

DMBTR TYPE BSEG-DMBTR,

CREDIT TYPE BSEG-DMBTR,

DEBIT TYPE BSEG-DMBTR,

SHKZG TYPE BSEG-SHKZG,

STBLG TYPE BKPF-STBLG,

AWKEY TYPE BKPF-AWKEY,

  • BLART TYPE BSEG-BLART,

KUNNR TYPE BSEG-KUNNR,

NAME1 TYPE KNA1-NAME1,

ORT01 TYPE KNA1-ORT01,

LIFNR TYPE BSEG-LIFNR,

NAME TYPE LFA1-NAME1,

ORT0 TYPE LFA1-ORT01,

TXT50 TYPE SKAT-TXT50,

SAKNR TYPE SKAT-SAKNR,

ANLN1 TYPE BSEG-ANLN1,

TEXT TYPE ANLA-TXT50,

END OF ITAB.

DATA: BEGIN OF IT_FINAL OCCURS 0,

BELNR TYPE BSEG-BELNR,

BUDAT TYPE BKPF-BUDAT,

HKONT TYPE BSEG-HKONT,

SGTXT TYPE BSEG-SGTXT,

ZUONR TYPE BSEG-ZUONR,

KUNR TYPE BSEG-ANLN1,

DMBTR TYPE BSEG-DMBTR,

CREDIT TYPE BSEG-DMBTR,

DEBIT TYPE BSEG-DMBTR,

SHKZG TYPE BSEG-SHKZG,

STBLG TYPE BKPF-STBLG,

AWKEY TYPE BKPF-AWKEY,

  • BLART TYPE BSEG-BLART,

KUNNR TYPE BSEG-KUNNR,

NAME1 TYPE KNA1-NAME1,

ORT01 TYPE KNA1-ORT01,

LIFNR TYPE BSEG-LIFNR,

NAME TYPE LFA1-NAME1,

ORT0 TYPE LFA1-ORT01,

TXT50 TYPE SKAT-TXT50,

SAKNR TYPE SKAT-SAKNR,

ANLN1 TYPE BSEG-ANLN1,

TEXT TYPE ANLA-TXT50,

END OF IT_FINAL.

DATA: YEAR TYPE BSIS-GJAHR,

TIME LIKE SY-DATUM,

DATE LIKE SY-UZEIT,

WBELNR TYPE BSIS-BELNR,

WBELNR1 TYPE BSIS-BELNR,

WBELNR2 TYPE BSIS-BELNR,

WBUDAT TYPE BSIS-BUDAT.

DATA WA LIKE ANEK-ANLN1.

CALL FUNCTION 'FTI_FISCAL_YEAR_MONTH_GET'

EXPORTING

I_BUKRS = BUKRS

I_BUDAT = POSTDAT-LOW

  • I_DZTERM = FTIS_DATUM-INITIAL

  • I_GJAHR = FTIS_GJAHR-INITIAL

IMPORTING

E_GJAHR = YEAR.

  • E_MONAT =

.

SELECT BELNR INTO CORRESPONDING FIELDS OF TABLE IT_BKPF FROM BKPF WHERE BUKRS = BUKRS AND GJAHR = YEAR AND BUDAT IN POSTDAT AND ( BLART = 'SA'

OR BLART = 'AA'

OR BLART = 'AF' ).

SELECT BELNR HKONT DMBTR SGTXT SHKZG ZUONR ANLN1 KUNNR LIFNR INTO CORRESPONDING FIELDS OF ITAB

FROM BSEG

FOR ALL ENTRIES IN IT_BKPF

WHERE BELNR = IT_BKPF-BELNR AND BUKRS = BUKRS

AND GJAHR = YEAR AND

( HKONT NOT BETWEEN '0002470001' AND '000247050' ) AND ( HKONT NOT BETWEEN '0000240000' AND '0000244017' ).

.

APPEND ITAB.

CLEAR ITAB.

ENDSELECT.

LOOP AT ITAB.

SELECT SINGLE BELNR FROM BSIS INTO WBELNR1 WHERE BELNR = ITAB-BELNR AND GJAHR = YEAR AND

( ( HKONT BETWEEN '0002470001' AND '000247050' ) OR ( HKONT BETWEEN '0000240000' AND '0000244017' ) ).

IF SY-SUBRC = 0 .

DELETE ITAB INDEX SY-TABIX.

ENDIF.

ENDLOOP.

LOOP AT ITAB.

SELECT SINGLE STBLG BUDAT FROM BKPF INTO (ITAB-STBLG,ITAB-BUDAT) WHERE BELNR = ITAB-BELNR AND GJAHR = YEAR AND BUKRS = BUKRS AND BUDAT IN POSTDAT.

MODIFY ITAB.

ENDLOOP.

SORT ITAB BY BELNR.

LOOP AT ITAB.

IF ITAB-STBLG NE ' '.

ON CHANGE OF ITAB-BELNR.

SELECT BELNR HKONT DMBTR SGTXT KUNNR ANLN1 LIFNR SHKZG FROM BSEG INTO CORRESPONDING FIELDS OF IT_FINAL WHERE BELNR = ITAB-STBLG

AND BUKRS = BUKRS

AND GJAHR = YEAR.

.

.

IT_FINAL-BUDAT = ITAB-BUDAT.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDSELECT.

ENDON.

ENDIF.

ENDLOOP.

LOOP AT IT_FINAL.

MOVE-CORRESPONDING IT_FINAL TO ITAB.

APPEND ITAB.

ENDLOOP.

SORT ITAB BY BELNR.

LOOP AT ITAB.

IF ( ITAB-HKONT BETWEEN '0000235001' AND '0000235006' OR ITAB-HKONT BETWEEN '0000235101' AND '0000235201' ).

SELECT SINGLE KUNNR NAME1 ORT01 INTO (ITAB-KUNR,ITAB-NAME1,ITAB-ORT01) FROM KNA1 WHERE KUNNR = ITAB-KUNNR.

ELSEIF ( ITAB-HKONT BETWEEN '0000150001' AND '0000150011' OR ITAB-HKONT BETWEEN '000015101' AND '0000150200' ).

SELECT SINGLE LIFNR NAME1 ORT01 INTO (ITAB-KUNR,ITAB-NAME1,ITAB-ORT01) FROM LFA1 WHERE LIFNR = ITAB-LIFNR.

ELSEIF ( ITAB-HKONT BETWEEN '0000200000' AND '0000200100' ).

  • SELECT SINGLE ANL,N1 INTO ITAB-KUNNR FROM ANEK WHERE BELNR = ITAB-AWKEY.

  • WA = ITAB-KUNNR.

ITAB-KUNR = ITAB-ANLN1.

SELECT SINGLE TXT50 INTO ITAB-NAME1 FROM ANLA WHERE ANLN1 = ITAB-ANLN1.

ELSE.

SELECT SINGLE SAKNR TXT50 INTO (ITAB-KUNR,ITAB-NAME1) FROM SKAT WHERE SAKNR = ITAB-HKONT AND KTOPL = 'CPLG'.

ENDIF.

IF ITAB-SHKZG = 'H'.

ITAB-CREDIT = ITAB-DMBTR.

ELSE.

ITAB-DEBIT = ITAB-DMBTR.

ENDIF.

MODIFY ITAB.

CLEAR ITAB.

ENDLOOP.

  • DELETE ADJACENT DUPLICATES FROM ITAB.

SORT ITAB BY BUDAT BELNR SHKZG.

LOOP AT ITAB.

IF ITAB-BELNR = WBELNR.

WRITE:/01 SY-VLINE,12 SY-VLINE,

23 SY-VLINE,24 ITAB-KUNR,

34 SY-VLINE,35 ITAB-NAME1,

85 SY-VLINE,86 ITAB-ORT01,

101 SY-VLINE,102 ITAB-SGTXT,

152 SY-VLINE.

IF ITAB-DEBIT > '0'.

WRITE: 152 SY-VLINE,153 ITAB-DEBIT LEFT-JUSTIFIED.

ENDIF.

WRITE 165 SY-VLINE.

IF ITAB-CREDIT > '0'.

WRITE: 165 SY-VLINE,166 ITAB-CREDIT LEFT-JUSTIFIED.

ENDIF.

WRITE 176 SY-VLINE.

ULINE (176).

ENDIF.

ON CHANGE OF ITAB-BELNR.

WBELNR = ITAB-BELNR.

WBUDAT = ITAB-BUDAT.

WRITE:/01 SY-VLINE,02 WBUDAT,

12 SY-VLINE,13 WBELNR,

23 SY-VLINE,24 ITAB-KUNR,

34 SY-VLINE,35 ITAB-NAME1,

85 SY-VLINE,86 ITAB-ORT01,

101 SY-VLINE,102 ITAB-SGTXT,

152 SY-VLINE.

IF ITAB-DEBIT > '0'.

WRITE: 152 SY-VLINE,153 ITAB-DEBIT LEFT-JUSTIFIED.

ENDIF.

WRITE 165 SY-VLINE.

IF ITAB-CREDIT > '0'.

WRITE: 165 SY-VLINE,166 ITAB-CREDIT LEFT-JUSTIFIED.

ENDIF.

WRITE 176 SY-VLINE.

ULINE (176).

ENDON.

ENDLOOP.

CLEAR ITAB.

TOP-OF-PAGE.

IF BUKRS = 'CP01'.

WRITE:/88 'CRYSTAL PHOSPHATES LTD'.

WRITE:/88 ' JV BOOK'.

IF POSTDAT-HIGH = '00000000'.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-LOW.

ELSE.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-HIGH.

ENDIF.

WRITE:/85 'DATE :' , TIME,'(',DATE,')'.

ELSEIF BUKRS = 'JB01'.

WRITE:/88 'JAI BHARAT CROP CHM(P) LTD'.

.

WRITE:/88 ' JV BOOK'.

IF POSTDAT-HIGH = '00000000'.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-LOW.

ELSE.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-HIGH.

ENDIF.

WRITE:/85 'DATE :' , TIME,'(',DATE,')'.

ENDIF.

WRITE:/01(176) SY-ULINE.

FORMAT COLOR COL_HEADING ON.

WRITE:/01 SY-VLINE,02 'DATE',

12 SY-VLINE,13 'DOC.NO.',

23 SY-VLINE,24 'A/C NO.',

34 SY-VLINE,35 'A/C NAME',

85 SY-VLINE,86 'STATION',

101 SY-VLINE,102 'REMARKS',

152 SY-VLINE,153 'DEBIT',

165 SY-VLINE,166 'CREDIT',

176 SY-VLINE.

FORMAT COLOR COL_HEADING OFF.

ULINE (176).

INITIALIZATION.

TIME = SY-DATUM.

DATE = SY-UZEIT.

rewards will b given for sure,

regards,

raman.

5 REPLIES 5
Read only

Former Member

‎2008 Feb 29 10:28 AM

0 Likes
658

HI

Remove all into correspoding fields of table

remove all the select single and get the data into ITABs

Then loop at final table, read the ITABs using binary search and modify

Regards

Shiva

Read only

roger_gomez
Active Participant

‎2008 Feb 29 10:28 AM

0 Likes
658

Hi Raman,

I suggest you to use OPEN CURSOR statemant for your table selection. Next a loop DO in order to FETCH next register in table. And finally, when FETCH fails, exit from loop and CLOSE CURSOR.

Reward points if useful

Roger

Read only

Former Member

‎2008 Feb 29 10:34 AM

0 Likes
658

Hi,

This is very very POOR coding. sorry to say this.

dont worry. You avoid selecting the data inside the loop and also avoid 'INTO CORRESPONDING FEIDLS'.

Read only

Former Member

‎2008 Feb 29 10:35 AM

0 Likes
658

also, before each SQL with FOR ALL ENTRIES IN you must check that the FOR ALL ENTRIES table is not empty.

If it is empty the SQL will read the whole table

Read only

Former Member

‎2008 Feb 29 10:36 AM

0 Likes
658

hi raman,

see this modified code,

REPORT ZFI_JVBOOK1 NO STANDARD PAGE HEADING LINE-SIZE 250.

TABLES: BSEG,BKPF,KNA1,LFA1,ANEK,ANLA.

SELECTION-SCREEN BEGIN OF BLOCK RAMAN WITH FRAME TITLE TEXT-001.

PARAMETER BUKRS LIKE BSEG-BUKRS.

SELECT-OPTIONS POSTDAT FOR BSEG-ZFBDT.

SELECTION-SCREEN END OF BLOCK RAMAN.

DATA: BEGIN OF IT_BKPF OCCURS 0,

BELNR TYPE BKPF-BELNR,

END OF IT_BKPF.

DATA: BEGIN OF ITAB OCCURS 0,

BELNR TYPE BSEG-BELNR,

BELNR1 TYPE BSEG-BELNR,

BUDAT TYPE BKPF-BUDAT,

HKONT TYPE BSEG-HKONT,

SGTXT TYPE BSEG-SGTXT,

ZUONR TYPE BSEG-ZUONR,

KUNR TYPE BSEG-ANLN1,

DMBTR TYPE BSEG-DMBTR,

CREDIT TYPE BSEG-DMBTR,

DEBIT TYPE BSEG-DMBTR,

SHKZG TYPE BSEG-SHKZG,

STBLG TYPE BKPF-STBLG,

AWKEY TYPE BKPF-AWKEY,

*BLART TYPE BSEG-BLART,

KUNNR TYPE BSEG-KUNNR,

NAME1 TYPE KNA1-NAME1,

ORT01 TYPE KNA1-ORT01,

LIFNR TYPE BSEG-LIFNR,

NAME TYPE LFA1-NAME1,

ORT0 TYPE LFA1-ORT01,

TXT50 TYPE SKAT-TXT50,

SAKNR TYPE SKAT-SAKNR,

ANLN1 TYPE BSEG-ANLN1,

TEXT TYPE ANLA-TXT50,

END OF ITAB.

DATA: BEGIN OF IT_FINAL OCCURS 0,

BELNR TYPE BSEG-BELNR,

BUDAT TYPE BKPF-BUDAT,

HKONT TYPE BSEG-HKONT,

SGTXT TYPE BSEG-SGTXT,

ZUONR TYPE BSEG-ZUONR,

KUNR TYPE BSEG-ANLN1,

DMBTR TYPE BSEG-DMBTR,

CREDIT TYPE BSEG-DMBTR,

DEBIT TYPE BSEG-DMBTR,

SHKZG TYPE BSEG-SHKZG,

STBLG TYPE BKPF-STBLG,

AWKEY TYPE BKPF-AWKEY,

*BLART TYPE BSEG-BLART,

KUNNR TYPE BSEG-KUNNR,

NAME1 TYPE KNA1-NAME1,

ORT01 TYPE KNA1-ORT01,

LIFNR TYPE BSEG-LIFNR,

NAME TYPE LFA1-NAME1,

ORT0 TYPE LFA1-ORT01,

TXT50 TYPE SKAT-TXT50,

SAKNR TYPE SKAT-SAKNR,

ANLN1 TYPE BSEG-ANLN1,

TEXT TYPE ANLA-TXT50,

END OF IT_FINAL.

DATA: YEAR TYPE BSIS-GJAHR,

TIME LIKE SY-DATUM,

DATE LIKE SY-UZEIT,

WBELNR TYPE BSIS-BELNR,

WBELNR1 TYPE BSIS-BELNR,

WBELNR2 TYPE BSIS-BELNR,

WBUDAT TYPE BSIS-BUDAT.

DATA WA LIKE ANEK-ANLN1.

data:begin of ftis_datum occurs 0,

initial type sy-datum ,

end of ftis_datum,

begin of ftis_gjahr,

initial type gjahr ,

end of ftis_gjahr.

CALL FUNCTION 'FTI_FISCAL_YEAR_MONTH_GET'

EXPORTING

I_BUKRS = BUKRS

I_BUDAT = POSTDAT-LOW

I_DZTERM = FTIS_DATUM-INITIAL

I_GJAHR = FTIS_GJAHR-INITIAL

IMPORTING

E_GJAHR = YEAR.

*E_MONAT =

*.

*

SELECT BELNR INTO CORRESPONDING FIELDS OF TABLE IT_BKPF FROM BKPF WHERE BUKRS = BUKRS AND GJAHR = YEAR AND BUDAT IN POSTDAT AND ( BLART = 'SA'

OR BLART = 'AA'

OR BLART = 'AF' ).

SELECT BELNR HKONT DMBTR SGTXT SHKZG ZUONR ANLN1 KUNNR LIFNR INTO CORRESPONDING FIELDS OF ITAB

FROM BSEG

FOR ALL ENTRIES IN IT_BKPF

WHERE BELNR = IT_BKPF-BELNR AND BUKRS = BUKRS

AND GJAHR = YEAR AND

( HKONT NOT BETWEEN '0002470001' AND '000247050' ) AND ( HKONT NOT BETWEEN '0000240000' AND '0000244017' ).

.

APPEND ITAB.

CLEAR ITAB.

ENDSELECT.

LOOP AT ITAB.

SELECT SINGLE BELNR FROM BSIS INTO WBELNR1 WHERE BELNR = ITAB-BELNR AND GJAHR = YEAR AND

( ( HKONT BETWEEN '0002470001' AND '000247050' ) OR ( HKONT BETWEEN '0000240000' AND '0000244017' ) ).

IF SY-SUBRC = 0 .

DELETE ITAB INDEX SY-TABIX.

ENDIF.

ENDLOOP.

LOOP AT ITAB.

SELECT SINGLE STBLG BUDAT FROM BKPF INTO (ITAB-STBLG,ITAB-BUDAT) WHERE BELNR = ITAB-BELNR AND GJAHR = YEAR AND BUKRS = BUKRS AND BUDAT IN POSTDAT.

MODIFY ITAB.

ENDLOOP.

SORT ITAB BY BELNR.

LOOP AT ITAB.

IF ITAB-STBLG NE ' '.

ON CHANGE OF ITAB-BELNR.

SELECT BELNR HKONT DMBTR SGTXT KUNNR ANLN1 LIFNR SHKZG FROM BSEG INTO CORRESPONDING FIELDS OF IT_FINAL WHERE BELNR = ITAB-STBLG

AND BUKRS = BUKRS

AND GJAHR = YEAR.

.

.

IT_FINAL-BUDAT = ITAB-BUDAT.

APPEND IT_FINAL.

CLEAR IT_FINAL.

ENDSELECT.

ENDON.

ENDIF.

ENDLOOP.

LOOP AT IT_FINAL.

MOVE-CORRESPONDING IT_FINAL TO ITAB.

APPEND ITAB.

ENDLOOP.

SORT ITAB BY BELNR.

LOOP AT ITAB.

IF ( ITAB-HKONT BETWEEN '0000235001' AND '0000235006' OR ITAB-HKONT BETWEEN '0000235101' AND '0000235201' ).

SELECT SINGLE KUNNR NAME1 ORT01 INTO (ITAB-KUNR,ITAB-NAME1,ITAB-ORT01) FROM KNA1 WHERE KUNNR = ITAB-KUNNR.

ELSEIF ( ITAB-HKONT BETWEEN '0000150001' AND '0000150011' OR ITAB-HKONT BETWEEN '000015101' AND '0000150200' ).

SELECT SINGLE LIFNR NAME1 ORT01 INTO (ITAB-KUNR,ITAB-NAME1,ITAB-ORT01) FROM LFA1 WHERE LIFNR = ITAB-LIFNR.

ELSEIF ( ITAB-HKONT BETWEEN '0000200000' AND '0000200100' ).

SELECT SINGLE ANLN1 INTO ITAB-KUNNR FROM ANEK WHERE BELNR = ITAB-AWKEY.

WA = ITAB-KUNNR.

ITAB-KUNR = ITAB-ANLN1.

SELECT SINGLE TXT50 INTO ITAB-NAME1 FROM ANLA WHERE ANLN1 = ITAB-ANLN1.

ELSE.

SELECT SINGLE SAKNR TXT50 INTO (ITAB-KUNR,ITAB-NAME1) FROM SKAT WHERE SAKNR = ITAB-HKONT AND KTOPL = 'CPLG'.

ENDIF.

IF ITAB-SHKZG = 'H'.

ITAB-CREDIT = ITAB-DMBTR.

ELSE.

ITAB-DEBIT = ITAB-DMBTR.

ENDIF.

MODIFY ITAB.

CLEAR ITAB.

ENDLOOP.

DELETE ADJACENT DUPLICATES FROM ITAB.

SORT ITAB BY BUDAT BELNR SHKZG.

LOOP AT ITAB.

IF ITAB-BELNR = WBELNR.

WRITE:/01 SY-VLINE,12 SY-VLINE,

23 SY-VLINE,24 ITAB-KUNR,

34 SY-VLINE,35 ITAB-NAME1,

85 SY-VLINE,86 ITAB-ORT01,

101 SY-VLINE,102 ITAB-SGTXT,

152 SY-VLINE.

IF ITAB-DEBIT > '0'.

WRITE: 152 SY-VLINE,153 ITAB-DEBIT LEFT-JUSTIFIED.

ENDIF.

WRITE 165 SY-VLINE.

IF ITAB-CREDIT > '0'.

WRITE: 165 SY-VLINE,166 ITAB-CREDIT LEFT-JUSTIFIED.

ENDIF.

WRITE 176 SY-VLINE.

ULINE (176).

ENDIF.

ON CHANGE OF ITAB-BELNR.

WBELNR = ITAB-BELNR.

WBUDAT = ITAB-BUDAT.

WRITE:/01 SY-VLINE,02 WBUDAT,

12 SY-VLINE,13 WBELNR,

23 SY-VLINE,24 ITAB-KUNR,

34 SY-VLINE,35 ITAB-NAME1,

85 SY-VLINE,86 ITAB-ORT01,

101 SY-VLINE,102 ITAB-SGTXT,

152 SY-VLINE.

IF ITAB-DEBIT > '0'.

WRITE: 152 SY-VLINE,153 ITAB-DEBIT LEFT-JUSTIFIED.

ENDIF.

WRITE 165 SY-VLINE.

IF ITAB-CREDIT > '0'.

WRITE: 165 SY-VLINE,166 ITAB-CREDIT LEFT-JUSTIFIED.

ENDIF.

WRITE 176 SY-VLINE.

ULINE (176).

ENDON.

ENDLOOP.

CLEAR ITAB.

TOP-OF-PAGE.

IF BUKRS = 'CP01'.

WRITE:/88 'CRYSTAL PHOSPHATES LTD'.

WRITE:/88 ' JV BOOK'.

IF POSTDAT-HIGH = '00000000'.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-LOW.

ELSE.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-HIGH.

ENDIF.

WRITE:/85 'DATE :' , TIME,'(',DATE,')'.

ELSEIF BUKRS = 'JB01'.

WRITE:/88 'JAI BHARAT CROP CHM(P) LTD'.

.

WRITE:/88 ' JV BOOK'.

IF POSTDAT-HIGH = '00000000'.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-LOW.

ELSE.

WRITE:/85 'FROM', POSTDAT-LOW ,'TO', POSTDAT-HIGH.

ENDIF.

WRITE:/85 'DATE :' , TIME,'(',DATE,')'.

ENDIF.

WRITE:/01(176) SY-ULINE.

FORMAT COLOR COL_HEADING ON.

WRITE:/01 SY-VLINE,02 'DATE',

12 SY-VLINE,13 'DOC.NO.',

23 SY-VLINE,24 'A/C NO.',

34 SY-VLINE,35 'A/C NAME',

85 SY-VLINE,86 'STATION',

101 SY-VLINE,102 'REMARKS',

152 SY-VLINE,153 'DEBIT',

165 SY-VLINE,166 'CREDIT',

176 SY-VLINE.

FORMAT COLOR COL_HEADING OFF.

ULINE (176).

INITIALIZATION.

TIME = SY-DATUM.

DATE = SY-UZEIT.

reward points if use ful,

venkat.