Folgende Benutzer bedankten sich beim Autor michael.sbs für den Beitrag:
ABAP_BEGINNER
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
ABAP_BEGINNER
Code: Alles auswählen.
CALL FUNCTION 'FUNKTIONSBAUSTEIN'
STARTING NEW TASK g_wa_taskname
DESTINATION l_dest ( bzw. IN GROUP l_wa_groupname)
PERFORMING mt_receive_data ON END OF TASK.
Folgende Benutzer bedankten sich beim Autor casman für den Beitrag:
ABAP_BEGINNER
Folgende Benutzer bedankten sich beim Autor JDO für den Beitrag:
ABAP_BEGINNER
Folgende Benutzer bedankten sich beim Autor casman für den Beitrag:
ABAP_BEGINNER
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
ABAP_BEGINNER
Folgende Benutzer bedankten sich beim Autor casman für den Beitrag:
ABAP_BEGINNER
Code: Alles auswählen.
TABLES: zdfkkpao .
DATA: numb TYPE tbtcjob-jobcount,
jobname TYPE tbtcjob-jobname VALUE 'TEST',
repid TYPE sy-repid,
variant TYPE varit-variant VALUE 'TEST2',
test TYPE zdfkkpao-vmdat.
DATA: ld_varit TYPE varit,
ld_varid TYPE varid,
l_varit TYPE STANDARD TABLE OF varit,
ld_rsparams type rsparams,
l_rsparams_tt TYPE rsparams_tt.
DATA wa TYPE zdfkkpao.
SELECT-OPTIONS s_datum FOR zdfkkpao-vmdat.
repid = sy-repid.
test = s_datum-low - 20.
ld_varit-mandt = sy-mandt.
ld_varit-langu = sy-langu.
ld_varit-report = repid .
ld_varit-variant = variant.
ld_varit-vtext = 'T51'.
append ld_varit to l_varit.
clear: ld_rsparams.
ld_rsparams-selname = 'S_DATUM'.
ld_rsparams-kind = 'S'.
ld_rsparams-option = 'EQ'.
ld_rsparams-low = test.
append ld_rsparams to l_rsparams_tt.
ld_varid-mandt = sy-mandt.
ld_varid-report = repid .
ld_varid-variant = variant.
ld_varid-transport = 'F'.
ld_varid-environmnt = 'A'.
ld_varid-version = '1'.
ld_varid-ename = sy-uname.
ld_varid-edat = sy-datum.
ld_varid-etime = sy-uzeit.
ld_varid-mlangu = sy-langu.
ld_varid-xflag1 = '20'.
ld_varid-xflag2 = '00'.
call function 'RS_CREATE_VARIANT'
exporting
curr_report = repid
curr_variant = variant
vari_desc = ld_varid
tables
vari_contents = l_rsparams_tt
vari_text = l_varit
exceptions
illegal_report_or_variant = 1
illegal_variantname = 2
not_authorized = 3
not_executed = 4
report_not_existent = 5
report_not_supplied = 6
variant_exists = 7
variant_locked = 8
others = 9.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = jobname
IMPORTING
jobcount = numb
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
*IF ( sy-subrc IS INITIAL ) .
* add steps to the job
CALL FUNCTION 'JOB_SUBMIT'
EXPORTING
authcknam = sy-uname
jobcount = numb
jobname = jobname
report = repid
variant = variant
* extpgm_param = 'S_DATUM'
*IMPORTING
* step_number = numb2
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.
*ENDIF.
*IF ( sy-subrc IS INITIAL ) .
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = numb
jobname = jobname
EXCEPTIONS
CANT_START_IMMEDIATE = 1
INVALID_STARTDATE = 2
JOBNAME_MISSING = 3
JOB_CLOSE_FAILED = 4
JOB_NOSTEPS = 5
JOB_NOTEX = 6
LOCK_FAILED = 7
INVALID_TARGET = 8
OTHERS = 9.
*ENDIF.
SELECT * FROM zdfkkpao INTO wa WHERE vmdat in s_datum .
WRITE wa-vmdat.
ENDSELECT.
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Form start_new_mode
*&---------------------------------------------------------------------*
FORM start_new_mode USING p_mode TYPE ty_n2
gt_list TYPE fagl_t_kunnr.
DATA: wa_tbtcjob TYPE tbtcjob,
r_kunnr TYPE RANGE OF kunnr,
wa_r_kunnr LIKE LINE OF r_kunnr.
CONCATENATE 'MYJOBNAME - MODE:' p_mode INTO
wa_tbtcjob-jobname SEPARATED BY space.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = wa_tbtcjob-jobname
IMPORTING
jobcount = wa_tbtcjob-jobcount
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
wa_r_kunnr(3) = 'IEQ'.
LOOP AT gt_list INTO wa_r_kunnr-low.
APPEND wa_r_kunnr TO r_kunnr.
ENDLOOP.
SUBMIT zmyreportname
VIA JOB wa_tbtcjob-jobname NUMBER wa_tbtcjob-jobcount
AND RETURN
WITH p_mode = p_mode
WITH p_spart = p_spart
WITH so_kunnr IN r_kunnr
WITH so_vkorg IN so_vkorg
WITH so_vtweg IN so_vtweg.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = wa_tbtcjob-jobcount
jobname = wa_tbtcjob-jobname
strtimmed = '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.
ENDFORM. " start_new_mode