ABAP 新建session会话的函数

在程序中使用 

call TRANSFORMATION和SUBMIT语法是直接跳到对应的事务代码或者程序，如果需要保持当前会话而且新开会话的话，上述两个语法就不满足了。系统提供了直接创建session的函数

函数1.TH_CREATE_FOREIGN_MODE

"创建新session 的函数
CALL FUNCTION 'TH_CREATE_FOREIGN_MODE'
  EXPORTING
    client           = sy-mandt
    user             = 'ZUSER_TEST'
    tcode            = 'SESSION_MANAGER'
    return_error     = 1
    create_exclusive = 0
  EXCEPTIONS
    user_not_found   = 1
    cant_create_mode = 2
    OTHERS           = 3.
IF sy-subrc <> 0.

  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

函数2. TH_CREATE_MODE 会进行权限检查

CALL FUNCTION 'TH_CREATE_MODE'
 EXPORTING
   transaktion          = 'SESSION_MANAGER'
 EXCEPTIONS
   max_sessions         = 1
   internal_error       = 2
   no_authority         = 3
   OTHERS               = 4
          .
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.