File server---Help!

Former Member — Fri, 09 Feb 2007 05:06:21 GMT

Hello Everyone,

I have a requirement, it goes like this----

1) Files(.csv) are downloaded to a place holder (directory) on to file server from various sytems.

2) All Files should be read from the directory.

3) Run the bdc for each file.

4) Depending on the status of BDC---i)if error: Move that particular files to different directory(error directory) on the file server

ii) If success move to another directory on the file server

5) Delete the files from palceholder directory.

Now I have written a program to all those functions. Its working fine as long as run that in fore ground. The problem is when i schedule the program to run in background, nothing happens.

the problem is that iam using FM's which are meant for reading from GUI(Quite obvious in background dosent work)

The FM's i Used are

'TMP_GUI_DIRECTORY_LIST_FILES' -

to get all the files from directory.

CALL METHOD cl_gui_frontend_services=>file_copy----to copy to different folders

CALL METHOD cl_gui_frontend_services=>file_delete---delete the files from folder.

Can any body suggest any alternate FM's so that i can schedule and run the program in background.

File path is some similar to
folde\directory\xyz.csv

Regards

Re: File server---Help!

Former Member — Fri, 09 Feb 2007 05:41:01 GMT

Check the following ex:

PERFORM SUB_FILE_PATH.

PERFORM SUB_GET_FILE.

IF IT_FILEDIR1[] IS INITIAL.

WRITE:/ ' FILE NOT FOUND '.

STOP.

ENDIF.

PERFORM SUB_READ_FILE.

*PERFORM SUB_FILL_BDCDATA_ACC.

PERFORM SUB_SEND_MAIL.

&----

*& Form SUB_FILE_PATH

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_FILE_PATH .

if sy-host = 'sanyobplsap' or sy-host = 'SANYOBPLSAP'.

gfile = 'D:\SAP_INT\INBOUND\INBOX'.

ifile = 'D:\SAP_INT\INBOUND\LOG'.

hfile = 'D:\SAP_INT\INBOUND\OUTBOX'.

ENDIF.

if sy-host = 'sapqm' or sy-host = 'SAPQM'.

gfile = 'E:\SAP_INT\INBOUND\INBOX'.

ifile = 'E:\SAP_INT\INBOUND\LOG'.

hfile = 'E:\SAP_INT\INBOUND\OUTBOX'.

ENDIF.

if sy-host = 'sapgrp' or sy-host = 'SAPGRP'.

gfile = 'S:\SAP_INT\INBOUND\INBOX'.

ifile = 'S:\SAP_INT\INBOUND\LOG'.

hfile = 'S:\SAP_INT\INBOUND\OUTBOX'.

ENDIF.

select count(*) from ZMM_INT_STATUS into g_count.

ENDFORM. " SUB_FILE_PATH

&----

*& Form SUB_GET_FILE

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_GET_FILE .

p_fdir = gfile.

call function 'RZL_READ_DIR_LOCAL'

EXPORTING

name = p_fdir

TABLES

file_tbl = it_filedir.

data: it_filedir1 like it_filedir occurs 0 with header line.

loop at it_filedir.

if it_filedir-name(6) = 'AQCICR' OR it_filedir-name(6) = 'aqcicr'

OR it_filedir-name(6) = 'AQcicr'.

move it_filedir-name to it_filedir1-name.

append it_filedir1.

endif.

endloop.

ENDFORM. " SUB_GET_FILE

&----

*& Form SUB_READ_FILE

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_READ_FILE .

loop at it_filedir1.

REFRESH I_TAB.

CLEAR I_TAB.

REFRESH I_TAB2.
REFRESH ITAB1.

data: g_file(100) type c .

name = it_filedir1-name.

concatenate: gfile '\' name into g_file.

data : i_tab1(500).

OPEN DATASET g_file FOR INPUT IN TEXT MODE

ENCODING DEFAULT

IGNORING CONVERSION ERRORS.

IF SY-SUBRC EQ 0.

DO.

READ DATASET g_file INTO i_tab1.

if sy-subrc = 0.

split i_tab1 at ',' into I_TAB-SOL_PONO I_TAB-SOL_PODT

I_TAB-SOLOMON_GR I_TAB-SOLOMON_GRDAT I_TAB-WERKS

I_TAB-EBELP I_TAB-MATNR I_TAB-ERFMG

I_TAB-LGOBE I_TAB-BKTXT I_TAB-LFSNR I_TAB-EXNUM

I_TAB-EXDAT1 I_TAB-EXNUM1 I_TAB-GJAHR.

concatenate I_TAB-SOL_PONO '#' I_TAB-SOL_PODT into

I_TAB-ABLAD1.

CONCATENATE I_TAB-SOLOMON_GR '#' I_TAB-SOLOMON_GRDAT INTO

I_TAB-ABLAD2.

concatenate I_TAB-SOL_PONO '#'

I_TAB-SOL_PODT into verkf1.

select single * from ekko where verkf = verkf1..

if sy-subrc = 0.

I_TAB-EBELN = EKKO-EBELN.

endif.

else.

PERFORM SUB_UPDATE_ERR.

