report zedit2

       no standard page heading

       line-count 165

       message-id zz.

************************************************************************

* Program Name   : ZEDIT2

* Creation Date  : 03/02/2005

* Author         : Darren Moore ( This e-mail address is being protected from spam bots, you need JavaScript enabled to view it )

* Description    : Quick tool to pick last objs for edit

************************************************************************

* Modification Log

* SAP-ID      Date       Request#       Description

* dmoore2    02/28/2005               INITIAL VERSION

* notes: this is setup for 1152x864 resolution

*        add tcodes and table names to table:zobjnames

* zobjnames Definition:
* OBJNAME CHAR 30
* OBJTYPE CHAR 3
* example data:
*OBJNAME OBJTYPE
*BD87 TCD
*BKPF TAB
*BSEG TAB

************************************************************************

tables: d010sinf,

        e070,

        e07t,

        e071,

        tfdir,

        trdirt,

        tstct,

        zobjnames.

include <icon>.

ranges: sv_name for trdir-name,

        sv_unam for trdir-unam,

        sv_udat for trdir-udat.

*----------------------------------------------------------------------*

*  DATA                                                                *

*----------------------------------------------------------------------*

data: i_vimsellist like vimsellist occurs 0 with header line.

data: tab_name like dd02v-tabname.

data: view_name like dd02v-tabname.

data: begin of header occurs 1.

        include structure vimdesc.

data: end of header.

data: begin of namtab occurs 50.

        include structure vimnamtab.

data: end of namtab.

data: rangetab type table of vimsellist initial size 50

       with header line.

data: excl_cua_funct like vimexclfun occurs 0 with header line.

data: action(1).

data: begin of i_d010sinf occurs 0,

        prog type d010sinf-prog,

        r3state type d010sinf-r3state,

        subc type d010sinf-subc,

        udat type d010sinf-udat,

        utime type d010sinf-utime,

      end of i_d010sinf,

      begin of i_tables occurs 20,

        objname type zobjnames-objname,

        ddtext type as4text,

      end of i_tables,

      begin of i_codes occurs 20,

        objname type zobjnames-objname,

        ttext type ttext_stct,

      end of i_codes,

      begin of i_requests occurs 0,

        trkorr type e070-trkorr,

        as4user type e070-as4user,

        as4date type e070-as4date,

        as4time type e070-as4time,

        strkorr type e070-strkorr,

        as4text type e07t-as4text,

        trstatus type e070-trstatus,

      end of i_requests.

data: fun_name(9),

      desc(50),

      cursorfield(20),

      row1 type i,

      row2 type i,

      row3 type i,

      row4 type i.

start-of-selection.

  set pf-status '2000'.

  clear: sv_udat[].

  sv_udat-sign   = 'I'.

  sv_udat-option = 'BT'.

  sv_udat-low = sy-datum - 45.

  sv_udat-high = sy-datum.

  append sv_udat.

  clear: sv_unam[].

  sv_unam-sign   = 'I'.

  sv_unam-option = 'EQ'.

  sv_unam-low    = sy-uname.

  append sv_unam.

  perform get_data.

  sort i_d010sinf by udat descending utime descending.

  loop at i_d010sinf.

    if i_d010sinf-subc = 'I'

           and i_d010sinf-prog(1) = 'L'

           and i_d010sinf-prog+5(1) = 'U'. "function

      concatenate 'SAP' i_d010sinf-prog(5) into fun_name.

      select single * from tfdir

        where pname = fun_name

        and include = i_d010sinf-prog+6(2).

      if sy-subrc = 0.

        desc = tfdir-funcname.

      endif.

    else.

      select single * from trdirt

        where name = i_d010sinf-prog.

      if sy-subrc = 0.

        desc = trdirt-text.

      endif.

    endif.

    if i_d010sinf-prog(1) = 'L'.

      format intensified on.

    else.

      format intensified off.

    endif.

    if i_d010sinf-r3state = 'A' and i_d010sinf-subc = '1'.

      write: / icon_execute_object as icon hotspot.

    else.

      write: / icon_not_equal as icon.

    endif.

    write:  i_d010sinf-prog(24) hotspot, desc hotspot.

    hide i_d010sinf-prog.

    position 80. write: sy-vline.

  endloop.

* Output table names

  sort i_tables by objname.

  loop at i_tables.

    row1 = sy-tabix.

    skip to line row1.

    position 82. write: icon_list as icon hotspot.

    position 85. write: i_tables-objname hotspot.

    position 98. write: i_tables-ddtext(25) hotspot.

    hide  i_tables-objname.

  endloop.

* Output tran codes

  sort i_codes by objname.

  loop at i_codes.

    row2 = sy-tabix.

    skip to line row2.

    position 123. write: sy-vline.

*    POSITION 125. WRITE: icon_flight AS ICON HOTSPOT.

    position 125. write: i_codes-objname hotspot.

    position 137. write: i_codes-ttext hotspot.

    hide  i_codes-objname.

  endloop.

