GETTING DUMP WHILE USING BLOCKED LIST ALV

Chandra-Bade · ‎2007 Jun 18

Hi ABAPERS,

this is very urgent to me .

In my report I using 3 internal tables to display .

but in REUSE_ALV_BLOCK_LIST_DISPLAY function

system raising short dump.

i.e.

Error in the ABAP Application Program

The current ABAP program "SAPLKKBL" had to be terminated because

come across a statement that unfortunately cannot be executed.

Error analysis

You attempted to access an unassigned field symbol

(data segment 92).

This error may occur if

- You address a typed field symbol before it has been set with

ASSIGN

- You address a field symbol that pointed to the line of an

internal table that was deleted

- You address a field symbol that was previously reset using

UNASSIGN or that pointed to a local field that no

longer exists

- You address a global function interface, although the

respective function module is not active - that is, is

not in the list of active calls. The list of active calls

can be taken from this short dump.

Trigger Location of Runtime Error

Program SAPLKKBL

Include LKKBLF99

Row 2,764

Module type (FORM)

Module Name GEN_FIELD_OUT2

I hope some body will help to solve this problem

Regards

Chandra Shaker

Former Member · ‎2007 Jun 18

Hi chandra,

Can you paste the code of table defination in your ALV which you are passing to the Fm.

Regards,

Atish

Former Member · ‎2007 Jun 18

i am not sure why are you getting this error but i think it is not for three int table . Just go through this code it is also using three itab.. it may help you..


TYPE-POOLS : SLIS.
TABLES : EKKO,EKPO,MARA,MAKT,EINE.

DATA : BEGIN OF IEKKO OCCURS 0,
       EBELN LIKE EKKO-EBELN,
       AEDAT LIKE EKKO-AEDAT,
       END OF IEKKO.

DATA : BEGIN OF IEKPO OCCURS 0,
       EBELN LIKE EKPO-EBELN,
       EBELP LIKE EKPO-EBELP,
       MATNR LIKE EKPO-MATNR,
       MENGE LIKE EKPO-MENGE,
       MEINS LIKE EKPO-MEINS,
       INFNR LIKE EKPO-INFNR,
       END OF IEKPO.
DATA : BEGIN OF IMARA OCCURS 0,
       MATNR LIKE MARA-MATNR,
       MTART LIKE MARA-MTART,
       MAKTX LIKE MAKT-MAKTX,
       END OF IMARA.
DATA : BEGIN OF IEINE OCCURS 0,
       INFNR LIKE EINE-INFNR,
       EBELN LIKE EINE-EBELN,
       NETPR LIKE EINE-NETPR,
       WAERS LIKE EINE-WAERS,
       END OF IEINE.


DATA : IFIELDCAT     TYPE SLIS_T_FIELDCAT_ALV,
       IFIELDCATEINE TYPE SLIS_T_FIELDCAT_ALV,
       IFIELDCATMARA TYPE SLIS_T_FIELDCAT_ALV,
       WFIELDCAT     TYPE SLIS_FIELDCAT_ALV,
       ILAYOUT       TYPE SLIS_LAYOUT_ALV,
       IEVENTHEAD    TYPE SLIS_T_EVENT,
       IEVENTITEM    TYPE SLIS_T_EVENT,
       IEVENTEINE    TYPE SLIS_T_EVENT,
       WEVENT        TYPE SLIS_ALV_EVENT,
       IKEYINFO      TYPE SLIS_KEYINFO_ALV.

PARAMETERS : P_NUM(3) TYPE N DEFAULT 10.


PERFORM GET_DATA_EKKO.
PERFORM GET_DATA_EKPO.
PERFORM GET_DATA_MARA.
PERFORM GET_DATA_EINE.


PERFORM BUILD_FCAT_HEAD.
PERFORM BUILD_FCAT_ITEM.
PERFORM BUILD_FCAT_MARA.
PERFORM BUILD_FCAT_EINE.
PERFORM BUILD_LAYOUT.
PERFORM BUILD_EVENT_TAB.
PERFORM BUILD_KEYINFO.


PERFORM DISPLAY_BLOCK.
*&---------------------------------------------------------------------*
*&      Form  GET_DATA_EKKO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA_EKKO .

SELECT EBELN AEDAT INTO TABLE IEKKO FROM EKKO UP TO P_NUM ROWS WHERE EBELN LIKE '45000057%'.

ENDFORM.                    " GET_DATA_EKKO
*&---------------------------------------------------------------------*
*&      Form  GET_DATA_EKPO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA_EKPO .

