List

[Former Member]

Hi all ,

SUBMIT ZFWATCH6 WITH P_EVNTID = IT_FILEDIR-ZEVENT

WITH P_EVNTPM = IT_FILEDIR-ZPARAMETER

AND RETURN .

this is my code I need to get my submit program out put in main program .how can i get that one?

Thanks,

[RichHeilman]

Like I said yesterday, In order to get the output of the submitted program back into the main program which it was called from, you need to use the EXPORTING LIST TO MEMEORY extension of the SUBMIT statement. Check the example code that I posted yesterday.

Regards,

Rich Heilman

[Former Member]

Rich ,

With out exporting list memory we cannot get taht file?

[RichHeilman]

Where else are you going to get it from, in that statement you are not pushing to spool.

Regards,

Rich Heilman

[Former Member]

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

• STATUS = STATUS

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.

• if file found , raise event and insert record zfileevent table

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

• ARCPARAMS =

AUTHCKNAM = sy-uname

• COMMANDNAME = ' '

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.

[Former Member]

sorry to interrupt, but you cannot get the value of those itab's without exporting it to memory.