ABAP判断T-CODE与program是否存在

1、判断Program是否存在

*&---------------------------------------------------------------------*
*&      Form  F_CHECK_PROGRAM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_PROGRAM text
*      -->PV_ERR     text
*----------------------------------------------------------------------*
FORM F_CHECK_PROGRAM  USING    PV_PROGRAM TYPE PROGNAME
                      CHANGING PV_ERR.

  DATA: LV_NAME TYPE TRDIR-NAME.

  SELECT SINGLE NAME FROM TRDIR
    INTO LV_NAME
   WHERE NAME = PV_PROGRAM.

  IF SY-SUBRC <> 0 OR LV_NAME IS INITIAL.
    MESSAGE S000 WITH PV_PROGRAM TEXT-E01 DISPLAY LIKE 'E'.
    PV_ERR = 'X'.
  ENDIF.

ENDFORM.                    " F_CHECK_PROGRAM

2、判断T-Code是否存在

*&---------------------------------------------------------------------*
*&      Form  F_CHECK_TCODE_EXIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PV_VALUE   text
*      -->PV_ERR     text
*----------------------------------------------------------------------*
FORM F_CHECK_TCODE_EXIST USING PV_VALUE CHANGING PV_ERR.

  DATA: LV_TCODE    TYPE TSTC-TCODE.

  CLEAR PV_ERR.
  SELECT SINGLE TCODE
    INTO LV_TCODE
    FROM TSTC
   WHERE TCODE = PV_VALUE.

  IF SY-SUBRC <> 0.
    PV_ERR = 'X'.
  ENDIF.

ENDFORM.                    " CHECK_PROGRAM_EXIST