RG1 Report

Question

Hi All,
We developed a report to display RG1 report, currently in that we are facing a problem.
The problem is when we run the report fro the current month its is not displaying the closing balnce done for the material in the previous month. (i.e.) If the report is run for the January month and if not transaction is performed in the December month the report is supose to fetch the last last transaction performed inthe November month.
The thing is it fetching the value for January month and not the value of November month.
Below we have pasted the logic used for this issue.
The Bold sentence is what used for the specific logic.
*& Report  ZFI_IN01_RG1_REPORT
REPORT  ZFI_IN01_RG1_REPORT LINE-SIZE 265.
TYPE-POOLS : SLIS.
TABLES : ZIN01_RG1BASE, "RG1 Base Table
         MAKT,          " Material Descriptions
         J_1ICHIDTX.    " Chapter id and Text
TYPES: BEGIN OF TP_RG1BASE,
MBLNR           LIKE ZIN01_RG1BASE-MBLNR,
REF_DOC       LIKE ZIN01_RG1BASE-REF_DOC,
MATNR           LIKE ZIN01_RG1BASE-MATNR,
ZEILE           LIKE ZIN01_RG1BASE-ZEILE,
J_1ICHID        LIKE ZIN01_RG1BASE-J_1ICHID,         " CHAPTER ID
J_1ICHT1        LIKE J_1ICHIDTX-J_1ICHT1,         " CHAPTER ID DESC
BUDAT           LIKE ZIN01_RG1BASE-BUDAT,
BWART           LIKE ZIN01_RG1BASE-BWART,
KZBEW           LIKE ZIN01_RG1BASE-KZBEW,
CPUTM           like ZIN01_RG1BASE-CPUTM,
SPLIT_ID        like ZIN01_RG1BASE-SPLIT_ID,
MENGE           LIKE ZIN01_RG1BASE-MENGE,
CLOSE_BAL_PRD   LIKE ZIN01_RG1BASE-CLOSE_BAL_PRD,
EXPIND          LIKE ZIN01_RG1BASE-EXPIND,
ZKZBEW          LIKE ZIN01_RG1BASE-ZKZBEW,
REF_MTYPE       LIKE ZIN01_RG1BASE-REF_MTYPE,
END OF TP_RG1BASE.
DATA : IG_RG1BASE TYPE STANDARD TABLE OF TP_RG1BASE WITH HEADER LINE
                             INITIAL SIZE 100 WITH DEFAULT KEY,
       WG_RG1BASE LIKE LINE OF IG_RG1BASE,
       IG_RG1BASE_COPY LIKE TABLE OF IG_RG1BASE,
       WG_RG1BASE_COPY LIKE LINE OF IG_RG1BASE,
       IG_SUBCONT TYPE STANDARD TABLE OF TP_RG1BASE WITH HEADER LINE
                             INITIAL SIZE 100 WITH DEFAULT KEY.
      WG_SUBCONT LIKE LINE OF IG_RG1BASE.
DATA : G_OPEN_BAL LIKE ZIN01_RG1BASE-CLOSE_BAL_PRD,
       G_CLOSE_BAL  LIKE ZIN01_RG1BASE-CLOSE_BAL_PRD,
       G_FLAG .
<b>DATA : IG_SORT        TYPE TABLE OF ZIN01_RG1BASE ,
            WG_SORT        TYPE ZIN01_RG1BASE,
            IG_ZIN01_RG1BASE LIKE TABLE OF ZIN01_RG1BASE WITH HEADER LINE.</b>
Selection Screen
SELECTION-SCREEN : BEGIN OF BLOCK BLOCK1 WITH FRAME.
PARAMETERS      : PF_BUDAT LIKE MKPF-BUDAT OBLIGATORY ,                     " FROM DATE
                  PT_BUDAT LIKE MKPF-BUDAT OBLIGATORY.                      " TO DATE
