Go on link..

link us with ...

Tuesday, December 21, 2010

Program for BOM Component V/s Process Order Confn

*&---------------------------------------------------------------------*
*& Report ZVVF_CR019_BOMVSPOCOMP *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

*---------------------------------------------------------------------*
* Report ZVVF_CR019_BOMVSPOCOMP
*
*---------------------------------------------------------------------*
* *
* MODULE : Production Planning *
* *
*---------------------------------------------------------------------*
* Objective : Program for BOM Component V/s Process Order Confn *
*
*
* *
* Program : Update Tables ( ) Download Data ( ) Outputs List (X)*
* Technical Specs No : *
* Date Created : *
* Author :
*
* Location : *
* LDB : *
* *
*---------------------------------------------------------------------*


REPORT ZVVF_CR019_BOMVSPOCOMP .

*----------------------------------------------------------------------*
* Type-pools
*----------------------------------------------------------------------*

TYPE-POOLS :
SLIS.

*----------------------------------------------------------------------*
* Tables
*----------------------------------------------------------------------*
TABLES :
AFKO,
AFPO.

*----------------------------------------------------------------------
* Types
*----------------------------------------------------------------------*

TYPES :
BEGIN OF TY_OUTTAB1,
MATNR TYPE AFPO-MATNR,
VERID TYPE AFPO-VERID,
MAKTX TYPE MAKT-MAKTX,
AUFNR TYPE AFKO-AUFNR,
STLNR TYPE AFKO-STLNR,
GSTRI TYPE AFKO-GSTRI,
GETRI TYPE AFKO-GETRI,
GAMNG TYPE AFKO-GAMNG,
GMEIN TYPE AFKO-GMEIN,
IGMNG TYPE AFKO-IGMNG,
MATNR1 TYPE MSEG-MATNR,
ERFMG TYPE MSEG-ERFMG,
ERFME TYPE MSEG-ERFME,
W_QTY TYPE MSEG-ERFMG,
STLAL TYPE AFKO-STLAL,
SBMNG TYPE AFKO-SBMNG,
SBMEH TYPE AFKO-SBMEH,
IDNRK TYPE STPO-IDNRK,
MENGE TYPE STPO-MENGE,
MEINS TYPE STPO-MEINS,
W_QTY1 TYPE STPO-MENGE,
MAKTX1 TYPE MAKT-MAKTX,
MAKTX2 TYPE MAKT-MAKTX,
END OF TY_OUTTAB1.

*----------------------------------------------------------------------
* Data Begin with W_
*----------------------------------------------------------------------*

*DATA DECLARATION
DATA :
W_ERFMG1 TYPE MSEG-ERFMG,
W_ERFME1 TYPE MSEG-ERFME,
W_ERFMG2 TYPE MSEG-ERFMG,
W_ERFME2 TYPE MSEG-ERFME.

*Data declaration For ALV

DATA :
W_FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
W_LAYOUT TYPE SLIS_LAYOUT_ALV,
W_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
W_EVENTS TYPE SLIS_T_EVENT,
W_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
W_VARIANT TYPE DISVARIANT,
W_REPID LIKE SY-REPID.

*----------------------------------------------------------------------
* Internal Tables Begin With IT_
*----------------------------------------------------------------------*

DATA :
IT_OUTTAB1 TYPE TY_OUTTAB1 OCCURS 0 WITH HEADER LINE,
IT_MAKT TYPE STANDARD TABLE OF MAKT WITH HEADER LINE,
IT_STPO TYPE STANDARD TABLE OF STPO WITH HEADER LINE,
IT_MSEG TYPE STANDARD TABLE OF MSEG WITH HEADER LINE.


*----------------------------------------------------------------------*
* Select-Screen
*----------------------------------------------------------------------*

SELECTION-SCREEN : BEGIN OF BLOCK BLK WITH FRAME.
PARAMETERS : PR_WERKS TYPE AFPO-PWERK OBLIGATORY.