exit.

endif.

APPEND I_TAB.

clear I_TAB.

ENDDO.

ENDIF.

CLOSE DATASET g_file.

I_ITEMS[] = I_TAB[].

DELETE ADJACENT DUPLICATES FROM I_TAB COMPARING SOLOMON_GR.

IF NOT I_TAB[] IS INITIAL.

concatenate 'File Name : ' name into i_msg1.

append i_msg1.

concatenate 'File Name : ' name into i_msg2.

append i_msg2.

LOOP AT I_TAB.

count = sy-tabix.

SELECT SINGLE * FROM ZMM_GR_UPLOAD1

WHERE SOLOMON_GR = I_TAB-SOLOMON_GR AND

SOLOMON_GRDAT = I_TAB-SOLOMON_GRDAT AND

GRTYPE = 'AQ'.

IF SY-SUBRC = 0.

I_TAB-FLAG = 'C'.

modify i_tab index count.

CONCATENATE 'ERROR PO : ' I_TAB-SOL_PONO

' WAS ALREADY UPLOADED' INTO I_MSG1.

APPEND I_MSG1.

CONCATENATE 'ERROR PO : ' I_TAB-SOL_PONO

' WAS ALREADY UPLOADED' INTO I_MSG2.

APPEND I_MSG2.

CLEAR I_TAB-FLAG.

CONTINUE.

ELSE.

CONCATENATE I_TAB-SOLOMON_GR ','

I_TAB-SOLOMON_GRDAT INTO I_MSG1.

APPEND I_MSG1.

CONCATENATE I_TAB-SOLOMON_GR ','

I_TAB-SOLOMON_GRDAT INTO I_MSG2.

APPEND I_MSG2.

G_DATE = I_TAB-SOLOMON_GRDAT.

REFRESH I_BDCDATA.

CLEAR I_BDCDATA.

PERFORM SUB_FILL_BDCDATA_ACC.

IF NOT I_BDCMSGCOLL[] IS INITIAL.

PERFORM SUB_FORMAT_ERRMSG.

ENDIF.

ENDLOOP.

***Delete file from app server if it is success

CLEAR G_FLAG.

LOOP AT I_TAB WHERE FLAG <> 'C'.

G_FLAG = 'X'.

ENDLOOP.

IF G_FLAG <> 'X'.

CLEAR G_FLAG.

PERFORM SUB_UPDATE_SUC.

DELETE DATASET g_file.

ENDIF.

****** Begin of log creation

concatenate: ifile '\' date1 '\' name into i_file.

IF NOT I_MSG2[] IS INITIAL.

OPEN DATASET i_file FOR OUTPUT IN TEXT MODE

ENCODING DEFAULT

IGNORING CONVERSION ERRORS.

IF SY-SUBRC EQ 0.

LOOP AT I_MSG2.

TRANSFER I_MSG2 TO i_file.

ENDLOOP.

ENDIF.

CLOSE DATASET i_file.

REFRESH I_MSG2.

CLEAR I_MSG2.

ENDIF.

****End of log creation

ENDLOOP.

ENDFORM. " SUB_READ_FILE

&----

*& Form SUB_FILL_BDCDATA_ACC

&----

text

----

FORM SUB_FILL_BDCDATA_ACC .

perform bdc_dynpro using 'SAPMM07M' '0200'.

perform bdc_field using 'BDC_CURSOR'

'RM07M-LGORT'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

*perform bdc_field using 'MKPF-BLDAT'

'01.10.2005'.

perform bdc_field using 'MKPF-BUDAT'

G_DATE.

perform bdc_field using 'MKPF-BKTXT'

I_TAB-BKTXT.

perform bdc_field using 'RM07M-LFSNR'

I_TAB-LFSNR.

perform bdc_field using 'RM07M-BWARTWE'

'101'.

perform bdc_field using 'RM07M-EBELN'

I_TAB-EBELN.

perform bdc_field using 'RM07M-WERKS'

I_TAB-WERKS.

*perform bdc_field using 'RM07M-LGORT'

I_TAB-LGOBE.

perform bdc_field using 'XFULL'

'X'.

perform bdc_field using 'RM07M-WVERS1'

'X'.

perform bdc_dynpro using 'SAPLJ1I4' '0100'.

perform bdc_field using 'BDC_OKCODE'

'=ENTE'.

perform bdc_field using 'BDC_CURSOR'

'J_1IEXCHDR-EXNUM'.

perform bdc_field using 'J_1IEXCHDR-EXGRP'

'1'.

perform bdc_field using 'J_1IPART1-REGTYP'

'A'.

perform bdc_field using 'J_1IEXCHDR-EXNUM'

I_TAB-EXNUM.

*perform bdc_field using 'J_1IEXCHDR-EXYEAR'

'2005'.

perform bdc_dynpro using 'SAPMM07M' '0221'.

perform bdc_field using 'BDC_CURSOR'

'MSEG-ERFMG(01)'.

perform bdc_field using 'BDC_OKCODE'

'=SP'.

LOOP AT I_ITEMS WHERE SOLOMON_GR = I_TAB-SOLOMON_GR.

