Table for CR

Former Member — Thu, 12 Feb 2009 19:55:49 GMT

Hello,

there is a standard SAP R/3 table with list of change request created and with details about creation date, transportation date...

Thank you

Re: Table for CR

LucianoBentiveg — Thu, 12 Feb 2009 20:02:58 GMT

Tables e070 and e071. I have this report, may be is usefull for you:


*&---------------------------------------------------------------------*
*& Report  ZBC_PROGRAMAS_A_REPLICAR
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zbc_listado_ordenes.
TABLES: e071, e070.
DATA: BEGIN OF t_ordenes OCCURS 0,
       trkorr LIKE e070-trkorr,
       trstatus LIKE e070-trstatus,
       trfunction LIKE e070-trfunction,
       as4date LIKE e070-as4date,
      END OF t_ordenes,
      BEGIN OF t_tareas OCCURS 0,
       trkorr  LIKE e070-trkorr,
       strkorr LIKE e070-strkorr,
       as4user LIKE e070-as4user,
       as4date LIKE e070-as4date,
      END OF t_tareas.
TYPES: BEGIN OF ty_objetos,
         trkorr  LIKE e070-trkorr,
         strkorr LIKE e070-strkorr,
         as4user LIKE e070-as4user,
         pgmid LIKE e071-pgmid,
         object LIKE e071-object,
         obj_name LIKE e071-obj_name,
         trstatus LIKE e070-trstatus,
         as4date LIKE e070-as4date,
         trfunction LIKE e070-trfunction,
         estado  LIKE dd07v-ddtext,
         tipo  LIKE dd07v-ddtext,
       END OF ty_objetos.
TYPE-POOLS: slis.
DATA: gt_fieldcat  TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gs_layout  TYPE slis_layout_alv,
      g_repid LIKE sy-repid,
      i_list_comments TYPE slis_t_listheader,
      w_list_comments    LIKE LINE OF i_list_comments,
      pt_events    TYPE slis_t_event.
DATA: tabla TYPE ty_objetos OCCURS 0 WITH HEADER LINE.
DATA: t_salida TYPE STANDARD TABLE OF ty_objetos WITH HEADER LINE.

SELECT-OPTIONS: s_fecha  FOR e070-as4date,
                s_status FOR e070-trstatus,
                s_funct  FOR e070-trfunction.

INITIALIZATION.
  g_repid = sy-repid.

START-OF-SELECTION.
  SELECT trkorr trstatus as4date trfunction INTO CORRESPONDING FIELDS OF TABLE t_ordenes
    FROM e070
     WHERE as4date IN s_fecha
       AND trstatus IN s_status
       AND trfunction IN s_funct.

  LOOP AT t_ordenes.
    SELECT trkorr strkorr as4user APPENDING CORRESPONDING FIELDS OF TABLE t_tareas
     FROM e070
      WHERE strkorr EQ t_ordenes-trkorr.
  ENDLOOP.

  LOOP AT t_tareas.
    SELECT trkorr pgmid object obj_name INTO CORRESPONDING FIELDS OF tabla
     FROM e071
      WHERE trkorr EQ t_tareas-trkorr.
      tabla-strkorr = t_tareas-strkorr.
      tabla-as4user = t_tareas-as4user.
      READ TABLE t_ordenes WITH KEY trkorr = t_tareas-strkorr.
      IF sy-subrc EQ 0.
        tabla-trstatus = t_ordenes-trstatus.
        tabla-trfunction = t_ordenes-trfunction.
        tabla-as4date = t_ordenes-as4date.
        SELECT SINGLE ddtext INTO tabla-estado FROM dd07v
         WHERE domname EQ 'TRSTATUS'
           AND ddlanguage EQ 'S'
           AND domvalue_l EQ t_ordenes-trstatus.
        SELECT SINGLE ddtext INTO tabla-tipo FROM dd07v
         WHERE domname EQ 'TRFUNCTION'
           AND ddlanguage EQ 'S'
           AND domvalue_l EQ t_ordenes-trfunction.
      ENDIF.
      APPEND tabla.
    ENDSELECT.
  ENDLOOP.
  SORT tabla.
  t_salida[] = tabla[].
  SORT t_salida BY strkorr.
  DELETE ADJACENT DUPLICATES FROM t_salida COMPARING strkorr.
  PERFORM mostrar_reporte_alv.

*&---------------------------------------------------------------------*
*&      Form  mostrar_reporte_alv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_JTAB  text
*----------------------------------------------------------------------*
FORM mostrar_reporte_alv.

* Estructura y formato de salida
  PERFORM init_fieldcat.
  PERFORM init_layout.
* Mostrar listado
  PERFORM listado.

