List

Former Member — Thu, 17 Aug 2006 17:15:07 GMT

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,

Re: List

RichHeilman — Thu, 17 Aug 2006 17:20:09 GMT

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

Re: List

Former Member — Thu, 17 Aug 2006 17:21:38 GMT

Rich ,

With out exporting list memory we cannot get taht file?

Re: List

Former Member — Thu, 17 Aug 2006 17:24:01 GMT

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

Re: List

RichHeilman — Thu, 17 Aug 2006 17:24:27 GMT

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

Regards,

Rich Heilman

Re: List

Former Member — Thu, 17 Aug 2006 17:30:50 GMT

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.

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.

topic Re: List in Application Development and Automation Discussions

List

Re: List

Re: List

Re: List

Re: List

Re: List