SELECTION-SCREEN : END OF BLOCK BLOCK1.
AT Selection Screen
AT SELECTION-SCREEN.
SELECT SINGLE * FROM ZIN01_RG1BASE WHERE BUDAT BETWEEN PF_BUDAT AND PT_BUDAT AND CANC_IND <> 'C'.
IF SY-SUBRC <> 0.
MESSAGE E006(ZIN01_FI).
ENDIF.
START OF SELECTION
START-OF-SELECTION.
SELECT MBLNR REF_DOC     MATNR ZEILE A~J_1ICHID J_1ICHT1 BUDAT BWART KZBEW CPUTM
       SPLIT_ID MENGE CLOSE_BAL_PRD EXPIND ZKZBEW REF_MTYPE FROM ZIN01_RG1BASE AS A INNER JOIN J_1ICHIDTX AS B
                                                        ON A~J_1ICHID = B~J_1ICHID
                                                        INTO TABLE IG_RG1BASE
                                                        WHERE BUDAT BETWEEN PF_BUDAT AND PT_BUDAT AND CANC_IND <> 'C'
                                                        AND B~LANGU = SY-LANGU+0(1) AND BWART <> '602'
                                                                                AND BWART <> '262'
                                                                                AND BWART <> '202'
                                                                                AND BWART <> '123'
                                                                                AND BWART <> '162'
                                                                                AND BWART <> '102'
                                                                                AND BWART <> '502'
                                                                                AND BWART <> '532'.
IF SY-SUBRC <> 0.
MESSAGE E006(ZIN01_FI).
ELSE.
SELECT  A~MBLNR A~XBLNR B~RDOC1 B~ZEILE B~RITEM1 B~EXBAS B~MENGE INTO TABLE IG_EXCISE FROM MKPF AS A INNER JOIN
                                                  J_1IEXCDTL AS B  ON A~XBLNR = B~RDOC1
                                                  FOR ALL ENTRIES IN IG_RG1BASE
                                                  WHERE  A~MBLNR = IG_RG1BASE-MBLNR  AND B~STATUS <> 'R'.
IF SY-SUBRC <> 0.
MESSAGE E006(ZIN01_FI).
ELSE.
SELECT VBELN POSNN INTO TABLE IG_VBFA FROM VBFA  FOR ALL ENTRIES IN IG_EXCISE
                                      WHERE VBELV = IG_EXCISE-RDOC1 AND POSNV = IG_EXCISE-RITEM1 AND VBTYP_N = 'M'.
SORT IG_RG1BASE BY MATNR .
IG_RG1BASE_COPY[] = IG_RG1BASE[].
DELETE ADJACENT DUPLICATES FROM IG_RG1BASE_COPY COMPARING MATNR.
<b>SORT IG_RG1BASE BY MATNR BUDAT CPUTM SPLIT_ID.
SELECT * FROM ZIN01_RG1BASE INTO IG_ZIN01_RG1BASE.
IG_SORT[] = IG_ZIN01_RG1BASE[].
SORT IG_SORT BY MATNR BUDAT  DESCENDING.</b>
*for 122 AND 161 movement type : if the refdoc is 101 f , subtract 122 menge from 101 menge.
LOOP AT IG_RG1BASE_COPY INTO WG_RG1BASE_COPY.
CLEAR G_FLAG.
LOOP AT IG_RG1BASE INTO WG_RG1BASE WHERE MATNR = WG_RG1BASE_COPY-MATNR.
<b>IF G_FLAG = ' '.
PERFORM OPENING_BALANCE.
WG_MAIN-OPEN_BAL   =  G_OPEN_BAL.
ELSE.
WG_MAIN-OPEN_BAL   = G_CLOSE_BAL.
ENDIF.</b>
APPEND WG_MAIN TO IG_MAIN.
CLEAR : WG_MAIN, WG_RG1BASE.
ENDLOOP.
CLEAR WG_RG1BASE_COPY.
ENDLOOP.
PERFORM OPENING_BAL_CHANGE.
PERFORM DISPLAY.
*&      Form  OPENING_BALANCE
      text
