修改程序代码

Jasson

于 2024-08-21 09:19:13 发布

阅读量186

点赞数 1

分类专栏： SAP ABAP 文章标签： SAP ABAP

本文链接：https://blog.csdn.net/jiali765/article/details/141379970

版权

SAP ABAP 专栏收录该内容

51 篇文章 8 订阅

订阅专栏

SAP ABAP不传输，直接修改代码：

配合：TRDIR 找到源码程序

*&---------------------------------------------------------------------*
*& Report  ZE
*&---------------------------------------------------------------------*
REPORT ze.
TABLES: trdir.
DATA  : wid  TYPE I,
      itab TYPE STANDARD TABLE OF string,
      mess TYPE string,
      lin  TYPE I,
      wrd  TYPE string,
      dir  TYPE trdir.
FIELD-SYMBOLS  <line> TYPE string.

PARAMETERS prog LIKE trdir-name VALUE CHECK OBLIGATORY.

INITIALIZATION.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'SE38'.
IF sy-subrc NE 0.
  MESSAGE e077(s#) WITH 'SE38'.
ENDIF.

START-OF-SELECTION.

SELECT SINGLE * INTO dir FROM trdir WHERE name EQ prog.
CHECK sy-subrc EQ 0.
AUTHORITY-CHECK OBJECT 'S_DEVELOP'
ID 'DEVCLASS' DUMMY
ID 'OBJTYPE'  FIELD 'PROG'
ID 'OBJNAME'  FIELD dir-name
ID 'P_GROUP'  DUMMY
ID 'ACTVT'    FIELD '03'.
IF sy-subrc NE 0.
  MESSAGE e077(s#) WITH 'SE38'.
ENDIF.

READ REPORT prog INTO itab MAXIMUM WIDTH INTO wid.

IF dir-uccheck EQ 'X'.
  LOOP AT itab ASSIGNING <line>.
    TRANSLATE <line> TO UPPER CASE.
    IF <line> CS 'DESCRIBE FIELD' AND
    <line> CS 'LENGTH' AND
    <line> NS 'MODE'.
      REPLACE '.' IN <line> WITH ' IN CHARACTER MODE.'.
    ENDIF.
  ENDLOOP.
ENDIF.

EDITOR-CALL FOR itab.

CHECK sy-subrc EQ 0.
CHECK sy-ucomm EQ 'WB_SAVE'.

SYNTAX-CHECK FOR itab MESSAGE mess LINE lin WORD wrd PROGRAM dir-name.
IF sy-subrc NE 0.
  MESSAGE mess TYPE 'I'.
  WRITE: / mess,
  / lin,
  / wrd.
ENDIF.

INSERT REPORT prog FROM itab UNICODE ENABLING dir-uccheck.