作者 idan lian 如需转载备注出处如果对你有帮助，请点赞收藏~~~ 用途：创建程序，跑BPC包，把数据从BW应用层跑到BPC,程序可放到处理链或自动作业中，实现定时跑包。 1.步骤首先需要BPC顾问创建一个他们手动执行的包，维护好相关的参数 在BW系统参考标准程序直接copy后面的代码出来，一些变量需要替换，需要替换的在下面的程序里标黄 可以打断点debug，参考程序 UJD_TEST_PACKAGE 里面有需要的变量 也可以直接看一下BPC是不是在这个程序创建了变式，变式里选值可以copy出来
|
如原始PROMPT
%InforProvide%#ZCPBPC0001##%SELECTION%#<?xml version="1.0" encoding="utf-16"?><Selections xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><Selection Type="Selection"><Attribute><ID>ZTIME</ID><Operator>1</Operator><LowValue>2023.01</LowValue><HighValue /></Attribute></Selection><Selection Type="FieldList"><FieldID>0DATAPAKID</FieldID><FieldID>0INFOPROV</FieldID><FieldID>0RECORD</FieldID><FieldID>0RECORDMODE</FieldID><FieldID>0RECORDTP</FieldID><FieldID>0REQTSN</FieldID><FieldID>ZACCOUNT</FieldID><FieldID>ZAUD_RAIL</FieldID><FieldID>ZCATEGORY</FieldID><FieldID>ZENTITY</FieldID><FieldID>ZFLOW</FieldID><FieldID>ZINTERCO</FieldID><FieldID>ZMISC</FieldID><FieldID>ZOBJECT</FieldID><FieldID>ZPROJECT</FieldID><FieldID>ZRPT_CURR</FieldID><FieldID>ZSCOPE</FieldID><FieldID>ZSUBJECT</FieldID><FieldID>ZTIME</FieldID><FieldID>ZTYPE</FieldID></Selection></Selections>
2.程序
*&---------------------------------------------------------------------*
*& Report ZBWR_BPC_ZCPBPC0001
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZBWR_BPC_ZCPBPC0001.DATA : USER TYPE UJ_USER_ID, " 执行包用户LO_PACKAGE TYPE REF TO CL_UJD_PACKAGE,LT_CONSTANT TYPE UJD_TH_VALUE,LO_PACKAGE_CONTEXT TYPE REF TO CL_UJD_PACKAGE_CONTEXT,LV_RSPC_LOGID TYPE RSPC_LOGID,PACKAGE1 TYPE UJ_PACKAGE_ID, "执行包 通用模型TEAM TYPE UJ_TEAM_ID, "团队GROUP TYPE UJ_PACK_GRP_ID, "组，包所在的组（默认都是COPM ）SCHEDULE TYPE UJ_STRING,PROMPT TYPE STRING, "执行包的条件LT_PROMPT TYPE STRING_TABLE,IF_MSG TYPE UJ_BOOL, "默认NLTH_ANSWER_PROMPT TYPE UJD_TH_VALUE,LS_ANSWER_PROMPT LIKE LINE OF LTH_ANSWER_PROMPT,L_ERRORMSG TYPE UJ_STRING,L_OX TYPE REF TO CX_ROOT,LT_MESSAGE TYPE UJ0_T_MESSAGE,LS_SCHEDULE_INFO TYPE UJD_S_SCHEDULE_INFO,LS_SCHEDULE_INFO2 TYPE UJD_S_SCHEDULE_INFO2,LF_SCHEDULE TYPE UJ_FLG,LF_DEBUG TYPE UJ_FLG,LV_FISCYEARPE TYPE ZEL_ZDATE,L_TIME TYPE CHAR32.
“BPC报表取数日期”SELECT SINGLE ZDATE FROM ZBWT_REPORT_DATE INTO LV_FISCYEARPE.* IF LV_FISCYEARPE IS NOT INITIAL.L_TIME = LV_FISCYEARPE+0(4) && '.' && LV_FISCYEARPE+4(2).USER = SY-UNAME.CREATE OBJECT LO_PACKAGE.CREATE OBJECT LO_PACKAGE_CONTEXT.PACKAGE1 = 'S_01'."Package IDGROUP = 'YH_CONSOLIDATION'."Package group IDSCHEDULE = '<SCHEDULING><IMMEDIATE>Y</IMMEDIATE><STATE>0</STATE><PERIOD>N</PERIOD></SCHEDULING>'."SCHEDULECONCATENATE'%InforProvide%' CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB 'ZCPBPC0001'"CP名称CL_ABAP_CHAR_UTILITIES=>CR_LF'%SELECTION%' CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB
"PROMPT,太长了得换行，从变式里面 点值可以copy出来
'<?xml version="1.0" encoding="utf-16"?>'
'<Selections xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">'
'<Selection Type="Selection">'
'<Attribute><ID>ZTIME</ID><Operator>1</Operator><LowValue>' L_TIME '</LowValue><HighValue /></Attribute></Selection>'
'<Selection Type="FieldList">'
'<FieldID>0DATAPAKID</FieldID>'
'<FieldID>0INFOPROV</FieldID>'
'<FieldID>0RECORD</FieldID>'
'<FieldID>0RECORDMODE</FieldID>'
'<FieldID>0RECORDTP</FieldID>'
'<FieldID>0REQTSN</FieldID>'
'<FieldID>ZACCOUNT</FieldID>'
'<FieldID>ZAUD_RAIL</FieldID>'
'<FieldID>ZCATEGORY</FieldID>'
'<FieldID>ZENTITY</FieldID>'
'<FieldID>ZFLOW</FieldID>'
'<FieldID>ZINTERCO</FieldID>'
'<FieldID>ZMISC</FieldID>'
'<FieldID>ZOBJECT</FieldID>'
'<FieldID>ZPROJECT</FieldID>'
'<FieldID>ZRPT_CURR</FieldID>'
'<FieldID>ZSCOPE</FieldID>'
'<FieldID>ZSUBJECT</FieldID>'
'<FieldID>ZTIME</FieldID>'
'<FieldID>ZTYPE</FieldID>'
'</Selection></Selections>'INTO PROMPT.SPLIT PROMPT AT CL_ABAP_CHAR_UTILITIES=>CR_LF INTO TABLE LT_PROMPT.
* SPLIT l_prompt AT cl_abap_char_utilities=>cr_lf INTO TABLE lt_prompt."end frp270312LOOP AT LT_PROMPT ASSIGNING FIELD-SYMBOL(<LS_PROMPT>).SPLIT <LS_PROMPT> AT CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TABINTO LS_ANSWER_PROMPT-FIELDNAME LS_ANSWER_PROMPT-VALUE.INSERT LS_ANSWER_PROMPT INTO TABLE LTH_ANSWER_PROMPT.ENDLOOP.TRY.CL_UJD_SCHEDULE_PARSE=>PARSE_7X_FORMAT( EXPORTING I_SCHEDULE_STR = SCHEDULEIMPORTING ES_SCHEDULE_INFO = LS_SCHEDULE_INFOES_SCHEDULE_INFO_NEW = LS_SCHEDULE_INFO2 ).IF LS_SCHEDULE_INFO-IFIMMEDIATE = UJ00_CS_BOOL-YES.LF_SCHEDULE = ABAP_FALSE.ELSE.LF_SCHEDULE = ABAP_TRUE.LS_SCHEDULE_INFO2-MODULE_ID = UJD0_CS_MODULE_ID-PACKAGE.ENDIF.CREATE OBJECT LO_PACKAGE.CALL METHOD LO_PACKAGE->RUN_PACKAGEEXPORTINGI_APPSET_ID = 'YH_BPC' "EnvironmentI_APPL_ID = 'Consolidation' "Model IDI_TEAM_ID = TEAMI_GROUP_ID = GROUPI_PACKAGE_ID = PACKAGE1ITH_ANSWER_PROMPT = LTH_ANSWER_PROMPTIS_SCHEDULE_INFO = LS_SCHEDULE_INFO2IF_SCHEDULE = LF_SCHEDULEIF_DEBUG = 'X'."Begin XUQIA 19122017 Note 2579937CL_UJA_ACTVTY_MGR=>RECORD_LOGON_ACTIVITY(EXPORTINGI_APPSET_ID = ' YH_BPC '"EnvironmentI_ACTIVITY = CL_UJA_ACTVTY_MGR=>GC_ACT_REPORT_UJD_TEST_PACKAGE )."End XUQIA 19122017 Note 2579937
*******************************************************************************************************************************************************************************************CATCH CX_ROOT INTO L_OX. "#EC CATCH_ALLCALL FUNCTION 'UJ0_CONV_EX2MSG'EXPORTINGIO_EXCEPTION = L_OXIMPORTINGET_MESSAGE_LINES = LT_MESSAGE.CALL FUNCTION 'UJ0_CONV_MSG2STR'EXPORTINGIT_MSG = LT_MESSAGEIMPORTINGE_STR = L_ERRORMSG.CALL FUNCTION 'DB_ROLLBACK'.MESSAGE '清包失败！' TYPE 'S' DISPLAY LIKE 'E'.RETURN.ENDTRY.
以上为上数包程序，清数同理，让BPC顾问建一个清数包即可，参照以上创建清数程序。
将程序放到处理链或设置定时job即可。
