微科社区,轻松开发从此开始! 请登陆 免费注册

微科社区

当前位置:首页 > 企业开发 > SAP >

Solution Manager key

时间:2017-01-14 03:10  浏览:努力统计中...
REPORT Z_SM_KEY. TYPES: BEGIN OF DSWPCLIENTKEY, INSTNO TYPE NUM10, DBID(3), BUNDLE_ID(8), SERVICE_KEY(40), END OF DSWPCLIENTKEY. *data: dswpclientkey_w type standard table of dswpclientkey. DATA: P_VALUE(10), P_INSTNO(10). PARAMETERS: P_SID

REPORT  Z_SM_KEY.
TYPES: BEGIN OF DSWPCLIENTKEY,
         INSTNO TYPE NUM10,
         DBID(3),
         BUNDLE_ID(8),
         SERVICE_KEY(40),
END OF DSWPCLIENTKEY.


*data: dswpclientkey_w type standard table of dswpclientkey.
DATA: P_VALUE(10),
          P_INSTNO(10).


PARAMETERS: P_SID(3),
             P_SYSNO(2),
             P_SERVER(15).
START-OF-SELECTION.
PERFORM GET_SP_VALUE USING P_SID
                             P_SYSNO
                             P_SERVER
                             P_INSTNO
CHANGING P_VALUE.
END-OF-SELECTION.
WRITE P_VALUE.
*&---------------------------------------------------------------------*
*& Form get_sp_value
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_PF_SID text
* -->P_PF_SYSNO text
* -->P_PF_SERVER text
* <--P_PF_VALUE text
*----------------------------------------------------------------------*
FORM GET_SP_VALUE USING P_PF_SID
                           P_PF_SYSNO
                           P_PF_SERVER
                           P_PF_INSTNO
CHANGING P_PF_VALUE.


CONSTANTS: LC_PART_LEN TYPE I VALUE 5,
             LC_PW_LEN   TYPE I VALUE 10,
             LC_ALLOWED_CHARS(38) TYPE C VALUE
'-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_'.


DATA: LF_STRING(20)              TYPE C,
          LF_KEY                         TYPE I,
          LS_KEY                         TYPE DSWPCLIENTKEY,
          LF_PART(LC_PART_LEN) TYPE C,
          LF_FINALF(LC_PW_LEN) TYPE C,
          LF_FINALX                    TYPE XSTRING,
          LF_XBUFFER                 TYPE XSTRING,
          LF_OPF(10)                   TYPE C,
          LF_LANGU                     LIKE SY-LANGU,
          LF_SUBRC                     LIKE SY-SUBRC,
          LF_LEN                         TYPE I,
          LO_CONV_TO_X            TYPE REF TO CL_ABAP_CONV_OUT_CE.


CLEAR: LF_STRING, LF_FINALX, LF_OPF.


CONCATENATE P_PF_SID P_PF_SYSNO P_PF_SERVER INTO LF_STRING.
* Large letters only
TRANSLATE LF_STRING TO UPPER CASE.


顶一下
(0)
0%
踩一下
(0)
0%
------分隔线------
栏目列表
推荐内容