FORM OPENING_BALANCE.
G_FLAG = ‘F’.
<b>READ TABLE IG_SORT INTO WG_SORT WITH KEY MATNR = WG_MATERIAL-MATNR.
IF SY-SUBRC = 0.
*RECIPT +
IF WG_RG1BASE-BWART = '101' AND WG_RG1BASE-KZBEW = 'F' OR WG_RG1BASE-BWART = '501' OR WG_RG1BASE-BWART = '561' OR WG_RG1BASE-BWART = '531'.
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD  - WG_RG1BASE-MENGE.
*ISSUES
ELSEIF WG_RG1BASE-REF_MTYPE = '101' AND WG_RG1BASE-ZKZBEW  = 'F' .
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD  + WG_RG1BASE-MENGE.
ELSEIF  WG_RG1BASE-REF_MTYPE = '501' OR WG_RG1BASE-REF_MTYPE = '561' OR WG_RG1BASE-REF_MTYPE = '531'.
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD  + WG_RG1BASE-MENGE.
ELSE.
G_OPEN_BAL = WG_SORT-CLOSE_BAL_PRD.
ENDIF.
ELSE.
G_OPEN_BAL = 0.
ENDIF.</b>
ENDFORM.
Suggestions and Help will be much appreciated.
Regards.
Ramesh.

Answer 1

Hi,
I am having already this report please use this coding.
REPORT YMS_EXDET MESSAGE-ID E4 NO STANDARD PAGE HEADING LINE-SIZE 350.
*REPORT  ZMM_EXIN_DOC_ALV_HEADER .
TABLES : J_1IEXCHDR,      " header table
         J_1IEXCDTL,      " item table
         J_1IPART1,       " Excise part I detials
         J_1IPART2,       " Excise Part II details
         LFA1,            " vendor master table
         J_1IMOVEND,      " vendor excise details table
         MSEG,            " Document Segment: Material
         MKPF,            " Header: Material Document
         DD07T,           " domain text table
         T001W.           " Plant and Branch Details
DATA : BEGIN OF IT_CHDR OCCURS 100,
       SERIALNO   LIKE J_1IPART1-SERIALNO,
       DOCNO      LIKE J_1IEXCHDR-DOCNO,
       DOCYR      LIKE J_1IEXCHDR-DOCYR,
       EXNUM      LIKE J_1IEXCHDR-EXNUM,
       EXDAT      LIKE J_1IEXCHDR-EXDAT,
       WERKS      LIKE J_1IEXCHDR-WERKS,
       EXBED      LIKE J_1IEXCHDR-EXBED,
       EXCCD      LIKE J_1IEXCHDR-EXCCD,
       ECS        LIKE J_1IEXCHDR-ECS,
       STATUS LIKE J_1IEXCHDR-STATUS, "CHALLAN STATUS
       END OF IT_CHDR.
DATA : BEGIN OF IT_CDTL OCCURS 100,
       SERIALNO LIKE J_1IPART1-SERIALNO,
       DOCYR  LIKE J_1IEXCDTL-DOCYR,
       DOCNO  LIKE J_1IEXCDTL-DOCNO,
       EXNUM  LIKE J_1IEXCDTL-EXNUM,
       EXDAT  LIKE J_1IEXCDTL-EXDAT,
       LIFNR  LIKE J_1IEXCDTL-LIFNR,
       MATNR  LIKE J_1IEXCDTL-MATNR,
       MAKTX  LIKE J_1IEXCDTL-MAKTX,
       CHAPID LIKE J_1IEXCDTL-CHAPID,
       EXBAS  LIKE J_1IEXCDTL-EXBAS,
       EXBED  LIKE J_1IEXCDTL-EXBED,
       ECS    LIKE J_1IEXCDTL-ECS,
       MENGE  LIKE J_1IEXCDTL-MENGE,
       MEINS  LIKE J_1IEXCDTL-MEINS,
       RDOC2  LIKE J_1IEXCDTL-RDOC2,
       EXGRP  LIKE J_1IEXCDTL-EXGRP,
       RDOC1  LIKE J_1IEXCDTL-RDOC1,
       STATUS LIKE J_1IEXCDTL-STATUS, "CHALLAN STATUS
       END OF IT_CDTL.
