應(yīng)用場(chǎng)景：程序優(yōu)化，需要新開一個(gè)程序優(yōu)化，優(yōu)化完成后原程序ALV變式無(wú)法帶到新的程序，
ALV變式是很好用的功能

REPORT zbsc.

• 事務(wù)代碼：ZBSC-ALV變式復(fù)制
• 程序名稱：ZBSC-ALV變式復(fù)制
• 程序目的： ZBSC-ALV變式復(fù)制
• 開發(fā)人員：
  *(修改日志)--------------------------------------------------------
• 日志號(hào) 修改人 修改時(shí)間 修改說(shuō)明 傳輸號(hào)碼

• ---

• 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."變式復(fù)制

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

• 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
&---------------------------------------------------------------------

•   變式復(fù)制
  

----------------------------------------------------------------------
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 '復(fù)制成功' TYPE 'S'.
  
  ELSE.
    ROLLBACK WORK.
    MESSAGE '復(fù)制失敗' TYPE 'E'.
  
  ENDIF.
  

  ELSE.
  ROLLBACK WORK.
  MESSAGE ‘復(fù)制失敗’ TYPE ‘E’.

  ENDIF.

  ENDIF.

ENDFORM.文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-696706.html

到了這里，關(guān)于SAP,ABAP:ALV變式復(fù)制的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！