跳转(全)"/>
abap中程序跳转(全)
1.常用
1.CALL TRANSACTION
1.CALL TRANSACTION ta WITH|WITHOUT AUTHORITY-CHECK [AND SKIP FIRST SCREEN].
其中ta为事务码tcode使用时要打单引号(')
2. CALL TRANSACTION ta WITH|WITHOUT AUTHORITY-CHECK
USING bdc_tab { {[MODE mode] [UPDATE upd]}
| [OPTIONS FROM opt] }
[MESSAGES INTO itab].
其中ta为事务码tcode使用时要打单引号(')
CALL TRANSACTION T-CODE WITH|WITHOUT AUTHORITY-CHECK
USING bdc_tab [OPTIONS FROM opt].
代码使用
SET PARAMETER ID 'AAT' FIELD 'RK'.
SET PARAMETER ID 'SPA' FIELD p_shar."这后面可以接变量(选择屏幕变量)
SET PARAMETER ID 'VTW' FIELD '10'."要传几个参数值就写几行
CALL TRANSACTION 'VA01'." AND SKIP FIRST SCREEN .
*++++++++++++++++++++++++++++++++++++++++++++++++++++++*
CALL TRANSACTION 'VA01' AND SKIP FIRST SCREEN .
"加上AND SKIP FIRST SCREEN会在传值之后直接执行或者回车
GET PARAMETER ID 'AAT' FIELD STR."获取值
*FREE MEMORY ID 'AAT'."memory id清除memory id其中AND SKIP FIRST SCREEN表示根据输入的参数直接跳转到相关操作页面
BDC传参
DATA bdcdata_tab TYPE TABLE OF bdcdata.DATA opt TYPE ctu_params.bdcdata_tab = VALUE #(( program = 'SAPLSEOD' dynpro = '1000' dynbegin = 'X' )( fnam = 'BDC_CURSOR' fval = 'SEOCLASS-CLSNAME' )( fnam = 'SEOCLASS-CLSNAME' fval = class_name )( fnam = 'BDC_OKCODE' fval = '=WB_DISPLAY' ) ).opt-dismode = 'E'.opt-defsize = 'X'.TRY.CALL TRANSACTION 'SE24' WITH AUTHORITY-CHECKUSING bdcdata_tab OPTIONS FROM opt.CATCH cx_sy_authorization_error ##NO_HANDLER.ENDTRY.
WITH AUTHORITY-CHECK.
TRY.CALL TRANSACTION 'F-02' WITH AUTHORITY-CHECK.CATCH cx_sy_authorization_error.MESSAGE s001(00) WITH '无此事务代码操作权限，请检查' DISPLAY LIKE 'E'.RETURN.ENDTRY.
*如果程序没有上述权限异常控制，当权限不够时，可能会导致当前程序dump其中的多值传递范例
DATA STR TYPE C LENGTH 25.
GET PARAMETER ID 'VKO' FIELD STR."获取SET ID的值
1.方法1
REPORT ZTXYY_1141.
TABLES:VBRK.
DATA STR TYPE C LENGTH 25.
SELECT-OPTIONS s_matnr FOR VBRK-VKORG ."MEMORY ID ZDEMO.FREE MEMORY ID 'ZDEMO'."清除MEMORY ID
EXPORT s_matnr FROM s_matnr TO MEMORY ID 'ZDEMO'."传入MEMORY ID
*SET PARAMETER ID 'VKO' FIELD STR."实现单值输入
CALL TRANSACTION 'ZTXYY_1142' ."AND SKIP FIRST SCREEN.程序ztxyy_1142定义了一个同名的tcode.
REPORT ztxyy_1142.
TABLES:vbrk.
DATA str1 TYPE c LENGTH 25.
SELECT-OPTIONS s_matnr FOR vbrk-vkorg.
SELECT-OPTIONS s_matnr2 FOR vbrk-vkorg.INITIALIZATION.
* GET PARAMETER ID 'VKO' FIELD str1."获取SET ID的值IMPORT s_matnr TO s_matnr FROM MEMORY ID 'ZDEMO'."读取MEMORY IDFREE MEMORY ID 'ZDEMO'."清除MEMORY IDABAP程序间跳转CALL TRANSACTION-CSDN博客
2.通过 BDC的方式传入多参数值
DATA: lt_bdcdata_tab TYPE TABLE OF bdcdata,ls_opt TYPE ctu_params.
lt_bdcdata_tab = VALUE #(( program = 'ZPSR018_CONFIRM' dynpro = '1000' dynbegin = 'X' )( fnam = 'BDC_CURSOR' fval = 'S_PSPID-LOW' ) "其中fval为值 fnam为参数ID( fnam = 'S_VERNR-LOW' fval = lv_vernr_low ) "这里实现了多值输入( fnam = 'S_VERNR-HIGH' fval = lv_vernr_high ) ).
ls_opt = VALUE #( dismode = 'E'defsize = 'X' ).TRY.CALL TRANSACTION 'ZPSR018A' WITH AUTHORITY-CHECKUSING lt_bdcdata_tab OPTIONS FROM ls_opt.CATCH cx_sy_authorization_error ##NO_HANDLER.ENDTRY.2.SUBMIT
SUBMIT {rep|(name)} [selscreen_options]
[list_options]
[job_options]
[AND RETURN].
... USING SELECTION-SCREEN dynnr
SUBMIT zlxf003 VIA SELECTION-SCREEN"跳转后保留zlxf003程序执行后的第一个窗口
WITH p_date = p_date "字段传值也可以p_date = 1
WITH s_bukrs IN s_bukrs "多值传递 不可用s_bukrs-low = s_bukrs-low
WITH s_hkont IN s_hkont "多值传递 不可用s_bukrs-high = s_bukrs-high来实现
WITH p_rd1 = p_rd1
WITH p_rd2 = p_rd2
WITH p_rd3 = p_rd3
AND RETURN."从调用程序返回后可以返回到主程序的执行界面
SUBMIT 后面跟着的是程序名而不是tcode事务码
SUBMIT ZTXYY_1142 ."会直接调用程序ZTXYY_1142跳过选择屏幕
*点击返回按钮会直接返回原主程序代码界面将被调用程序设置为后台作业模式运行
FORM frm_bajob_data .DATA: lv_jobname TYPE tbtcjob-jobname,lv_jobcount TYPE tbtcjob-jobcount.CONCATENATE 'ZLXF003_' sy-datum sy-uzeit INTO lv_jobname.**********************************************************************
* 启动后台作业CALL FUNCTION 'JOB_OPEN'EXPORTINGjobname = lv_jobnamesdlstrtdt = sy-datumsdlstrttm = sy-uzeitIMPORTINGjobcount = lv_jobcountEXCEPTIONScant_create_job = 1invalid_job_data = 2jobname_missing = 3OTHERS = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE 'E'.RETURN.ENDIF.**********************************************************************
* submit 程序SUBMIT zlxf003 AND RETURNWITH p_date = p_dateWITH s_bukrs IN s_bukrsWITH s_hkont IN s_hkontWITH p_rd1 = p_rd1WITH p_rd2 = p_rd2WITH p_rd3 = p_rd3USER sy-unameVIA JOB lv_jobnameNUMBER lv_jobcount.**********************************************************************
* 关闭后台"参数cant_start_immediate设置后天作业启动优先级，如果不设置的话，可能导致作业挂起，不能实时执行CALL FUNCTION 'JOB_CLOSE'EXPORTINGjobcount = lv_jobcountjobname = lv_jobnamelaststrtdt = sy-datumlaststrttm = sy-uzeitstrtimmed = 'X'EXCEPTIONScant_start_immediate = 1invalid_startdate = 2jobname_missing = 3job_close_failed = 4job_nosteps = 5job_notex = 6lock_failed = 7invalid_target = 8invalid_time_zone = 9OTHERS = 10.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE 'E'.RETURN.ENDIF.
ENDFORM.3.LEAVE TO TRANSACTION
LEAVE TO { {TRANSACTION ta} | {CURRENT TRANSACTION} }
[AND SKIP FIRST SCREEN].
1.使用后跳转到对应的事务码====点击返回按钮回到空会话窗口(原程序被关闭)
LEAVE TO TRANSACTION 'VA01' ."AND SKIP FIRST SCREEN.其中AND SKIP FIRST SCREEN表示根据输入的参数直接跳转到相关操作页面
2.函数实现跳转
1.TH_CREATE_MODE
新建session会话的函数
效果1.调用程序需要tcode,2.调用会打开新会话(sap只支持六个会话)
3.点击返回按钮无法返回原来的程序界面4.会进行权限检查
CALL FUNCTION 'TH_CREATE_MODE'
EXPORTINGTRANSAKTION = 'VL01N' "事务码
* DEL_ON_EOT = 0PARAMETERS = 'LIKP-VSTEL = 8510 LV50C-DATBI = 20140509 LV50C-VBELN = 35001147' "事务码选择屏幕的参数PROCESS_DARK = 'X' "跳过初始选择屏幕（像va01的屏幕就跳不过去）
* IMPORTING
* MODE =
EXCEPTIONSMAX_SESSIONS = 1INTERNAL_ERROR = 2NO_AUTHORITY = 3OTHERS = 4.
2.TH_CREATE_FOREIGN_MODE
新建session会话的函数
效果1.调用程序需要tcode,2.调用会打开新会话(sap只支持六个会话)
3.点击返回按钮无法返回原来的程序界面4.无法在函数中给屏幕字段传值
CALL FUNCTION 'TH_CREATE_FOREIGN_MODE'EXPORTINGclient = sy-mandtuser = 'T008' "系统中的用户名TCODE = 'VA01' "事务码RETURN_ERROR = 1CREATE_EXCLUSIVE = 0EXCEPTIONSUSER_NOT_FOUND = 1CANT_CREATE_MODE = 2NO_AUTHORITY = 3OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.3.CC_CALL_TRANSACTION_NEW_TASK
新建session会话的函数
效果1.调用程序需要tcode,2.调用会打开新会话(sap只支持六个会话)
3.点击返回按钮,可以返回原屏幕并关闭打开的新会话.(效果类似SUBMIT语句)
WRITE 'This is the main ABAP program'.
DATA :LV_SKIP(1) TYPE C VALUE 'X',LV_VBELN LIKE VBAK-VBELN VALUE '20000190',L_ST_PARAM TYPE TPARA,L_IT_PARAMS TYPE TABLE OF TPARA.
CLEAR L_ST_PARAM.
CLEAR L_IT_PARAMS[].
L_ST_PARAM-PARAMID = 'AUN'.
L_ST_PARAM-PARTEXT = LV_VBELN.
APPEND L_ST_PARAM TO L_IT_PARAMS.
CALL FUNCTION 'CC_CALL_TRANSACTION_NEW_TASK'
" STARTING NEW TASK 'VA03'"表异步
" DESTINATION 'NONE'"EXPORTINGTRANSACTION = 'VA03'SKIP_FIRST_SCREEN = 'X'TABLESPARAMTAB = L_IT_PARAMS"传屏幕参数的表EXCEPTIONSCOMMUNICATION_FAILURE = 97SYSTEM_FAILURE = 98OTHERS = 99.
IF SY-SUBRC = 0." Success
ELSEIF SY-SUBRC = 97." Communication FailureEXIT.
ELSEIF SY-SUBRC = 98." System FailureEXIT.
ELSE.EXIT.
ENDIF.这里原函数
CALL FUNCTION 'CC_CALL_TRANSACTION_NEW_TASK'EXPORTINGtransaction =skip_first_screen =
* TABLES
* PARAMTAB =
* EXCEPTIONS
* ERROR = 1
* OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.4.ABAP4_CALL_TRANSACTION
新建session会话的函数
效果1.调用程序需要tcode,2.调用会打开新会话(sap只支持六个会话)
3.点击返回按钮,可以返回原屏幕并关闭打开的新会话.(效果类似SUBMIT语句)
WRITE 'This is the main ABAP report calling the SAP Transaction VA03 in a new session or in a new window'.
DATA : WA_SPA TYPE RFC_SPAGPA,ITAB_SPA TYPE TABLE OF RFC_SPAGPA."传屏幕参数的表
WA_SPA-PARID = 'AUN'. "屏幕参数id
WA_SPA-PARVAL = '20000190'.
APPEND WA_SPA TO ITAB_SPA.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'STARTING NEW TASK 'VA03'DESTINATION 'NONE'EXPORTINGTCODE = 'VA03'SKIP_SCREEN = 'X'TABLESSPAGPA_TAB = ITAB_SPA"传屏幕参数的表EXCEPTIONSCOMMUNICATION_FAILURE = 1SYSTEM_FAILURE = 2.
IF SY-SUBRC <> 0." ERROR
ENDIF.原函数代码
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'EXPORTINGtcode =
* SKIP_SCREEN = ' '
* MODE_VAL = 'A' "A:前台，显示屏幕 E:遇到错误停止并显示 N:后台模式
* UPDATE_VAL = 'A'"A：异步 S:同步 L:本地模式
* IMPORTING
* SUBRC =
* TABLES
* USING_TAB =
* SPAGPA_TAB =
* MESS_TAB =
* EXCEPTIONS
* CALL_TRANSACTION_DENIED = 1
* TCODE_INVALID = 2
* OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.有空看看这个
ABAP CALL TRANSACTION 调用事务码方式-SAP技术站ABAP CALL TRANSACTION 调用事务码方式，使用BDC参数调用事务码并进行跳转REPORTYTEST.INCLUDEBDCRECXY."使用BDC一定要包含此文件DATAL_OPTTYPECTU_PARAMS.SELECTION-SCREENPUSHBUTTON/1(20)PUBU1.html
更多推荐
abap中程序跳转(全)
发布评论