BDC ALV req

Former Member — Thu, 16 Aug 2007 11:15:34 GMT

help on this matter

READING DATA FROM NOTE PAD INTO ITAB THEN INTO APPLICATION

SERVER & DISPLAYING THE SAME IN TH ALV GRID DISPLAY

give me if sample code is there

get points for usefull information

Re: BDC ALV req

Former Member — Thu, 16 Aug 2007 12:36:52 GMT

try this program i think it will be very helpfull for you

TYPE-POOLS SLIS.

DATA : FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV.

DATA: WA_FIELDCATALOG TYPE SLIS_FIELDCAT_ALV.

DATA: BEGIN OF I_VBAK OCCURS 0.

DATA: MANDT LIKE VBAK-MANDT,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

ERZET LIKE VBAK-ERZET,

ERNAM LIKE VBAK-ERNAM,

ANGDT LIKE VBAK-ANGDT,

END OF I_VBAK.

DATA: BEGIN OF ITAB OCCURS 0,

DATA TYPE STRING,

END OF ITAB.

DATA: FILE TYPE STRING .

*DATA DATA TYPE STRING.

START-OF-SELECTION.

FILE = 'C:\Documents and Settings\ams03\Desktop\NOTE.TXT'.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = FILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = ITAB

EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT ITAB.

SPLIT ITAB-DATA AT ',' INTO I_VBAK-MANDT I_VBAK-VBELN I_VBAK-ERDAT I_VBAK-ERZET I_VBAK-ERNAM I_VBAK-ANGDT.

APPEND I_VBAK.

CLEAR I_VBAK.

ENDLOOP.

*--OPEN DATASET.

OPEN DATASET 'ZDANTEST' FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

IF SY-SUBRC NE 0 .

EXIT.

ENDIF.

IF SY-SUBRC EQ 0.

LOOP AT I_VBAK.

TRANSFER I_VBAK TO 'ZDANTEST'.

ENDLOOP.

*--CLOSE DATASET.

CLOSE DATASET 'ZDANTEST'.

WRITE : / 'FILE SUCCESSFULLY CREATED IN APPLICATION SERVER.'.

ENDIF.

*SPLIT NAMES AT ',' INTO ONE TWO THREE.

LOOP AT I_VBAK.

WRITE : / I_VBAK-MANDT, I_VBAK-VBELN, I_VBAK-ERDAT,

I_VBAK-ERZET, I_VBAK-ERNAM,I_VBAK-ANGDT.

ENDLOOP.

INCLUDE ZFIELDCATLOG.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =

IT_FIELDCAT = FIELDCATALOG

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = I_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.

INCLUDE PROGRAM

&----

*& Include ZFIELDCATLOG *

&----

WA_FIELDCATALOG-FIELDNAME = 'MANDT'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.