DATA TEXT(10).
DATA : BEGIN OF IT_OUT OCCURS 0,
       SERIALNO LIKE J_1IPART1-SERIALNO,
       TEXT1    LIKE TEXT,
       EXNUM    LIKE J_1IEXCDTL-EXNUM,
       EXDAT    LIKE J_1IEXCDTL-EXDAT,
       NAME     LIKE LFA1-NAME1,
       DDTEXT   LIKE DD07T-DDTEXT,
       EXCCD    LIKE J_1IEXCHDR-EXCCD,
       BUDAT    LIKE MKPF-BUDAT,
       EXBAS    LIKE IT_CDTL-EXBAS,
       EXBED    LIKE IT_CDTL-EXBED,
       ECS      LIKE IT_CDTL-ECS,
       MATNR    LIKE IT_CDTL-MATNR,
       MAKTX    LIKE IT_CDTL-MAKTX,
       CHAPID   LIKE IT_CDTL-CHAPID,
       MENGE    LIKE IT_CDTL-MENGE,
       MEINS    LIKE IT_CDTL-MEINS,
       DEL_IND(1),
       END OF IT_OUT.
DATA IT_PART2 LIKE J_1IPART1 OCCURS 0 WITH HEADER LINE.
DATA S_NO(4) .
DATA DB_CNT LIKE SY-TABIX.
DATA EBELN_T LIKE MSEG-EBELN .
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : LIST_HEADER   TYPE SLIS_T_LISTHEADER,
       FIELDCAT      TYPE SLIS_T_FIELDCAT_ALV,
       LS_FTCAT      TYPE LVC_S_FCAT,
       SORTCAT       TYPE SLIS_T_SORTINFO_ALV,
       SORTCAT_LN    LIKE LINE OF SORTCAT,
       G_REPID LIKE SY-REPID,
       G_BACK_GROUND(70),  "like bapibds01-objkey,
       GS_VARIANT LIKE DISVARIANT,
       G_SAVE ,
       GT_EVENTS TYPE SLIS_T_EVENT,
       ALV_EVENT TYPE SLIS_ALV_EVENT,
       EVENTCAT             TYPE SLIS_T_EVENT,
       EVENTCAT_LN          LIKE LINE OF EVENTCAT,
       LAYOUT_IN            TYPE SLIS_LAYOUT_ALV,
       LAYOUT_IN1           TYPE SLIS_LAYOUT_ALV.
CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP_OF_PAGE',
            GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE
'USER_COMMAND',
            GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE
'BEFORE_OUTPUT'.
  ALV_EVENT TYPE SLIS_ALV_EVENT,
DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.
DATA REGTYP_1 LIKE J_1IPART1-REGTYP.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.
PARAMETERS  WERKS TYPE J_1IEXCHDR-WERKS.
SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.
PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',
             R2 RADIOBUTTON GROUP GRP.
SELECTION-SCREEN END OF BLOCK B.
INITIALIZATION.
  G_REPID = SY-REPID.
  G_SAVE = 'A'.
PERFORM BUILD_EVENT USING GT_EVENTS[].
  PERFORM ALV_EVENT_INIT.
AT SELECTION-SCREEN.
  REFRESH LIST_HEADER.
  PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.
