如何將SAP的SCREEN顯示到其他使用者機器上,接受其他使用者控制

來源:互聯網
上載者:User

REPORT zgan_show MESSAGE-ID zz.

TABLES: v_username,
        sscrfields.

DATA: BEGIN OF usr_tabl OCCURS 10.
        INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.

DATA: opcode TYPE x,
      slave_mode TYPE x,
      loc_utid LIKE usr_tabl-tid.

CONSTANTS: c_fcode_slon LIKE sy-ucomm VALUE 'SLON',
           c_fcode_slof LIKE sy-ucomm VALUE 'SLOF'.

SELECTION-SCREEN BEGIN OF BLOCK userid WITH FRAME.
PARAMETERS: p_userid LIKE uinfo-bname.
SELECTION-SCREEN END OF BLOCK userid.
SELECTION-SCREEN BEGIN OF BLOCK show WITH FRAME.
SELECTION-SCREEN PUSHBUTTON /10(25) slon USER-COMMAND slon.
SELECTION-SCREEN PUSHBUTTON  45(25) slof USER-COMMAND slof.
SELECTION-SCREEN END OF BLOCK show.

INITIALIZATION.
  MOVE 'On Screen Flow Show' TO slon.
  MOVE 'Off Screen Flow Show' TO slof.

AT SELECTION-SCREEN ON p_userid.
  IF NOT p_userid IS INITIAL.
    SELECT SINGLE bname
           INTO v_username-bname
           FROM v_username
           WHERE bname = p_userid.
    IF sy-subrc <> 0.
      MESSAGE e999 WITH 'Invalid User Id'.
    ENDIF.
  ELSE.
    MESSAGE e999 WITH 'Specify the User Id'.
  ENDIF.

AT SELECTION-SCREEN.
  FREE usr_tabl.
  opcode = 2.
  CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'TAB' FIELD usr_tabl-*sys*.

  READ TABLE usr_tabl WITH KEY bname = p_userid TRANSPORTING tid.
  IF sy-subrc <> 0.
    MESSAGE e999 WITH 'Requested User Id is not available'.
  ENDIF.

  loc_utid = usr_tabl-tid.
  slave_mode = 5.

  IF sscrfields-ucomm = c_fcode_slon.
    opcode = 14.
    CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'S_TID' FIELD loc_utid
       ID 'S_MODE' FIELD slave_mode.
  ELSEIF sscrfields-ucomm = c_fcode_slof.
    opcode = 15.
    CALL 'ThUsrInfo' ID 'OPCODE' FIELD opcode ID 'S_TID' FIELD loc_utid.
  ENDIF. 

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.