Estimated reading time: 1 min
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 |
*&---------------------------------------------------------------------* *& Form run_powl_refresh *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM run_powl_refresh. * Nachstehender Code gilt der Aktualisierung der POWL Abfragen, damit die Echtzeit- * Abfrage in der eigentlichen POWL nicht zu lange dauert! * Die wird ebenfalls im ESS-Startbild sowie im MSS-Startbild gemacht * ESS -> FPM_LAUNCHPAD_UIBB->COMPCONTROLLER->WD_DOINIT * MSS -> HRMSS_ATTENDANCE_OVERVIEW->COMPCONTROLLER->WD_DOINIT * Report ZHR_WF_INFOMAILER * Report ZHR_ESS_PT_STARTWF_MISS_TIMES DATA: lt_user TYPE RANGE OF uname, ls_user LIKE LINE OF lt_user, lv_job_count TYPE btcjobcnt, lv_jobname TYPE btcjob. LOOP AT t_user. CHECK NOT t_user-anzhl IS INITIAL. CASE t_user-rc. WHEN 0. "Success ls_user-sign = 'I'. ls_user-option = 'EQ'. ls_user-low = t_user-bname. APPEND ls_user TO lt_user. WHEN 99. "Error WHEN OTHERS. "Error ENDCASE. ENDLOOP. IF lines( lt_user ) > 0. lv_jobname = 'POWL_RefreshByInfoMail'. CALL FUNCTION 'JOB_OPEN' EXPORTING jobname = lv_jobname IMPORTING jobcount = lv_job_count EXCEPTIONS cant_create_job = 1 invalid_job_data = 2 jobname_missing = 3 OTHERS = 4. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. SUBMIT powl_wload VIA JOB lv_jobname NUMBER lv_job_count AND RETURN WITH user IN lt_user. CALL FUNCTION 'JOB_CLOSE' EXPORTING jobcount = lv_job_count jobname = lv_jobname strtimmed = abap_true "Sofortstart 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. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDIF. ENDFORM. " run_powl_refresh |
Views: 30