Hi All ,
Requirement : When I run Report ZBKSCHD It will SCHEDULE another program for ex (ypr_range_rb2) .
Here I am passing program name & varint which I want to schedule
Input Field
Program Name : ypr_range_rb2
Varint : ypr_rb2
Getting errror
*********ERROR ****** ********
Short text
Exception condition "INVALID_STARTDATE" raised.
and Report ZBKSCHD scheduling ypr_range_rb2 many times not single time .( in sm36 )
***********************************************************
******This is my background schedule program
REPORT ZBKSCHD NO STANDARD PAGE HEADING LINE-SIZE 170 LINE-COUNT 58 .
DATA: ZCOUNT LIKE SY-TABIX,
JOBNAME LIKE TBTCJOB-JOBNAME,
PARAMS LIKE PRI_PARAMS,
JOBCOUNT LIKE TBTCJOB-JOBCOUNT,
AUTHCKNAM LIKE TBTCJOB-AUTHCKNAM,
SDLSTRTTM LIKE TBTCJOB-SDLSTRTTM,
SDLSTRTDT LIKE TBTCJOB-SDLSTRTDT,
VARIANT LIKE RALDB-VARIANT,
REPORT LIKE SY-REPID,
ZTIME LIKE SY-UZEIT,
PREDJOB_CHECKSTAT LIKE TBTCSTRT-CHECKSTAT,
PRED_JOBCOUNT LIKE TBTCJOB-JOBCOUNT,
PRED_JOBNAME LIKE TBTCJOB-JOBNAME,
RELEASED LIKE BTCH0000-CHAR1.
SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
NAME LIKE RS38M-PROGRAMM OBLIGATORY,
VAR LIKE RS38M-SELSET OBLIGATORY,
JOB LIKE TBTCJOB-JOBNAME,
FRQ1 LIKE SY-INDEX,
FRQ2(2) TYPE C.
SELECTION-SCREEN END OF BLOCK A1.
SELECTION-SCREEN: BEGIN OF BLOCK A2 WITH FRAME TITLE TEXT-002.
PARAMETERS: ZDATE LIKE SY-DATUM DEFAULT SY-DATUM OBLIGATORY.
SELECT-OPTIONS:
TIME1 FOR SY-UZEIT OBLIGATORY.
SELECTION-SCREEN END OF BLOCK A2.
AT SELECTION-SCREEN ON FRQ2.
IF FRQ2 NE 'H' AND FRQ2 NE 'M' AND FRQ2 NE 'S'.
MESSAGE E001(Z1) WITH 'Time Unit must be H or M or S'.
ENDIF.
AT SELECTION-SCREEN ON ZDATE.
IF ZDATE < SY-DATUM.
MESSAGE E001(Z1) WITH 'Date must be greater than current date'.
ENDIF.
AT SELECTION-SCREEN ON TIME1.
IF ZDATE = SY-DATUM AND TIME1-LOW < SY-UZEIT.
MESSAGE E001(Z1) WITH 'Time must be greater than current time'.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
IF JOB IS INITIAL.
JOB = NAME.
ENDIF.
$$* Start of selection
START-OF-SELECTION.
IF JOB IS INITIAL.
JOB = NAME.
ENDIF.
clear params.
call function 'GET_PRINT_PARAMETERS'
EXPORTING
mode = 'CURRENT'
no_dialog = 'X'
IMPORTING
out_parameters = params.
params-paart = 'X_PAPER'.
ZTIME = TIME1-LOW.
JOBNAME = JOB.
VARIANT = VAR.
REPORT = NAME.
AUTHCKNAM = SY-UNAME.
PARAMS-PRIMM = SPACE.
SDLSTRTDT = ZDATE.
CLEAR: ZCOUNT.
WHILE ZTIME LE TIME1-HIGH.
SDLSTRTTM = ZTIME.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
JOBNAME = JOB
IMPORTING
JOBCOUNT = JOBCOUNT
EXCEPTIONS
OTHERS = 4.
CALL FUNCTION 'JOB_SUBMIT'
EXPORTING
AUTHCKNAM = AUTHCKNAM
JOBCOUNT = JOBCOUNT
JOBNAME = JOB
PRIPARAMS = PARAMS
REPORT = REPORT
VARIANT = VARIANT.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
SDLSTRTDT = SDLSTRTDT
SDLSTRTTM = SDLSTRTTM
JOBCOUNT = JOBCOUNT
JOBNAME = JOB
IMPORTING
JOB_WAS_RELEASED = RELEASED.
IF RELEASED = 'X'.
WRITE: / 'Job', JOBNAME, '(' ,JOBCOUNT, ')' ,'will run at', ZTIME,
'on', ZDATE, 'with program',NAME, 'and variant', VAR.
ELSE.
WRITE: /
'Unable to release job', JOBNAME, '(' ,JOBCOUNT, ')' ,'at', ZTIME,
'on', ZDATE, 'with program',NAME, 'and variant', VAR.
ENDIF.
CASE FRQ2.
WHEN 'H'.
ZTIME = ZTIME + ( 60 * 60 * FRQ1 ).
WHEN 'M'.
ZTIME = ZTIME + ( 60 * FRQ1 ).
WHEN 'S'.
ZTIME = ZTIME + FRQ1.
WHEN OTHERS.
ENDCASE.
ENDWHILE.
Thanks for your time
Rahul
Add comment