* Output Change Requests

  if row1 > row2.

    row3 = row1 + 1.

  else.

    row3 = row2 + 1.

  endif.

  sort i_requests by as4date descending as4time descending.

  loop at i_requests where trstatus <> 'R'.

    row3 =  row3 + 1.

    skip to line row3.

    position 82. write: icon_transport as icon hotspot.

    position 85. write: i_requests-trkorr hotspot.

    position 98. write: i_requests-as4text hotspot.

    hide i_requests-trkorr.

  endloop.

at user-command.

  case sy-ucomm.

*    WHEN 'SE38'.

    when 'CHOOSE'.

      get cursor field cursorfield.

      if cursorfield = 'ICON_EXECUTE_OBJECT'

              and i_d010sinf-r3state = 'A'.

        if i_d010sinf-subc = '1' or i_d010sinf-subc = 'I'.

          submit (i_d010sinf-prog) and return.

        endif.

      elseif cursorfield = 'I_D010SINF-PROG'

           or cursorfield = 'DESC'.

        call function 'EDITOR_PROGRAM'

             exporting

                  program = i_d010sinf-prog

             exceptions

                  others  = 2.

      elseif cursorfield = 'ICON_LIST'.

*      if dd02-mainflag = 'X'.

* fill header info

        refresh: namtab,header,rangetab.

        clear:   namtab,header,rangetab.

        action  = 'U'. "modify

        call function 'VIEW_GET_DDIC_INFO'

             exporting

                  viewname              = i_tables-objname

                  variant_for_selection = ' '

             tables

                  x_header              = header

                  x_namtab              = namtab

                  sellist               = rangetab

             exceptions

                  no_tvdir_entry        = 3

                  table_not_found       = 5.

*  check sy-subrc = 0.

* display table

        call function 'VIEW_MAINTENANCE'

             exporting

                  view_name            = view_name

                  view_action          = action

             tables

                  x_header             = header

                  x_namtab             = namtab

                  dba_sellist          = i_vimsellist

                  excl_cua_funct       = excl_cua_funct

             exceptions

                  no_database_function = 2

                  no_editor_function   = 3

                  missing_corr_number  = 4.

        if sy-subrc ne 0.

*      else.

          call function 'RS_TABLE_LIST_CREATE'

               exporting

                    table_name = i_tables-objname

                    action     = 'ANZE'.

          if sy-subrc <> 0.

            message id sy-msgid type sy-msgty number sy-msgno

                    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

          endif.

        endif.

      elseif cursorfield = 'I_TABLES-OBJNAME' or

             cursorfield = 'I_TABLES-DDTEXT'.

        call function 'RS_DD_SHOW'

             exporting

                  objname = i_tables-objname

                  objtype = 'T'

             exceptions

                  others  = 1.

        if sy-subrc <> 0.

          message id sy-msgid type sy-msgty number sy-msgno

                  with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

        endif.

      elseif cursorfield = 'ICON_FLIGHT' or

              cursorfield = 'I_CODES-OBJNAME' or

              cursorfield = 'I_CODES-TTEXT'.

        call transaction  i_codes-objname. "AND SKIP FIRST SCREEN.

      elseif cursorfield = 'ICON_TRANSPORT'  or

               cursorfield = 'I_REQUESTS-TRKORR' or

               cursorfield = 'I_REQUESTS-AS4TEXT'."

        call function 'TR_PRESENT_REQUEST'

             exporting

                  iv_trkorr = i_requests-trkorr.

      endif.

    when 'CANC' or 'BACK' or 'EXIT'.

      leave list-processing." and return.

    when others.

  endcase.

*&---------------------------------------------------------------------*

*&      Form  get_data

*&---------------------------------------------------------------------*

form get_data.

* get program info

  select prog

         r3state

         subc

         udat

         utime

      from d010sinf

      into table i_d010sinf

      where unam   in sv_unam

      and   udat   in sv_udat.

* get common tables

  select zobjnames~objname

         dd02t~ddtext

     into table i_tables

     from ( zobjnames

     inner join dd02t

       on zobjnames~objname = dd02t~tabname )

     where zobjnames~objtype = 'TAB'

     and dd02t~ddlanguage = sy-langu.

* get common tcodes

  select zobjnames~objname

         tstct~ttext

     into table i_codes

     from ( zobjnames

     inner join tstct

       on zobjnames~objname = tstct~tcode )

     where zobjnames~objtype = 'TCD'

     and tstct~sprsl = sy-langu.

* get open change requests

  select e070~trkorr

         e070~as4user

         e070~as4date

         e070~as4time

         e070~strkorr

         e07t~as4text

         e070~trstatus

      into table i_requests

    from ( e070

         inner join e07t

         on  e07t~trkorr = e070~trkorr )

        where e070~strkorr eq ''

        and   e070~trfunction ne 'Q'

        and   e070~trfunction ne 'W'

        and   e070~as4user = sy-uname.

endform.                    " get_data