START-OF-SELECTION.
PERFORM ALV_EVENT_INIT.
  G_REPID = SY-REPID.
  G_BACK_GROUND = ' ' .
  IF R1 = 'X'.
    CLEAR R2. CLEAR : REGTYP_1.
    REGTYP_1 = 'A'.
     set titlebar 'BALAJI' with DB_CNT.
  ELSEIF R2 = 'X'.
    CLEAR R1.CLEAR : REGTYP_1.
    REGTYP_1 = 'C'.
     set titlebar 'BALAJI1' with DB_CNT.
  ENDIF.
SELECT * FROM J_1IPART1
                  INTO CORRESPONDING FIELDS OF TABLE IT_PART2
                  WHERE REGTYP = REGTYP_1 AND
                        TRNTYP = 'GRPO'.
                        AND BUDAT IN BUDAT.
                          DOCYR = IT_CDTL-DOCYR AND
                          DOCNO = IT_CDTL-DOCNO.
LOOP AT IT_PART2.
   SELECT SINGLE * FROM J_1IEXCHDR
             INTO CORRESPONDING FIELDS OF IT_CHDR
                     WHERE  TRNTYP = 'GRPO' AND
                      STATUS NE ' ' AND
                     STATUS EQ ' ' AND
                     DOCYR = IT_PART2-DOCYR AND
                     DOCNO = IT_PART2-DOCNO AND
                     WERKS = WERKS AND
                     EXDAT IN BUDAT.
                   ORDER BY EXDAT.
   IF SY-SUBRC = 0.
     APPEND IT_CHDR.
   ELSE.
     CONTINUE.
   ENDIF.
IF SY-SUBRC <> 0.
   MESSAGE E084.
ENDIF.
ENDLOOP.
*******************SPD****************
SELECT * INTO CORRESPONDING FIELDS OF IT_CDTL FROM J_1IEXCDTL WHERE
                               TRNTYP = 'GRPO' AND WERKS = WERKS AND
                                EXDAT IN BUDAT AND STATUS NE 'B'.
SELECT SINGLE * FROM J_1IPART1 WHERE DOCNO = IT_CDTL-DOCNO AND
                                     DOCYR = IT_CDTL-DOCYR AND
                                     REGTYP = REGTYP_1.
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND
                                         DOCYR = IT_CDTL-DOCYR.
  IF SY-SUBRC NE 0.
    IT_CDTL-SERIALNO = J_1IPART1-SERIALNO.
    APPEND IT_CDTL.
  ENDIF.
ENDIF.
ENDSELECT.
***************SPD********************
SELECT BDOCNO BDOCYR BEXNUM BEXDAT BWERKS BEXBED B~EXCCD
       B~ECS
       B~STATUS
       A~SERIALNO
       FROM J_1IPART1 AS A INNER JOIN J_1IEXCHDR AS B
       ON ADOCYR = BDOCYR AND ADOCNO = BDOCNO INTO CORRESPONDING
       FIELDS OF TABLE IT_CHDR WHERE B~TRNTYP = 'GRPO' AND
       BWERKS = WERKS AND BEXDAT IN BUDAT AND
       B~STATUS = ' ' AND
       B~STATUS = 'C' AND
       A~REGTYP = REGTYP_1.
SORT IT_PART2 BY SERIALNO.
LOOP AT IT_CHDR.
   SELECT * FROM J_1IEXCDTL
             INTO CORRESPONDING FIELDS OF IT_CDTL
            FOR ALL ENTRIES IN IT_CHDR
                    WHERE
                     TRNTYP = 'GRPO' AND
                      STATUS EQ ' ' AND
                      STATUS EQ 'C' AND
                     STATUS NE 'P' AND
                     DOCNO  = IT_CHDR-DOCNO AND
                     DOCYR  = IT_CHDR-DOCYR AND
                     EXNUM  = IT_CHDR-EXNUM AND
                     EXDAT  = IT_CHDR-EXDAT AND
                     WERKS  = IT_CHDR-WERKS.
     IF SY-SUBRC = 0.
       APPEND IT_CDTL.
       CLEAR  IT_CDTL.
     ELSE.
       CONTINUE.
     ENDIF.
   ENDSELECT.
