Output error

Question

Hi,
Below is my code : When I execute this it is not displaying any data. Right now I don't want the values to be displayed in ALV just normal report.
*& Report  ZTESTING1
REPORT  ZTESTING1.
TABLES:
       SSCRFIELDS,   " Fields on selection screens
        BSIS,         " Accounting: Secondary Index for G/L Accounts
        BSEG,         " Accounting Document Segment
        BKPF,         " Accounting Document Header
        SKA1,         " G/L Account Master (Chart of Accounts)
        T001A,        " Add. Local Currencies Ctrl for Company Code
        TCURR.        " Exchange Rates
DATA  DECLARATIONS
INCLUDE <ICON>.
ALV grid reporting data                                              *
TYPE-POOLS: SLIS.
DATA  DECLARATIONS
CONSTANTS:  GC_FX_SET  TYPE  SETNAMENEW VALUE 'ZFI_RP_1241_FXACCT',
            GC_CTA_SET TYPE  SETNAMENEW VALUE 'ZFI_RP_1241_CTAACCT',
            GC_ICFX_SET TYPE  SETNAMENEW VALUE 'ZFI_RP_1241_ICFXACCT'.
DATA: GV_SET_LINE_COUNTER  TYPE  I,
      GV_FX_ACCOUNT     LIKE  BSEG-HKONT,
      GV_CTA_ACCOUNT    LIKE  BSEG-HKONT,
      GV_ICFX_ACCOUNT   LIKE  BSEG-HKONT,
      GT_SET_VALUES     LIKE  RGSBV  OCCURS 0 WITH HEADER LINE.
DATA : DATUM TYPE SY-DATUM .
ALV Grid structures
DATA: GT_FIELDCAT         TYPE LVC_T_FCAT,
      GS_FIELDCAT         TYPE LVC_S_FCAT,
      GT_EVENTS           TYPE SLIS_T_EVENT,
      GS_EVENTS           TYPE SLIS_ALV_EVENT,
      GT_EXTAB            TYPE SLIS_T_EXTAB,
      GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
      GS_LINE             TYPE SLIS_LISTHEADER,
      GT_SELFIELD         TYPE SLIS_SELFIELD.
DATA:   GT_RSPARAMS  TYPE TABLE OF RSPARAMS.
Data for ALV variant
DATA  GV_REPNAME          LIKE SY-REPID.
DATA  GV_X_VARIANT        LIKE DISVARIANT.
DATA  GV_EXIT(1)          TYPE C.
DATA  GV_SAVE(1)          TYPE C.
DATA  GV_VARIANT          LIKE DISVARIANT.
DATA  GV_STATUS           TYPE SLIS_FORMNAME VALUE 'F_STANDARD_02'.
Internal table for BSIS data
DATA : BEGIN OF GT_FXENTRIES OCCURS 0,
          HKONT LIKE BSIS-HKONT,   " GL Accnt
          BUKRS LIKE BSIS-BUKRS,   " Company Code
          MONAT LIKE BSIS-MONAT,   " Period
          BLART LIKE BSIS-BLART,   " Doc. Type
          WRBTR LIKE BSIS-WRBTR,   " Amt. in DC
          WAERS LIKE BSIS-WAERS,   " Doc. Currency
          DMBTR LIKE BSIS-DMBTR,   " Amt in Local Currency
          DMBE2 LIKE BSIS-DMBE2,   " Amt in Global Currency
          PRCTR LIKE BSIS-PRCTR,   " Profit Center
          BELNR LIKE BSIS-BELNR,   " Doc. Number
          GJAHR LIKE BSIS-GJAHR,   " Year
          BUDAT LIKE BSIS-BUDAT,   " Posting Date
          VBUND LIKE BSIS-VBUND,   " Trading Partner
          PPRCT LIKE BSIS-PPRCT,   " Partner Profit Center
          KOSTL LIKE BSIS-KOSTL,   " Cost Center
          PROJK LIKE BSIS-PROJK,   " WBS Element
       END OF GT_FXENTRIES.
