Error

[Former Member]

Hi,

I had got the following error in my program.

In Unicode programs, the "=" character cannot appear in names, as it does here in the name "=".

2. In Unicode programs, the "-" character cannot appear in names, as it does here in the name "ST_FIELDCAT-COL_POS".

This is my program.

REPORT ZAC_TAB32.

TYPE-POOLS SLIS.

TYPES:

BEGIN OF TY_VBAK,

VBELN TYPE VBAK-VBELN,

AUDAT TYPE VBAK-AUDAT,

AUART TYPE VBAK-AUART,

NETWR TYPE VBAK-NETWR,

KUNNR TYPE VBAK-KUNNR,

END OF TY_VBAK.

DATA:

ST_VBAK TYPE TY_VBAK,

IT_VBAK TYPE TABLE OF TY_VBAK.

DATA:

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

ST_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.

SELECT-OPTIONS:

SKUNNR FOR ST_VBAK-KUNNR.

START-OF-SELECTION.

PERFORM FCAT USING '1''ST_VBAK''VBELN''X''X''SALES DOCUMENT NUMBER''SALES DOC NO''ORDER NO'.

PERFORM FCAT USING '2''ST_VBAK''AUDAT''''''SALES DOCUMENT DATE''SALES DOC DT''DATE'.

PERFORM FCAT USING '3''ST_VBAK''AUART''''''SALES DOCUMENT DATE''SALES DOC DT''DATE'.

PERFORM FCAT USING '4''ST_VBAK''NETWR''''''NET WORTH''NET WOR''NW'.

PERFORM FCAT USING '5''ST_VBAK''KUNNR''''''CUSTOMER NUMBER''CUST NUM''CUST'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZAC_TAB31'

IT_FIELDCAT = IT_FIELDCAT

TABLES

T_OUTTAB = IT_VBAK

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

SELECT VBELN AUDAT AUART NETWR KUNNR

FROM VBAK INTO TABLE IT_VBAK

WHERE KUNNR IN SKUNNR.

FORM FCAT USING POS TABNAME FNAME KEY HOPTSPOT SELTEXT_L SELTEXT_M SELTEXT_S

ST_FIELDCAT-COL_POS = POS.

ST_FIELDCAT-TABNAME = TABNAME.

ST_FIELDCAT-FIELDNAME = FNAME.

ST_FIELDCAT-KEY = KEY.

ST_FIELDCAT-HOTSPOT = HOTSPOT.

ST_FIELDCAT-SELTEXT_L = SEL_L.

ST_FIELDCAT-SELTEXT_M = SEL_M.

ST_FIELDCAT-SELTEXT_S = SEL_S.

APPEND ST_FIELDCAT TO IT_FIELDCAT.

CLEAR ST_FIELDCAT.

ENDFORM.

[Former Member]

Hi,

the problem are the comments in your coding.

PERFORM FCAT USING '1''ST_VBAK''VBELN''X''X''SALES DOCUMENT

" is the beginning of a comment and so..change it to

PERFORM FCAT USING '1' "ST_VBAK VBELN X X SALES DOCUMENT

or if you need all this parameter only use ' unstead of "

and don't forget the blank for "

Regards

Nicole

Message was edited by:

Nicole Lorenz

Message was edited by:

Nicole Lorenz

Message was edited by:

Nicole Lorenz

Message was edited by:

Nicole Lorenz

[Former Member]

I HAVE MODIFIED YOUR PROG JUST CHECK IT

TYPE-POOLS SLIS.

TYPES:
BEGIN OF TY_VBAK,
VBELN TYPE VBAK-VBELN,
AUDAT TYPE VBAK-AUDAT,
AUART TYPE VBAK-AUART,
NETWR TYPE VBAK-NETWR,
KUNNR TYPE VBAK-KUNNR,
END OF TY_VBAK.


DATA:
ST_VBAK TYPE TY_VBAK,
IT_VBAK TYPE TABLE OF TY_VBAK.

DATA:
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
ST_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.

SELECT-OPTIONS:
SKUNNR FOR ST_VBAK-KUNNR.


START-OF-SELECTION.
PERFORM FCAT USING '1' 'ST_VBAK' 'VBELN' 'X' 'X' 'SALES DOCUMENT NUMBER' 'SALES DOC NO' 'ORDER NO'.
PERFORM FCAT USING '2' 'ST_VBAK' 'AUDAT' ' ' ' ' 'SALES DOCUMENT DATE' 'SALES DOC DT' 'DATE'.
PERFORM FCAT USING '3' 'ST_VBAK' 'AUART' ' ' ' ' 'SALES DOCUMENT DATE' 'SALES DOC DT' 'DATE'.
PERFORM FCAT USING '4' 'ST_VBAK' 'NETWR' ' ' ' ' 'NET WORTH' 'NET WOR' 'NW'.
PERFORM FCAT USING '5' 'ST_VBAK' 'KUNNR' ' ' ' ' 'CUSTOMER NUMBER' 'CUST NUM' 'CUST'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = 'ZAC_TAB31'
IT_FIELDCAT = IT_FIELDCAT
TABLES
T_OUTTAB = IT_VBAK
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SELECT VBELN AUDAT AUART NETWR KUNNR
FROM VBAK INTO TABLE IT_VBAK
WHERE KUNNR IN SKUNNR.



FORM FCAT USING POS TABNAME FNAME KEY HOPTSPOT SELTEXT_L SELTEXT_M SELTEXT_S.
ST_FIELDCAT-COL_POS = POS.
ST_FIELDCAT-TABNAME = TABNAME.
ST_FIELDCAT-FIELDNAME = FNAME.
ST_FIELDCAT-KEY = KEY.
ST_FIELDCAT-HOTSPOT = HOPTSPOT.
ST_FIELDCAT-SELTEXT_L = SELTEXT_L.
ST_FIELDCAT-SELTEXT_M = SELTEXT_M.
ST_FIELDCAT-SELTEXT_S = SELTEXT_S.
APPEND ST_FIELDCAT TO IT_FIELDCAT.
CLEAR ST_FIELDCAT.
ENDFORM.

REGARDS

SHIBA DUTTA

[Former Member]

Hello, Ram,

I have corrected the error:

REPORT ZAC_TAB32.


TYPE-POOLS SLIS.

TYPES:
BEGIN OF TY_VBAK,
VBELN TYPE VBAK-VBELN,
AUDAT TYPE VBAK-AUDAT,
AUART TYPE VBAK-AUART,
NETWR TYPE VBAK-NETWR,
KUNNR TYPE VBAK-KUNNR,
END OF TY_VBAK.


DATA:
ST_VBAK TYPE TY_VBAK,
IT_VBAK TYPE TABLE OF TY_VBAK.

DATA:
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
ST_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.

SELECT-OPTIONS:
SKUNNR FOR ST_VBAK-KUNNR.


START-OF-SELECTION.
  PERFORM FCAT USING '1'
                     'ST_VBAK'
                     'VBELN'
                     'X'
                     'X'
                     'SALES DOCUMENT NUMBER'
                     'SALES DOC NO'
                     'ORDER NO'.
  PERFORM FCAT USING  '2'
                      'ST_VBAK'
                      'AUDAT'
                      ''
                      ''
                      'SALES DOCUMENT DATE'
                      'SALES DOC DT'
                      'DATE'.
  PERFORM FCAT USING '3'
                     'ST_VBAK'
                     'AUART'
                     ''
                     ''
                     'SALES DOCUMENT DATE'
                     'SALES DOC DT'
                     'DATE'.
  PERFORM FCAT USING '4'
                     'ST_VBAK'
                     'NETWR'
                     ''
                     ''
                     'NET WORTH'
                     'NET WOR'
                     'NW'.
  PERFORM FCAT USING '5'
                     'ST_VBAK'
                     'KUNNR'
                     ''
                     ''
                     'CUSTOMER NUMBER'
                     'CUST NUM'
                     'CUST'.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM = 'ZAC_TAB31'
            IT_FIELDCAT        = IT_FIELDCAT
       TABLES
            T_OUTTAB           = IT_VBAK
       EXCEPTIONS
            PROGRAM_ERROR      = 1
            OTHERS             = 2.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  SELECT VBELN AUDAT AUART NETWR KUNNR
  FROM VBAK INTO TABLE IT_VBAK
  WHERE KUNNR IN SKUNNR.



*---------------------------------------------------------------------*
*       FORM FCAT                                                     *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  POS                                                           *
*  -->  TABNAME                                                       *
*  -->  FNAME                                                         *
*  -->  KEY                                                           *
*  -->  HOPTSPOT                                                      *
*  -->  SELTEXT_L                                                     *
*  -->  SELTEXT_M                                                     *
*  -->  SELTEXT_S                                                     *
*  -->  ST_FIELDCAT-COL_POS                                           *
*  -->  =                                                             *
*  -->  POS                                                           *
*---------------------------------------------------------------------*
FORM FCAT USING POS
                TABNAME
                FNAME
                KEY
                HOTSPOT
                SELTEXT_L
                SELTEXT_M
                SELTEXT_S.
  ST_FIELDCAT-COL_POS = POS.
  ST_FIELDCAT-TABNAME = TABNAME.
  ST_FIELDCAT-FIELDNAME = FNAME.
  ST_FIELDCAT-KEY = KEY.
  ST_FIELDCAT-HOTSPOT = HOTSPOT.
  ST_FIELDCAT-SELTEXT_L = SELTEXT_L.
  ST_FIELDCAT-SELTEXT_M = SELTEXT_M.
  ST_FIELDCAT-SELTEXT_S = SELTEXT_S.
  APPEND ST_FIELDCAT TO IT_FIELDCAT.
  CLEAR ST_FIELDCAT.
ENDFORM.

Regards,

Vasanth