Text File Uploading

Former Member — Thu, 07 Dec 2006 10:47:56 GMT

Dear All,

I developped a program for upload data to ztable through text file.

there is more than one formats. i haddled it by radio buttons.

i want to catch, when user select wrong text file (wrong format) popup custom massages or any error masseges without exicuting.

with exicuting we can handle it with gui upload exceptions = 8.

please give some valuble sugesions.

Re: Text File Uploading

jayanthi_jayaraman — Thu, 07 Dec 2006 10:51:21 GMT

Hi,

I hope that you will be having a field for file selection in selection screen.

If so,

at selection-screen output.

if file in wrong format.

message e000 with 'Wrong file format'."Message id should be used in report statment.

leave list-processing.

endif.

Re: Text File Uploading

Former Member — Thu, 07 Dec 2006 10:53:00 GMT

hi,

here is the sample program .please go thru this.

&----

*& Report ZALV_POPUP

*& program to use alv popup to select *

&----

*& *

&----

REPORT ZALV_POPUP .

TYPE-POOLS : SLIS.

DATA : GT_OUTTAB TYPE VBAK OCCURS 0,

GS_PRIVATE TYPE SLIS_DATA_CALLER_EXIT,

GS_SELFIELD TYPE SLIS_SELFIELD.

DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA : ITAB TYPE TABLE OF SLIS_SELFIELD,

WA_ITAB LIKE LINE OF ITAB.

START-OF-SELECTION.

PERFORM POPULATE_GT_OUTTAB.

PERFORM GET_POPUP.

PERFORM POPULATE_ITAB.

PERFORM FIELDCAT.

PERFORM DISPLAY_DETAILS.

&----

*& Form FIELDCAT

&----

text

----

--> p1 text
<-- p2 text

----

FORM FIELDCAT .

LOOP AT ITAB INTO WA_ITAB.

WA_FIELDCAT-FIELDNAME = 'TABINDEX'.

WA_FIELDCAT-TABNAME = 'WA_ITAB'.

WA_FIELDCAT-COL_POS = 1.

WA_FIELDCAT-SELTEXT_L = 'TABLE INDEX'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'SEL_TAB_FIELD'.

WA_FIELDCAT-TABNAME = 'WA_ITAB'.

WA_FIELDCAT-COL_POS = 2.

WA_FIELDCAT-OUTPUTLEN = 20.

WA_FIELDCAT-SELTEXT_L = 'FIELD NAME'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'VALUE'.

WA_FIELDCAT-TABNAME = 'WA_ITAB'.

WA_FIELDCAT-COL_POS = 3.

WA_FIELDCAT-SELTEXT_L = 'FIELD VALUE'.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

ENDLOOP.

ENDFORM. " FIELDCAT

&----

*& Form POPULATE_GT_OUTTAB

&----

text

----

--> p1 text
<-- p2 text

----

FORM POPULATE_GT_OUTTAB .

SELECT * FROM VBAK

UP TO 10 ROWS

INTO TABLE GT_OUTTAB.

ENDFORM. " POPULATE_GT_OUTTAB

&----

*& Form GET_POPUP

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_POPUP .

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

I_TITLE = 'SALES ORDER'

I_SELECTION = 'X'
I_ALLOW_NO_SELECTION =

I_ZEBRA = 'X'

I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_CHECKBOX_FIELDNAME =
I_LINEMARK_FIELDNAME =
I_SCROLL_TO_SEL_LINE = 'X'

I_TABNAME = 'SALES ORDER'

I_STRUCTURE_NAME = 'VBAK'

IT_FIELDCAT =
IT_EXCLUDING =
I_CALLBACK_PROGRAM =
I_CALLBACK_USER_COMMAND =

IS_PRIVATE = GS_PRIVATE

IMPORTING

ES_SELFIELD = GS_SELFIELD

E_EXIT = G_EXIT

TABLES

T_OUTTAB = GT_OUTTAB

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.

ENDFORM. " GET_POPUP

&----

*& Form POPULATE_ITAB

&----

text

----

--> p1 text
<-- p2 text

----

FORM POPULATE_ITAB .

WA_ITAB-TABNAME = GS_SELFIELD-TABNAME.

WA_ITAB-TABINDEX = GS_SELFIELD-TABINDEX.

WA_ITAB-SEL_TAB_FIELD = GS_SELFIELD-SEL_TAB_FIELD.

WA_ITAB-VALUE = GS_SELFIELD-VALUE.

APPEND WA_ITAB TO ITAB.

ENDFORM. " POPULATE_ITAB

&----

*& Form DISPLAY_DETAILS

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_DETAILS .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =

IT_FIELDCAT = IT_FIELDCAT

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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB

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.

ENDFORM. " DISPLAY_DETAILS

&----

*& Report ZALV_PROGRAM *

*& program for alv list *

&----

*& *

&----

REPORT ZALV_PROGRAM

no standard page heading.

tables: vepo.

type-pools: slis.

parameters: p_venum type vepo-venum.

data : dt_fieldcat type slis_t_fieldcat_alv.

data: begin of dt_vepo occurs 0,

venum like vepo-venum,

vepos like vepo-vepos,

vbeln like vepo-vbeln,

posnr like vepo-posnr,

end of dt_vepo.

select venum

vepos

vbeln

posnr

into table dt_vepo

from vepo

where venum = p_venum.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = sy-repid

I_INTERNAL_TABNAME = 'dt_vepo'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = sy-repid

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = dt_fieldcat

EXCEPTIONS

INCONSISTENT_INTERFACE = 1

PROGRAM_ERROR = 2

OTHERS = 3

IF SY-SUBRC <> 0.

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

ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =

IT_FIELDCAT = dt_fieldcat

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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = dt_vepo

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.

regards,

deepthi reddy

Re: Text File Uploading

Former Member — Thu, 07 Dec 2006 10:53:09 GMT

If the file names are different for different formats. Then you can check the file name based on selected radio button, on event At selection-screen.

topic Re: Text File Uploading in Application Development and Automation Discussions

Text File Uploading

Re: Text File Uploading

Re: Text File Uploading

Re: Text File Uploading