IF NOT IEKKO[] IS INITIAL.
  SELECT EBELN EBELP MATNR MENGE MEINS INFNR INTO TABLE IEKPO FROM EKPO FOR ALL ENTRIES
                                                    IN IEKKO WHERE EBELN = IEKKO-EBELN.
ENDIF.

ENDFORM.                    " GET_DATA_EKPO
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_BLOCK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM DISPLAY_BLOCK .

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
  EXPORTING
    I_CALLBACK_PROGRAM             = SY-REPID
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IT_EXCLUDING                   =
          .

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_HS_APPEND'
  EXPORTING
    IS_LAYOUT                        = ILAYOUT
    IT_FIELDCAT                      = IFIELDCAT
    IS_KEYINFO                       = IKEYINFO
    I_HEADER_TABNAME                 = 'IEKKO'
    I_ITEM_TABNAME                   = 'IEKPO'
    IT_EVENTS                        = IEVENTHEAD
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB_HEADER                  = IEKKO
    T_OUTTAB_ITEM                    = IEKPO
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.



CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = ILAYOUT
    IT_FIELDCAT                      = IFIELDCATMARA
    I_TABNAME                        = 'IMARA'
    IT_EVENTS                        = IEVENTITEM
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = IMARA
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = ILAYOUT
    IT_FIELDCAT                      = IFIELDCATEINE
    I_TABNAME                        = 'IEINE'
    IT_EVENTS                        = IEVENTEINE
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = IEINE
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.



CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
* EXPORTING
*   I_INTERFACE_CHECK             = ' '
*   IS_PRINT                      =
*   I_SCREEN_START_COLUMN         = 0
*   I_SCREEN_START_LINE           = 0
*   I_SCREEN_END_COLUMN           = 0
*   I_SCREEN_END_LINE             = 0
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER       =
*   ES_EXIT_CAUSED_BY_USER        =
 EXCEPTIONS
   PROGRAM_ERROR                 = 1
   OTHERS                        = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


ENDFORM.                    " DISPLAY_BLOCK
*&---------------------------------------------------------------------*
*&      Form  BUILD_FCAT_HEAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_FCAT_HEAD .
WFIELDCAT-FIELDNAME = 'EBELN'.
WFIELDCAT-TABNAME   = 'IEKKO'.
WFIELDCAT-SELTEXT_L = 'Pur. Doc no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.


WFIELDCAT-FIELDNAME = 'AEDAT'.
WFIELDCAT-TABNAME   = 'IEKKO'.
WFIELDCAT-SELTEXT_L = 'Pur. doc date'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.

ENDFORM.                    " BUILD_FCAT_HEAD
*&---------------------------------------------------------------------*
*&      Form  BUILD_FCAT_ITEM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_FCAT_ITEM .
*WFIELDCAT-FIELDNAME = 'EBELN'.
*WFIELDCAT-TABNAME   = 'IEKPO'.
*WFIELDCAT-SELTEXT_L = 'Pur. Doc no'.
*WFIELDCAT-OUTPUTLEN = 15.
*APPEND WFIELDCAT TO IFIELDCAT.
*CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'EBELP'.
WFIELDCAT-TABNAME   = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'Pur. Doc item'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'MATNR'.
WFIELDCAT-TABNAME   = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'Material no'.
WFIELDCAT-OUTPUTLEN = 18.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'MENGE'.
WFIELDCAT-TABNAME   = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'P.O. Qty'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'MEINS'.
WFIELDCAT-TABNAME   = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'UOM'.
WFIELDCAT-OUTPUTLEN = 3.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.

ENDFORM.                    " BUILD_FCAT_ITEM
*&---------------------------------------------------------------------*
*&      Form  BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_LAYOUT .
ILAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ILAYOUT-ZEBRA             = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  BUILD_EVENT_TAB
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_EVENT_TAB .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
   I_LIST_TYPE           = 0
 IMPORTING
   ET_EVENTS             = IEVENTHEAD
* EXCEPTIONS
*   LIST_TYPE_WRONG       = 1
*   OTHERS                = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

IEVENTITEM = IEVENTHEAD.
IEVENTEINE = IEVENTHEAD.
READ TABLE IEVENTHEAD INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
WEVENT-FORM = 'TOPOFPAGEHEAD'.
MODIFY IEVENTHEAD FROM WEVENT INDEX SY-TABIX.
ENDIF.

READ TABLE IEVENTITEM INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
WEVENT-FORM = 'TOPOFPAGEITEM'.
MODIFY IEVENTITEM FROM WEVENT INDEX SY-TABIX.
ENDIF.

