*$&$MUSTER

FUNCTION ZIPS_MODEL_HEADER_EDITOR_EXIT.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  TABLES
*"      BUFFER STRUCTURE  ABAPSOURCE
*"----------------------------------------------------------------------

* <DATA>
  DATA: l_commentline1 LIKE LINE OF buffer,
  l_commentline2 LIKE LINE OF buffer,
  l_commentline3 LIKE LINE OF buffer,
  l_firstname LIKE adrp-name_first,
  l_lastname LIKE adrp-name_last,
  l_function LIKE adcp-function,
  l_department LIKE adcp-department,
  l_datum(10).

* <TABLES>
  TABLES: usr21, "Assign user name address key
  adrp, "Persons (central address administration)
  adcp. "Person/Address assignment (central address administration)

*additional:, although using the comment charater '"', the system
* converts it to '*'
  CONCATENATE '"##############################'
  '#########################################' INTO l_commentline1.

  CONCATENATE '"------------------------------------'
  '-----------------------------------' INTO l_commentline2.
  CONCATENATE '"=================================='
  '=====================================' INTO l_commentline3.

  buffer = l_commentline1.
  APPEND buffer.

  buffer = '* Report : '.
  APPEND buffer.

  buffer = '* Version : 1.00'.
  APPEND buffer.

* initialize first and last name, if not found in database
  l_firstname = 'first name'.
  l_lastname = 'last name'.

* retrieval of first and last name in database
  SELECT SINGLE * FROM usr21 WHERE bname = sy-uname.
  IF sy-subrc = 0.

    SELECT SINGLE * FROM adrp WHERE persnumber = usr21-persnumber.
    IF sy-subrc = 0.
      l_firstname = adrp-name_first.
      l_lastname = adrp-name_last.

* retrtieval of function and department of user
      SELECT SINGLE * FROM adcp WHERE persnumber = usr21-persnumber.
      IF sy-subrc = 0.
        l_function = adcp-function.
        l_department = adcp-department.

      ENDIF.
    ENDIF.
  ENDIF.

  CONCATENATE '* Author :' sy-uname' -' l_firstname l_lastname INTO
  buffer SEPARATED BY space.
  APPEND buffer.

  CONCATENATE '* Function :' l_function
  ' Department :' l_department
  INTO buffer SEPARATED BY space.
  APPEND buffer.

  WRITE sy-datum DD/MM/YYYY TO l_datum.
  CONCATENATE '* Date : ' l_datum INTO buffer SEPARATED BY space.
  APPEND buffer.

  buffer = l_commentline2.
  APPEND buffer.

  buffer = '* Title : '.
  APPEND buffer.

  buffer = '* Purpose : '.
  APPEND buffer.

  buffer = '* Details : '.
  APPEND buffer.

  buffer = l_commentline3.
  APPEND buffer.

  buffer = '* Change History'.
  APPEND buffer.

  buffer = l_commentline2.
  APPEND buffer.

  buffer = '* Correction on version : 1.00'.
  APPEND buffer.

  buffer = '* New version : 1.01'.
  APPEND buffer.

  buffer = '* Author :'.
  APPEND buffer.

  buffer = '* Date :'.
  APPEND buffer.

  buffer = '* Reason :'.
  APPEND buffer.

  buffer = '* Change :'.
  APPEND buffer.

  buffer = l_commentline1.
  APPEND buffer.

ENDFUNCTION.

*#######################################################################
* Report :
* Version : 1.00
* Author : BCUSER  - Richard Harper
* Function : ABAP Programmer  Department : My Office
* Date : 18.06.2004
*-----------------------------------------------------------------------
* Title :
* Purpose :
* Details :
*=======================================================================
* Change History
*-----------------------------------------------------------------------
* Correction on version : 1.00
* New version : 1.01
* Author :
* Date :
* Reason :
* Change :
*#######################################################################

CASE KEYWORD.
  WHEN  'MATTG_HEADER'.
    PERFORM MATTG_HEADER  TABLES BUFFER.

  WHEN  'MATTG_HISTORY'.
    CALL FUNCTION 'ZZMATT_HISTORY_EDITOR_EXIT'
         TABLES
              BUFFER = BUFFER.

ENDCASE.

  TABLES: E07T.      "WBO and Transport: Short Texts for Requests/Tasks

  DATA:  WA_BUFFER      TYPE ABAPSOURCE,
         ORDERNUM       LIKE E070-TRKORR,
         L_PROGFIELD    LIKE BDCDATA-FNAM.

  FIELD-SYMBOLS: <TRDIR>    LIKE TRDIR,
                 <TRKEY>    LIKE TRKEY.



