SAP,ABAP:ALV变式复制-Toy模板网

这篇具有很好参考价值的文章主要介绍了SAP,ABAP:ALV变式复制。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

应用场景：程序优化，需要新开一个程序优化，优化完成后原程序ALV变式无法带到新的程序，
ALV变式是很好用的功能

REPORT zbsc.

事务代码：ZBSC-ALV变式复制
程序名称：ZBSC-ALV变式复制
程序目的： ZBSC-ALV变式复制
开发人员：
*(修改日志)--------------------------------------------------------
日志号修改人修改时间修改说明传输号码
001

======================================================================

INCLUDE
======================================================================
INCLUDE zbsc_top.
INCLUDE zbsc_f01.

======================================================================

AT SELECTION-SCREEN.
======================================================================
AT SELECTION-SCREEN OUTPUT.

======================================================================

INITIALIZATION
======================================================================
INITIALIZATION.

======================================================================

START-OF-SELECTION.
======================================================================
START-OF-SELECTION.

PERFORM frm_copy_data."变式复制

======================================================================

END-OF-SELECTION.
======================================================================
END-OF-SELECTION.

&---------------------------------------------------------------------
*& 包含 ZBSC_TOP
&---------------------------------------------------------------------
TABLES:ltdx.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS:p_ycx TYPE ltdx-report OBLIGATORY.

*SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 33(60) text-002 .
SELECTION-SCREEN END OF LINE."步骤：

*SELECTION-SCREEN SKIP 1.

PARAMETERS:p_xcx TYPE ltdx-report OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1 .

&---------------------------------------------------------------------
*& 包含 ZBSC_F01
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& Form FRM_COPY_DATA
&---------------------------------------------------------------------

```
  变式复制
```

----------------------------------------------------------------------
FORM frm_copy_data .

SELECT *
INTO TABLE @DATA(lt_ltdxt)
FROM ltdxt
WHERE relid = ‘LT’
AND type = ‘F’
AND langu = ‘1’
AND report = @p_ycx
AND log_group = @space.

SELECT *
INTO TABLE @DATA(lt_ltdx)
FROM ltdx
WHERE relid = ‘LT’
AND type = ‘F’

```
 AND langu = '1'
AND report    = @p_ycx
AND log_group = @space.
```
LOOP AT lt_ltdxt INTO DATA(ls_ltdxt).
ls_ltdxt-report = p_xcx.
MODIFY lt_ltdxt FROM ls_ltdxt.
ENDLOOP.

LOOP AT lt_ltdx INTO DATA(ls_ltdx).
ls_ltdx-report = p_xcx.
MODIFY lt_ltdx FROM ls_ltdx.
ENDLOOP.

IF lt_ltdx[] IS NOT INITIAL
AND lt_ltdxt[] IS NOT INITIAL.

MODIFY ltdxt FROM TABLE lt_ltdxt.
IF sy-subrc = 0.
```
MODIFY ltdx FROM TABLE lt_ltdx.
IF sy-subrc = 0.
  COMMIT WORK AND WAIT.

  MESSAGE '复制成功' TYPE 'S'.

ELSE.
  ROLLBACK WORK.
  MESSAGE '复制失败' TYPE 'E'.

ENDIF.
```
ELSE.
ROLLBACK WORK.
MESSAGE ‘复制失败’ TYPE ‘E’.

ENDIF.

ENDIF.