SELECT-OPTIONS :
SO_GETRI FOR AFKO-GETRI, "OBLIGATORY,
SO_MATNR FOR AFPO-MATNR.
SELECTION-SCREEN : END OF BLOCK BLK.

*----------------------------------------------------------------------*
* Initialization
*----------------------------------------------------------------------*

INITIALIZATION.
W_REPID = SY-REPID.

REFRESH : IT_OUTTAB1.

CLEAR : IT_OUTTAB1.


*----------------------------------------------------------------------*
* At selection-screen
*----------------------------------------------------------------------*

AT SELECTION-SCREEN.
PERFORM VALIDATE_DATA.

*----------------------------------------------------------------------*
* Start-of-selection
*----------------------------------------------------------------------*

START-OF-SELECTION.

PERFORM DATA_FETCHING.
PERFORM EVENTTAB_BUILD_TEMP USING W_EVENTS[].
PERFORM FIELDCAT_INIT .
PERFORM DISPLAY_DATA USING W_LIST_TOP_OF_PAGE[].
SORT IT_OUTTAB1 ASCENDING BY GSTRI.



*----------------------------------------------------------------------*
* End-of-selection
*----------------------------------------------------------------------*

END-OF-SELECTION.

PERFORM DISPLAY_LIST.



*&---------------------------------------------------------------------*
*& Form validate_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM VALIDATE_DATA .
SELECT AK~AUFNR AK~GSTRI AK~GETRI AK~GAMNG AK~GMEIN AK~IGMNG AK~STLAL
AK~SBMNG AK~SBMEH AK~STLNR AP~PWERK AP~MATNR AP~VERID
INTO CORRESPONDING FIELDS OF TABLE IT_OUTTAB1
FROM AFKO AS AK INNER JOIN AFPO AS AP
ON AK~AUFNR = AP~AUFNR
WHERE PWERK = PR_WERKS
AND GETRI IN SO_GETRI
AND MATNR IN SO_MATNR
AND ELIKZ = 'X'.



IF SY-SUBRC <> 0.
MESSAGE E002(ZPP).
ENDIF.




ENDFORM. " validate_data
*&---------------------------------------------------------------------*
*& Form data_fetching
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DATA_FETCHING .

*FOR GETTING THE MATERIAL DESCRIPTION
SELECT MATNR MAKTX FROM MAKT INTO CORRESPONDING
FIELDS OF TABLE IT_MAKT.

SELECT MATNR BWART AUFNR ERFMG ERFME FROM MSEG INTO CORRESPONDING
FIELDS OF TABLE IT_MSEG
WHERE BWART = '261'
OR BWART = '262'.

SELECT STLTY STLNR IDNRK MENGE MEINS FROM STPO INTO CORRESPONDING
FIELDS OF TABLE IT_STPO
WHERE STLTY = 'M'.

LOOP AT IT_OUTTAB1.


READ TABLE IT_MAKT WITH KEY MATNR = IT_OUTTAB1-MATNR.

READ TABLE IT_MSEG WITH KEY AUFNR = IT_OUTTAB1-AUFNR.

READ TABLE IT_STPO WITH KEY STLNR = IT_OUTTAB1-STLNR.

IT_OUTTAB1-MATNR1 = IT_MSEG-MATNR.

IF IT_OUTTAB1-MATNR1 <> ' '.
READ TABLE IT_MAKT WITH KEY MATNR = IT_OUTTAB1-MATNR1.
IT_OUTTAB1-MAKTX1 = IT_MAKT-MAKTX.
ENDIF.

* LOOP AT IT_MSEG.
IF IT_MSEG-BWART = '261'.
W_ERFMG1 = IT_MSEG-ERFMG.
W_ERFME1 = IT_MSEG-ERFME.
CLEAR IT_MSEG.
W_ERFMG1 = W_ERFMG1 + IT_MSEG-ERFMG.

* W_ERFME1 = W_ERFME1 + IT_MSEG-ERFME.

