Program to create and process a batch input session

Former Member — Fri, 28 Jun 2013 18:52:33 GMT

Hi Guys,

I would like to write a program that create and process a batch input session. A message should be given out if the job didnt work (errors during the process).

Can you explain me what happen during each steps.

In example:

CALL FUNCTION 'JOB_SUBMIT'

EXPORTING

...

jobname = 'JOBNAME'

report = 'RFBIBL00'

EXCEPTIONS

.....

if sy-subrc <> 0

... Error message : job JOBNAME has error during the process

CALL FUNCTION 'JOB_CLOSE'

EXPORTING

....

IMPORTING

......

A simple working example with explanation will be great.

Re: Program to create and process a batch input session

Former Member — Fri, 28 Jun 2013 19:41:23 GMT

Hello,

JOB_OPEN->For opening a job in the background

JOB_SUBMIT->For submitting the job

JOB_CLOSE->For closing the job.

Example program

****************************

REPORT ZMAILSPOOL.

INCLUDE LBTCHDEF.

Include the Business Object Repository object

INCLUDE <CNTN01>. DATA ABAPNM LIKE SY-REPID. DATA BEGIN OF LOCAL_JOB. INCLUDE STRUCTURE TBTCJOB. DATA END OF LOCAL_JOB. DATA BEGIN OF LOCAL_STEP_TBL OCCURS 10. INCLUDE STRUCTURE TBTCSTEP. DATA END OF LOCAL_STEP_TBL.

Data declarations for the mail recipient

DATA RECIPIENT TYPE SWC_OBJECT. DATA RECIPIENT_OBJ LIKE SWOTOBJID. SWC_CONTAINER CONTAINER.

Data declarations for the background job

PARAMETERS ABAPNAME(20) DEFAULT 'ZTEST1'. PARAMETERS EMPFNAME LIKE SY-UNAME DEFAULT SY-UNAME. ABAPNM = ABAPNAME. LOCAL_JOB-JOBNAME = ABAPNAME.

Generate recipient object (see report RSSOKIF1 for an example)

IF EMPFNAME <> SPACE. "** 1.1 Generate an object reference to a recipient object SWC_CREATE_OBJECT RECIPIENT 'RECIPIENT' SPACE. "** 1.2 Write the import parameters for method "** recipient.createaddress into the container "** and empty the container SWC_CLEAR_CONTAINER CONTAINER. "** Set address element (internal user 'JSMITH') SWC_SET_ELEMENT CONTAINER 'AddressString' EMPFNAME. "** Set address type (internal user) SWC_SET_ELEMENT CONTAINER 'TypeId' 'B'. "** 1.3 Call the method recipient.createaddress SWC_CALL_METHOD RECIPIENT 'CreateAddress' CONTAINER. "** Issue any error message generated by a method exception IF SY-SUBRC NE 0. MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO. ENDIF. SWC_CALL_METHOD RECIPIENT 'Save' CONTAINER. SWC_OBJECT_TO_PERSISTENT RECIPIENT RECIPIENT_OBJ. ENDIF.

Recipient has been generated and is ready for use in a
background job

CALL FUNCTION 'JOB_OPEN' exporting

DELANFREP = ' '
JOBGROUP = ' '

jobname = LOCAL_JOB-JOBNAME

SDLSTRTDT = NO_DATE
SDLSTRTTM = NO_TIME

IMPORTING JOBCOUNT = LOCAL_JOB-JOBCOUNT EXCEPTIONS CANT_CREATE_JOB = 1 INVALID_JOB_DATA = 2 JOBNAME_MISSING = 3 OTHERS = 4 . if sy-subrc <> 0. WRITE: / 'JOB_OPEN PROBLEM ', SY-SUBRC. ELSE. WRITE: / 'JOB OPEN SUCCESS', LOCAL_JOB-JOBNAME, LOCAL_JOB-JOBCOUNT. endif. CALL FUNCTION 'JOB_SUBMIT' exporting

ARCPARAMS =

authcknam = SY-UNAME