ENDFORM.                    " mostrar_reporte_alv
*&---------------------------------------------------------------------*
*&      Form  init_fieldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_fieldcat.

  gt_fieldcat-seltext_l  = 'Orden'.
  gt_fieldcat-fieldname = 'STRKORR'.
  gt_fieldcat-outputlen     = '10'.
  gt_fieldcat-just    = 'C'.
  gt_fieldcat-tabname = 'T_SALIDA'.
  APPEND gt_fieldcat. CLEAR gt_fieldcat.

*  gt_fieldcat-seltext_l  = 'Tarea'.
*  gt_fieldcat-fieldname = 'TRKORR'.
*  gt_fieldcat-outputlen     = '10'.
*  gt_fieldcat-just    = 'C'.
*  gt_fieldcat-tabname = 'T_SALIDA'.
*  APPEND gt_fieldcat. CLEAR gt_fieldcat.

  gt_fieldcat-seltext_l  = 'Estado'.
  gt_fieldcat-fieldname = 'ESTADO'.
  gt_fieldcat-outputlen     = '10'.
  gt_fieldcat-just    = 'C'.
  gt_fieldcat-tabname = 'T_SALIDA'.
  APPEND gt_fieldcat. CLEAR gt_fieldcat.

  gt_fieldcat-seltext_l  = 'Tipo'.
  gt_fieldcat-fieldname = 'TIPO'.
  gt_fieldcat-outputlen     = '10'.
  gt_fieldcat-just    = 'C'.
  gt_fieldcat-tabname = 'T_SALIDA'.
  APPEND gt_fieldcat. CLEAR gt_fieldcat.

  gt_fieldcat-seltext_l  = 'Usuario'.
  gt_fieldcat-fieldname = 'AS4USER'.
  gt_fieldcat-outputlen     = '8'.
  gt_fieldcat-just    = 'C'.
  gt_fieldcat-tabname = 'T_SALIDA'.
  APPEND gt_fieldcat. CLEAR gt_fieldcat.

  gt_fieldcat-seltext_l  = 'Fecha ult mod'.
  gt_fieldcat-fieldname = 'AS4DATE'.
  gt_fieldcat-outputlen     = '13'.
  gt_fieldcat-just    = 'C'.
  gt_fieldcat-tabname = 'T_SALIDA'.
  APPEND gt_fieldcat. CLEAR gt_fieldcat.

*  gt_fieldcat-seltext_l  = 'ID'.
*  gt_fieldcat-fieldname = 'PGMID'.
*  gt_fieldcat-outputlen     = '4'.
*  gt_fieldcat-just    = 'C'.
*  gt_fieldcat-tabname = 'T_SALIDA'.
*  APPEND gt_fieldcat. CLEAR gt_fieldcat.
*
*  gt_fieldcat-seltext_l  = 'Tipo'.
*  gt_fieldcat-fieldname = 'OBJECT'.
*  gt_fieldcat-outputlen     = '4'.
*  gt_fieldcat-just    = 'C'.
*  gt_fieldcat-tabname = 'T_SALIDA'.
*  APPEND gt_fieldcat. CLEAR gt_fieldcat.
*
*  gt_fieldcat-seltext_l  = 'Nombre objeto'.
*  gt_fieldcat-fieldname = 'OBJ_NAME'.
*  gt_fieldcat-outputlen     = '120'.
*  gt_fieldcat-just    = 'L'.
*  gt_fieldcat-tabname = 'T_SALIDA'.
*  APPEND gt_fieldcat. CLEAR gt_fieldcat.

ENDFORM.                    "init_fieldcat
*&---------------------------------------------------------------------*
*&      Form  init_layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_layout.

ENDFORM.                    " init_layout
*&---------------------------------------------------------------------*
*&      Form  listado
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM listado.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = g_repid
      is_layout               = gs_layout
      it_fieldcat             = gt_fieldcat[]
      i_save                  = 'A'
*      it_events               = pt_events
    TABLES
      t_outtab                = t_salida
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.                    " listado

Re: Table for CR

Former Member — Fri, 13 Feb 2009 02:22:32 GMT

check table E070.

thanks & regards,

Re: Table for CR

Former Member — Fri, 13 Feb 2009 18:04:36 GMT

Sorry,

but I have to find a table with CR creation date. In E070 I haven't this information.

I try with E070CREATE but there aren't all CR create.

Thank you

Re: Table for CR

Former Member — Fri, 13 Feb 2009 18:15:35 GMT

see this:

http://logosworld.de/www3/cookbooks/tms/tms60_tips/docu.htm

Re: Table for CR

former_member585060 — Fri, 13 Feb 2009 18:18:01 GMT

Hi,

E070CREATE - Creation Information

It consists creation information of non released Transport orders, once they are released, entry from E070CREATE is removed.

Regards

Bala Krishna

topic Re: Table for CR in Application Development and Automation Discussions

Table for CR

Re: Table for CR

Re: Table for CR

Re: Table for CR

Re: Table for CR

Re: Table for CR