Skip to Content

Maybe this blog doesn’t have the most useful transaction, however it was fun to develop.

As you may know, or at least as far as I know, there is no RFC function out there that gives you the opportunity to check the transport system information, so I made my own. Use it at your own risk.

Today, it just comes to my attention the following paper https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/7ce5c590-0201-0010-388e-cc28510abb89 it sets a standard for using RSS inside of the SAP system.

ZRFC_TRANSPORT_REQUEST

FUNCTION ZRFC_TRANSPORT_REQUEST.

*”—-


“Local interface:

*”  IMPORTING

*”     VALUE(AS4USER) LIKE  E070-AS4USER

*”     VALUE(TRKORR) LIKE  E070-TRKORR OPTIONAL

*”     VALUE(TRFUNCTION) LIKE  E070-TRFUNCTION OPTIONAL

*”     VALUE(TRSTATUS) LIKE  E070-TRSTATUS OPTIONAL

*”  TABLES

*”      T_E070_ORDER STRUCTURE  E070

*”      T_E070_TASK STRUCTURE  E070

*”      T_E071 STRUCTURE  E071

*”      T_E07T STRUCTURE  E07T

*”  EXCEPTIONS

*”      USER_NOT_FOUND

*”—-


  SELECT TRKORR TRFUNCTION TRSTATUS TARSYSTEM

         KORRDEV AS4USER AS4DATE AS4TIME STRKORR

  INTO TABLE T_E070_ORDER

  FROM E070

  WHERE AS4USER EQ AS4USER.

  IF SY-SUBRC NE 0.

    RAISE USER_NOT_FOUND.

  ENDIF.

  IF TRFUNCTION NE SPACE.

    DELETE T_E070_ORDER WHERE TRFUNCTION NE TRFUNCTION.

  ENDIF.

  IF TRSTATUS NE SPACE.

    DELETE T_E070_ORDER WHERE TRSTATUS NE TRSTATUS.

  ENDIF.

  IF TRKORR NE SPACE.

    DELETE T_E070_ORDER WHERE TRKORR NE TRKORR.

  ENDIF.

  IF NOT T_E070_ORDER[] IS INITIAL.

    SELECT TRKORR TRFUNCTION TRSTATUS TARSYSTEM

           KORRDEV AS4USER AS4DATE AS4TIME STRKORR

    INTO TABLE T_E070_TASK

    FROM E070

    FOR ALL ENTRIES IN T_E070_ORDER

    WHERE STRKORR EQ T_E070_ORDER-TRKORR.

    SELECT TRKORR LANGU AS4TEXT

    INTO TABLE T_E07T

    FROM E07T

    FOR ALL ENTRIES IN T_E070_ORDER

    WHERE TRKORR EQ T_E070_ORDER-TRKORR

      AND LANGU EQ SY-LANGU.

  ENDIF.

  IF NOT T_E070_TASK[] IS INITIAL.

    SELECT TRKORR AS4POS PGMID OBJECT OBJ_NAME

           OBJFUNC LOCKFLAG GENNUM LANG ACTIVITY

    INTO TABLE T_E071

    FROM E071

    FOR ALL ENTRIES IN T_E070_TASK

    WHERE TRKORR EQ T_E070_TASK-TRKORR.

  ENDIF.

ENDFUNCTION.

   body

   #login

 

To report this post you need to login first.

Be the first to leave a comment

You must be Logged on to comment or reply to a post.

Leave a Reply