ABAP-实现新会话新窗口方法

ABAP实现新会话新窗口方法方法一REPORTzopennewwindow.WRITE'ThisisthemainABAPprogram'.DATA:lv_skip(1)TYPEcVALUE'X',lv_vbelnLIKEvbak-vbelnVALUE'1500000015',l_st_paramTYPEtpara,l_it_paramsTYPETABLEOFtpara.CLEARl_st_param.CLEARl_it_params[].l_st_param-paramid='AUN'.l_st_param-partext=lv_vbeln.APPENDl_st_paramTOl_it_params.CALLFUNCTION'CC_CALL_TRANSACTION_NEW_TASK'STARTINGNEWTASK'VA03'DESTINATION'NONE'EXPORTINGtransaction='VA03'skip_first_screen='X'TABLESparamtab=l_it_paramsEXCEPTIONScommunication_failure=97system_failure=98OTHERS=99.IFsy-subrc=0.SuccessELSEIFsy-subrc=97.CommunicationFailureEXIT.ELSEIFsy-subrc=98.SystemFailureEXIT.ELSE.EXIT.ENDIF.方法二REPORTZOPENNEWWINDOW2.WRITE'ThisisthemainABAPreportcallingtheSAPTransactionVA03inanewsessionorinanewwindow'.DATA:wa_spaTYPErfc_spagpa,itab_spaTYPETABLEOFrfc_spagpa.wa_spa-parid='AUN'.wa_spa-parval='1500000010'.APPENDwa_spaTOitab_spa.CALLFUNCTION'ABAP4_CALL_TRANSACTION'STARTINGNEWTASK'VA03'DESTINATION'NONE'EXPORTINGtcode='VA03'skip_screen='X'TABLESspagpa_tab=itab_spaEXCEPTIONScommunication_failure=1system_failure=2.IFsy-subrc0.ERRORENDIF.