BDC ALV req

[Former Member]

hi

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

[Former Member]

Hi

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'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'VBELN'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.

WA_FIELDCATALOG-KEY = 'X'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'ERDAT'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'ERZET'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'ERNAM'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.

WA_FIELDCATALOG-FIELDNAME = 'ANGDT'.

WA_FIELDCATALOG-REF_TABNAME = 'VBAK'.

APPEND WA_FIELDCATALOG TO FIELDCATALOG.

CLEAR WA_FIELDCATALOG.