topic table control in Application Development and Automation Discussions

table control

Former Member — Tue, 14 Mar 2006 15:02:01 GMT

Hi all,

im working on dialouge programming im having the data in a internal table i need to display the data into table control as soon as the screen is displyed,how to do it,plz help with some code.im points are awarded.

Re: table control

venkata_ramisetti — Tue, 14 Mar 2006 15:05:10 GMT

Hi,

The demo transaction BIBS contains examples for all module pool programs.

After entering transaction BIBS, go to menu path and you choose diffrent types of table control examples.

YOu need to write code in the PBO, if you want to display the details when screen is displayed.

Thanks,

Ramakrishna

Re: table control

Former Member — Tue, 14 Mar 2006 15:35:03 GMT

Hi Babita,

Here is the sample code for Table Control. Check the code written for PBO event in order to populate the table control:

----

INCLUDE ZTable_control_TOP

----

PROGRAM ZTable_control.

TABLES: SFLIGHT.

<....Other declarations....>

DATA: INT_FLIGHTS LIKE SFLIGHT OCCURS 1 WITH HEADER LINE.

DATA: LINE_COUNT TYPE I.

CONTROLS: FLIGHTS TYPE TABLEVIEW USING SCREEN 200.

----

Screen 200: Flow Logic

&----

PBO event

PROCESS BEFORE OUTPUT.

LOOP AT INT_FLIGHTS WITH CONTROL FLIGHTS

CURSOR FLIGHTS-CURRENT_LINE.

MODULE DISPLAY_FLIGHTS.

ENDLOOP.

PAI event

PROCESS AFTER INPUT.

LOOP AT INT_FLIGHTS.

MODULE SET_LINE_COUNT.

ENDLOOP.

MODULE USER_COMMAND_0200.

&----

*& Module DISPLAY_FLIGHTS OUTPUT

&----

MODULE DISPLAY_FLIGHTS OUTPUT.

SFLIGHT-FLDATE = INT_FLIGHTS-FLDATE.

SFLIGHT-PRICE = INT_FLIGHTS-PRICE.

SFLIGHT-CURRENCY = INT_FLIGHTS-CURRENCY.

SFLIGHT-PLANETYPE = INT_FLIGHTS-PLANETYPE.

SFLIGHT-SEATSMAX = INT_FLIGHTS-SEATSMAX.

SFLIGHT-SEATSOCC = INT_FLIGHTS-SEATSOCC.

ENDMODULE.

&----

*& Module SET_LINE_COUNT INPUT

&----

MODULE SET_LINE_COUNT INPUT.

LINE-COUNT = SY-LOOPC.

ENDMODULE

&----

*& Module USER_COMMAND_0200 INPUT

&----

MODULE USER_COMMAND_0200 INPUT.

CASE OK_CODE.

WHEN 'CANC'...

WHEN 'EXIT'...

WHEN 'BACK'...

WHEN 'NEW'...

WHEN 'P--'.

CLEAR OK_CODE.

PERFORM PAGING USING 'P--'.

WHEN 'P-'.

CLEAR OK_CODE.

PERFORM PAGING USING 'P-'.

WHEN 'P+'.

CLEAR OK_CODE.

PERFORM PAGING USING 'P+'.

WHEN 'P++'.

CLEAR OK_CODE.

PERFORM PAGING USING 'P++'.

ENDCASE.

ENDMODULE.

&----

*& Form PAGING

&----

FORM PAGING USING CODE.

DATA: I TYPE I,

J TYPE I.

CASE Sy-UCOMM.

WHEN 'P--'.

FLIGHTS-TOP_LINE = 1.

WHEN 'P-'.

FLIGHTS-TOP_LINE = FLIGHTS-TOP_LINE - LINE_COUNT.

IF FLIGHTS-TOP_LINE LE 0.

FLIGHTS-TOP_LINE = 1. ENDIF.

WHEN 'P+'.

I = FLIGHTS-TOP_LINE + LINE_COUNT.

J = FLIGHTS-LINES - LINE_COUNT + 1.

IF J LE 0.

J = 1.

ENDIF.

IF I LE J.

FLIGHTS-TOP_LINE = I.

ELSE.

FLIGHTS-TOP_LINE = J.

ENDIF.

WHEN 'P++'.

FLIGHTS-TOP_LINE = FLIGHTS-LINES - LINE_COUNT + 1.

IF FLIGHTS-TOP_LINE LE 0.

FLIGHTS-TOP_LINE = 1.

ENDIF.

ENDCASE.

ENDFORM.

Hope it helps.

Regards,

Neeraj

Re: table control

abdul_hakim — Tue, 14 Mar 2006 16:31:12 GMT

Hi,

This is quite simple.

Go thru the transaction ABAPDOCU.

There are lots of examples available for almost all the topics.

Regards,

Abdul Hakim

Re: table control

RichHeilman — Tue, 14 Mar 2006 16:37:53 GMT

All you need to do is put a module in the PBO of the screen.

Then in the ABAP code, you can do something like this.

MODULE GET_DATA.

if itab[] is initial.

select * into table itab from ztable.

endif.

refresh control itabcon from screen '0100'.

ENDMODULE.

Regards,

Rich Heilman