MODIFY IT_CDTL INDEX SY-TABIX.
CLEAR IT_CDTL.
ENDLOOP.
*****spd change**********
*LOOP AT IT_CDTL.
*SELECT SINGLE * FROM J_1IPART2 WHERE DOCNO = IT_CDTL-DOCNO AND
                                    DOCYR = IT_CDTL-DOCYR.
*IF SY-SUBRC = 0.
DELETE IT_CDTL INDEX SY-TABIX.
*ENDIF.
*ENDLOOP.
**SELECT
*******spd ****************
SORT IT_CDTL BY  EXNUM EXDAT.
DELETE ADJACENT DUPLICATES FROM IT_CDTL COMPARING MATNR EXNUM EXDAT.
  LOOP AT IT_CDTL.
    CLEAR TEXT.
    DB_CNT = DB_CNT + 1.
    READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM DOCNO =
IT_CDTL-DOCNO.
   READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .
   IT_OUT-SERIALNO = IT_PART2-SERIALNO.
    SELECT SINGLE NAME1 FROM LFA1
                    INTO IT_OUT-NAME
                    WHERE LIFNR = IT_CDTL-LIFNR.
    SELECT SINGLE * FROM LFA1
                      WHERE LIFNR = IT_CDTL-LIFNR.
    IF LFA1-LAND1 EQ 'IN'.
      TEXT = 'INVOICE'.
      IT_OUT-TEXT1 = TEXT.
    ELSE.
      TEXT = 'BOE'.
      IT_OUT-TEXT1 = TEXT.
    ENDIF.
    SELECT SINGLE * FROM J_1IMOVEND
                    WHERE LIFNR = IT_CDTL-LIFNR.
    SELECT SINGLE * FROM DD07T
                   INTO IT_OUT-DDTEXT
                    WHERE DOMNAME = 'J_1IVTYP' AND
                          DDLANGUAGE = 'EN' AND
                          DOMVALUE_L = J_1IMOVEND-J_1IVTYP.
  IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'
OR
    DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.
      DD07T-DDTEXT = 'Dealer'.
    ENDIF.
    IT_OUT-DDTEXT = DD07T-DDTEXT.
   ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable
*goods'.
      DD07T-DDTEXT =
    CLEAR EBELN_T.
    SELECT SINGLE LFBNR FROM MSEG
                        INTO EBELN_T
                        WHERE MBLNR = IT_CDTL-RDOC2 .
    SELECT SINGLE * FROM MSEG
                      WHERE BWART EQ '106' AND
                            LFBNR = EBELN_T ."and
                           ebeln = ebeln_t.
    IF SY-SUBRC = 0.
      IT_OUT-DEL_IND = 'X'.
    ELSE.
      IT_OUT-DEL_IND = ' '.
    ENDIF.
    SELECT SINGLE BUDAT FROM MKPF
                      INTO IT_OUT-BUDAT
                      WHERE MBLNR = EBELN_T  ."MSEG-LFBNR.
    IT_OUT-EXNUM = IT_CDTL-EXNUM.
    IT_OUT-EXDAT = IT_CDTL-EXDAT.
    IT_OUT-EXCCD = IT_CHDR-EXCCD.
   IT_OUT-SERIALNO = IT_CHDR-SERIALNO.
    IT_OUT-SERIALNO = IT_CDTL-SERIALNO.
    IT_OUT-EXBAS = IT_CDTL-EXBAS.
    IT_OUT-EXBED = IT_CDTL-EXBED.
    IT_OUT-ECS   = IT_CDTL-ECS.
    IT_OUT-MATNR = IT_CDTL-MATNR.
    IT_OUT-MAKTX = IT_CDTL-MAKTX.
    IT_OUT-CHAPID = IT_CDTL-CHAPID.
    IT_OUT-MENGE = IT_CDTL-MENGE.
    IT_OUT-MEINS = IT_CDTL-MEINS.
    APPEND IT_OUT.
   EX_NO = IT_CDTL-EXNUM.
  ENDLOOP.