Internal table for SKAT (GL Description)
DATA : BEGIN OF GT_GLTEXT OCCURS 0,
          SAKNR LIKE SKAT-SAKNR, " GL Number
          TXT50 LIKE SKAT-TXT50, " GL Description
       END OF GT_GLTEXT.
Internl table for bseg for Auto Posting
DATA : BEGIN OF GT_BSEG OCCURS 0,
          XAUTO LIKE BSEG-XAUTO, " Auto Post
       END OF GT_BSEG.
*Internal table for BKPF Document header for user name
DATA :  BEGIN OF GT_DOCHEADER OCCURS 0,
          USNAM LIKE BKPF-USNAM, " User Name
        END OF GT_DOCHEADER.
*Internal table for Group Currency
DATA : BEGIN OF GT_GRPCURR OCCURS 0,
        MANDT LIKE T000-MANDT, " Client specific
        MWAER LIKE T000-MWAER, " group currency
       END  OF GT_GRPCURR.
Final Internal table for display
DATA : BEGIN OF GT_FINALFX OCCURS 0.
        INCLUDE STRUCTURE GT_FXENTRIES.
        INCLUDE STRUCTURE GT_GLTEXT.
        INCLUDE STRUCTURE GT_BSEG.
        INCLUDE STRUCTURE GT_DOCHEADER.
        INCLUDE STRUCTURE GT_GRPCURR.
DATA : END OF GT_FINALFX.
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : SO_BUKRS FOR BSIS-BUKRS," Company Code
                 SO_GJAHR FOR BSIS-GJAHR DEFAULT SY-DATUM(4). " Fiscal
" Year
PARAMETERS : SP_MONAT LIKE BSIS-MONAT.                          " Period
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS : SP_WAERS LIKE BSIS-WAERS,       " Amt in Document Currency
             SP_BLART LIKE BSIS-BLART.       " Document Type
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS SP_VBUND LIKE BSIS-VBUND.         "Trading Partner
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECT-OPTIONS : SO_HKONT FOR BSIS-HKONT. "G/L Account Number
PARAMETERS : SP_FX RADIOBUTTON GROUP RADI , " Foreign Exchange
             SP_CTA RADIOBUTTON GROUP RADI, " Cummulative Translation
                                            " Adj
             SP_IC_FX RADIOBUTTON GROUP RADI, " Inter Co. FX
             SP_XAUTO AS CHECKBOX USER-COMMAND FLAG. " Auto Post System
SELECTION-SCREEN END OF BLOCK B4.
INITIALIZATION
INITIALIZATION.
PERFORM F_PRIOR_PERIOD.
EVENT: AT SELECTION-SCREEN.
A T    S E L E C T I O N   S C R E E N
Process After Input (PAI)
Validating selection screen fields
AT SELECTION-SCREEN.
PERFORM F_VALIDATE_GLACCOUNT.
EVENT: START-OF-SELECTION
START-OF-SELECTION.
*G/L Account validation in the selection screen
IF SP_FX = 'X' AND SP_XAUTO NE 'X'.
    PERFORM F_FX_WITH_AUTOPOST.
ENDIF.
*&      Form  F_FX_WITH_AUTOPOST
SELECT THE DATA BASING ON THE FOREIGN EXCHANGE AND SYSTEM AUTO
POSTING
FORM F_FX_WITH_AUTOPOST.
  SELECT HKONT BUKRS MONAT BLART WRBTR WAERS DMBTR
                     WAERS DMBE2 PRCTR BELNR GJAHR
                     BUDAT VBUND PPRCT KOSTL PROJK
                     FROM BSIS
                     INTO CORRESPONDING FIELDS
                     OF table GT_FXENTRIES WHERE BUKRS IN SO_BUKRS
                                             AND GJAHR IN SO_GJAHR
                                             AND MONAT = SP_MONAT
                                             AND WAERS = SP_WAERS
                                             AND BLART = SP_BLART
                                             AND VBUND = SP_VBUND
                                             AND HKONT IN SO_HKONT.
  LOOP AT GT_FXENTRIES.
    WRITE : / GT_FXENTRIES-HKONT, GT_FXENTRIES-BUKRS.
  ENDLOOP.
