Upgrade Syntax issue

[Former Member]

Hi ,

iam working on upgrade project iam facing a simmilar syntax error .

" SQL error 1653 occurred when accessing program "ZMR00025 " part "LOAD".

Ima not sure why this happens .

Can any clarify me why this error occurs .

Thanks ,

Vinay

[Former Member]

HI,

U should check ur declaration part and selection part,

like this,

DATA: BEGIN OF itab OCCURS 0,
        bukrs LIKE bkpf-bukrs,
        belnr LIKE bkpf-belnr,
        gjahr LIKE bkpf-gjahr,
        budat LIKE bkpf-budat,
        monat LIKE bkpf-monat,
        tcode LIKE bkpf-tcode,
        bvorg LIKE bkpf-bvorg,
      END OF itab.

START-OF-SELECTION.
  SELECT bukrs
         belnr
         gjahr
         budat
         monat
         tcode
         bvorg
         FROM bkpf
         INTO TABLE itab
         WHERE budat GE first_date AND budat LE last_date.

This order should be same.

REgards,

S.Nehru.

[Former Member]

hi nehru ,

do the decleration causes this type of syntax ,why because iam working on the unicode conversion ....

i have checked with the decleration too which is fine ...

please advice ...

Shankar

[Former Member]

Hi Friend,

Do this program is meant for uploading any file? I think that load statement refers some function module .If its so please replace load with GUI_upload and try .

Regards,

Suresh.S

[Former Member]

Hi Buddy,

Below is the code i have copied as such ....

as you have mentioned we are not atall usiong any of the internal table nor the GUI _upload .

we are facing the similar problem in all the reports please advice

TABLES: BKPF, BSEG, T001, SKAT, LFA1, KNA1, ANLA, T000.

DATA: DMBTR_TOT LIKE BSEG-DMBTR.

DATA: WRBTR_TOT LIKE BSEG-WRBTR.

DATA: KZBTR_TOT LIKE BSEG-KZBTR.

START-OF-SELECTION.

SELECT SINGLE * FROM T000

WHERE MANDT = SY-MANDT.

SELECT * FROM BKPF

WHERE BUKRS IN BR_BUKRS

AND BELNR IN BR_BELNR

AND GJAHR IN BR_GJAHR

AND BLDAT IN BR_BUDAT

AND BLDAT IN BR_BLART

AND BLDAT IN BR_AWTYP

AND BUDAT IN BR_XBLNR .

SELECT SINGLE * FROM T001

WHERE BUKRS = BKPF-BUKRS .

************************************************************************

• Format Header info

************************************************************************

WRITE: / TEXT-001.

WRITE: 17 BKPF-BUDAT, 42 BKPF-BLART, 65 BKPF-BUKRS.

WRITE: / TEXT-002.

WRITE: 17 BKPF-BLDAT, 42 BKPF-MONAT, 65 BKPF-WAERS, 71 BKPF-KURSF.

WRITE: / TEXT-003.

WRITE: 17 BKPF-BELNR, 65 BKPF-WWERT.

WRITE: / TEXT-004.

WRITE: 17 BKPF-XBLNR, 65 BKPF-BVORG.

WRITE: / TEXT-005.

• BKPF_USNAM added by M. McAlister 01/02/1998

WRITE: 17 BKPF-BKTXT, 65 BKPF-USNAM.

WRITE: / TEXT-010.

WRITE: 17 BKPF-STBLG, BKPF-STJAH.

SKIP 2.

WRITE: TEXT-006.

WRITE: / TEXT-007.

WRITE: / TEXT-008.

ULINE.

************************************************************************

• Get line item info

************************************************************************

CLEAR: DMBTR_TOT, WRBTR_TOT, KZBTR_TOT.

SELECT * FROM BSEG

WHERE BUKRS = BKPF-BUKRS

AND BELNR = BKPF-BELNR

AND GJAHR = BKPF-GJAHR .

************************************************************************

• Format line item info

************************************************************************

WRITE: / BSEG-BUZEI,

BSEG-BSCHL,

BSEG-HKONT.

CASE BSEG-KOART.

WHEN 'A'.

WRITE: 24 BSEG-ANLN1, BSEG-ANLN2.

WHEN 'D'.

WRITE: 24 BSEG-KUNNR.

WHEN 'K'.

WRITE: 24 BSEG-LIFNR.

WHEN 'S'.

SELECT SINGLE * FROM SKAT WHERE SPRAS EQ SY-LANGU "MS020696

AND KTOPL EQ T001-KTOPL "MS020696

AND SAKNR EQ BSEG-HKONT."MS020696

WRITE: 24 SKAT-TXT20.

ENDCASE.

WRITE: 48 BSEG-KOSTL.

IF BSEG-SHKZG = 'H'.

DMBTR_TOT = BSEG-DMBTR + DMBTR_TOT.

WRBTR_TOT = BSEG-WRBTR + WRBTR_TOT.

KZBTR_TOT = BSEG-DMBE2 + KZBTR_TOT.

BSEG-DMBTR = BSEG-DMBTR * -1.

BSEG-WRBTR = BSEG-WRBTR * -1.

BSEG-KZBTR = BSEG-KZBTR * -1.

ENDIF.

WRITE: / BSEG-WRBTR, 19 BKPF-WAERS, 24 BSEG-DMBTR, 42 BKPF-HWAER,

48 BSEG-DMBE2, 66 T000-MWAER.

WRITE: / BSEG-SGTXT.

SKIP.

ENDSELECT.

SKIP 2.

WRITE: / TEXT-009.

WRITE: / DMBTR_TOT, 19 BKPF-HWAER, 24 WRBTR_TOT, 42 BKPF-WAERS,

48 KZBTR_TOT, 66 T000-MWAER.

ULINE.

NEW-PAGE.

ENDSELECT.

IF SY-SUBRC NE 0.

WRITE: ' NO DOCUMENTS WERE SELECTED PLEASE CHECK YOUR SELECTION CRITERIA '.

ENDIF.

[Former Member]

Hi

Check the table for the fields and the ITAB declaration for the similarity

there may some discrepancy please check it

regards

Shiva

Edited by: Shivakumar Hosaganiger on Mar 24, 2008 3:07 PM