hi abapers
/h
in selection screen if i give aufnr value(000001000005) output is not displaying. below is my code its urgent issue, can anyone helpon this regard.
*&---------------------------------------------------------------------*
*& Report ZPP_TECO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZPP_TECO.
*&---------------------------------------------------------------------*
*& DATA DECLARATION
*&
*&---------------------------------------------------------------------*
TYPE-POOLS: SLIS.
TABLES : AUFK,RESB,disvariant.
TYPES : BEGIN OF TY_AFKO,
GLTRI TYPE AFKO-GLTRI,
AUFNR TYPE AFKO-AUFNR,
PLNBEZ TYPE AFKO-PLNBEZ,
END OF TY_AFKO.
DATA: IT_AFKO TYPE STANDARD TABLE OF TY_AFKO,
ST_AFKO TYPE TY_AFKO.
types : BEGIN OF TY_AFPO,
AUFNR TYPE AFPO-AUFNR,
PSMNG TYPE AFPO-PSMNG,
WEMNG TYPE AFPO-WEMNG,
PLNUM TYPE AFPO-PLNUM,
END OF TY_AFPO.
DATA: IT_AFPO TYPE STANDARD TABLE OF TY_AFPO,
ST_AFPO TYPE TY_AFPO.
TYPES : BEGIN OF TY_AUFK,
IDAT2 TYPE AUFK-IDAT2,
SDATE TYPE AUFK-SDATE,
REFNR TYPE AUFK-REFNR,
KDAUF TYPE AUFK-KDAUF,
AUFNR TYPE AUFK-AUFNR,
WERKS TYPE AUFK-WERKS,
OBJNR TYPE AUFK-OBJNR,
END OF TY_AUFK.
DATA: IT_AUFK TYPE STANDARD TABLE OF TY_AUFK,
ST_AUFK TYPE TY_AUFK.
TYPES : BEGIN OF TY_RESB,
POSNR TYPE RESB-POSNR,
MATNR TYPE RESB-MATNR,
BDMNG TYPE RESB-BDMNG,
ENMNG TYPE RESB-ENMNG,
AUFNR TYPE RESB-AUFNR,
RSNUM TYPE RESB-RSNUM,
BAUGR TYPE RESB-BAUGR,
KDPOS TYPE RESB-KDPOS,
KDEIN TYPE RESB-KDEIN,
DUMPS TYPE RESB-DUMPS,
END OF TY_RESB.
DATA: IT_RESB TYPE STANDARD TABLE OF TY_RESB,
ST_RESB TYPE TY_RESB.
TYPES : BEGIN OF TY_MAKT,
MATNR TYPE MAKT-MATNR,
MAKTX TYPE MAKT-MAKTX,
MAKTG TYPE MAKT-MAKTG,
END OF TY_MAKT.
DATA : IT_MAKT TYPE STANDARD TABLE OF TY_MAKT,
ST_MAKT TYPE TY_MAKT.
TYPES : BEGIN OF TY_FINAL,
AUFNR TYPE AUFK-AUFNR,
IDAT2 TYPE AUFK-IDAT2,
SDATE TYPE AUFK-SDATE,
REFNR TYPE AUFK-REFNR,
KDAUF TYPE AUFK-KDAUF,
ASTNR TYPE BSVX-STTXT,
POSNR TYPE RESB-POSNR,
MATNR TYPE RESB-MATNR,
BDMNG TYPE RESB-BDMNG,
ENMNG TYPE RESB-ENMNG,
RSNUM TYPE RESB-RSNUM,
BAUGR TYPE RESB-BAUGR,
MAKTX TYPE MAKT-MAKTX,
MAKTG TYPE MAKT-MAKTG,
KDPOS TYPE RESB-KDPOS,
KDEIN TYPE RESB-KDEIN,
WERKS TYPE AUFK-WERKS,
TOTAL(10) TYPE C,
STATUS(10) TYPE C,
PSMNG TYPE AFPO-PSMNG,
WEMNG TYPE AFPO-WEMNG,
PSMNG1 TYPE AFPO-PSMNG,
PLNUM TYPE AFPO-PLNUM,
WAMNG TYPE EKET-WAMNG, "Issue No:8846:code added by aparna"
* ***************************************
" code added by nagaraj
remarks(300) type c,
remarks1 type string,
remarks2 type string,
remarks3 type string,
* **********************************************
END OF TY_FINAL.
DATA: IT_FINAL TYPE STANDARD TABLE OF TY_FINAL,
ST_FINAL TYPE TY_FINAL.
**DATA : GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
** st_layout type slis_layout_alv,
** ST_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
********************************************************
"code added by nagaraj
data : st_layout type slis_layout_alv,
wa_fieldcat type slis_t_fieldcat_alv with header line.
data : t_lines type table of tline with header line.
data : tdname type thead-tdname.
*************************************************************
*&---------------------------------------------------------------------*
*&SELECTION-SCREEN
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME.
SELECT-OPTIONS:S_DATE FOR SY-DATUM." OBLIGATORY.
SELECT-OPTIONS:S_AUFNR FOR AUFK-AUFNR.
SELECT-OPTIONS:S_WERKS FOR AUFK-WERKS.
SELECT-OPTIONS:S_MATNR FOR RESB-MATNR.
SELECTION-SCREEN END OF BLOCK 1.
*&---------------------------------------------------------------------*
*&PERFORM DATA_FETCH.
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM DATA_FETCH.
*&---------------------------------------------------------------------*
*&PERFORM DATA_PROCESS
*&---------------------------------------------------------------------*
END-OF-SELECTION.
IF IT_RESB[] IS NOT INITIAL.
PERFORM DATA_PROCESS.
ENDIF.
*&---------------------------------------------------------------------*
*&PERFORM build_layout
*&---------------------------------------------------------------------*
perform build_layout .
*&---------------------------------------------------------------------*
*&PERFORM FEILD_CATALOG
*&---------------------------------------------------------------------*
PERFORM FIELD_CAT.
*&---------------------------------------------------------------------*
*&PERFORM ALV_DISPLAY
*&---------------------------------------------------------------------*
PERFORM ALV_DISPLAY.
*&---------------------------------------------------------------------*
*&FORM DATA_FETCH
*&---------------------------------------------------------------------*
START-OF-SELECTION.
FORM DATA_FETCH.
include zztcodes. " For Knowing how many times the user executed the Ztcodes Issue No : 8699
SELECT GLTRI
AUFNR
PLNBEZ
FROM AFKO
INTO TABLE IT_AFKO
WHERE GLTRI IN S_DATE
AND AUFNR IN S_AUFNR
AND PLNBEZ IN S_MATNR.
IF NOT IT_AFKO IS INITIAL.
SELECT AUFNR
PSMNG
WEMNG
PLNUM FROM AFPO INTO TABLE IT_AFPO
FOR ALL ENTRIES IN IT_AFKO
WHERE AUFNR = IT_AFKO-AUFNR.
ENDIF.
IF NOT IT_AFKO IS INITIAL.
SELECT IDAT2
SDATE
REFNR
KDAUF
AUFNR
WERKS
OBJNR FROM AUFK INTO TABLE IT_AUFK
FOR ALL ENTRIES IN IT_AFKO
WHERE AUFNR = IT_AFKO-AUFNR
AND WERKS IN S_WERKS.
ENDIF.
IF NOT IT_AUFK IS INITIAL.
SELECT POSNR
MATNR
BDMNG
ENMNG
AUFNR
RSNUM
BAUGR
KDPOS
KDEIN
DUMPS FROM RESB INTO TABLE IT_RESB
FOR ALL ENTRIES IN IT_AUFK
WHERE AUFNR = IT_AUFK-AUFNR.
ENDIF.
IF NOT IT_RESB IS INITIAL.
SELECT MATNR
MAKTX
MAKTG FROM MAKT INTO TABLE IT_MAKT
FOR ALL ENTRIES IN IT_RESB
WHERE MATNR = IT_RESB-MATNR
OR MATNR = IT_RESB-BAUGR.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&FORM DATA_PROCESS
*&---------------------------------------------------------------------*
form DATA_PROCESS.
LOOP AT IT_RESB INTO ST_RESB .
DATA: L_BDMNG LIKE RESB-BDMNG,
L_ENMNG LIKE RESB-ENMNG,
L_TOTAL TYPE P LENGTH 6 DECIMALS 2,
L_TXT TYPE TJ02T-TXT04,
gv_sttxt type BSVX-STTXT.
CONSTANTS : L_STATUS TYPE STRING VALUE 'COMPLETED',
L_STATUS1 TYPE STRING VALUE 'PENDING',
L_STATUS2 TYPE STRING VALUE 'EXCESS'.
IF SY-SUBRC = 0.
ST_FINAL-RSNUM = ST_RESB-RSNUM.
ST_FINAL-BAUGR = ST_RESB-BAUGR.
IF ST_RESB-DUMPS NE 'X'.
ST_FINAL-MATNR = ST_RESB-MATNR.
ST_FINAL-POSNR = ST_RESB-POSNR.
ST_FINAL-BDMNG = ST_RESB-BDMNG.
ST_FINAL-ENMNG = ST_RESB-ENMNG.
ST_FINAL-KDPOS = ST_RESB-KDPOS.
ST_FINAL-KDEIN = ST_RESB-KDEIN.
L_BDMNG = ST_RESB-BDMNG.
L_ENMNG = ST_RESB-ENMNG.
L_TOTAL = L_BDMNG - L_ENMNG.
ST_FINAL-TOTAL = L_TOTAL.
* IF L_TOTAL = 0. "Issue No:8846:code added by aparna"
* ST_FINAL-STATUS = L_STATUS.
* ELSEIF L_TOTAL GT 0.
* ST_FINAL-STATUS = L_STATUS1.
* ELSEIF L_TOTAL LT 0.
* ST_FINAL-STATUS = L_STATUS2.
* ENDIF.
ENDIF.
ENDIF.
READ TABLE IT_AFPO INTO ST_AFPO WITH KEY AUFNR = ST_RESB-AUFNR.
IF SY-SUBRC EQ 0.
ST_FINAL-PSMNG = ST_AFPO-PSMNG.
ST_FINAL-WEMNG = ST_AFPO-WEMNG.
ST_FINAL-PSMNG1 = ( ST_AFPO-PSMNG - ST_AFPO-WEMNG ).
ST_FINAL-WAMNG = ( ST_RESB-BDMNG / ST_AFPO-PSMNG ) * ST_AFPO-WEMNG - ST_RESB-ENMNG . "Issue No:8846:code added by aparna"
IF ST_FINAL-WAMNG = 0.
ST_FINAL-STATUS = L_STATUS.
ELSEIF ST_FINAL-WAMNG GT 0.
ST_FINAL-STATUS = L_STATUS1.
ELSEIF ST_FINAL-WAMNG LT 0.
ST_FINAL-STATUS = L_STATUS2.
ENDIF.
ST_FINAL-PLNUM = ST_AFPO-PLNUM.
ENDIF.
READ TABLE IT_AUFK INTO ST_AUFK WITH KEY AUFNR = ST_RESB-AUFNR.
IF SY-SUBRC = 0.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
client = sy-mandt
objnr = ST_AUFK-OBJNR
only_active = 'X'
spras = 'E'
IMPORTING
* ANW_STAT_EXISTING =
* E_STSMA =
line = gv_sttxt
* USER_LINE =
* stonr =
exceptions
object_not_found = 1
OTHERS = 2 .
IF sy-subrc = 0.
CONDENSE gv_sttxt.
ST_final-ASTNR = gv_sttxt.
ENDIF.
ST_FINAL-AUFNR = ST_AUFK-AUFNR.
ST_FINAL-IDAT2 = ST_AUFK-IDAT2.
* ST_FINAL-SDATE = ST_AUFK-SDATE.
ST_FINAL-REFNR = ST_AUFK-REFNR.
ST_FINAL-KDAUF = ST_AUFK-KDAUF.
ST_FINAL-WERKS = ST_AUFK-WERKS.
ENDIF.
READ TABLE IT_MAKT INTO ST_MAKT WITH KEY MATNR = ST_RESB-MATNR.
IF ST_RESB-DUMPS NE 'X'.
ST_FINAL-MAKTX = ST_MAKT-MAKTX.
ENDIF.
READ TABLE IT_MAKT INTO ST_MAKT WITH KEY MATNR = ST_RESB-BAUGR.
IF SY-SUBRC = 0.
ST_FINAL-MAKTG = ST_MAKT-MAKTG.
ENDIF.
***********************************************************************************
clear : t_lines[] , t_lines,tdname.
concatenate '200' st_final-aufnr into tdname.
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = 'SY-MANDT'
id = 'KOPF'
language = 'E'
name = tdname
object = 'AUFK'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
tables
lines = t_lines
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
***************************************************************************
clear: st_final-remarks,
st_final-remarks1,
st_final-remarks2,
st_final-remarks3.
loop at t_lines.
if st_final-remarks1 is initial.
st_final-remarks1 = t_lines-tdline.
elseif st_final-remarks2 is initial.
st_final-remarks2 = t_lines-tdline.
elseif st_final-remarks3 is initial.
st_final-remarks3 = t_lines-tdline.
endif.
endloop.
concatenate st_final-remarks1 st_final-remarks2 st_final-remarks3 into st_final-remarks.
APPEND ST_FINAL TO IT_FINAL.
CLEAR : ST_FINAL, L_TOTAL, L_TXT.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form BUILD_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form build_layout.
st_layout-zebra = 'X'.
endform.
*&---------------------------------------------------------------------*
*&FORM FEILD_CATALOG
*&---------------------------------------------------------------------*
*FORM FEILD_CATALOG.
form field_cat.
* DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
* DATA: POS TYPE I VALUE 1.
* POS = POS + 1.
* LS_FIELDCAT-COL_POS = POS.
* LS_FIELDCAT-FIELDNAME = 'AUFNR'.
* LS_FIELDCAT-TABNAME = 'IT_FINAL'.
* LS_FIELDCAT-SELTEXT_M = 'Order No.'.
*
* APPEND LS_FIELDCAT TO GT_FIELDCAT.
* CLEAR LS_FIELDCAT.
wa_fieldcat-fieldname = 'AUFNR'.
wa_fieldcat-seltext_l = 'ORDER NO'.
wa_fieldcat-col_pos = 1.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
* wa_fieldcat-fix_column = 'X'.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'RSNUM'.
wa_fieldcat-seltext_l = 'Res No.'.
wa_fieldcat-col_pos = 2.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'WERKS'.
wa_fieldcat-seltext_l = 'PLANT'.
wa_fieldcat-col_pos = 3.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 10.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'PSMNG'.
wa_fieldcat-seltext_l = 'ORDER QTY'.
wa_fieldcat-col_pos = 4.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'WEMNG'.
wa_fieldcat-seltext_l = 'DELIVERED QTY'.
wa_fieldcat-col_pos = 5.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'PSMNG1'.
wa_fieldcat-seltext_l = 'BAL QTY TO BE DELIVERED'.
wa_fieldcat-col_pos = 6.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'BAUGR'.
wa_fieldcat-seltext_l = 'MATERIAL NO'.
wa_fieldcat-col_pos = 7.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'MAKTG'.
wa_fieldcat-seltext_l = 'MATERIAL DESC'.
wa_fieldcat-col_pos = 8.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'PLNUM'.
wa_fieldcat-seltext_l = 'PLANNED NO'.
wa_fieldcat-col_pos = 9.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'KDAUF'.
wa_fieldcat-seltext_l = 'SALES ORDER'.
wa_fieldcat-col_pos = 10.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'KDPOS'.
wa_fieldcat-seltext_l = 'ITEM'.
wa_fieldcat-col_pos = 11.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'KDLEN'.
wa_fieldcat-seltext_l = 'SCHEDULE'.
wa_fieldcat-col_pos = 12.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'POSNR'.
wa_fieldcat-seltext_l = 'CHILD ITEM'.
wa_fieldcat-col_pos = 13.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-seltext_l = 'CHILD PART No.'.
wa_fieldcat-col_pos = 14.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'MAKTX'.
wa_fieldcat-seltext_l = 'CHILD PART DESC'.
wa_fieldcat-col_pos = 15.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'BDMNG'.
wa_fieldcat-seltext_l = 'COMP REQ QTY'.
wa_fieldcat-col_pos = 16.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'ENMNG'.
wa_fieldcat-seltext_l = 'COMP ISSUED QTY'.
wa_fieldcat-col_pos = 17.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'TOTAL'.
wa_fieldcat-seltext_l = 'COMP BALANCE QTY'.
wa_fieldcat-col_pos = 18.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'STATUS'.
wa_fieldcat-seltext_l = 'STATUS'.
wa_fieldcat-col_pos = 19.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
* POS = POS + 1.
* LS_FIELDCAT-COL_POS = POS.
* LS_FIELDCAT-FIELDNAME = 'IDAT2'.
* LS_FIELDCAT-TABNAME = 'IT_FINAL'.
* LS_FIELDCAT-SELTEXT_M = 'Tec Completed'.
*
* APPEND LS_FIELDCAT TO GT_FIELDCAT.
* CLEAR LS_FIELDCAT.
wa_fieldcat-fieldname = 'ASTNR'.
wa_fieldcat-seltext_l = 'ORDER STATUS'.
wa_fieldcat-col_pos = 20.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'REFNR'.
wa_fieldcat-seltext_l = 'REF ORDER'.
wa_fieldcat-col_pos = 21.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'WAMNG'.
wa_fieldcat-seltext_l = 'QTY TO BE PASSED'.
wa_fieldcat-col_pos = 22.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'REMARKS'.
wa_fieldcat-seltext_l = 'LONG TEXT'.
wa_fieldcat-col_pos = 23.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = 18.
append wa_fieldcat to wa_fieldcat.
clear wa_fieldcat.
ENDFORM.
*&---------------------------------------------------------------------*
*&FORM ALV_DISPLAY
*&---------------------------------------------------------------------*
FORM ALV_DISPLAY.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = 'X'
I_CALLBACK_PROGRAM = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
IS_LAYOUT = st_layout
IT_FIELDCAT = WA_FIELDCAT[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
I_SAVE = 'A'
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_FINAL
* 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.
/h
with warm regards
nagaraj