Title Portion
  IF REGTYP_1 = 'A'.
    SET TITLEBAR 'BALAJI' WITH DB_CNT.
  ELSEIF REGTYP_1 = 'C'.
    SET TITLEBAR 'BALAJI1' WITH DB_CNT.
  ENDIF.
  AFIELD-COL_POS = 1.
  AFIELD-FIELDNAME = 'SERIALNO'.
  AFIELD-SELTEXT_L = 'SERIAL NO.'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 2.
  AFIELD-FIELDNAME = 'TEXT1'.
  AFIELD-SELTEXT_L = 'TYPE OF DOC'.
  AFIELD-JUST = 'L'.
  AFIELD-DECIMALS_OUT = '0'.
  AFIELD-NO_ZERO = 'X'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 3.
  AFIELD-FIELDNAME = 'EXNUM'.
  AFIELD-SELTEXT_L = 'DOC.NO'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 4.
  AFIELD-FIELDNAME = 'EXDAT'.
  AFIELD-SELTEXT_L = 'DOC.DATE'.
  AFIELD-JUST = 'C'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 5.
  AFIELD-FIELDNAME = 'NAME'.
  AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.
  AFIELD-NO_ZERO = 'X'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 6.
  AFIELD-FIELDNAME = 'DDTEXT'.
  AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 7.
  AFIELD-FIELDNAME = 'EXCCD'.
  AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.
  AFIELD-NO_ZERO = 'X'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 8.
  AFIELD-FIELDNAME = 'BUDAT'.
  AFIELD-SELTEXT_L = 'INPUT RECV DATE'.
  AFIELD-JUST = 'C'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 9.
  AFIELD-FIELDNAME = 'EXBAS'.
  AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.
  AFIELD-DO_SUM             = 'X'.
  AFIELD-JUST = 'R'.
  AFIELD-DECIMALS_OUT = '2'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 10.
  AFIELD-FIELDNAME = 'EXBED'.
  AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.
  AFIELD-JUST = 'R'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 11.
  AFIELD-FIELDNAME = 'ECS'.
  AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.
  AFIELD-JUST = 'R'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 12.
  AFIELD-FIELDNAME = 'MATNR'.
  AFIELD-SELTEXT_L = 'MATERIAL-CODE'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 13.
  AFIELD-FIELDNAME = 'MAKTX'.
  AFIELD-SELTEXT_L = 'DESCRIPTION'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 14.
  AFIELD-FIELDNAME = 'CHAPID'.
  AFIELD-SELTEXT_L = 'TARIFF-ID'.
  AFIELD-JUST = 'L'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 15.
  AFIELD-FIELDNAME = 'MENGE'.
  AFIELD-SELTEXT_L = 'QUANTITY'.
  AFIELD-JUST = 'R'.
  AFIELD-DO_SUM             = ' '.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 16.
  AFIELD-FIELDNAME = 'MEINS'.
  AFIELD-SELTEXT_L = 'UOM'.
  AFIELD-JUST = 'C'.
  APPEND AFIELD TO FIELDCAT.
  AFIELD-COL_POS = 17.
  AFIELD-FIELDNAME = 'DEL_IND'.
  AFIELD-SELTEXT_L = 'Deleted'.
  AFIELD-JUST = 'C'.
  APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 18.
AFIELD-FIELDNAME = 'PO NO'.
AFIELD-SELTEXT_L = 'PURDOCNO'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
* LAYOUT FOR ZEBRA CATLOG
  LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.
  LAYOUT_IN-ZEBRA             = 'X'.
  LAYOUT_IN-GET_SELINFOS      = 'X'.
  LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.
  LAYOUT_IN-DETAIL_POPUP = 'X' .