READ TABLE IEVENTEINE INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
WEVENT-FORM = 'TOPOFPAGEEINE'.
MODIFY IEVENTEINE FROM WEVENT INDEX SY-TABIX.
ENDIF.



ENDFORM.                    " BUILD_EVENT_TAB

FORM TOPOFPAGEHEAD.
DATA : ILIST TYPE SLIS_T_LISTHEADER,
       WLIST TYPE SLIS_LISTHEADER.

WLIST-INFO = 'Header data with P.O. no and creating date'.
WLIST-TYP  = 'H'.
APPEND WLIST TO ILIST.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    IT_LIST_COMMENTARY       = ILIST
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
          .


ENDFORM.

FORM TOPOFPAGEITEM.
DATA : ILIST TYPE SLIS_T_LISTHEADER,
       WLIST TYPE SLIS_LISTHEADER.

WLIST-INFO = 'Material no in PO with type and description'.
WLIST-TYP  = 'H'.
APPEND WLIST TO ILIST.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    IT_LIST_COMMENTARY       = ILIST
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
          .


ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  BUILD_KEYINFO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_KEYINFO .
IKEYINFO-HEADER01 = 'EBELN'.
IKEYINFO-ITEM01   = 'EBELN'.
ENDFORM.                    " BUILD_KEYINFO
*&---------------------------------------------------------------------*
*&      Form  BUILD_FCAT_MARA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_FCAT_MARA .

WFIELDCAT-FIELDNAME = 'MATNR'.
WFIELDCAT-TABNAME   = 'IMARA'.
WFIELDCAT-SELTEXT_L = 'Material no'.
WFIELDCAT-OUTPUTLEN = 18.
APPEND WFIELDCAT TO IFIELDCATMARA.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'MAKTX'.
WFIELDCAT-TABNAME   = 'IMARA'.
WFIELDCAT-SELTEXT_L = 'Material desc'.
WFIELDCAT-OUTPUTLEN = 30.
APPEND WFIELDCAT TO IFIELDCATMARA.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'MTART'.
WFIELDCAT-TABNAME   = 'IMARA'.
WFIELDCAT-SELTEXT_L = 'Material typ'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATMARA.
CLEAR WFIELDCAT.

ENDFORM.                    " BUILD_FCAT_MARA
*&---------------------------------------------------------------------*
*&      Form  GET_DATA_MARA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA_MARA .
IF NOT IEKPO[] IS INITIAL.
  SELECT A~MATNR A~MTART B~MAKTX INTO TABLE IMARA FROM MARA AS A INNER JOIN
                                                       MAKT AS B ON
                                                       A~MATNR = B~MATNR FOR
                                                       ALL ENTRIES IN IEKPO
                                                       WHERE A~MATNR = IEKPO-MATNR.

ENDIF.

ENDFORM.                    " GET_DATA_MARA
*&---------------------------------------------------------------------*
*&      Form  GET_DATA_EINE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA_EINE .

IF NOT IEKPO[] IS INITIAL.
  SELECT INFNR EBELN NETPR WAERS INTO TABLE IEINE FROM EINE
         FOR ALL ENTRIES IN IEKPO WHERE INFNR = IEKPO-INFNR AND
                                        EBELN = IEKPO-EBELN.
ENDIF.

ENDFORM.                    " GET_DATA_EINE

FORM TOPOFPAGEEINE.
DATA : ILIST TYPE SLIS_T_LISTHEADER,
       WLIST TYPE SLIS_LISTHEADER.

WLIST-INFO = 'Purchasing info record'.
WLIST-TYP  = 'H'.
APPEND WLIST TO ILIST.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    IT_LIST_COMMENTARY       = ILIST
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
          .

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  BUILD_FCAT_EINE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_FCAT_EINE .

WFIELDCAT-FIELDNAME = 'INFNR'.
WFIELDCAT-TABNAME   = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Info rec no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'EBELN'.
WFIELDCAT-TABNAME   = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Pur ord no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'NETPR'.
WFIELDCAT-TABNAME   = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Net price'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.

WFIELDCAT-FIELDNAME = 'WAERS'.
WFIELDCAT-TABNAME   = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Currency'.
WFIELDCAT-OUTPUTLEN = 10.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.


ENDFORM.                    " BUILD_FCAT_EINE

regards

shiba dutta

Chandra-Bade · ‎2007 Jun 18

Hi Atish,

I am getting dump in fm 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

that short occured in standard program SAPLKKBL WHICH IS CALLED BY ABOVE FUNCTION MODULE.

Former Member · ‎2007 Jun 18

