ABAP经验分享（31）
这里讲到where to used list的使用技巧主要由两个方面：
1、使用where to used list去查找出口，增强在那些地方有用到：（这个刚好和我的另外一篇文章，查找程序里包含的出口是逆向的作用）
例如出口增强：EXIT_SAPLIEDP_902
使用WTUL，就可以得到，call这个function的地方，通常都会只有几处，或者一处，但是这个地方通常也是一个FROM，意味着要再通过这个FROM查找PERFROM。寻找真正使用这个出口的地方，所以双击这个FROM，继续看哪里使用了这个FROM。这时再次得到一个FM，再次WTUL。。一直这样下去，直到找到你那个可以执行的程序，而不是include或者FM。
最终就找到了这个出口只在两个EDI 程序里面使用： & & &&RFFOEDI1 & & & & & & & & & &&RFFOEDI3 &&
如果嵌套比较多层的话，找起来确实比较痛苦，不过在主要的过程中，你也可以了解整个标准的程序运行过程的路径。对于了解一些复杂的程序会有帮助的。
2、使用where to used list去查找表、structure在哪里使用，或者是查看某个地方的数据是存储在那个表：
例如我想找凭证和idoc号的关系的表，
首先我找到idoc号的类型：EDI_DOCNUM
然后通过WTUL查找到使用这个类型的所有表，然后再去查看这些表，看有那些符号我的需求的。这个过程是比较痛苦的。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：67947次
积分：1589
积分：1589
排名：第19871名
原创：97篇
转载：47篇
(2)(12)(1)(2)(2)(2)(2)(6)(10)(42)(3)(13)(2)网上有关SUBMIT实现程序调用的例子稍显复杂，而相关的参考和解释则不是很完善。本文给出一个SUBMIT的小示例程序（），实现了最简单的程序间调用及返回值，以及SAP官方文档中相关内容的翻译、解释。
本文链接：
转载请注明
SUBMIT - 参考
SUBMIT {rep|(name)}
[USING SELECTION-SCREEN dynnr]
[VIA SELECTION-SCREEN]
[USING SELECTION-SET variant]
[USING SELECTION-SETS OF PROGRAM prog]
[WITH SELECTION-TABLE rspar]
{ [WITH sel1 { {{EQ|NE|CP|NP|GE|LT|LE|GT} dobj [SIGN sign]}
| {[NOT] BETWEEN dobj1 AND dobj2 [SIGN sign]}
| {IN rtab} }]
[WITH sel2 { {{EQ|NE|CP|NP|GE|LT|LE|GT} dobj [SIGN sign]}
| {[NOT] BETWEEN dobj1 AND dobj2 [SIGN sign]}
| {IN rtab} }]
[WITH FREE SELECTIONS texpr]
[LINE-SIZE width]
[LINE-COUNT page_lines]
{ [EXPORTING LIST TO MEMORY]
| [TO SAP-SPOOL SPOOL PARAMETERS pri_params
[ARCHIVE PARAMETERS arc_params]
WITHOUT SPOOL DYNPRO] }
[[USER user] VIA JOB job NUMBER n]
[AND RETURN].
　　调用一个可执行程序。
{rep|(name)}
&& &使用rep静态地指定一个程序，或者使用name动态地指定
USING SELECTION-SCREEN dynnr
&& &指定要访问的选择屏幕dynnr，如不使用该条目，系统调用标准选择屏幕。
VIA SELECTION-SCREEN
&&& 显示被调用的选择屏幕。如不使用该条目，选择屏幕过程（selection screen processing）将会在后台发生。
USING SELECTION-SET variant
&& &选择屏幕使用变式
USING SELECTION-SETS OF PROGRAM prog
&& &指定使用的变式的程序
WITH SELECTION-TABLE rspar
&& &选择屏幕使用内表rspar中的值，内表的行结构为RSPARAMS或者RSPARAMSL_255，如图&&&&
WITH sel1 ... WITH sel2 ...
&& &传入单独的参数和条件值（selection criteria ） sel1, sel2....给选择屏幕：
&{EQ|NE|CP|NP|GE|LT|LE|GT} dobj [SIGN sign] - 传输一个单值和相关的操作符，以及selection table中SIGN列的设定
& [NOT] BETWEEN dobj1 AND dobj2 [SIGN sign] - 传输一个从dobj1到dobj2之间的区间和可选的操作符NOT，以及selection table中SIGN列的设定
& in rtab - 传输一个Range Table rtab
tips: Range Table
　　Range Table为系统标准内表，结构与Selection Table一致，由SIGN, OPTION, LOW, HIGH和条件值字段组成；　　可以通过 TYPE RANGE OF 语句或 RANGES 关键字定义 Range Table。　　Range Table 常用于Open SQL语句中的条件筛选，可以优化取数效率与程序性能。
REPORT report1. "program accessed
DATA text TYPE c LENGTH 10.
SELECTION-SCREEN BEGIN OF SCREEN 1100.
SELECT-OPTIONS: selcrit1 FOR text,
selcrit2 FOR text.
SELECTION-SCREEN END OF SCREEN 1100.
REPORT report2. "calling program
DATA: text
TYPE c LENGTH 10,
TYPE TABLE OF rsparams,
rspar_line LIKE LINE OF rspar_tab,
LIKE RANGE OF text,
range_line LIKE LINE OF range_tab.
rspar_line-selname = 'SELCRIT1'.
rspar_line-kind
rspar_line-sign
rspar_line-option
rspar_line-low
APPEND rspar_line TO rspar_tab.
range_line-sign
range_line-option = 'EQ'.
range_line-low
APPEND range_line TO range_tab.
range_line-sign
range_line-option = 'EQ'.
range_line-low
APPEND range_line TO range_tab.
SUBMIT report1 USING SELECTION-SCREEN '1100'
WITH SELECTION-TABLE rspar_tab
WITH selcrit2 BETWEEN 'H' AND 'K'
WITH selcrit2 IN range_tab
AND RETURN.
结果：在report1被report2访问之后，被访问程序中的条件值selcrit1和selcrit2的selection table中包含了以下记录：
WITH FREE SELECTIONS texpr
&& &通过一个内表texpr向选择屏幕提供基于逻辑数据库的动态选择，内表texpr的类型是RSDS类型组中的RSDS_TEXPR
LINE-SIZE width
&& &使用width设置程序访问的Basic List的行宽
tips: Basic List
　　Basic List: 参考的相关内容。　　在START-OF-SELECTION事件处理块中，用WRITE语句向列表缓冲区（List Buffer）输出要显示的内容。　　当该事件结束的时候，所有在列表缓冲区中的内容将被显示到一个基本列表屏幕（Basic List）上。
LINE-COUNT page_lines
&& &使用设置程序访问的Basic List的页包含的行数
EXPORTING LIST TO MEMORY
&& &将程序访问的Basic List以行类型为ABAPLIST的内表形式保存到中
TO SAP-SPOOL
&& &为程序访问的basic list创建一个spool request，并带有以下参数：
&SPOOL PARAMETERS pri_params - 打印参数，保存在类型为PRI_PARAMS的结构pri_params中
&ARCHIVE PARAMETERS arc_params - 归档参数，保存在类型为ARC_PARAMS的结构arc_params中
&WITHOUT SPOOL DYNPRO - 阻止打印对话框
[USER user] VIA JOB job NUMBER n
　　有待后续补充& 效果：
　　此附加项将被访问的程序安排为后台任务运行，后台请求作业号为n。后台请求作业号n由函数组BTCH中的函数JOB_OPEN提供。整个程序不是直接运行的，而是根据后台请求指定的参数在后台过程中运行。你可以使用可选的附加项USER去指定一个类型为sy-uname的用户ID user，这个ID用于运行后台任务。附加项VIA JOB只能和AND RETURN一起使用。
&　　当submit语句执行时，VIA JOB也独立地在内部模式中加载被访问的程序，在被访问的程序中，系统会执行在START-OF-SELECTION事件之前指定的所有步骤。这意味着事件LOAD-OF-PROGRAM和INITIALIZATION会被触发，selection screen processing会执行。如果指定了附加项VIA SELECTION-SCREEN使得选择屏幕不在后台处理，调用程序的用户可以编辑选项并且使用函数PLACE IN JOB安排被访问的程序在后台请求中运行。如果用户取消了selection screen processin，程序不会被安排后台作业中。在这两种情况下，被执行程序的执行都是完全在selection screen processin之后执行的，并因为AND RETURN附加项的存在，系统会返回调用程序。
　　当程序被安排为后台任务时，用户或附加项指定的、用来填充选择屏幕的选择条件存储在一个内部变式中。当程序在后台请求中执行时，选择条件被完全地处理，但是选择屏幕是在后台运行的。系统触发所有的事件，包括selection screen processing的。内部存储的变式在INITIALIZATION和AT SELECTION SCREEN OUTPUT事件之间传递给选择屏幕。
　　如果被访问的程序创建了一个基本列表屏幕，你应该通过使用指定TO SAP-SPOOL的方式，来创建一个带有显式打印参数的spool request。否则VIA JOB附加项会隐式地创建一个spool request，这个spool request继承自它的来自于标准值的打印参数，有的标准值是用户默认的，不一定符合必要的一致性。
后台任务计划成功
用户在选择屏幕中断了计划
计划过程中的错误, 发生在JOB_SUBMIT的内部调用中.
内部号分配过程中的错误
　　你可以通过选择菜单 系统（System）&&服务（Services）&&作业（Jobs）创建和监视后台作业。这里内部地使用了语言元素。除了JOB_OPEN以外，ABAP程序中中也可以使用函数JOB_CLOSE和JOB_SUBMIT。函数JOB_CLOSE可以关闭后台请求的创建。JOB_SUBMIT通过后台请求安排一个ABAP程序成为后台任务，像SUBMIT语句那样。而JOB_SUBMIT为后台处理（background processing）提供更多的控制选项，但是必须从已经存在的变式来获得选择屏幕的值。SUBMIT语句可以创建这个变式，并且在内部访问JOB_SUBMIT。
&　　使用后台请求name中的作业号number来把一个程序安排为后台任务。在设定后，后台任务由函数JOB_CLOSE完成，并且立即发布，同时提供给用户的相关权限。
DATA: number
TYPE tbtcjob-jobcount,
TYPE tbtcjob-jobname VALUE 'JOB_TEST',
print_parameters TYPE pri_params.
CALL FUNCTION 'JOB_OPEN'
EXCEPTIONS
cant_create_job
invalid_job_data = 2
jobname_missing
IF sy-subrc = 0.
SUBMIT submitable TO SAP-SPOOL
SPOOL PARAMETERS print_parameters
WITHOUT SPOOL DYNPRO
VIA JOB name NUMBER number
AND RETURN.
IF sy-subrc = 0.
CALL FUNCTION 'JOB_CLOSE'
EXCEPTIONS
cant_start_immediate = 1
invalid_startdate
jobname_missing
job_close_failed
job_nosteps
lock_failed
IF sy-subrc && 0.
AND RETURN
&& & AND RETURN通过运行时环境决定了在程序被调用后的访问对象：
没有AND RETURN关键字的时候，伴随着SAP LUW的退出，被访问程序的内部会话在访问队列的相同位置替代了访问程序的内部会话。一旦程序访问结束，系统返回到调用程序开始的位置。SUBMIT上系统字段SY-CALLD复制调用程序的值。
AND RETURN关键字在一个新的内部会话中运行程序。调用程序和当前的SAP LUW会保持存在。被调用程序运行它自己的SAP LUW。一旦程序访问结束，程序将继续执行SUBMIT语句之后的内容。
tips: SAP LUW, SY-CALLD
SAP LUW：SAP logical unit of work(LUW)是一个逻辑单位，我们把需要完成的工作分成一个个独立的单元（LUW），每个单元包含若干操作，这些操作要么完全执行，要么完全不执行 （all-or-nothing principle）。相应地，数据库层面存在更小的单元Database LUW。SY-CALLD:
在一个调用序列中的第一个程序里为空字符串，否则为值&X&。在调用using CALL TRANSACTION，CALL
DIALOG或　　者SUBMIT ... AND RETURN后变为&X&。如果程序以LEAVE TO
TRANSACTION或者从一个屏幕事务开始的话，则为空。使用SUBMIT（没有AND RETURN）时设定为调用它的程序的值。
&如果在一个submit里依然有注册在当前的SAP LUW中的程序，且没有 AND RETURN，SAP LUW的退出没有伴随着调用或者回滚程序。已注册的更新函数（update function modules）会保留在数据库中，但是无法再运行。为了防止这种情形，你可以在程序调用前显式地执行语句COMMIT WORK或者ROLLBACK WORK。
&带有AND RETURN的SUBMIT语句开启了一个新的SAP LUW，但是注意并不会自动开启一个新的database LUW。这意味着在这个SAP LUW中使用语句 CALL FUNCTION IN UPDATE TASK或者CALL FUNCTION IN BACKGROUND TASK in the tables VB... or ARFCSSTATE and ARFCSDATA会回滚全部登记项。在某些情况下，被调用程序的ROLLBACK WORK语句也会影响到暂停的SAP LUW。为了防止这点，必须在程序被调用前显式地运行database commit。这个问题不会在本地模式更新中发生。
tips: 本地模式
更新数据库的几种模式：异步模式、同步模式、本地模式。
&原因：未找到指定程序
　　运行时错误：LOAD_PROGRAM_NOT_FOUND
原因：尝试使用SIGN传输一个无效的选择值
　　运行时错误：SUBMIT_WRONG_SIGN
原因：指定程序不是一个report
　　运行时错误：SUBMIT_WRONG_TYPE
tips: 程序类型
　　1 REPORT（报表）　　M PROGRAM（屏幕程序）　　F FUNCTION-POOL（函数组）　　K CLASS-POOL（类组）　　J CLASS-POOL（接口组）　　T TYPE-POOL（类型池）
原因：尝试向报表参数传输一个以上的值
　　运行时错误：SUBMIT_IMPORT_ONLY_PARAMETER
原因：尝试使用WITH sel IN itab传输的表的结构与selection不符合
　　运行时错误：SUBMIT_IN_ITAB_ILL_STRUCTURE
原因：尝试传输一个不能被转换为选择屏幕目标字段的参数
　　运行时错误： SUBMIT_PARAM_NOT_CONVERTIBLE
原因：被调用程序存在语法错误
　　运行时错误： SYNTAX_ERROR
　　示例包含3个程序，调用程序CALLING，被调用程序 ACCESSED1和ACCESSED2。
　　其中，ACCESSED1和ACCESSED2均为独立可运行的REPORT程序，带有标准选择屏幕，可以将选择屏幕输入的数值计算后输出到屏幕。
　　在CALLING程序中，我们可以在选择屏幕输入一个值，运行后，分别调用ACCESSED1和ACCESSED2进行数值处理，并显示在CALLING的结果屏幕中，这是调用过程的简单示意图：
CALLING程序代码如下：
REPORT ztestcalling.
CONSTANTS: g_memory1(30) VALUE 'JACKYTESTA'."定义MEMORY ID
CONSTANTS: g_memory2(30) VALUE 'JACKYTESTB'.
val_return_from_accessed1 TYPE i,
val_return_from_accessed2 TYPE i.
DATA: selectable LIKE TABLE OF rsparams.
"选择参数内表
DATA: selectline LIKE LINE OF selectable.
SELECTION-SCREEN BEGIN OF BLOCK blk.
PARAMETERS: p_value TYPE i.
SELECTION-SCREEN END OF BLOCK blk.
INITIALIZATION.
START-OF-SELECTION.
selectline-selname = 'P_VALUE'.
"选择屏幕字段名
selectline-kind = 'P'.　　　　　　　"选择类型为单选，如果是多选则为S
selectline-low = p_value.　　　　　 "选择字段的值
APPEND selectline TO selectable.
SUBMIT ztestACCESSED1 WITH SELECTION-TABLE selectable
AND RETURN.
IMPORT val TO val_return_from_accessed1 FROM MEMORY ID g_memory1.
"取出ABAP内存中的数据
FREE MEMORY ID g_memory1.　　　　　　　　　　　　　　　"释放MEMORY ID
SUBMIT ztestACCESSED2 WITH SELECTION-TABLE selectable
AND RETURN.
IMPORT val TO val_return_from_accessed2 FROM MEMORY ID g_memory2.
FREE MEMORY ID g_memory2.
'程序ACCESSED1的运行结果是', p_value, '+ 1 =',
val_return_from_accessed1 .
WRITE: /'程序ACCESSED2的运行结果是', p_value, '* 3 =',
val_return_from_accessed2 .
接下来是被调用的ACCESSED1和ACCESSED2，程序内容基本一致，不同之处在于使用了不同的memory id传输数据。
REPORT ztestACCESSED1.
DATA val TYPE i.
CONSTANTS: g_memory1(30) VALUE 'JACKYTESTA'.
SELECTION-SCREEN BEGIN OF BLOCK blk1.
PARAMETERS: p_value TYPE i.
SELECTION-SCREEN END OF BLOCK blk1.
INITIALIZATION.
START-OF-SELECTION.
val = p_value + 1.
IF sy-calld = 'X'.
EXPORT val FROM val TO MEMORY ID g_memory1.
WRITE val.
REPORT ztestACCESSED2.
DATA val TYPE i.
CONSTANTS: g_memory2(30) VALUE 'JACKYTESTB'.
SELECTION-SCREEN BEGIN OF BLOCK blk1.
PARAMETERS: p_value TYPE i.
SELECTION-SCREEN END OF BLOCK blk1.
INITIALIZATION.
START-OF-SELECTION.
val = p_value * 3.
IF sy-calld && 'X'.
WRITE val.
EXPORT val FROM val TO MEMORY ID g_memory2.
　　运行CALLING程序，输入数字2：
&　　点击运行，直接显示两个程序的计算结果：
说明和注意
　　在实际应用当中，我们很可能需要判断一个程序是独立运行的，还是处于被调用状态，以决定接下来的处理逻辑（展示结果/传输结果），这时需要使用系统字段SY-CALLD：
ABAP程序调用模式&
　　SY-CALLD通过一个标识符显示程序是否被调用。以上面的程序为例，如果ACCESSED1和ACCESSED2是独立运行的，则SY-CALLD应为空；而在被程序CALLING调用时，SY-CALLD的值为&X&。
　　需要注意的一点是，如果在SE38中运行ACCESSED1和ACCESSED2，SY-CALLD的值为'X'。这使得我们无法看到本应由WRITE语句输出的计算结果。如果是复杂一些的程序，这种现象可能会给调试带来麻烦。查询系统字段的解释：
　　英文：Contains a blank character in the first program in a call sequence, otherwise contains the value "X". Is set to "X" after calls using CALL TRANSACTION, CALL DIALOG, or SUBMIT ... AND RETURN. Empty if the program was started using LEAVE TO TRANSACTION or a transaction from the screen. A call using SUBMIT (without AND RETURN) assumes the value of the calling program.
　　中文：在一个调用序列中的第一个程序里为空字符串，否则为值&X&。在调用using CALL TRANSACTION，CALL DIALOG或者SUBMIT ... AND RETURN后变为&X&。如果程序以LEAVE TO TRANSACTION或者从一个屏幕事务开始的话，则为空。使用SUBMIT（没有AND RETURN）时设定为调用它的程序的值。
　　由此，我们有如下解决该问题的办法：
分配事务代码，在SAP主屏幕使用事务代码运行程序，则SY-CALLD为空。
在1的基础上，也可以单独创建一个可执行程序，在这个新程序中，使用LEAVE TO TRANSACTION调用ACCESSED1或者ACCESSED2。
相关阅读：
　　　　 &
原创内容，转载请注明本文链接。
阅读(...) 评论()ABAP list report 输出有关问题 - SAP当前位置:& &&&ABAP list report 输出有关问题ABAP list report 输出有关问题&&网友分享于：&&浏览：32次ABAP list report 输出问题小弟初学ABAP，苦难重重，望大侠门指点。两个问题：第一，我做了一个list report，输出deliveray item 和invoice item时，数据前边好多零，怎么去掉？& 第二，我想让表头在往下看数据时固定不动，时刻出现在屏幕最上，这个怎么做到？------解决方案--------------------1.有系统函数可以去的，自己写个函数也成，我的blog里有自己写的代码可以去看看2.我几乎不用List的，现在估计也没人用了吧，ALV又方便，又实在，功能又多又简单，为啥报着ALV不放？方法是有，我在网上看过，不过觉得没用，所以没记住 ，自己搜搜吧
------解决方案--------------------1.使用去0函数CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
2。用这句TOP-OF-PAGE.
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有在abap开发中，经常有用户提出list的需求，实现的方法很多，通常用的有以下三种总结一下供大家参考：
1：手工添加－就是根据需要把LIST要显示的内容一条一条加到LIST列表中。对于手工添加，其优点就是简单，对列表数据少且固定的LIST较易实现，缺点就是维护量大。
2：函数调用－就是编写一个显示LIST的函数实现，这种方法可一次生成LIST。
3：子例程实现－就是在程序中编写子例程实现LIST的显示，和第二种方法大同小异。
*1：手工添加
&&P_kostl_ID&=&'P_CBZX'.
&&value-key&=&''.
&&value-text&=&'成本中心'.
&&APPEND&value&TO&list.
&&CALL&FUNCTION&'VRM_SET_VALUES'
&&&&EXPORTING
&&&&&&id&&&&&=&P_CONGR_id
&&&&&&values&=&list.
*2:&函数调用
REPORT&&z_functionlist.
**************取合并单元描述
DATA:&BEGIN&OF&i_kostl&OCCURS&0,
&&&&&&bukrs&LIKE&csks-bukrs,
&&&&&&kostl&LIKE&cskt-kostl,
&&&&&&ltext&LIKE&cskt-ltext,
&&&&&&name(50),
&&&&&&END&OF&i_kostl.
data:&p_name(30)&type&c.
*************CREAT&SCREEN
PARAMETERS:p_bukrs&LIKE&csks-bukrs&DEFAULT&'1100'.
PARAMETERS:&p_cbzx(30)&AS&LISTBOX&VISIBLE&LENGTH&45.
INITIALIZATION.
AT&SELECTION-SCREEN&OUTPUT.
&&CALL&FUNCTION&'ZFI_LIST_KOSTL'
&&&&EXPORTING
&&&&&&l_bukrs&=&p_bukrs
&&&&&&l_field&=&'P_CBZX'.
************************************************************
*&&&&&显示LIST的FUCTION定义
************************************************************
FUNCTION&zfi_list_kostl.
*&----------------------------------------------------------------------
*&*&Local&interface:
*&&&IMPORTING
*&&&&&&REFERENCE(L_BUKRS)&TYPE&&BUKRS
*&&&&&&REFERENCE(L_FIELD)&TYPE&&C
*&----------------------------------------------------------------------
&&TYPE-POOLS:&vrm.
&&DATA:&congr_id&TYPE&vrm_id,
&&&&&&&&list&&&TYPE&vrm_values,
&&&&&&&&value&LIKE&LINE&OF&list.
&&DATA:&BEGIN&OF&i_kostl&OCCURS&0,
&&&&&&&&bukrs&LIKE&csks-bukrs,
&&&&&&&&kostl&LIKE&cskt-kostl,
&&&&&&&&ltext&LIKE&cskt-ltext,
&&&&&&&&END&OF&i_kostl.
&&congr_id&=&l_field.
&&SELECT&csks~kostl&cskt~ltext&INTO&CORRESPONDING&FIELDS&OF&TABLE&i_kostl
&&&&FROM&csks
&&INNER&JOIN&cskt&ON&csks~kostl&EQ&cskt~kostl
&&WHERE&csks~bukrs&=&l_bukrs.
&&LOOP&AT&i_kostl.
&&&&value-key&=&i_kostl-kostl&.
&&&&CONCATENATE&i_kostl-kostl&'-'&i_kostl-ltext&INTO&value-text.
&&&&APPEND&value&TO&list.
&&ENDLOOP.
&&CALL&FUNCTION&'VRM_SET_VALUES'
&&&&EXPORTING
&&&&&&id&&&&&=&congr_id
&&&&&&values&=&list.
ENDFUNCTION.
*3:&子例程实现&――也相当于函数调用，不过这里用到的是子例程
在at-selection-screen output 事件中调用
生成LIST的例程实现动态LIST的生成。
DATA: p_name(30) &type c.
AT&SELECTION-SCREEN&OUTPUT.
&p_name =&'P_CBZX'.
&&PERFORM&get_kostl&USING&p_name.
*&---------------------------------------------------------------------*
*&&&&&&&Form&&get_kostl
*&---------------------------------------------------------------------*
*&&&&&&&text
*----------------------------------------------------------------------*
*&&&&&&--&PU_CBZX&&&&text
*----------------------------------------------------------------------*
FORM&get_kostl&USING&l_name&TYPE&c.
**************CREAT&LISTBOX
&&TYPE-POOLS:&vrm.
&&DATA:&name&TYPE&vrm_id,
&&&&&&&&&&&&list&&TYPE&vrm_values,
&&&&&&&&&&&&value&LIKE&LINE&OF&list.
&&CLEAR&i_kostl.
&&name&=&l_name.
&&SELECT&csks~kostl&cskt~ltext&INTO&CORRESPONDING&FIELDS&OF&TABLE&i_kostl
&&&&FROM&csks
&&INNER&JOIN&cskt&ON&csks~kostl&EQ&cskt~kostl
&&WHERE&csks~bukrs&=&p_bukrs.
&&LOOP&AT&i_kostl.
&&&&value-key&=&i_kostl-kostl&.
&&&&CONCATENATE&i_kostl-kostl&'-'&i_kostl-ltext&INTO&value-text.
&&&&APPEND&value&TO&list.
&&ENDLOOP.
&&CALL&FUNCTION&'VRM_SET_VALUES'
&&&&EXPORTING
&&&&&&id&&&&&=&name
&&&&&&values&=&list.
ENDFORM.&&&&&&&&&&&&&&&&&&&&&&GET_KOSTL
(作者：Helena)
& 下一篇：
除非注明，文章均为原创，网站不对内容的真实性作任何评价，因网站内容造成的任何损失均与网站无关，转载请以链接形式标明本文地址。
本文地址：/learn/abap//3009.html
栏目推荐文章
SAP学习门户网官方微信
栏目热点文章}