SORTCAT-decimals     = '0'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = G_REPID
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      I_SAVE                  = G_SAVE
      IS_VARIANT              = GS_VARIANT
      IT_FIELDCAT             = FIELDCAT
      IT_SORT                 = SORTCAT
      IS_LAYOUT               = LAYOUT_IN
      IT_EVENTS               = EVENTCAT
     I_BACKGROUND_ID         = g_back_ground
    TABLES
      T_OUTTAB                = IT_OUT.
*&      Form  TOP_OF_PAGE_LIST_HEADER
      text
     -->LIST_HEADERtext
FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.
  DATA : HLINE TYPE SLIS_LISTHEADER,
         TEXT(60) TYPE C.
  CLEAR : HLINE,TEXT.
  HLINE-TYP = 'H'.
  HLINE-INFO = TEXT.
  APPEND HLINE TO LIST_HEADER.
  SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.
  CLEAR : HLINE,TEXT.
  HLINE-TYP = 'H'.
  WRITE 'PLANT :' TO TEXT.
  WRITE WERKS TO TEXT+8.
  HLINE-INFO = TEXT.
  APPEND HLINE TO LIST_HEADER.
  CLEAR : HLINE,TEXT.
  HLINE-TYP = 'H'.
  WRITE T001W-NAME1 TO TEXT.
  HLINE-INFO = TEXT.
  APPEND HLINE TO LIST_HEADER.
  CLEAR : HLINE,TEXT.
  HLINE-TYP = 'H'.
  WRITE T001W-STRAS TO TEXT.
  HLINE-INFO = TEXT.
  APPEND HLINE TO LIST_HEADER.
  CLEAR : HLINE,TEXT.
  HLINE-TYP = 'H'.
  WRITE T001W-ORT01 TO TEXT.
  HLINE-INFO = TEXT.
  APPEND HLINE TO LIST_HEADER.
  CLEAR : HLINE,TEXT.
  HLINE-TYP = 'H'.
  WRITE 'DATE :' TO TEXT.
  WRITE BUDAT-LOW TO TEXT+7.
  IF BUDAT-HIGH NE ''.
    WRITE 'TO' TO TEXT+18.
    WRITE BUDAT-HIGH TO TEXT+22.
  ENDIF.
  HLINE-INFO = TEXT.
  APPEND HLINE TO LIST_HEADER.
ENDFORM.                    "TOP_OF_PAGE_LIST_HEADER
*&      Form  ALV_EVENT_INIT
      text
FORM ALV_EVENT_INIT .
  CLEAR ALV_EVENT.
  ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
  ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
  APPEND ALV_EVENT TO EVENTCAT.
  CLEAR ALV_EVENT.
  ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
  ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.
  APPEND ALV_EVENT TO EVENTCAT.
   CLEAR ALV_EVENT.
   ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.
   ALV_EVENT-FORM = 'ALV_END_OF_LIST'.
   APPEND ALV_EVENT TO GT_EVENTS.
   CLEAR ALV_EVENT.
   ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.
   ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.
   APPEND ALV_EVENT TO GT_EVENTS.
ENDFORM.                    "ALV_EVENT_INIT
*&      Form  ALV_TOP_OF_PAGE
      text
FORM ALV_TOP_OF_PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = LIST_HEADER
      I_LOGO             = 'ENJOYSAP_LOGO'.
ENDFORM.                    "ALV_TOP_OF_PAGE
*&      Form  BUILD_EVENT
      text
     -->P_GT_EVENTS[]  text
FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = P_EVENTS
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
  READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO
ALV_EVENT.
  IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.
    APPEND ALV_EVENT TO P_EVENTS.
  ENDIF.
  READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO
ALV_EVENT.
  IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.
    APPEND ALV_EVENT TO P_EVENTS.
  ENDIF.
ENDFORM.                    " BUILD_EVENT
Thanks,
Shankar