Hi Chandra,

Many a times it happens that when you pass some parameter to the standard FM which can't be converted in the same, it may cause the dump. So just to check what can be the wrong I asked the table definations in your code.

Regards,

Atish

Former Member · ‎2007 Jun 18

HI,

see this example.for REUSE_ALV_BLOCK_LIST_DISPLAY we don't need to pass any parameters.it should contain REUSE_ALV_BLOCK_LIST_INIT.check whether u used it or not.

REPORT ZBHALV_BLOCK_LIST.

TABLES:LFA1,EKKO.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

LAND1 LIKE LFA1-LAND1,

ORT01 LIKE LFA1-ORT01,

REGIO LIKE LFA1-REGIO,

END OF ITAB.

DATA:BEGIN OF JTAB OCCURS 0,

LIFNR LIKE EKKO-LIFNR,

EBELN LIKE EKKO-EBELN,

BUKRS LIKE EKKO-BUKRS,

BSTYP LIKE EKKO-BSTYP,

EKORG LIKE EKKO-EKORG,

BSART LIKE EKKO-BSART,

END OF JTAB.

SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE LIFNR

IN LIFNR.

SELECT * FROM EKKO INTO CORRESPONDING FIELDS OF TABLE JTAB WHERE LIFNR

IN LIFNR.

TYPE-POOLS:SLIS.

DATA:LAYOUT TYPE slis_layout_alv.

DATA:EVE TYPE slis_t_event WITH HEADER LINE.

DATA:EVE1 TYPE slis_t_event WITH HEADER LINE.

DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.

DATA:FCAT TYPE slis_t_fieldcat_alv.

DATA:FCAT1 TYPE slis_t_fieldcat_alv.

LAYOUT-ZEBRA = 'X'.

LAYOUT-colwidth_optimize = 'X'.

LAYOUT-WINDOW_TITLEBAR = 'VENDOR DETAILS SCREEN'.

EVE1-NAME = 'TOP_OF_PAGE'.

EVE1-FORM = 'TOP_OF_PAGE1'.

APPEND EVE1.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = EVE[]

EXCEPTIONS

LIST_TYPE_WRONG = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

READ TABLE EVE WITH KEY NAME = 'TOP_OF_PAGE'.

EVE-FORM = 'TOP_OF_PAGE'.

MODIFY EVE TRANSPORTING FORM WHERE NAME = 'TOP_OF_PAGE'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =

.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT

I_TABNAME = 'ITAB'

IT_EVENTS = EVE[]

IT_SORT =
I_TEXT = ' '

TABLES

T_OUTTAB = ITAB

EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'JTAB'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT1

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT1

I_TABNAME = 'JTAB'

IT_EVENTS = EVE1[]

IT_SORT =
I_TEXT = ' '

TABLES

T_OUTTAB = JTAB

EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 2
OTHERS = 3

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

FORM TOP_OF_PAGE.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS DETAILS'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO =
I_END_OF_LIST_GRID =

.

ENDFORM.

FORM TOP_OF_PAGE1.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'PURCHASE DOCCUMENTS DETAILS'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO =
I_END_OF_LIST_GRID =

.

ENDFORM.

rgds,

bharat.

Chandra-Bade · ‎2007 Jun 18

This is my program

----

*& Report ZMAM_RA015_SUPVSR_REV_HOLD

*&

&----

*&

&----

REPORT zmam_ra015_supvsr_rev_hold MESSAGE-ID zmam_ra015_supvsr_hs

NO STANDARD PAGE HEADING.

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

T A B L E S D E C L A R A T I O N S *

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

TABLES: jjtbe, "Booking Unit Master Table

jhapa. "Order-Publishing-Media Ad Item Table

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

T Y P E S D E C L A T I O N *

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

--

TYPES DECLARATION FOR SUPERVISOR REVIEW ORDERS OUTPUT--

TYPE-POOLS: slis.

TYPES: BEGIN OF gty_out_suprvord,

avm_nr TYPE avm_nr, "Sales Doccument Number

merkmal1 TYPE merk1_pa, "Supervisor review(characteristick1

merkmal0 TYPE merk0_pa, "Personal_ Hold_ Status(characteristick0)

vermittler TYPE vermk, "Sales Agent with ID

name(80) TYPE c, "Sales AGent Nmae

belegeinh TYPE belegeinh, "Booking Unit

inhk_kfm TYPE inhk_kfm, "Business Content Component

END OF gty_out_suprvord.

--

TYPES DECLARATION FOR SUPERVISOR FAILED ORDERS OUTPUT--

