topic Subroutine in Application Development and Automation Discussions

Subroutine

Former Member — Mon, 21 Apr 2008 11:50:36 GMT

Hi all,

Can the function module 'gui_upload' and gui_download called in a sub routine perform (form end form). Im gettin problems while getting it in the subroutine.

regards

Re: Subroutine

former_member188827 — Mon, 21 Apr 2008 11:51:38 GMT

yes dey can be called...

wats da problem?send ur code

Re: Subroutine

Sm1tje — Mon, 21 Apr 2008 11:52:03 GMT

Yes it can...

Re: Subroutine

Former Member — Mon, 21 Apr 2008 11:52:23 GMT

Hi,

Yes it is possible , we can call function modules within the subroutines.But the code should be in sequence ie: execution should be perfect . u have to fetch the records from flat file and keep them in internal table and from the internal table u need to populate.

<REMOVED BY MODERATOR>

thanks & regards,

ganesh.

Edited by: Alvaro Tejada Galindo on Apr 21, 2008 6:01 PM

Re: Subroutine

Former Member — Mon, 21 Apr 2008 12:04:06 GMT

Hi,

once try with this code.

tables : mara, makt.

types : begin of ty_mara,

matnr like mara-matnr,

mbrsh like mara-mbrsh,

mtart like mara-mtart,

maktx like makt-maktx,

meins like mara-meins,

end of ty_mara.

data : v_file type string.

data : it_mara type table of ty_mara,

wa_mara type ty_mara.

parameters : p_file like IBIPPARMS-PATH.

at selection-screen on value-request for p_file.

CALL FUNCTION 'F4_FILENAME'

EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '

IMPORTING

FILE_NAME = p_file .

start-of-selection.

perform upload.

end-of-selection.

loop at it_mara into wa_mara.

write 😕 wa_mara-matnr,

wa_mara-mbrsh,

wa_mara-mtart,

wa_mara-maktx,

wa_mara-meins.

endloop.

form upload.

move p_file to v_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = v_file

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
VIRUS_SCAN_PROFILE =
NO_AUTH_CHECK = ' '
IMPORTING
FILELENGTH =
HEADER =

tables

data_tab = it_mara

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.

endform.

Re: Subroutine

Former Member — Mon, 21 Apr 2008 12:19:30 GMT

Hi,

You can write the code like this:

Declerations:

obtain the file from front end

satrt-of-selection

perform sub.

form sub.

call fm gui_upload.

Flie1 is uploaded into itab.

call fm gui_download.

data is downloaded from itab to file2.

endform.

refer the file on front end.

Rgds

Umakanth