Report Generation

[Former Member]

Hi Everybody,

I have developed a report program.It runs good at ABAP Editor(SE38) And it has a selection screen.It displays the report in ALV grid Display.But when i runs through a transaction for the program and tried to run the same using the created transaction code,the program returns to

SAP easy access screen after the selection screen display.

  I tried in debugging mode also ,The program does not enter in to the

START-OF-SELECTION 

Please Help me.

Waiting for your valuable Answers

Thanking you

Syed

[Former Member]

Please paste your initial part of code to analyse if you have some conditional statements in the events that come before Start-of-selection..

[Former Member]

*&---------------------------------------------------------------------*

*& Report  ZSD_CUST

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT  zsd_cust.

TYPE-POOLS slis.

TABLES : vbfa,vbkd.

TYPES: BEGIN OF ty_vbak,

         vbeln TYPE vbak-vbeln,

         swenr TYPE vbak-swenr,

         netwr TYPE vbak-netwr,

         kunnr TYPE vbak-kunnr,

         smenr TYPE vbak-smenr,

         zcu_req_rec_dt TYPE vbak-zcu_req_rec_dt,

         zcu_req_frd_dt TYPE vbak-zcu_req_frd_dt,

         zcu_dr_est_dt TYPE vbak-zcu_dr_est_dt,

         zcust_status TYPE vbak-zcust_status,

   END OF ty_vbak.

DATA: it_vbak TYPE TABLE OF ty_vbak,

       wa_vbak TYPE ty_vbak.

TYPES: BEGIN OF ty_viob01,

        swenr TYPE viob01-swenr,

        xwetext TYPE viob01-xwetext,

       END OF ty_viob01.

DATA: it_viob01 TYPE TABLE OF ty_viob01,

       wa_viob01 TYPE ty_viob01.

TYPES: BEGIN OF ty_vbkd,

        vbeln TYPE vbkd-vbeln,

        bstkd TYPE vbkd-bstkd,

        bstdk TYPE vbak-bstdk,

   END OF ty_vbkd.

DATA: it_vbkd TYPE TABLE OF ty_vbkd,

       wa_vbkd TYPE ty_vbkd.

TYPES: BEGIN OF ty_kna1,

         kunnr TYPE kna1-kunnr,

         name1 TYPE kna1-name1,

        END OF ty_kna1.

DATA: it_kna1 TYPE TABLE OF ty_kna1,

       wa_kna1 TYPE ty_kna1.

TYPES: BEGIN OF ty_final,

         xwetext TYPE viob01-xwetext,

         bstkd TYPE vbkd-bstkd,

         name1 TYPE kna1-name1,

         bstdk TYPE vbak-bstdk,

         zcu_req_rec_dt TYPE vbak-zcu_req_rec_dt,

         zcu_req_frd_dt TYPE vbak-zcu_req_frd_dt,

         zcu_dr_est_dt TYPE vbak-zcu_dr_est_dt,

         zcust_status TYPE char35,

         netwr TYPE vbak-netwr,

   END OF ty_final.

DATA : it_final TYPE TABLE OF ty_final,

        wa_final TYPE ty_final.

PARAMETERS: p_swenr TYPE vbak-swenr OBLIGATORY,

             p_kunnr TYPE vbak-kunnr ,"OBLIGATORY

             p_smenr TYPE vbak-smenr.

DATA : t_fcat TYPE slis_t_fieldcat_alv,

       w_fcat TYPE slis_fieldcat_alv,

       wa_layout TYPE slis_layout_alv,

       w_list TYPE slis_listheader,

       t_list TYPE slis_t_listheader.

START-OF-SELECTION.

   IF p_smenr IS NOT INITIAL.

     SELECT vbeln swenr netwr kunnr smenr zcu_req_rec_dt zcu_req_frd_dt zcu_dr_est_dt zcust_status FROM vbak

        INTO TABLE it_vbak

        WHERE swenr = p_swenr

        AND kunnr = p_kunnr

        AND smenr = p_smenr

        AND auart = 'ZQUE'

        .

   ELSEIF p_smenr IS INITIAL.

     SELECT vbeln swenr netwr kunnr smenr zcu_req_rec_dt zcu_req_frd_dt zcu_dr_est_dt zcust_status FROM vbak

        INTO TABLE it_vbak

        WHERE swenr = p_swenr.

*     AND kunnr = p_kunnr