TYPES: BEGIN OF gty_out_supfldord,

avm_nr TYPE avm_nr, "Sales Doccument Number

merkmal1 TYPE merk1_pa, "Supervisor review(characteristick1

merkmal0 TYPE merk0_pa, "Personal_ Hold_ Status(characteristick0)

vermittler TYPE vermk, "Sales Agent with ID

name(80) TYPE c, "Sales AGent Nmae

belegeinh TYPE belegeinh, "Booking Unit

inhk_kfm TYPE inhk_kfm, "Business Content Component

END OF gty_out_supfldord.

--

TYPES DECLARATION FOR PERSONAL HOLD ORDERS OUTPUT--

TYPES: BEGIN OF gty_out_perhold,

avm_nr TYPE avm_nr, "Sales Doccument Number

merkmal1 TYPE merk1_pa, "Supervisor review(characteristick1)

merkmal0 TYPE merk0_pa, "Personal_ Hold_ Status(characteristick0)

vermittler TYPE vermk, "Sales Agent with ID

name(80) TYPE c, "Sales AGent Nmae

belegeinh TYPE belegeinh, "Booking Unit

inhk_kfm TYPE inhk_kfm, " Business Content Component

END OF gty_out_perhold.

TYPES: BEGIN OF gty_final,

avm_nr TYPE avm_nr, "Sales Doccument Number

merkmal1 TYPE merk1_pa, "Supervisor review(characteristick1

merkmal0 TYPE merk0_pa, "Personal_ Hold_ Status(characteristick0)

vermittler TYPE vermk, "Sales Agent with ID

name(80) TYPE c, "Sales AGent Nmae

belegeinh TYPE belegeinh, "Booking Unit

inhk_kfm TYPE inhk_kfm, "Business Content Component

END OF gty_final.

----

--

TYPES DECLARATION JHAK TABLE--

----

TYPES: BEGIN OF gty_jhak,

avm_nr TYPE avm_nr, "Sales Doccument Number

vermittler TYPE vermk, "Sales Agent with ID

END OF gty_jhak.

----

--

TYPES DECLARATION JHAPA TABLE--

----

TYPES:BEGIN OF gty_jhapa,

avm_nr TYPE avm_nr, "Sales Doccument Number

pos_nr TYPE pos_nr, "Order Item Number

ersch_t TYPE ersch_t, "Publication Date

merkmal1 TYPE merk1_pa, "Supervisor review(characteristick1

merkmal0 TYPE merk0_pa, "Personal_ Hold_ Status(characteristick0)

inhk_kfm TYPE inhk_kfm, "Business Content Component

END OF gty_jhapa.

----

--

TYPES DECLARATION BUT000 TABLE--

----

TYPES: BEGIN OF gty_but000,

avm_nr TYPE avm_nr,

partner TYPE bu_partner, "Business Partner Number

name_first TYPE bu_namep_f, "First name of business partner

name_last TYPE bu_namep_l, "Last name of business partne

END OF gty_but000.

----

--

TYPES DECLARATION BUT000 TABLE--

----

TYPES: BEGIN OF gty_jhabpz,

avm_nr TYPE avm_nr, "Sales Doccument Number

belegeinh TYPE belegeinh, " Booking Unit

END OF gty_jhabpz.

TYPES: BEGIN OF gty_jhabpz1,

belegeinh TYPE belegeinh, " Booking Unit

END OF gty_jhabpz1.

TYPES: BEGIN OF gty_jjtiko,

inhaltskom TYPE inhaltskom, " Technical Content Component

kurztext TYPE bezeichn15, " Technical Content Component Short Text

END OF gty_jjtiko.

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

I N T E R N A L T A B L E S A N D W O R K A R E A D E C L A R A T I O N S *

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

DATA: gt_out_suprvord TYPE STANDARD TABLE OF gty_out_suprvord INITIAL SIZE 0.

DATA: wa_out_suprvord TYPE gty_out_suprvord.

DATA: gt_out_supfldord TYPE STANDARD TABLE OF gty_out_supfldord INITIAL SIZE 0.

DATA: wa_out_supfldord TYPE gty_out_supfldord.

DATA: gt_out_perhold TYPE STANDARD TABLE OF gty_out_perhold INITIAL SIZE 0.

DATA: wa_out_perhold TYPE gty_out_perhold.

*DATA: gt_jhak TYPE STANDARD TABLE OF gty_jhak INITIAL SIZE 0.

*DATA: wa_jhak TYPE gty_jhak.

DATA: gt_jhapa TYPE STANDARD TABLE OF gty_jhapa INITIAL SIZE 0 .