perform bdc_dynpro using 'SAPMM07M' '0210'.

perform bdc_field using 'BDC_CURSOR'

'MSEG-ERFMG'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'MSEG-ERFMG'

I_ITEMS-ERFMG.

*perform bdc_field using 'MSEG-ERFME'

'EA'.

perform bdc_field using 'MSEG-LGORT'

I_ITEMS-LGOBE.

*perform bdc_field using 'MSEG-WEANZ'

I_ACTQ-EFRMG.

perform bdc_field using 'MSEG-ABLAD'

I_ITEMS-ABLAD2.

ENDLOOP.

perform bdc_dynpro using 'SAPMM07M' '0221'.

perform bdc_field using 'BDC_CURSOR'

'MKPF-BUDAT'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

CALL TRANSACTION 'MB01' USING I_BDCDATA

MODE 'N'

UPDATE 'S' messages into I_BDCMSGCOLL.

IF SY-SUBRC EQ 0.

ZMM_GR_UPLOAD1-N_GR = I_TAB-SOLOMON_GR.

ZMM_GR_UPLOAD1-N_GRDAT = I_TAB-SOLOMON_GRDAT.

ZMM_GR_UPLOAD1-GRTYPE = 'AQ'.

INSERT ZMM_GR_UPLOAD1.

COMMIT WORK.

I_TAB-FLAG = 'C'.

MODIFY I_TAB INDEX COUNT.

PERFORM SUB_UPDATE_SUC.

ENDIF.

ENDFORM. " SUB_FILL_BDCDATA_ACC

&----

*& Form bdc_dynpro

&----

text

----

FORM bdc_dynpro USING program dynpro.

CLEAR i_bdcdata.

i_bdcdata-program = program.

i_bdcdata-dynpro = dynpro.

i_bdcdata-dynbegin = 'X'.

APPEND i_bdcdata.

ENDFORM. " bdc_dynpro

&----

*& Form bdc_field

&----

text

----

FORM bdc_field USING fnam fval.

CLEAR i_bdcdata.

i_bdcdata-fnam = fnam.

i_bdcdata-fval = fval.

APPEND i_bdcdata.

ENDFORM. " bdc_field

&----

*& Form SUB_FORMAT_ERRMSG

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_FORMAT_ERRMSG .

LOOP AT I_BDCMSGCOLL.

WRITE 😕 I_BDCMSGCOLL.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = I_BDCMSGCOLL-MSGID

LANG = I_BDCMSGCOLL-MSGSPRA

NO = I_BDCMSGCOLL-MSGNR

V1 = I_BDCMSGCOLL-MSGV1

V2 = I_BDCMSGCOLL-MSGV2

V3 = I_BDCMSGCOLL-MSGV3

V4 = I_BDCMSGCOLL-MSGV4

IMPORTING

MSG = V_MSG1.

EXCEPTIONS
NOT_FOUND = 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.

MOVE V_MSG1 TO I_MSG1.

APPEND I_MSG1.

MOVE V_MSG1 TO I_MSG2.

APPEND I_MSG2.

clear v_msg1.

clear i_msg1.

ENDLOOP.

ENDFORM. " SUB_FORMAT_ERRMSG

&----

*& Form SUB_SEND_MAIL

&----

text

----

--> p1 text
<-- p2 text

----

FORM SUB_SEND_MAIL .

DATA: BEGIN OF EMAIL_DATA.

INCLUDE STRUCTURE SODOCCHGI1.

DATA: END OF EMAIL_DATA.

DATA: BEGIN OF EMAIL_SEND OCCURS 10.

INCLUDE STRUCTURE SOMLRECI1.

DATA: END OF EMAIL_SEND.

if not i_msg1[] is initial.

select * from zmmint_usr into corresponding fields of table it_usr

where werks = c_plant and tx_id = 'CICR'.

if sy-subrc = 0.

loop at it_usr.

EMAIL_DATA-OBJ_NAME = 'MESSAGE'.

EMAIL_DATA-OBJ_DESCR = 'ICRR (Import Accepted Qty) UPLOAD'.

EMAIL_DATA-OBJ_LANGU = 'E'.

EMAIL_DATA-SENSITIVTY = 'P'.

EMAIL_DATA-OBJ_PRIO = '1'.

EMAIL_DATA-NO_CHANGE = 'X'.

EMAIL_DATA-PRIORITY = '1'.

EMAIL_SEND-RECEIVER = it_usr-uname.

EMAIL_SEND-REC_TYPE = 'B'.

EMAIL_SEND-EXPRESS = 'X'.
EMAIL_SEND-REC_ID = sy-uname.

APPEND EMAIL_SEND.

endloop.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_DATA = EMAIL_DATA

DOCUMENT_TYPE = 'RAW'

PUT_IN_OUTBOX = 'X'

TABLES

OBJECT_CONTENT = I_MSG1

RECEIVERS = EMAIL_SEND.

endif.

ENDFORM. " SUB_SEND_MAIL

topic File server---Help! in Application Development and Automation Discussions

File server---Help!

Re: File server---Help!

Re: File server---Help!

Re: File server---Help!