*     AND auart = 'ZQUE'

     .

   ENDIF.

   IF it_vbak IS NOT INITIAL.

     SELECT swenr xwetext FROM viob01 INTO TABLE it_viob01 FOR ALL ENTRIES IN it_vbak

             WHERE swenr = it_vbak-swenr.

     SELECT vbeln bstkd bstdk FROM vbkd

        INTO TABLE it_vbkd

        FOR ALL ENTRIES IN it_vbak

        WHERE vbeln = it_vbak-vbeln.

     SELECT kunnr name1 FROM kna1

        INTO TABLE it_kna1

        FOR ALL ENTRIES IN it_vbak

        WHERE kunnr = it_vbak-kunnr.

   ENDIF.

   LOOP AT it_vbak INTO wa_vbak.

     READ TABLE it_viob01 INTO wa_viob01 WITH KEY swenr = wa_vbak-swenr.

     READ TABLE it_vbkd INTO wa_vbkd WITH KEY vbeln = wa_vbak-vbeln.

     READ TABLE it_kna1 INTO wa_kna1 WITH KEY kunnr = wa_vbak-kunnr.

     wa_final-xwetext        = wa_viob01-xwetext.

     wa_final-bstkd          = wa_vbkd-bstkd.

     wa_final-name1          = wa_kna1-name1.

     wa_final-bstdk          = wa_vbkd-bstdk.

     wa_final-zcu_req_rec_dt = wa_vbak-zcu_req_rec_dt.

     wa_final-zcu_req_frd_dt = wa_vbak-zcu_req_frd_dt.

     wa_final-zcu_dr_est_dt  = wa_vbak-zcu_dr_est_dt.

     wa_final-netwr          = wa_vbak-netwr.

     if wa_vbak-ZCUST_STATUS = 1.

       wa_final-ZCUST_STATUS = 'Approved & Payment made by client'.

      elseif wa_vbak-ZCUST_STATUS = 2.

        wa_final-ZCUST_STATUS = 'Approved & Payment Pending'.

        elseif wa_vbak-ZCUST_STATUS = 3.

          wa_final-ZCUST_STATUS = 'Revision'.

          elseif wa_vbak-ZCUST_STATUS = 4.

            wa_final-ZCUST_STATUS = 'Rejected by client'.

       endif.

     APPEND wa_final TO it_final.

     CLEAR : wa_final,wa_viob01, wa_vbkd , wa_kna1, wa_vbak.

   ENDLOOP.

END-OF-SELECTION.

   w_fcat-fieldname = 'XWETEXT'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 20.

   w_fcat-seltext_m = 'Project Name'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'BSTKD'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 20.

   w_fcat-seltext_m = 'Flat No'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'NAME1'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 20.

   w_fcat-seltext_m = 'Client Name'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'BSTDK'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 10.

   w_fcat-seltext_m = 'Date of Booking'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'ZCU_REQ_REC_DT'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 10.

   w_fcat-seltext_m = 'Customization request received from client on (date)'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'ZCU_REQ_FRD_DT'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 10.

   w_fcat-seltext_m = 'Customization request forwarded to Engg department on (date)'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'ZCU_DR_EST_DT'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 10.

   w_fcat-seltext_m = 'Customizaton drawing and estimate sent to client on date'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

     w_fcat-fieldname = 'ZCUST_STATUS'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 30.

   w_fcat-seltext_m = 'Customization status'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   w_fcat-fieldname = 'NETWR'.

   w_fcat-tabname = 'IT_FINAL'.

   w_fcat-outputlen = 15.

   w_fcat-seltext_m = 'Customization Amount'.

   APPEND w_fcat TO t_fcat.

   CLEAR w_fcat.

   wa_layout-zebra = 'X'.

   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

*   I_INTERFACE_CHECK                 = ' '

*   I_BYPASSING_BUFFER                = ' '

*   I_BUFFER_ACTIVE                   = ' '

    i_callback_program                = sy-cprog

*   I_CALLBACK_PF_STATUS_SET          = ' '

*   I_CALLBACK_USER_COMMAND           = 'USER_COM'

    i_callback_top_of_page            =  'FORM_HEAD'

*   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                         = wa_layout

      it_fieldcat                       = t_fcat

*   IT_EXCLUDING                      =

*   IT_SPECIAL_GROUPS                 =

*   IT_SORT                           =

*   IT_FILTER                         =

*   IS_SEL_HIDE                       =

*   I_DEFAULT                         = 'X'

*   I_SAVE                            = ' '

*   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.

*&---------------------------------------------------------------------*

*&      Form  FORM_HEAD

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM form_head.

   w_list-typ = 'H'.

   w_list-info = 'Customization Report'.

   APPEND w_list TO t_list.

   FREE w_list.

   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

     EXPORTING

       it_list_commentary       = t_list

*     I_LOGO                   =

      i_end_of_list_grid       = 'End of Report'

*     I_ALV_FORM               =

             .

   CLEAR t_list[].

ENDFORM.                    "FORM_HEAD

[Former Member]

Dear Syed,

U'rs Program is running at SE38 ,

And not working when u run with a T.code I think the problem is only with tcode creation only

See ,

When u creating a transaction in SE93, if it has a Sel Screen & Report format you must select 'Start object' as ---> Program and Selection screen ( Report Transaction )

I think when u creating system defaultly select the first radio button i.e Program and screen (Dialog Transaction).

I think u have done this wrongly. If I am correct rectify ur T.code

Thanks & Regards,

Kranthi

[RaymondGiuseppi]

Which kind of transaction did you create, should have been program and selection screen (report transaction) and not any of the other types.

Regards,

Raymond

[Former Member]

Hi abdul,

Problem is in T code only.

1) Delete the T code

2) create the transaction code with same name

3) when you creating T code - in start object - select second radio button ( Program and selection screen)

4)select program name in with respective field

5) in classification tab-  select first radio button (Professional user transaction)

6) In GUI support tab- tick mark all check box

7) click the save button

😎 execute your Tcode now....

Regards

Kannan