topic Re: Report Generation in Application Development and Automation Discussions

Report Generation

Former Member — Mon, 27 May 2013 11:53:57 GMT

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

Re: Report Generation

Former Member — Mon, 27 May 2013 12:18:48 GMT

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

Re: Report Generation

Former Member — Mon, 27 May 2013 12:27:39 GMT

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

Re: Report Generation

Former Member — Mon, 27 May 2013 12:34:27 GMT

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

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

Re: Report Generation

RaymondGiuseppi — Mon, 27 May 2013 12:35:42 GMT

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

Re: Report Generation

Former Member — Mon, 27 May 2013 12:36:36 GMT

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