* Additional:, although using the comment character '"', the system
* converts it to '*'
  CONCATENATE '"------------------------------------'
              '----------------------------------*'
              INTO L_COMMENTLINE2.

  PERFORM GET_DEVELOPER_NAME   USING SY-UNAME
                            CHANGING L_FIRSTNAME
                                     L_LASTNAME
                                     L_FUNCTION
                                     L_DEPARTMENT.

  WRITE SY-DATUM DD/MM/YYYY TO L_DATUM.
  CONCATENATE '* Date:' L_DATUM
              'Author:' SY-UNAME '-' L_FIRSTNAME L_LASTNAME
              INTO WA_BUFFER SEPARATED BY SPACE.
  IF  WA_BUFFER+71(1)  =  SPACE.
    WA_BUFFER+71(1)  =  '*'.
  ENDIF.
  APPEND WA_BUFFER  TO  BUFFER.


  L_PROGFIELD  =  '(SAPLS38E)TRDIR'.
  ASSIGN (L_PROGFIELD) TO <TRDIR>.
  IF SY-SUBRC EQ 0.
    CALL FUNCTION 'RS_CORR_INSERT'
         EXPORTING
              OBJECT                   = <TRDIR>-NAME
              OBJECT_CLASS             = 'ABAP'
*             MODE                     = ' '
*             GLOBAL_LOCK              = ' '
*             DEVCLASS                 = ' '
*             KORRNUM                  = ' '
*             AUTHOR                   = ' '
*             MASTER_LANGUAGE          = ' '
*             GENFLAG                  = ' '
*             PROGRAM                  = ' '
*             OBJECT_CLASS_SUPPORTS_MA = ' '
*             EXTEND                   = ' '
         IMPORTING
*             DEVCLASS                 =
*             KORRNUM                  =             "Task number
              ORDERNUM                 = ORDERNUM    "Request number
*             NEW_CORR_ENTRY           =
*             AUTHOR                   =
*             TRANSPORT_KEY            =
*             NEW_EXTEND               =
         EXCEPTIONS
              CANCELLED                = 1
              PERMISSION_FAILURE       = 2
              UNKNOWN_OBJECTCLASS      = 3
              OTHERS                   = 4
              .
    IF SY-SUBRC  =  0.
      IF  NOT ORDERNUM  IS INITIAL.
        SELECT SINGLE * FROM E07T
               WHERE TRKORR  =  ORDERNUM.
        IF  SY-SUBRC  <>  0.
          CLEAR E07T.
        ENDIF.
        CONCATENATE '*'  ORDERNUM  E07T-AS4TEXT
                    INTO WA_BUFFER SEPARATED BY SPACE.

      ELSE.
        L_PROGFIELD  =  '(SAPLS38E)TRANSPORT_KEY'.
        ASSIGN (L_PROGFIELD) TO <TRKEY>.
        CONCATENATE '* Development class;'  <TRKEY>-DEVCLASS
                    'WYTK9&$&$'  INTO WA_BUFFER SEPARATED BY SPACE.
      ENDIF.

    ELSE.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      L_PROGFIELD  =  '(SAPLS38E)TRANSPORT_KEY'.
      ASSIGN (L_PROGFIELD) TO <TRKEY>.
      CONCATENATE '* Development class;'  <TRKEY>-DEVCLASS
                  'WYTK9&$&$'  INTO WA_BUFFER SEPARATED BY SPACE.
    ENDIF.
  ELSE.
    L_PROGFIELD  =  '(SAPLS38E)TRANSPORT_KEY'.
    ASSIGN (L_PROGFIELD) TO <TRKEY>.
    CONCATENATE '* Development class;'  <TRKEY>-DEVCLASS
                'WYTK9&$&$'  INTO WA_BUFFER SEPARATED BY SPACE.
  ENDIF.

  IF  WA_BUFFER+71(1)  =  SPACE.
    WA_BUFFER+71(1)  =  '*'.
  ENDIF.
  APPEND WA_BUFFER  TO BUFFER.


*  L_PROGFIELD  =  '(SAPLS38E)KORRNUM'.
*  ASSIGN (L_PROGFIELD) TO <KORRNUM>.

  WA_BUFFER = '* Description: '.
  WA_BUFFER+71(1)  =  '*'.
  APPEND WA_BUFFER  TO  BUFFER.

  CLEAR WA_BUFFER.
  WA_BUFFER+00(1)  =  '*'.
  WA_BUFFER+71(1)  =  '*'.
  APPEND WA_BUFFER  TO  BUFFER.
  APPEND WA_BUFFER  TO  BUFFER.

  APPEND L_COMMENTLINE2  TO  BUFFER.