‎2007 Apr 10 3:11 PM
Hi all,
following Program is working fine in foreground, when i am scheduling it is not working, plz find if there is any problem in coding.
DATA: PATH(256) TYPE C.
DATA: DIR_SEC LIKE EPSF-EPSDIRNAM,
DIR_PROCESS LIKE EPSF-EPSDIRNAM,
DIR_INBOUND LIKE EPSF-EPSDIRNAM,
DIR_ERROR LIKE EPSF-EPSDIRNAM.
DATA: FILE_MASK LIKE EPSF-EPSFILNAM VALUE 'TEMP_.'.
DATA: FILE_INBOUND LIKE EPSFILI OCCURS 0 WITH HEADER LINE,
FILE_BACKUP LIKE EPSFILI OCCURS 0 WITH HEADER LINE.
DATA: LOC LIKE SXPGCOLIST-PARAMETERS,
RET_CODE LIKE EXTCMDEXEX-STATUS.
DATA: BEGIN OF PROT_TAB OCCURS 10.
INCLUDE STRUCTURE BTCXPM.
DATA: END OF PROT_TAB.
*DIR_SEC = '
172.19.2.249\pos\inbound'.
read directory
CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
EXPORTING
DIR_NAME = DIR_SEC
DIR_NAME = '
172.19.2.249\pos\inbound_pos'
FILE_MASK = FILE_MASK
IMPORTING
DIR_NAME =
FILE_COUNTER =
ERROR_COUNTER =
TABLES
DIR_LIST = FILE_INBOUND
EXCEPTIONS
INVALID_EPS_SUBDIR = 1
SAPGPARAM_FAILED = 2
BUILD_DIRECTORY_FAILED = 3
NO_AUTHORIZATION = 4
READ_DIRECTORY_FAILED = 5
TOO_MANY_READ_ERRORS = 6
EMPTY_DIRECTORY_LIST = 7
OTHERS = 8.
IF SY-SUBRC <> 0.
IF SY-SUBRC = 7.
MESSAGE S083(TRUST).
RETURN.
ELSE.
MESSAGE E081(TRUST) WITH DIR_SEC.
ENDIF.
ENDIF.
CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
EXPORTING
DIR_NAME = DIR_SEC
DIR_NAME = '
172.19.2.249\pos\inbound_archive'
FILE_MASK = FILE_MASK
IMPORTING
DIR_NAME =
FILE_COUNTER =
ERROR_COUNTER =
TABLES
DIR_LIST = FILE_BACKUP
EXCEPTIONS
INVALID_EPS_SUBDIR = 1
SAPGPARAM_FAILED = 2
BUILD_DIRECTORY_FAILED = 3
NO_AUTHORIZATION = 4
READ_DIRECTORY_FAILED = 5
TOO_MANY_READ_ERRORS = 6
EMPTY_DIRECTORY_LIST = 7
OTHERS = 8.
IF SY-SUBRC <> 0.
IF SY-SUBRC = 7.
MESSAGE S083(TRUST).
RETURN.
ELSE.
MESSAGE E081(TRUST) WITH DIR_SEC.
ENDIF.
ENDIF.
LOOP AT FILE_INBOUND.
READ TABLE FILE_BACKUP WITH KEY NAME = FILE_INBOUND-NAME.
IF SY-SUBRC <> 0.
CONCATENATE '
172.19.2.249\pos\inbound_process\' FILE_INBOUND-NAME INTO DIR_PROCESS.
condense DIR_PROCESS.
CONCATENATE '
172.19.2.249\pos\inbound_pos\' FILE_INBOUND-NAME INTO DIR_INBOUND.
condense DIR_INBOUND.
CONCATENATE DIR_INBOUND DIR_PROCESS INTO LOC separated BY SPACE.
condense LOC.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
EXPORTING
COMMANDNAME = 'ZMOVE'
OPERATINGSYSTEM = 'Windows NT'
ADDITIONAL_PARAMETERS = LOC
STDERR = 'X'
STDOUT = 'X'
TARGETSYSTEM = DB_HOST
DESTINATION = XPG_DEST
TERMINATIONWAIT = 'X'
TRACE = ' '
IMPORTING
STATUS = RET_CODE
TABLES
EXEC_PROTOCOL = PROT_TAB
EXCEPTIONS
COMMAND_NOT_FOUND = 01
NO_PERMISSION = 02
PARAMETERS_TOO_LONG = 03
PARAMETER_EXPECTED = 04
PROGRAM_START_ERROR = 05
PROGRAM_TERMINATION_ERROR = 06
SECURITY_RISK = 07
TOO_MANY_PARAMETERS = 08
WRONG_CHECK_CALL_INTERFACE = 09
X_ERROR = 10
OTHERS = 11.
write 'sai'.
ELSE.
CONCATENATE '
172.19.2.249\pos\inbound_pos\' FILE_INBOUND-NAME INTO DIR_INBOUND.
condense DIR_INBOUND.
CONCATENATE '
172.19.2.249\pos\inbound_errorfile\' FILE_INBOUND-NAME INTO DIR_ERROR.
condense DIR_PROCESS.
CONCATENATE DIR_INBOUND DIR_ERROR INTO LOC separated BY SPACE.
condense LOC.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
EXPORTING
COMMANDNAME = 'ZMOVE'
OPERATINGSYSTEM = 'Windows NT'
ADDITIONAL_PARAMETERS = LOC
STDERR = 'X'
STDOUT = 'X'
TARGETSYSTEM = DB_HOST
DESTINATION = XPG_DEST
TERMINATIONWAIT = 'X'
TRACE = ' '
IMPORTING
STATUS = RET_CODE
TABLES
EXEC_PROTOCOL = PROT_TAB
EXCEPTIONS
COMMAND_NOT_FOUND = 01
NO_PERMISSION = 02
PARAMETERS_TOO_LONG = 03
PARAMETER_EXPECTED = 04
PROGRAM_START_ERROR = 05
PROGRAM_TERMINATION_ERROR = 06
SECURITY_RISK = 07
TOO_MANY_PARAMETERS = 08
WRONG_CHECK_CALL_INTERFACE = 09
X_ERROR = 10
OTHERS = 11.
ENDIF.
WRITE 'SAI'.
endloop.
‎2007 Apr 10 3:36 PM
Hi,
Plz try to answer my problem, useful answers will be rewarded.
Thnx&Regards,
Sai
‎2007 Apr 10 7:06 PM
the only thing I can think of is that your function modules don't work in the Background ? Have you checked them ? Lot of FM's like GUI_DOWNLOAD etc don't work in the background. Perhaps your FM's function similarly ?