ABAP

FUNCTION-POOL ZBUPAJS MESSAGE-ID ZBUPA..                      "MESSAGE-ID ..

***********************************************************************
*     Tables                                                       *
***********************************************************************
TABLES: BUT000,
ZBUSFLDS,
ZBUTHOBBY,
ZTB001,
ZTB001T.

***********************************************************************
*     Constants                                                     *
***********************************************************************
CONSTANTS:
GC_ACTVT_DELETE     LIKE BUS000FLDS-CHAR1   VALUE 'D',
GC_ACTVT_INSERT     LIKE BUS000FLDS-CHAR1   VALUE 'I',
GC_ACTVT_UPDATE     LIKE BUS000FLDS-CHAR1   VALUE 'U',
GC_AKTYP_CHANGE     LIKE TBZ0K-AKTYP        VALUE '02',
GC_AKTYP_DISPLAY    LIKE TBZ0K-AKTYP        VALUE '03',
GC_FCODE_HOBBY_DELE LIKE TBZ4-FCODE         VALUE 'ZCXX_HOBBY_DELE',
GC_FSTAT_OPTIONAL   LIKE BUS000FLDS-FLDSTAT VALUE '.',
GC_FSTAT_REQUIRED   LIKE BUS000FLDS-FLDSTAT VALUE '+',
GC_FSTAT_DISPLAY    LIKE BUS000FLDS-FLDSTAT VALUE '*',
GC_FSTAT_NONSPECIF  LIKE BUS000FLDS-FLDSTAT VALUE ' ',
GC_FSTAT_SUPPRESSED LIKE BUS000FLDS-FLDSTAT VALUE '-',
GC_MESSG_ARBGB      LIKE MESG-ARBGB         VALUE 'ZBUPA',
GC_MESSG_CANCEL     LIKE MESG-MSGTY         VALUE 'A',
GC_MESSG_ERROR      LIKE MESG-MSGTY         VALUE 'E',
GC_OBJAP_PARTNER    LIKE TBZ1-OBJAP         VALUE 'BUPA',
GC_STATUS_DISPLAY   LIKE TBZ0K-AKTYP        VALUE '*',
GC_X                LIKE BOOLE-BOOLE        VALUE 'X'.

***********************************************************************
*      Variables                                                      *
***********************************************************************
data: GV_AKTYP             LIKE TBZ0K-AKTYP,
GV_ZBUTHOBBY_LINACT  LIKE SY-INDEX,
GV_CNT_FIRST_OLD     LIKE ZBUSFLDS-CNT_FIRST,
GV_XSAVE             LIKE BOOLE-BOOLE,
GV_XUPDTASK          LIKE BOOLE-BOOLE,
GV_HOBBY_INDEXDI     LIKE SY-TABIX.

***********************************************************************
*      Structure                                                    *
***********************************************************************
data: GL_BUT000_OLD LIKE BUT000.

***********************************************************************
*      Internal Tables                                               *
***********************************************************************
*------ ZBUTHOBBY: Actual Memory, new data -----------------------
DATA: BEGIN OF GT_ZBUTHOBBY OCCURS 0.
include structure ZBUTHOBBY.
data:   XMARK LIKE BOOLE-BOOLE,
END   OF GT_ZBUTHOBBY,

*------ ZBUTHOBBY: Actual Memory, old data -----------------------
GT_ZBUTHOBBY_OLD  LIKE ZBUTHOBBY    OCCURS 0 WITH HEADER LINE,

*------ role types ----------------------------------------------------
gt_rltyp         like bus0rltyp      occurs 0 with header line,

*------ ZBUTHOBBY: Global Memory, new data -----------------------
MEM_ZBUTHOBBY     LIKE ZBUSHOBBY       OCCURS 0 WITH HEADER LINE,

*------ ZBUTHOBBY: Global Memory, old data -----------------------
MEM_ZBUTHOBBY_OLD LIKE MEM_ZBUTHOBBY  OCCURS 0 WITH HEADER LINE,

*------ Working List Maintained Partner --------------------------------
begin of mem_partner occurs 0,
partner like but000-partner,
end   of mem_partner.

***********************************************************************
*      Controls                                                       *
***********************************************************************
CONTROLS: TCTRL_ZBUTHOBBY TYPE TABLEVIEW USING SCREEN '0020'.