Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM ORDER_ADMINISTRATION                                     *
    3
    *---------------------------------------------------------------------*
    4
    * get client state and transport objects                              *
    5
    *---------------------------------------------------------------------*
    6
    FORM ORDER_ADMINISTRATION.
    7
      DATA: RC LIKE SY-SUBRC.
    8
      IF STATUS-ACTION EQ ANZEIGEN AND
    9
         VIM_CORR_OBJ_VIEWNAME NE X_HEADER-VIEWNAME.
    10
        CLEAR E071-TRKORR.
    11
        PERFORM GET_TRANSP_INFO.
    12
        VIM_CORR_OBJ_VIEWNAME = X_HEADER-VIEWNAME.
    13
      ENDIF.
    14
      IF X_HEADER-FLAG EQ VIM_TRANSPORT_DENIED.
    15
        MESSAGE S001(SV). EXIT.
    16
      ENDIF.
    17
      DO.
    18
        CALL FUNCTION 'TR_TASK_OVERVIEW'
    19
             EXPORTING
    20
                  IV_USERNAME      = SY-UNAME
    21
                  IV_CATEGORY      = OBJH-OBJCATEG
    22
                  IV_CLIENT        = SY-MANDT
    23
             EXCEPTIONS
    24
                  INVALID_CATEGORY = 01
    25
                  OTHERS           = 02.
    26
        RC = SY-SUBRC.
    27
        IF SY-SUBRC EQ 1 AND
    28
           OBJH-OBJCATEG EQ VIM_CUST_SYST OR OBJH-OBJCATEG EQ VIM_APPL.
    29
          OBJH-OBJCATEG = VIM_SYST.
    30
          CONTINUE.
    31
        ENDIF.
    32
        EXIT.
    33
      ENDDO.
    34
      IF RC NE 0.
    35
        MESSAGE ID      SY-MSGID
    36
                TYPE    'I'
    37
                NUMBER  SY-MSGNO
    38
                WITH    SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    39
      ENDIF.
    40
      CLEAR FUNCTION.
    41
    ENDFORM.                               "order_administration