Let me explain my problem. I have ctraed a program with submit program . my main program does not contain any write statement but my submit program contain write statement . I need to submit my main program for batch for every 15 mins my program shold raise 1 new job with job_open and extc f.m. after raising job it should disply submit program output in spool .but its not displaying.
this my code.
ORM CHECK_FIRST.
SELECT * FROM ZFILEDIR INTO TABLE IT_FILEDIR .
FREE ITAB_SPOOL.
CLEAR ITAB_SPOOL.
LOOP AT IT_FILEDIR.
CLEAR :ZJOB, P_DIR, P_FILE, STATUS.
FREE FILE.
SELECT SINGLE * FROM ZFILEEVENT WHERE FILENAME = IT_FILEDIR-FILENAME
AND UCRDATE = P_DATE
AND ZJFLAG = 'X'.
IF SY-SUBRC = 0.
*skip event raise, get next file name.
CONTINUE.
ELSE.
*check file in app.server
CONCATENATE '/export/SAPtf/dlcinc/' IT_FILEDIR-ZDIRECT INTO P_DIR.
CONCATENATE P_DIR '/' IT_FILEDIR-FILENAME INTO P_FILE.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
EXPORTING
COMMANDNAME = 'ZREADFILES'
ADDITIONAL_PARAMETERS = P_FILE
OPERATINGSYSTEM = 'UNIX'
TARGETSYSTEM = SY-HOST
DESTINATION =
STDOUT = 'X'
STDERR = 'X'
TERMINATIONWAIT = 'X'
TRACE =
IMPORTING
EXITCODE = STATUS
TABLES
EXEC_PROTOCOL = FILE
EXCEPTIONS
NO_PERMISSION = 1
COMMAND_NOT_FOUND = 2
PARAMETERS_TOO_LONG = 3
SECURITY_RISK = 4
WRONG_CHECK_CALL_INTERFACE = 5
PROGRAM_START_ERROR = 6
PROGRAM_TERMINATION_ERROR = 7
X_ERROR = 8
PARAMETER_EXPECTED = 9
TOO_MANY_PARAMETERS = 10
ILLEGAL_COMMAND = 11
WRONG_ASYNCHRONOUS_PARAMETERS = 12
CANT_ENQ_TBTCO_ENTRY = 13
JOBCOUNT_GENERATION_ERROR = 14
OTHERS = 15
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF STATUS <> 0.
*if file not found ,get next file
CONTINUE.
ELSE.
**
CONCATENATE IT_FILEDIR-ZDIRECT IT_FILEDIR-OLD_SID INTO ZJOB.
ZFILEEVENT-ZDIRECT = P_DIR.
ZFILEEVENT-FILENAME = IT_FILEDIR-FILENAME.
ZFILEEVENT-UCRDATE = P_DATE.
ZFILEEVENT-ZJFLAG = 'X'.
ZFILEEVENT-OLD_SID = IT_FILEDIR-OLD_SID.
ZFILEEVENT-ZJOB = ZJOB.
MODIFY ZFILEEVENT.
SUBMIT ZFWATCH6 WITH P_EVNTID = IT_FILEDIR-ZEVENT
WITH P_EVNTPM = IT_FILEDIR-ZPARAMETER
AND RETURN .
CLEAR IT_FILEDIR.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
*----
*--
FORM CHECK_TIME--
----
FORM CHECK_TIME.
STIME = SY-UZEIT + 900.
IF STIME < TIME.
*raise file look job for every 15 mins.
PERFORM RAISE_JOB.
ELSE.
*daily job is runing at 00:01:00
*P_DATE = SY-DATUM + 1.
*STIME = '000100'.
*PERFORM RAISE_JOB.
ENDIF.
ENDFORM.
*----
*--
FORM RAISE_JOB--
----
FORM RAISE_JOB.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
DELANFREP = ' '
JOBGROUP = ' '
JOBNAME = 'FILEEVENT'
SDLSTRTDT = P_DATE
SDLSTRTTM = STIME
JOBCLASS = 'A'
IMPORTING
JOBCOUNT = COUNT
.
CALL FUNCTION 'JOB_SUBMIT'
EXPORTING
AUTHCKNAM = sy-uname
JOBCOUNT = COUNT
JOBNAME = 'FILEEVENT'
LANGUAGE = SY-LANGU
PRIPARAMS = IT_EVENT
REPORT = 'ZFL_DLC_FILEEVENT'
VARIANT = 'ALLJOBSEVENTS'
.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
JOBCOUNT = COUNT
JOBNAME = 'FILEEVENT'
SDLSTRTDT = P_DATE
SDLSTRTTM = STIME.
ENDFORM.
Bluesky
