Text File Uploading

[Former Member]

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.

[jayanthi_jayaraman]

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.

[Former Member]

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

[Former Member]

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.