DATA: wa_jhapa TYPE gty_jhapa .

DATA: gt_but000 TYPE STANDARD TABLE OF gty_but000 INITIAL SIZE 0.

DATA: wa_but000 TYPE gty_but000.

DATA: gt_jhabpz TYPE STANDARD TABLE OF gty_jhabpz INITIAL SIZE 0.

DATA: wa_jhabpz TYPE gty_jhabpz.

DATA: gt_jhabpz1 TYPE STANDARD TABLE OF gty_jhabpz1 INITIAL SIZE 0.

DATA: wa_jhabpz1 TYPE gty_jhabpz1.

DATA: gt_jjtiko TYPE STANDARD TABLE OF gty_jjtiko INITIAL SIZE 0. .

DATA: gt_final TYPE STANDARD TABLE OF gty_final INITIAL SIZE 0.

DATA: wa_final TYPE gty_final.

----

--

DATA DECLARATION F0R ALV TYPES--

----

DATA: gt_fldcat1 TYPE slis_t_fieldcat_alv.

DATA: wa_flDcat1 TYPE slis_fieldcat_alv.

DATA: gt_fldcat2 TYPE slis_t_fieldcat_alv.

DATA: wa_flDcat2 TYPE slis_fieldcat_alv.

DATA: gt_fldcat3 TYPE slis_t_fieldcat_alv.

DATA: wa_flDcat3 TYPE slis_fieldcat_alv.

DATA: wa_comment TYPE slis_listheader.

DATA: GT_event TYPE slis_T_event.

DATA: WA_EVENT TYPE SLIS_ALV_EVENT.

DATA: WA_LAYOUT TYPE SLIS_LAYOUT_ALV.

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

S E L E C T I O N S C R E E N *

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

SELECT-OPTIONS: s_erscht FOR jhapa-ersch_t OBLIGATORY . "Publication Date

SELECT-OPTIONS: s_belein FOR jjtbe-beleinh OBLIGATORY. "Booking Unit

SELECT-OPTIONS: s_inhk_t FOR jhapa-inhk_tech1 OBLIGATORY. "Technical Content Component

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

I N I T I A L I Z A T I O N *

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

INITIALIZATION.

s_erscht-low = sy-datum + 1.

APPEND s_erscht.

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

A T S E L E C T I O N - S C R E E N *

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

AT SELECTION-SCREEN.

PERFORM validate_s_pubdat. "For Publication Date Validattion

PERFORM validate_s_belein_low. "Booking Unit Lower Limit Validation

PERFORM validate_s_belein_high. "Booking Unit Higher Limit Validation

PERFORM validate_s_inhk_t_low USING s_inhk_t-low. "Technical Content Component Lower Limit Validation

PERFORM validate_s_inhaltskom USING s_inha_t-high. "Technical Content Component Higher Limit Validation

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

A T S E L E C T I O N - S C R E E N O N *

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

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_belein-low. " Booking unit values according to publication date

PERFORM valuereq_s_belein USING s_belein-low .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_belein-high. " Booking unit values according to publication date

PERFORM valuereq_s_belein USING s_belein-high.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_inhk_t-low. " Technical Content Comonent values according to publication date

PERFORM valuereq_s_inhalt USING s_inhk_t-low.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_inhk_t-high. " Technical Content Comonent values according to publication date

PERFORM valuereq_s_inhalt USING s_inhk_t-high.

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

S T A R T - O F - S E L E C T I O N *

gty_out_suprvord

START-OF-SELECTION.

PERFORM get_pubdate_orderdata.

PERFORM populate_gt_final.

PERFORM POPULATE_OUT_TABLES.

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

E N D - O F - S E L E C T I O N *

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

END-OF-SELECTION.

PERFORM BUILD_FILDCAT TABLES GT_FLDCAT1

USING WA_FLDCAT1.

PERFORM BUILD_FILDCAT TABLES GT_FLDCAT2

USING WA_FLDCAT2.

PERFORM BUILD_FILDCAT TABLES GT_FLDCAT3

USING WA_FLDCAT3.

PERFORM BUILD_LAYOUT.

PERFORM DISPLAY.

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

S U R O U T I N E S *********************

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

&----

*& Form VALIDATE_S_PUBDAT

&----

FORM validate_s_pubdat .

IF ( s_erscht-low > s_erscht-high ) AND s_erscht-high IS NOT INITIAL .

MESSAGE e001 WITH 'UPPER DATE SHOULD NOT BE MORE THAN LOWER DATE'.

ENDIF.

ENDFORM. " VALIDATE_S_PUBDAT