ENDIF.

IF IT_MSEG-BWART = '262'.
W_ERFMG2 = IT_MSEG-ERFMG.
W_ERFME1 = IT_MSEG-ERFME.
CLEAR IT_MSEG.

W_ERFMG2 = W_ERFMG2 + IT_MSEG-ERFMG.

* W_ERFME2 = W_ERFME2 + IT_MSEG-ERFME.

ENDIF.
* ENDLOOP.


IT_OUTTAB1-ERFMG = W_ERFMG1 - W_ERFMG2.
IT_OUTTAB1-ERFME = W_ERFME1 .

IF IT_OUTTAB1-IGMNG <> '0' AND IT_OUTTAB1-ERFMG <> '0'.
IT_OUTTAB1-W_QTY = ( IT_OUTTAB1-IGMNG / IT_OUTTAB1-ERFMG ).
ENDIF.

IT_OUTTAB1-MAKTX = IT_MAKT-MAKTX.
IT_OUTTAB1-IDNRK = IT_STPO-IDNRK.
IT_OUTTAB1-MENGE = IT_STPO-MENGE.
IT_OUTTAB1-MEINS = IT_STPO-MEINS.

IF IT_OUTTAB1-MENGE <> '0' AND IT_OUTTAB1-SBMNG <> '0'.
IT_OUTTAB1-W_QTY1 = ( IT_OUTTAB1-MENGE / IT_OUTTAB1-SBMNG ).
ENDIF.

IF IT_OUTTAB1-IDNRK <> ' '.
READ TABLE IT_MAKT WITH KEY MATNR = IT_OUTTAB1-IDNRK.
IT_OUTTAB1-MAKTX2 = IT_MAKT-MAKTX.
ENDIF.

SHIFT IT_OUTTAB1-MATNR LEFT DELETING LEADING '0'.
SHIFT IT_OUTTAB1-AUFNR LEFT DELETING LEADING '0'.
SHIFT IT_OUTTAB1-IDNRK LEFT DELETING LEADING '0'.
SHIFT IT_OUTTAB1-MATNR1 LEFT DELETING LEADING '0'.

MODIFY IT_OUTTAB1 TRANSPORTING MATNR MAKTX MATNR1 AUFNR
ERFMG ERFME W_QTY IDNRK
MENGE MEINS W_QTY1 MAKTX1 MAKTX2.

CLEAR : IT_OUTTAB1.
CLEAR : IT_MAKT,IT_STPO,IT_MSEG.
ENDLOOP.

ENDFORM. " data_fetching
*&---------------------------------------------------------------------*
*& Form eventtab_build_temp
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EVENTS text
*----------------------------------------------------------------------*
FORM EVENTTAB_BUILD_TEMP USING RT_EVENTS TYPE SLIS_T_EVENT.
.

DATA LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = RT_EVENTS
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 RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO LS_EVENT.
IF SY-SUBRC = 0.
MOVE W_TOP_OF_PAGE TO LS_EVENT-FORM.
APPEND LS_EVENT TO RT_EVENTS.
ENDIF.


ENDFORM. " eventtab_build_temp
*&---------------------------------------------------------------------*
*& Form fieldcat_init
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FIELDCAT_INIT .

DATA :
LW_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MATNR'.
LW_FIELDCAT-SELTEXT_M = 'Material Number'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MAKTX'.
LW_FIELDCAT-SELTEXT_M = 'Material Description'.
LW_FIELDCAT-OUTPUTLEN = 40.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'AUFNR'.
LW_FIELDCAT-SELTEXT_M = 'Process Order Number'.
LW_FIELDCAT-OUTPUTLEN = 12.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'GSTRI'.
LW_FIELDCAT-SELTEXT_M = 'Actual Start Date'.
LW_FIELDCAT-OUTPUTLEN = 10.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'GETRI'.
LW_FIELDCAT-SELTEXT_M = 'Actual Finish Date'.
LW_FIELDCAT-OUTPUTLEN = 10.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'VERID'.
LW_FIELDCAT-SELTEXT_M = 'Version Id'.
LW_FIELDCAT-OUTPUTLEN = 4.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'GAMNG'.
LW_FIELDCAT-SELTEXT_M = 'Order Plan Qty'.
LW_FIELDCAT-OUTPUTLEN = 16.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.


CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'GMEIN'.
LW_FIELDCAT-SELTEXT_M = 'Production Unit'.
LW_FIELDCAT-OUTPUTLEN = 3.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'IGMNG'.
LW_FIELDCAT-SELTEXT_M = 'Delivery Qty'.
LW_FIELDCAT-OUTPUTLEN = 16.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MATNR1'.
LW_FIELDCAT-SELTEXT_M = 'Component In Orde'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MAKTX1'.
LW_FIELDCAT-SELTEXT_M = 'Description'.
LW_FIELDCAT-OUTPUTLEN = 40.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.


CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'ERFMG'.
LW_FIELDCAT-SELTEXT_M = 'Qty. Issued'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.


CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'ERFME'.
LW_FIELDCAT-SELTEXT_M = 'UOE'.
LW_FIELDCAT-OUTPUTLEN = 3.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'W_QTY'.
LW_FIELDCAT-SELTEXT_M = 'Qty./Unit Of Del. Qty'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'STLAL'.
LW_FIELDCAT-SELTEXT_M = 'ALT BOM'.
LW_FIELDCAT-OUTPUTLEN = 5.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'SBMNG'.
LW_FIELDCAT-SELTEXT_M = 'BASE QTY'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'SBMEH'.
LW_FIELDCAT-SELTEXT_M = 'Base Unit'.
LW_FIELDCAT-OUTPUTLEN = 3.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'IDNRK'.
LW_FIELDCAT-SELTEXT_M = 'COMP IN BOM'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MAKTX2'.
LW_FIELDCAT-SELTEXT_M = 'Description'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.


CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MENGE'.
LW_FIELDCAT-SELTEXT_M = 'QTY IN BOM'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'MEINS'.
LW_FIELDCAT-SELTEXT_M = 'UOM'.
LW_FIELDCAT-OUTPUTLEN = 3.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.

CLEAR LW_FIELDCAT.
LW_FIELDCAT-FIELDNAME = 'W_QTY1'.
LW_FIELDCAT-SELTEXT_M = 'Qty/Base Qty'.
LW_FIELDCAT-OUTPUTLEN = 18.
APPEND LW_FIELDCAT TO W_FIELDCATALOG.


ENDFORM. " fieldcat_init

*---------------------------------------------------------------------*
* FORM TOP_OF_PAGE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = W_LIST_TOP_OF_PAGE.
* I_LOGO =
* I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE


*&---------------------------------------------------------------------*
*& Form display_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_W_LIST_TOP_OF_PAGE[] text
*----------------------------------------------------------------------*
FORM DISPLAY_DATA USING LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.

DATA : LW_LINE TYPE SLIS_LISTHEADER.
DATA : LW_PLAT TYPE WERKS.
DATA : LW_TXT1(30) TYPE C.
DATA : LW_NAME1 TYPE T001W-NAME1.
DATA : LW_TXT2(45) TYPE C.
DATA : LW_TXT3(20) TYPE C.
DATA : LW_DAT1(4) TYPE C.
DATA : LW_DAT2(3) TYPE C.
DATA : LW_DAT3(3) TYPE C.
DATA : LW_LDATE TYPE AFKO-GLTRI.
DATA : LW_HDATE TYPE AFKO-GLTRI.
DATA : LW_LDAT1(4) TYPE C.
DATA : LW_LDAT2(3) TYPE C.
DATA : LW_LDAT3(3) TYPE C.
DATA : LW_HDAT1(4) TYPE C.
DATA : LW_HDAT2(3) TYPE C.
DATA : LW_HDAT3(3) TYPE C.
DATA : LW_TXT4(40) TYPE C.