ENDFORM.                    "F_FX_WITH_AUTOPOST
Please help me out.
Thanks.
Message was edited by: Pavan Panduru

Answer 1

Hi pavan,
there is no problem with your program. you have to identify your test data properly. for checking purpose i made some changes to your code, it is working fine.
just check this in your system also,...
REPORT  ZTEST                           .
TABLES:
SSCRFIELDS, " Fields on selection screens
BSIS, " Accounting: Secondary Index for G/L Accounts
BSEG, " Accounting Document Segment
BKPF, " Accounting Document Header
SKA1, " G/L Account Master (Chart of Accounts)
T001A, " Add. Local Currencies Ctrl for Company Code
TCURR. " Exchange Rates
* DATA DECLARATIONS
INCLUDE <ICON>.
* ALV grid reporting data *
TYPE-POOLS: SLIS.
* DATA DECLARATIONS
CONSTANTS: GC_FX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_FXACCT',
GC_CTA_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_CTAACCT',
GC_ICFX_SET TYPE SETNAMENEW VALUE 'ZFI_RP_1241_ICFXACCT'.
DATA: GV_SET_LINE_COUNTER TYPE I,
GV_FX_ACCOUNT LIKE BSEG-HKONT,
GV_CTA_ACCOUNT LIKE BSEG-HKONT,
GV_ICFX_ACCOUNT LIKE BSEG-HKONT,
GT_SET_VALUES LIKE RGSBV OCCURS 0 WITH HEADER LINE.
DATA : DATUM TYPE SY-DATUM .
* ALV Grid structures
DATA: GT_FIELDCAT TYPE LVC_T_FCAT,
GS_FIELDCAT TYPE LVC_S_FCAT,
GT_EVENTS TYPE SLIS_T_EVENT,
GS_EVENTS TYPE SLIS_ALV_EVENT,
GT_EXTAB TYPE SLIS_T_EXTAB,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GS_LINE TYPE SLIS_LISTHEADER,
GT_SELFIELD TYPE SLIS_SELFIELD.
DATA: GT_RSPARAMS TYPE TABLE OF RSPARAMS.
* Data for ALV variant
DATA GV_REPNAME LIKE SY-REPID.
DATA GV_X_VARIANT LIKE DISVARIANT.
DATA GV_EXIT(1) TYPE C.
DATA GV_SAVE(1) TYPE C.
DATA GV_VARIANT LIKE DISVARIANT.
DATA GV_STATUS TYPE SLIS_FORMNAME VALUE 'F_STANDARD_02'.
* Internal table for BSIS data
DATA : BEGIN OF GT_FXENTRIES OCCURS 0,
HKONT LIKE BSIS-HKONT, " GL Accnt
BUKRS LIKE BSIS-BUKRS, " Company Code
MONAT LIKE BSIS-MONAT, " Period
BLART LIKE BSIS-BLART, " Doc. Type
WRBTR LIKE BSIS-WRBTR, " Amt. in DC
WAERS LIKE BSIS-WAERS, " Doc. Currency
DMBTR LIKE BSIS-DMBTR, " Amt in Local Currency
DMBE2 LIKE BSIS-DMBE2, " Amt in Global Currency
PRCTR LIKE BSIS-PRCTR, " Profit Center
BELNR LIKE BSIS-BELNR, " Doc. Number
GJAHR LIKE BSIS-GJAHR, " Year
BUDAT LIKE BSIS-BUDAT, " Posting Date
VBUND LIKE BSIS-VBUND, " Trading Partner
PPRCT LIKE BSIS-PPRCT, " Partner Profit Center
KOSTL LIKE BSIS-KOSTL, " Cost Center
PROJK LIKE BSIS-PROJK, " WBS Element
END OF GT_FXENTRIES.
* Internal table for SKAT (GL Description)
DATA : BEGIN OF GT_GLTEXT OCCURS 0,
SAKNR LIKE SKAT-SAKNR, " GL Number
TXT50 LIKE SKAT-TXT50, " GL Description
END OF GT_GLTEXT.
* Internl table for bseg for Auto Posting
DATA : BEGIN OF GT_BSEG OCCURS 0,
XAUTO LIKE BSEG-XAUTO, " Auto Post
END OF GT_BSEG.
*Internal table for BKPF Document header for user name
DATA : BEGIN OF GT_DOCHEADER OCCURS 0,
USNAM LIKE BKPF-USNAM, " User Name
END OF GT_DOCHEADER.
*Internal table for Group Currency
DATA : BEGIN OF GT_GRPCURR OCCURS 0,
MANDT LIKE T000-MANDT, " Client specific
MWAER LIKE T000-MWAER, " group currency
END OF GT_GRPCURR.
* Final Internal table for display
DATA : BEGIN OF GT_FINALFX OCCURS 0.
        INCLUDE STRUCTURE GT_FXENTRIES.
        INCLUDE STRUCTURE GT_GLTEXT.
        INCLUDE STRUCTURE GT_BSEG.
        INCLUDE STRUCTURE GT_DOCHEADER.
        INCLUDE STRUCTURE GT_GRPCURR.