&----

*& Form VALIDATE_S_BELEIN

&----

FORM validate_s_belein_low .

IF NOT s_belein-low IS INITIAL.

SELECT SINGLE beleinh

FROM jjtbe

INTO jjtbe-beleinh

WHERE beleinh = s_belein-low.

IF sy-subrc <> 0.

MESSAGE e003 WITH 'INVALID BOOKING UNIT PLEASE ENTER THE COORECT VALUE'.

ENDIF.

ELSEIF s_belein-low > s_belein-high.

MESSAGE e004 WITH 'BOOKING UNIT LOWER LIMIT GREATER THAN UPPER LIMIT'.

CLEAR jjtbe.

ENDIF.

ENDFORM. " VALIDATE_S_BELEIN

&----

*& Form validate_s_belein_HIGH

&----

FORM validate_s_belein_high .

IF NOT s_belein-high IS INITIAL.

CLEAR jjtbe-beleinh.

SELECT SINGLE beleinh

FROM jjtbe

INTO jjtbe-beleinh

WHERE beleinh = s_belein-high.

IF sy-subrc <> 0.

MESSAGE e005 WITH 'BOKKING UNIT UPPER VALUE IS INVALID PLESE ENTER CORRECT VALUE'.

CLEAR jjtbe.

ENDIF.

ENDFORM. " validate_s_belein_HIGH

&----

*& Form VALIDATE_S_INHK_T

&----

text

----

-->P_S_INHK_T_ text

----

FORM validate_s_inhk_t_low USING l_s_inhk_t.

IF NOT l_s_inhk_t IS INITIAL.

SELECT SINGLE inhaltskom "INHALTSKOM is Content Componet

FROM jjtiko

INTO jhapa-inhk_tech1

WHERE inhaltskom = l_s_inhk_t .

IF sy-subrc <> 0.

MESSAGE e006 WITH 'TECHINICAL CONTENT COMPONENT IS INVALID '.

CLEAR jhapa.

ENDIF.

ENDFORM. " VALIDATE_S_INHALTSKOM

&----

*& Form GET_PUBDATE_ORDER

&----

FORM get_pubdate_orderdata .

SELECT avm_nr

pos_nr

ersch_t

merkmal1

merkmal0

inhk_kfm

FROM jhapa

INTO TABLE gt_jhapa

WHERE ersch_t = '00000000'.

IF sy-subrc = 0.

SELECT a~avm_nr

b~partner

b~name_first

b~name_last

INTO TABLE gt_but000

FROM jhak AS a

INNER JOIN but000 AS b

ON b_{partner = a}vermittler

FOR ALL ENTRIES IN gt_jhapa

WHERE a~avm_nr = gt_jhapa-avm_nr.

SELECT avm_nr

belegeinh

FROM jhabpz

INTO TABLE gt_jhabpz

FOR ALL ENTRIES IN gt_jhapa

WHERE avm_nr = gt_jhapa-avm_nr.

ELSEIF sy-subrc <> 0.

MESSAGE i000 WITH 'DATA NOT FOUND'.

ENDIF.

ENDFORM. " GET_PUBDATE_ORDER

&----

*& Form VALUEREQ_S_BELEIN

&----

text

----

-->L_S_BELEIN text

----

FORM valuereq_s_belein USING l_s_belein.

DATA: l_return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.

SELECT belegeinh

FROM jhabpz

INTO TABLE gt_jhabpz1

WHERE avm_nr IN

( SELECT avm_nr

FROM jhapa

WHERE ersch_t = '00000000'

IN s_erscht

).

IF sy-subrc <> 0.

MESSAGE i001 WITH 'no data found'.

ENDIF.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

retfield = 'belegeinh'

PVALKEY = ' '

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'L_s_belein'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

value_org = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

value_tab = gt_jhabpz1

FIELD_TAB =

return_tab = l_return_tab

DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3

.

CLEAR:l_return_tab,

l_return_tab[].

ENDFORM. " VALUEREQ_S_BELEIN1

&----

*& Form valuereq_s_inhalt

&----

text

----

-->L_S_INHALT text

----

FORM valuereq_s_inhalt USING l_s_inhalt.

DATA: l_return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.

SELECT inhaltskom

kurztext

FROM jjtiko

INTO TABLE gt_jjtiko

WHERE inhaltskom IN

( SELECT inhk_tech1

FROM jhapa

WHERE ersch_t = '00000000'

IN s_erscht

).

IF sy-subrc <> 0.

MESSAGE i001 WITH 'no data found'.

ENDIF.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

retfield = 'INHALTSKOM'