COMMANDNAME = ' '
OPERATINGSYSTEM = ' '
EXTPGM_NAME = ' '
EXTPGM_PARAM = ' '
EXTPGM_SET_TRACE_ON = ' '
EXTPGM_STDERR_IN_JOBLOG = 'X'
EXTPGM_STDOUT_IN_JOBLOG = 'X'
EXTPGM_SYSTEM = ' '
EXTPGM_RFCDEST = ' '
EXTPGM_WAIT_FOR_TERMINATION = 'X'

jobcount = LOCAL_JOB-JOBCOUNT jobname = LOCAL_JOB-JOBNAME

LANGUAGE = SY-LANGU
PRIPARAMS = ' '

REPORT = ABAPNM

REPORT = 'ZTEST1'
VARIANT = ' '
IMPORTING
STEP_NUMBER = LOCAL_JOB-STEPCOUNT

EXCEPTIONS BAD_PRIPARAMS = 1 BAD_XPGFLAGS = 2 INVALID_JOBDATA = 3 JOBNAME_MISSING = 4 JOB_NOTEX = 5 JOB_SUBMIT_FAILED = 6 LOCK_FAILED = 7 PROGRAM_MISSING = 8 PROG_ABAP_AND_EXTPG_SET = 9 OTHERS = 10 . if sy-subrc <> 0. WRITE: / 'JOB_SUBMIT PROBLEM ', LOCAL_JOB-JOBCOUNT, LOCAL_JOB-JOBNAME, ABAPNAME, SY-SUBRC. endif. IF EMPFNAME <> SPACE. CALL FUNCTION 'JOB_CLOSE' exporting

AT_OPMODE = ' '
AT_OPMODE_PERIODIC = ' '
CALENDAR_ID = ' '
EVENT_ID = ' '
EVENT_PARAM = ' '
EVENT_PERIODIC = ' '

jobcount = LOCAL_JOB-JOBCOUNT jobname = LOCAL_JOB-JOBNAME

LASTSTRTDT = NO_DATE
LASTSTRTTM = NO_TIME
PRDDAYS = 0
PRDHOURS = 0
PRDMINS = 0
PRDMONTHS = 0
PRDWEEKS = 0
PREDJOB_CHECKSTAT = ' '
PRED_JOBCOUNT = ' '
PRED_JOBNAME = ' '
SDLSTRTDT = NO_DATE
SDLSTRTTM = NO_TIME
STARTDATE_RESTRICTION = BTC_PROCESS_ALWAYS

STRTIMMED = 'X'

TARGETSYSTEM = ' '
START_ON_WORKDAY_NOT_BEFORE = SY-DATUM
START_ON_WORKDAY_NR = 0
WORKDAY_COUNT_DIRECTION = 0

RECIPIENT_OBJ = RECIPIENT_OBJ

TARGETSERVER = ' '
DONT_RELEASE = ' '
IMPORTING
JOB_WAS_RELEASED = 'X'

EXCEPTIONS

CANT_START_IMMEDIATE = 1

INVALID_STARTDATE = 2

JOBNAME_MISSING = 3

JOB_CLOSE_FAILED = 4

JOB_NOSTEPS = 5

JOB_NOTEX = 6

LOCK_FAILED = 7

OTHERS = 8

IF ( SY-SUBRC <> 0 ).

WRITE: / 'Job_Close Problem:', ABAPNAME, SY-SUBRC.

ELSE.

WRITE: / 'Job_Close done'.

ENDIF.

ELSE. "no empfname

...

ENDIF.

********************************

Check below links too

http://help.sap.com/saphelp_nw04/helpdata/en/fa/096d4d543b11d1898e0000e8322d00/frameset.htm

http://wwwcs.uni-paderborn.de/cs/heiss/lehre/pg/intern/docs/bc_xbp_45.pdf

best regards,

swanand

Re: Program to create and process a batch input session

RaymondGiuseppi — Mon, 01 Jul 2013 14:00:50 GMT

Look at report similar to /SAPDMC/SAP_LSMW_INTERFACE.

Regards,

Raymond

Re: Program to create and process a batch input session

FredericGirod — Mon, 01 Jul 2013 14:03:48 GMT

Hi,

if we speak about Batch Input, you could used the old program RSBDCSUB to call batch-input.

regards

Fred

topic Re: Program to create and process a batch input session in Application Development and Automation Discussions

Program to create and process a batch input session

Re: Program to create and process a batch input session

Re: Program to create and process a batch input session

Re: Program to create and process a batch input session