DATA : END OF GT_FINALFX.
*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : SO_BUKRS FOR BSIS-BUKRS," Company Code
SO_GJAHR FOR BSIS-GJAHR DEFAULT SY-DATUM(4). " Fiscal
" Year
<b>SELECT-OPTIONS : SP_MONAT for BSIS-MONAT no intervals no-extension.</b>
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
<b>SELECT-OPTIONS : SP_WAERS for BSIS-WAERS no intervals no-extension,
" Amt in Document Currency
SP_BLART for BSIS-BLART no intervals no-extension. " Document Type</b>
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
<b>SELECT-OPTIONS SP_VBUND for BSIS-VBUND no intervals no-extension.</b>"Trading Partner
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECT-OPTIONS : SO_HKONT FOR BSIS-HKONT. "G/L Account Number
PARAMETERS : SP_FX RADIOBUTTON GROUP RADI , " Foreign Exchange
SP_CTA RADIOBUTTON GROUP RADI, " Cummulative Translation
" Adj
SP_IC_FX RADIOBUTTON GROUP RADI, " Inter Co. FX
SP_XAUTO AS CHECKBOX USER-COMMAND FLAG. " Auto Post System
SELECTION-SCREEN END OF BLOCK B4.
** INITIALIZATION
INITIALIZATION.
* PERFORM F_PRIOR_PERIOD.
* EVENT: AT SELECTION-SCREEN.
* A T S E L E C T I O N S C R E E N
* Process After Input (PAI)
* Validating selection screen fields
AT SELECTION-SCREEN.
* PERFORM F_VALIDATE_GLACCOUNT.
* EVENT: START-OF-SELECTION
START-OF-SELECTION.
*G/L Account validation in the selection screen
* IF SP_FX = 'X' AND SP_XAUTO NE 'X'.
  PERFORM F_FX_WITH_AUTOPOST.
* ENDIF.
*& Form F_FX_WITH_AUTOPOST
* SELECT THE DATA BASING ON THE FOREIGN EXCHANGE AND SYSTEM AUTO
* POSTING
FORM F_FX_WITH_AUTOPOST.
  SELECT HKONT BUKRS MONAT BLART WRBTR WAERS DMBTR
  WAERS DMBE2 PRCTR BELNR GJAHR
  BUDAT VBUND PPRCT KOSTL PROJK
  FROM BSIS
  INTO CORRESPONDING FIELDS
  OF TABLE GT_FXENTRIES
  WHERE BUKRS IN SO_BUKRS
  AND GJAHR IN SO_GJAHR
<b>  AND MONAT in SP_MONAT
  AND WAERS in SP_WAERS
  AND BLART in SP_BLART
  AND VBUND in SP_VBUND</b>
  AND HKONT IN SO_HKONT.
  LOOP AT GT_FXENTRIES.
    WRITE : / GT_FXENTRIES-HKONT, GT_FXENTRIES-BUKRS.
  ENDLOOP.
ENDFORM. "F_FX_WITH_AUTOPOST
Regards
vijay