PVALKEY = ' '

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'l_s_inhalt'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

value_org = 'S'

MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

TABLES

value_tab = gt_jjtiko

FIELD_TAB =

return_tab = l_return_tab

DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3

.

CLEAR:l_return_tab,

l_return_tab[].

ENDFORM. " valuereq_s_inhalt

&----

*& Form POPULATE_GT_FINAL

&----

FORM populate_gt_final .

DATA: l_sales_name(80) TYPE c.

SORT gt_jhapa BY ersch_t avm_nr.

SORT gt_but000 BY avm_nr.

SORT gt_jhabpz BY avm_nr.

LOOP AT gt_jhapa INTO wa_jhapa.

CLEAR wa_but000.

CLEAR wa_jhabpz.

CLEAR wa_final.

READ TABLE gt_but000 INTO wa_but000

WITH KEY avm_nr = wa_jhapa-avm_nr BINARY SEARCH.

READ TABLE gt_jhabpz INTO wa_jhabpz

WITH KEY avm_nr = wa_jhapa-avm_nr BINARY SEARCH.

WA_FINAL-avm_nr = wa_jhapa-avm_nr .

MOVE wa_jhapa-avm_nr TO wa_final-avm_nr .

wa_final-merkmal1 = wa_jhapa-merkmal1.

wa_final-merkmal0 = wa_jhapa-merkmal0.

wa_final-inhk_kfm = wa_jhapa-inhk_kfm.

wa_final-belegeinh = wa_jhabpz-belegeinh.

wa_final-vermittler = wa_but000-partner.

CONCATENATE wa_but000-name_first ' ' wa_but000-name_first INTO l_sales_name .

wa_final-name = l_sales_name.

APPEND wa_final TO gt_final .

SORTED BY AVM_NR.

CLEAR wa_final.

CLEAR wa_jhapa.

ENDLOOP.

ENDFORM. " POPULATE_GT_FINAL

&----

*& Form DISPALAY

&----

FORM dispalay .

write: 'SUPERVISOR ORDERS'.

LOOP AT gt_out_suprvord INTO WA_out_suprvord.

WRITE: / WA_OUT_SUPRVORD-AVM_NR, ' ', wa_out_suprvord-merkmal1, ' ', wa_out_suprvord-merkmal0.

ENDLOOP.

write:/ 'SUPERVISOR FLD ORDERS'.

LOOP AT gt_out_supfldord INTO WA_OUT_SUPFLDORD.

WRITE: / WA_OUT_SUPFLDORD-AVM_NR, ' ', wa_out_SUPFLDORD-merkmal1, ' ',wa_out_SUPFLDORD-merkmal0.

ENDLOOP.

write:/ 'SUPERVISOR PERSONAL HOLD '.

LOOP AT gt_out_perhold INTO WA_OUT_perhold.

WRITE: / WA_OUT_perhold-AVM_NR,' ', wa_out_perhold-merkmal1, ' ',wa_out_perhold-merkmal0.

ENDLOOP.

ENDFORM. " DISPALAY

&----

*& Form POPULATE_OUT_TABLES

&----

form POPULATE_OUT_TABLES .

SORT GT_FINAL BY AVM_NR.

LOOP AT GT_FINAL INTO wa_final.

IF WA_FINAL-merkmal1 = 'X' AND WA_FINAL-merkmal0 = ''.

APPEND WA_FINAL TO gt_out_suprvord.

CLEAR WA_FINAL.

ELSEIF WA_FINAL-merkmal1 = 'X' AND WA_FINAL-merkmal0 = 'X'.

APPEND WA_FINAL TO gt_out_supfldord.

CLEAR WA_FINAL.

ELSEIF WA_FINAL-merkmal1 = '' AND WA_FINAL-merkmal0 = 'X'.

APPEND WA_FINAL TO gt_out_perhold.

CLEAR WA_FINAL.

ENDIF.

ENDLOOP.

endform. " POPULATE_OUT_TABLES

*

&----

*& Form BUILD_FILDCAT

&----

text

----

-->L_T_FLDCAT text
-->L_FLDCAT1 text

----

form BUILD_FILDCAT tables L_t_fldcat TYPE slis_t_fieldcat_alv

using L_fldcat TYPE slis_fieldcat_alv .

CLEAR: L_T_FLDCAT,

L_FLDCAT.

L_FLDCAT-COL_POS = 1.

L_FLDCAT-FIELDNAME = 'merkmal1'.

L_fldcat-tabname = 'gt_out_suprvord'.

L_FLDCAT-checkbox = 'X'.