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

《ABAP-实现新会话新窗口方法.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ABAP实现新会话新窗口方法方法一REPORTzopennewwindow.WRITE'ThisisthemainABAPprogram'.DATA:  lv_skip(1)TYPEcVALUE'X',  lv_vbelnLIKEvbak-vbelnVALUE'',  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_par

2、ams.CALLFUNCTION'CC_CALL_TRANSACTION_NEW_TASK'  STARTINGNEWTASK'VA03'  DESTINATION'NONE'  EXPORTING    transaction='VA03'    skip_first_screen='X'  TABLES    paramtab=l_it_params  EXCEPTIONS    communication_failure=97    system_failure=98    OTHERS=99.IFsy-subrc=0.  "SuccessELSEIFsy-subrc=97.  "Co

3、mmunicationFailure  EXIT.ELSEIFsy-subrc=98.  "SystemFailure  EXIT.ELSE.  EXIT.ENDIF.方法二REPORTZOPENNEWWINDOW2.  WRITE'ThisisthemainABAPreportcallingtheSAPTransactionVA03inanewsessionorinanewwindow'.DATA:  wa_spaTYPErfc_spagpa,  itab_spaTYPETABLEOFrfc_spagpa.wa_spa-parid='AUN'.wa_spa-parval=''.APPEND

4、wa_spaTOitab_spa.CALLFUNCTION'ABAP4_CALL_TRANSACTION'  STARTINGNEWTASK'VA03'  DESTINATION'NONE'  EXPORTING    tcode='VA03'    skip_screen='X'  TABLES    spagpa_tab=itab_spa  EXCEPTIONS    communication_failure=1    system_failure=2.IFsy-subrc<>0.  "ERRORENDIF.