LW_PLAT = PR_WERKS.
CONCATENATE 'Plant Code : ' LW_PLAT INTO LW_TXT1 SEPARATED BY SPACE.

SELECT SINGLE NAME1 FROM T001W INTO LW_NAME1
WHERE WERKS = LW_PLAT.


CONCATENATE 'Plant Name : ' LW_NAME1 INTO LW_TXT2 SEPARATED BY SPACE.


LW_DAT1 = SY-DATUM(4).
LW_DAT2 = SY-DATUM+4(2).
LW_DAT3 = SY-DATUM+6(2).

CONCATENATE LW_DAT3 '-' INTO LW_DAT3.
CONCATENATE LW_DAT2 '-' INTO LW_DAT2.


CONCATENATE 'Date : ' LW_DAT3 LW_DAT2 LW_DAT1
INTO LW_TXT3 SEPARATED BY SPACE.


LW_LDATE = SO_GETRI-LOW.
LW_HDATE = SO_GETRI-HIGH.

LW_LDAT1 = LW_LDATE(4).
LW_LDAT2 = LW_LDATE+4(2).
LW_LDAT3 = LW_LDATE+6(2).

CONCATENATE LW_LDAT3 '.' INTO LW_LDAT3.
CONCATENATE LW_LDAT2 '.' INTO LW_LDAT2.

LW_HDAT1 = LW_HDATE(4).
LW_HDAT2 = LW_HDATE+4(2).
LW_HDAT3 = LW_HDATE+6(2).

CONCATENATE LW_HDAT3 '.' INTO LW_HDAT3.
CONCATENATE LW_HDAT2 '.' INTO LW_HDAT2.


CONCATENATE 'Period : ' LW_LDAT3 LW_LDAT2 LW_LDAT1 '-' LW_HDAT3
LW_HDAT2 LW_HDAT1 INTO LW_TXT4 SEPARATED BY SPACE.


CLEAR LW_LINE.
LW_LINE-TYP = 'H'.
LW_LINE-INFO = 'Consumption Report Of BOM Components V/S Prc. Order'.
APPEND LW_LINE TO LT_TOP_OF_PAGE.
CLEAR LW_LINE.

CLEAR LW_LINE.
LW_LINE-TYP = 'S'.
LW_LINE-INFO = LW_TXT1.
APPEND LW_LINE TO LT_TOP_OF_PAGE.
CLEAR LW_LINE.

CLEAR LW_LINE.
LW_LINE-TYP = 'S'.
LW_LINE-INFO = LW_TXT2.
APPEND LW_LINE TO LT_TOP_OF_PAGE.
CLEAR LW_LINE.

CLEAR LW_LINE.
LW_LINE-TYP = 'S'.
LW_LINE-INFO = LW_TXT3.
APPEND LW_LINE TO LT_TOP_OF_PAGE.
CLEAR LW_LINE.

CLEAR LW_LINE.
LW_LINE-TYP = 'S'.
LW_LINE-INFO = LW_TXT4.
APPEND LW_LINE TO LT_TOP_OF_PAGE.
CLEAR LW_LINE.


ENDFORM. " display_data
*&---------------------------------------------------------------------*
*& Form display_list
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM DISPLAY_LIST .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = W_REPID
IS_LAYOUT = W_LAYOUT
IT_FIELDCAT = W_FIELDCATALOG[]
IT_EVENTS = W_EVENTS[]
I_SAVE = 'U'
IS_VARIANT = W_VARIANT
TABLES
T_OUTTAB = IT_OUTTAB1[]
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_list

No comments:

link us...

For Visitors

if you want to publish or Add something on ERP, SAP , SAP FUNCTIONAL, SAP ABAP then mail us along with your email-id. contain must be yours

email-id :- avinashkr_raj@yahoo.com(any email)

email-id :- avinaskr_raj.abap@blogger.com ( use only gmail)