SUBMIT指定用户名错误

news2024/12/23 1:18:11

1、SUBMIT说明

在ABAP中，SUBMIT关键字用于运行另一个ABAP程序。通过SUBMIT关键字，可以在当前程序内部调用其他程序，而无需关闭当前程序。

SUBMIT语句的一般语法如下：

"--------------------@斌将军--------------------
SUBMIT <program> [VIA SELECTION-SCREEN|USING SELECTION-SET <selection_set>]
　[VIA JOB LV_JOBNAME NUMBER LV_JOBCOUNT]
  [AND RETURN] [EXPORTING LIST TO MEMORY]
  [WITH p1 = <value1> ... pn = <value_n>]
  [WITH p1 = <value1> ... WITH pn = <value_n>].
"--------------------@斌将军--------------------

2、指定账号

需求说明：在后台JOB中使用SUBMIT调用程序时，程序中需要指定某个账号来执行某些逻辑，所以使用USE LV_UNAME，用于指定运行目标程序的用户名。不管登录账号是哪个，都是使用账号BINGENERAL来执行目标程序YTESTJOB。

源程序代码如下：

"--------------------@斌将军--------------------
DATA: lv_number           TYPE tbtcjob-jobcount,
      lv_name             TYPE tbtcjob-jobname,
      lv_uname            TYPE syst_uname,
      lv_print_parameters TYPE pri_params.

CLEAR:lv_name ,lv_number.
lv_name = |后台作业测试|.

CALL FUNCTION 'JOB_OPEN'
  EXPORTING
    jobname          = lv_name
  IMPORTING
    jobcount         = lv_number
  EXCEPTIONS
    cant_create_job  = 1
    invalid_job_data = 2
    jobname_missing  = 3
    OTHERS           = 4.
IF sy-subrc = 0.

  lv_uname = 'BINGENERAL'."调用ytestjob时，用账号：BINGENERAL执行程序

  SUBMIT ytestjob TO SAP-SPOOL
                 SPOOL PARAMETERS lv_print_parameters
                 WITHOUT SPOOL DYNPRO
                 VIA JOB lv_name NUMBER lv_number
                 USER lv_uname
                 AND RETURN.
  IF sy-subrc = 0.
    CALL FUNCTION 'JOB_CLOSE'
      EXPORTING
        jobcount             = lv_number
        jobname              = lv_name
        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.
    IF sy-subrc <> 0.

    ENDIF.
  ENDIF.
ENDIF.
"--------------------@斌将军--------------------

在YTESTJOB中校验用户是否有权限，目标程序代码如下：

"--------------------@斌将军--------------------
REPORT ytestjob.

DATA(lv_message) = '执行本程序的账号：' && sy-uname.

WRITE: lv_message.

AUTHORITY-CHECK OBJECT 'M_MRES_WWA'
 ID 'ACTVT' DUMMY
 ID 'WERKS' FIELD 'P010'.
IF sy-subrc <> 0.
  WRITE: / '权限校验失败'.
ELSE.
  WRITE: / '权限校验成功'.
ENDIF.
"--------------------@斌将军--------------------