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 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
FORM frm_set_bgex . DATA: lc_ind TYPE char1, lt_par_tab TYPE STANDARD TABLE OF rsparams, ls_par_tab TYPE rsparams, lc_jobname TYPE tbtcjob-jobname VALUE 'Z03P2R1104_CALC', lc_jobnum TYPE tbtcjob-jobcount . CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING text_question = text-010 default_button = '2' display_cancel_button = '' IMPORTING answer = lc_ind. CHECK lc_ind EQ '1'. CONCATENATE lc_jobname '_' sy-datum INTO lc_jobname. * Par: BUKRS CLEAR ls_par_tab. ls_par_tab-selname = 'P_BUKRS'. ls_par_tab-kind = 'P'. ls_par_tab-low = z03p2s002-bukrs. APPEND ls_par_tab TO lt_par_tab. * Par: GJAHR CLEAR ls_par_tab. ls_par_tab-selname = 'P_GJAHR'. ls_par_tab-kind = 'P'. ls_par_tab-low = z03p2s002-gjahr. APPEND ls_par_tab TO lt_par_tab. * Par: MONAT CLEAR ls_par_tab. ls_par_tab-selname = 'P_MONAT'. ls_par_tab-kind = 'P'. ls_par_tab-low = z03p2s002-monat. APPEND ls_par_tab TO lt_par_tab. * Select-option: S_RCODE CLEAR ls_par_tab. ls_par_tab-selname = 'S_RCODE'. ls_par_tab-kind = 'S'. ls_par_tab-sign = 'I'. ls_par_tab-option = 'EQ'. LOOP AT gt_alv INTO gs_alv WHERE mark EQ 'X'. ls_par_tab-low = gs_alv-rcode. APPEND ls_par_tab TO lt_par_tab. ENDLOOP. CLEAR ls_par_tab. ls_par_tab-selname = 'P_BATCH'. ls_par_tab-kind = 'P'. ls_par_tab-low = 'Y'. APPEND ls_par_tab TO lt_par_tab. * Create Job CALL FUNCTION 'JOB_OPEN' EXPORTING jobname = lc_jobname IMPORTING jobcount = lc_jobnum EXCEPTIONS cant_create_job = 1 invalid_job_data = 2 jobname_missing = 3 OTHERS = 4. IF sy-subrc NE 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. SUBMIT z03p2r002 WITH SELECTION-TABLE lt_par_tab"z03p2r002程序随后附上 VIA JOB lc_jobname NUMBER lc_jobnum AND RETURN. IF sy-subrc EQ 0. "CLOSE JOB DEFINITION CALL FUNCTION 'JOB_CLOSE' EXPORTING jobcount = lc_jobnum jobname = lc_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 invalid_target = 8 OTHERS = 9. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. MESSAGE i016(z03p2). ENDIF. ELSE. ENDIF. ENDIF. ENDFORM. " FRM_SET_BGEX z03p2r002中的选择屏幕 *&---------------------------------------------------------------------* *& 包括 Z03P2X0007 *&---------------------------------------------------------------------* PARAMETERS: p_bukrs TYPE z03p2s002-bukrs DEFAULT '1201' OBLIGATORY, p_gjahr TYPE z03p2s002-gjahr NO-DISPLAY, p_monat TYPE z03p2s002-monat NO-DISPLAY, p_batch TYPE sy-batch DEFAULT 'X' NO-DISPLAY. . SELECT-OPTIONS s_rcode FOR z03p2r1104m-rcode NO-DISPLAY. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/1715.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。