ABAP随身记

1.TCODE

TCDE:CODE_SCANNER /RS_ABAP_SOURCE_SCAN 大面积检索程序

ZPQ_CHECK_JIS_LEVEL  禁則文字チェック

/N/SDF/CD_CCA 查代码行数

SE11 CDHDR看登录上的账票号  

表TVARVC-ZGKP_BATDAT看システム日付

AL11查看文件，CG3Y下载文件

GGB0check代入增强配置

SCCI环境内移送同步

SM36运行后台Job

-性能测试用

ST12性能追踪

MASS批量修改数据

开发包：ZAPPL

2.READ及LOOP用法

1.READ TABLE LIT TRANSPORTING NO FIELDS  无需构造空间

2.READ TABLE U_IT_BUT000 ASSIGNING FIELD-SYMBOL(<LW_BUT000>)  指针

3.READ TABLE U_IT_BUT0BK INTO LW_BUT0BK  INTO进构造

3.截取字段的用法（substring）

SELECT WHERE条件时用

例：WHERE （ SUBSTRING( LIFNR,2,1 ） ）= '5'.

解释：从第2位截取字段LIFNR，截取1位　

4.固定值用法

S 单一  ZAMCMT0001-VALUE1

M 复数 表ZAMCMTD_EV0001/构造ZAMCMS0019

R 范围  RANGE OF ZAMCMT0001-VALUE1

RANGE表的结构：

SIGN     = i

OPTION = EQ(等于)/BT（区间）  

LOW      = LOW值

HIGH     = HIGH值

append 进range表

ENSE012(【共通機能】固定資産マスタ登録・更新バッチ処理): ZENSE012

ENSE031(固定資産除却自動処理に伴う自動仕訳生成処理(Pega連係)):

  ZEN_JYOKYAKUFURIKAE_PEGA  ZENZ015

ELSE005(会計伝票チェック・代入_1): ZRGGBR000(包含函数：ZEL063、ZEL017~ZEL021),

   配置:GGB0,依赖：GGB4

CLSR004_43089_AR(工事出来高調書アップロードファイル作成_43089_AR)：ZCL_ID_CREATE_DL

EMSE008(支払一覧項目追加):ZEM_OPENFI2110_SET

ELSI005会計データ(Out) ZELSI005

GGB0、GGB4

ELSE005会計伝票チェック・代入

  CHECK部分：ZRGGBR000

  代入部分： ZRGGBS000

  OPENFI代入：ZEL_PROCESS_00001120_S

                         ZEM_INTERFACE_00000900_S

  OPENFIcheck：ZEL_INTERFACE_00001025_C

该表数据：SE16N将GD-EDIT GD-SAPEDIT设为'X',可编辑模式

固定值表到RANGE表转换

固定值表到表转换

  TYP_R_IT_PG                   TYPE RANGE OF ZAMCMT0001-VALUE1,
  TYP_R_IT_NONPG                TYPE RANGE OF ZAMCMT0001-VALUE1,
  TYP_R_W_PG                    TYPE LINE  OF TYP_R_IT_PG,
  TYP_R_W_NONPG                 TYPE LINE  OF TYP_R_IT_NONPG,

  LR_IT_PG              TYPE TYP_R_IT_PG,
  LR_IT_NONPG           TYPE TYP_R_IT_NONPG,
  LR_W_PG               TYPE TYP_R_W_PG,
  LR_W_NONPG            TYPE TYP_R_W_NONPG.

  LOOP AT U_W_FIXEDVALUE-RENKEIMOTOSYSKB_C ASSIGNING FIELD-SYMBOL(<LW_FIXEDVALUE>).

    IF <LW_FIXEDVALUE>-KEY2 = 'SYSKB2'.

      LR_W_NONPG-LOW    = <LW_FIXEDVALUE>-VALUE1.
      LR_W_NONPG-SIGN   = CNS_I.
      LR_W_NONPG-OPTION = CNS_EQ.
      APPEND LR_W_NONPG TO LR_IT_NONPG.
      CLEAR LR_W_NONPG.

    ENDIF.

    IF <LW_FIXEDVALUE>-KEY2 = 'SYSKB1'.

      LR_W_PG-LOW    = <LW_FIXEDVALUE>-VALUE1.
      LR_W_PG-SIGN   = CNS_I.
      LR_W_PG-OPTION = CNS_EQ.
      APPEND LR_W_PG TO LR_IT_PG.
      CLEAR LR_W_PG.

    ENDIF.

  ENDLOOP.

如何取得后两位值？
DATA:
  LV_LENGTH  TYPE STRING.

  LV_LENGTH = '0512'.

  SHIFT LV_LENGTH BY STRLEN( LV_LENGTH ) - 2 PLACES LEFT.

  CL_DEMO_OUTPUT=>DISPLAY( LV_LENGTH ).

APPLOG
*       内部テーブル「エラーメッセージテーブル」が初期値以外の場合
        IF LIT_RETURN IS NOT INITIAL.

          CLEAR:
            LW_MESSAGE,
            LW_RETUR.
          LOOP AT  LIT_RETURN INTO LW_RETUR.

            LW_MESSAGE-SEQ_NO = <LW_OTHER>-SEQNO.

            MESSAGE ID LW_RETUR-ZMESSAGE_CLASS
                TYPE   LW_RETUR-TYPE
                NUMBER LW_RETUR-ZMESSAGE_NO
                WITH   LW_RETUR-MESSAGE_V1
                       LW_RETUR-MESSAGE_V2
                       LW_RETUR-MESSAGE_V3
                       LW_RETUR-MESSAGE_V4
                  INTO LV_TEXT.

*           アプリログにメッセージを追加する
            PERFORM F_ADD_MSG
              USING
                LW_MESSAGE-SEQ_NO
              CHANGING
                C_IT_ALOG.              "内部テーブル「アプリログ」

          ENDLOOP.

        ELSE.
*         処理継続する
        ENDIF.

*----------------------------------------------------------------------*
FORM F_ADD_MSG
  USING
*> INS CR85971 2022/03/28  -----------------------------------*
*    U_W_RETURN TYPE TYP_W_ZELS0106
*< INS CR85971 2022/03/28  -----------------------------------*
    U_V_SEQ_NO TYPE ZCLS0190-SEQ_NO             "シーケンスNo
  CHANGING
    C_IT_ALOG  TYPE TYP_CL_IT_APPLOG.           "アプリログ

  DATA:
    LW_CONTEXT TYPE ZCLS0190,
    LW_ALOG    TYPE ZAMCMS0035.

  CLEAR: LW_ALOG.

  LW_CONTEXT-SEQ_NO    = U_V_SEQ_NO.

* 下記汎用モジュールで構造「アプリログ」を設定し、内部テーブル「アプリログ」に追加する
  CALL FUNCTION 'ZAMCM_GET_ALOG_MSG_SYST_MSG'
    EXPORTING
      IM_V_CONTEXT_VAL = LW_CONTEXT
*> REP CR85971 2022/03/28  -----------------------------------*
      IM_V_MSGTY       = SY-MSGTY
      IM_V_MSGID       = SY-MSGID
      IM_V_MSGNO       = SY-MSGNO
      IM_V_MSGV1       = SY-MSGV1
      IM_V_MSGV2       = SY-MSGV2
      IM_V_MSGV3       = SY-MSGV3
      IM_V_MSGV4       = SY-MSGV4
*      IM_V_MSGTY       = U_W_RETURN-TYPE
*      IM_V_MSGID       = U_W_RETURN-ZMESSAGE_CLASS
*      IM_V_MSGNO       = U_W_RETURN-ZMESSAGE_NO
*      IM_V_MSGV1       = U_W_RETURN-MESSAGE_V1
*      IM_V_MSGV2       = U_W_RETURN-MESSAGE_V2
*      IM_V_MSGV3       = U_W_RETURN-MESSAGE_V3
*      IM_V_MSGV4       = U_W_RETURN-MESSAGE_V4
*< REP CR85971 2022/03/28  -----------------------------------*
    IMPORTING
      EX_W_ALOG_MSG = LW_ALOG.

  APPEND LW_ALOG TO C_IT_ALOG.

ENDFORM.                           "F_ADD_MSG
*----------------------------------------------------------------------*

ATC CHECK SCII TCODE:SCII

*实用

PPT自带录屏功能