Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

table control

Former Member
0 Likes
315

hi,

I am having table control without displaying the data.but when i click the display i want to display the records..but i doesn't display...i dont know why...i paste my code...c please.....

TABLES:EKKO.

DATA:OKCODE LIKE SY-UCOMM.

DATA:BEGIN OF ITAB OCCURS 0,

EBELN LIKE EKKO-EBELN,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

BSTYP LIKE EKKO-BSTYP,

BSAKZ LIKE EKKO-BSAKZ,

END OF ITAB.

CONTROLS:TAB TYPE TABLEVIEW USING SCREEN 9119.

INCLUDE ZTABLETOP . " global Data

  • INCLUDE ZTABLEO01 . " PBO-Modules *

  • INCLUDE ZTABLEI01 . " PAI-Modules *

  • INCLUDE ZTABLEF01 . " FORM-Routines *

&----


*& Module STATUS_9119 OUTPUT

&----


  • text

----


module STATUS_9119 output.

SET PF-STATUS '9119'.

  • SET TITLEBAR 'xxx'.

endmodule. " STATUS_9119 OUTPUT

&----


*& Module USER_COMMAND_9119 INPUT

&----


  • text

----


module USER_COMMAND_9119 input.

CASE OKCODE.

WHEN 'DISPLAY'.

IF ITAB IS INITIAL.

SELECT EBELN BUKRS BSART BSTYP BSAKZ FROM EKKO INTO TABLE ITAB UP TO 10

ROWS.

ENDIF.

CLEAR OKCODE.

WHEN 'CANCEL'.

LEAVE PROGRAM.

ENDCASE.

endmodule. " USER_COMMAND_9119 INPUT

&----


*& Module DISPLAY OUTPUT

&----


  • text

----


module DISPLAY output.

*ITAB-EBELN = EKKO-EBELN.

*ITAB-BUKRS = EKKO-BUKRS.

*ITAB-BSART = EKKO-BSART.

*ITAB-BSTYP = EKKO-BSTYP.

*ITAB-BSAKZ = EKKO-BSAKZ.

*MOVE EKKO-EBELN TO ITAB-EBELN.

*MOVE EKKO-BUKRS TO ITAB-BUKRS.

*MOVE EKKO-BSART TO ITAB-BSART.

*MOVE EKKO-BSTYP TO ITAB-BSTYP.

*MOVE EKKO-BSAKZ TO ITAB-BSAKZ.

*APPEND ITAB.

endmodule. " DISPLAY OUTPUT

&----


*& Module OUT INPUT

&----


  • text

----


module OUT input.

*MOVE ITAB-EBELN TO EKKO-EBELN.

*MOVE ITAB-BUKRS TO EKKO-BUKRS.

*MOVE ITAB-BSART TO EKKO-BSART.

*MOVE ITAB-BSTYP TO EKKO-EBELN.

*MOVE ITAB-BSAKZ TO EKKO-BSAKZ.

*

*MOVE EKKO-EBELN TO ITAB-EBELN.

*MOVE EKKO-BUKRS TO ITAB-BUKRS.

*MOVE EKKO-BSART TO ITAB-BSART.

*MOVE EKKO-BSTYP TO ITAB-BSTYP.

*MOVE EKKO-BSAKZ TO ITAB-BSAKZ.

*APPEND ITAB.

endmodule. " OUT INPUT

1 REPLY 1
Read only

Former Member
0 Likes
272

Hi Manjula,

For solving the probelm, just reverse code of input, output module of your program.

Means cut, paste from input module code to output module;

and cut, paste old code from output module to input module.

Hope it will solve ur problem.

Regards

Krishnendu