Gnerating error

Question

I am getting the error while activating the alvoops report program like ,
source code ???????????????????????????????? line 0
error when gernerating the selection screen 1000 of report.
can any one resolve it.

Answer 1

*& Report  ZG_ALVOOPS_INTER                                            *
REPORT  ZG_ALVOOPS_INTER.
                 TABLES                                                *
tables : vbak.
                 TYPES                                                    *
types: BEGIN OF ty_vbak,
        vbeln TYPE vbak-vbeln,
        erdat TYPE vbak-erdat,
        audat TYPE vbak-audat,
        netwr TYPE vbak-netwr,
      END OF ty_vbak,
      BEGIN OF ty_vbap,
        vbeln TYPE vbap-vbeln,
        posnr TYPE vbap-posnr,
        matnr TYPE vbap-matnr,
        matkl TYPE vbap-matkl,
      END OF ty_vbap.
              data declarations                                         *
data : i_vbak    type table of ty_vbak,
        i_vbap    type table of ty_vbap,
        wa_vbak   type          ty_vbak,
        wa_vbap   type          ty_vbap,
        i_fcat    type          lvc_t_fcat,
        wa_fcat   type          lvc_s_fcat,
        alvgrid   type REF  TO  cl_gui_alv_grid,
        container type ref  to  cl_gui_custom_container,
       events    type REF TO event_class,
              data declarations for interactive list                     *
       i_fcat1    type table of lvc_t_fcat,
       wa_fcat1   type          lvc_s_fcat,
       alvgrid1   type REF TO   cl_gui_alv_grid,
       container1 type REF TO   cl_gui_custom_container.
             selection screen                                         *
select-options : s_vbeln for vbak-vbeln.
           start-of-selection                                         *
start-of-selection.
*fetch data into table and field characteristics
  PERFORM fetch_data.
*ALV display for output
  PERFORM alv_output.
  CALL SCREEN 1000.
END-OF-SELECTION.
*&      Form  fetch_data
      text
form fetch_data .
  select       vbeln
               erdat
               audat
               netwr
  from         vbak
  into         table     i_vbak
  where        vbeln  in s_vbeln.
endform.                    " fetch_data
*&      Form  alv_output
      text
form alv_output .
CREATE OBJECT container
  EXPORTING
    container_name              = 'CONTAINER'
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT alvgrid
  EXPORTING
    I_parent  = CONTAINER
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
PERFORM FIELDCAT.
CALL METHOD alvgrid->set_table_for_first_display
  CHANGING
   it_outtab                     = I_VBAK[]
   IT_FIELDCATALOG               = I_FCAT[]
  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.                    " alv_output
*&      Form  FIELDCAT
      text
form FIELDCAT .
  wa_fcat-col_pos    =  1.
  wa_fcat-fieldname = 'VBELN'.
  wa_fcat-seltext = 'SALES DOCUMENT'.
  APPEND wa_fcat to i_fcat.
  wa_fcat-col_pos    =  2.
  wa_fcat-fieldname = 'ERDAT'.
  wa_fcat-seltext = 'DATE OF CREATION'.
  APPEND wa_fcat to i_fcat.
  wa_fcat-col_pos    =  3.
  wa_fcat-fieldname = 'AUDAT'.
  wa_fcat-seltext = 'DOCUMENT DATE'.
  APPEND wa_fcat to i_fcat.
  wa_fcat-col_pos    =  4.
  wa_fcat-fieldname = 'NETWR'.
  wa_fcat-seltext = 'NET VALUE'.
  APPEND wa_fcat to i_fcat.
endform.                    " FIELDCAT