Application Development 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: 

Problem with displaying data from screen.

Former Member
0 Kudos
161

Hi experts,

In the program there are two screen. In the first screen-Screen5000- there are four buttons and when user pushes these buttons the second screen-Screen250- displays. But problem starts here. Second screen does not show any data from the itab.

Thanks

4 REPLIES 4

Former Member
0 Kudos
112

Check the scope of the variable! in debugging.

Former Member
0 Kudos
112

1. Assume the FCODE for button1 is BUTT1 , button2 is BUTT2, button3 is BUTT3, button4 is BUTT4 check u r coding in MODULE user_command_5000 INPUT by palcing break-point there.

MODULE user_command_5000 INPUT.

CASE sy-ucomm.

WHEN 'BUTT1'.

..............

WHEN 'BUTT2'.

..............

WHEN 'BUTT3'.

..............

WHEN 'BUTT4'.

................

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

2. check whether the fields u kept in screen 250 are taken by selecting dictionary/programfields ->Table/fieldname - ITAB

and click get from program button and place the fields in u r screen 250

0 Kudos
112

Hi sreekanth.

Can you show me where I must put break point? And which clause must I use?

Thanks

Code:

INCLUDE ZFC_PROJE1TOP . " global Data

INCLUDE ZFC_PROJE1PBO . " PBO-Modules

INCLUDE ZFC_PROJE1PAI . " PAI-Modules

INCLUDE ZFC_PROJE1FRM . " FORM-Routines

PROGRAM ZFC_PROJE1.

TABLES : ZFC_CDTP_MESLEK, ZFC_CDTP_MUSTERI.

DATA : ITAB LIKE ZFC_CDTP_MUSTERI OCCURS 0 WITH HEADER LINE.

DATA : ITAB2 LIKE ZFC_CDTP_MESLEK.

DATA : BEGIN OF ITAB3 OCCURS 10,

MUSKD LIKE ZFC_CDTP_MUSTERI-MUSKD,

END OF ITAB3.

DATA : SUREC(1).

DATA : ISLEM TYPE I.

START-OF-SELECTION.

SELECT * FROM ZFC_CDTP_MUSTERI INTO TABLE ITAB.

CALL SCREEN 5000.

END-OF-SELECTION.

&----


*& Include ZFC_PROJE1PBO

&----


&----


*& Module STATUS_5000 OUTPUT

&----


  • text

----


MODULE STATUS_5000 OUTPUT.

SET PF-STATUS 'GUI'.

SET TITLEBAR 'BASLIK'.

LOOP AT SCREEN.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " STATUS_5000 OUTPUT

&----


*& Module STATUS_0250 OUTPUT

&----


  • text

----


MODULE STATUS_0250 OUTPUT.

SET PF-STATUS 'GUI2'.

SET TITLEBAR 'BASLIK2'.

IF SUREC EQ 'S'.

LOOP AT SCREEN.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDLOOP.

ELSEIF SUREC EQ 'U'.

LOOP AT SCREEN.

IF SCREEN-NAME EQ 'ITAB-MUSKD'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ELSE.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF SUREC EQ 'N'.

LOOP AT SCREEN.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDMODULE. " STATUS_0250 OUTPUT

&----


*& Include ZFC_PROJE1PAI

&----


&----


*& Module USER_COMMAND_5000 INPUT

&----


  • text

----


MODULE USER_COMMAND_5000 INPUT.

CASE SY-UCOMM.

WHEN 'YENI'. PERFORM YENI.

WHEN 'DEGISTIR'. PERFORM DEGISTIR.

WHEN 'GORUNTULE'. PERFORM GORUNTULE.

WHEN 'SIL'. PERFORM SIL.

ENDCASE.

ENDMODULE. " USER_COMMAND_5000 INPUT

&----


*& Module USER_COMMAND_0250 INPUT

&----


  • text

----


MODULE USER_COMMAND_0250 INPUT.

CASE SY-UCOMM.

WHEN 'ONCEKI'. PERFORM ONCEKI.

WHEN 'SONRAKI'. PERFORM SONRAKI.

WHEN 'KAYDET'. PERFORM KAYDET.

WHEN 'GERI'. PERFORM GERI.

ENDCASE.

ENDMODULE. " USER_COMMAND_0250 INPUT

&----


*& Include ZFC_PROJE1FRM

&----


&----


*& Form YENI

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM YENI .

SET SCREEN 250.

SUREC = 'N'.

ENDFORM. " YENI

&----


*& Form KAYDET

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM KAYDET .

check SUREC eq 'U' or SUREC eq 'N'.

if SUREC eq 'N'.

select count( * ) from zFC_CDTP_MUSTERI into sy-tfill

where MUSKD = itab-MUSKD.

if sy-tfill ne 0.

message s004(ZSG_CL_MESAJ) with 'Bu Kod Zaten Kay&#305;tl&#305;d&#305;r'.

exit.

else.

clear zFC_CDTP_MUSTERI.

move-corresponding itab to zFC_CDTP_MUSTERI.

insert zFC_CDTP_MUSTERI.

append itab.

describe table itab lines islem.

endif.

elseif surec eq 'U'.

clear zFC_CDTP_MUSTERI.

move-corresponding itab to zFC_CDTP_MUSTERI.

modify zFC_CDTP_MUSTERI.

modify itab index islem.

endif.

surec = 'S'.

ENDFORM. " KAYDET

&----


*& Form GERI

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GERI .

LEAVE TO SCREEN 5000.

ENDFORM. " GERI

&----


*& Form DEGISTIR

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM DEGISTIR .

if SUREC EQ 'S'.

SUREC = 'U'.

elseif SUREC eq 'U' or SUREC eq 'N'.

SUREC = 'S'.

ENDIF.

SET SCREEN 250.

ENDFORM. " DEGISTIR

&----


*& Form ONCEKI

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM ONCEKI .

check SUREC eq 'S'.

check ISLEM ne 1.

ISLEM = ISLEM - 1.

ENDFORM. " ONCEKI

&----


*& Form SONRAKI

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SONRAKI .

check SUREC eq 'S'.

check ISLEM ne 1.

ISLEM = ISLEM + 1.

describe table itab lines ISLEM.

ENDFORM. " SONRAKI

&----


*& Form GORUNTULE

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM GORUNTULE .

SUREC = 'S'.

SET SCREEN 250.

ENDFORM. " GORUNTULE

&----


*& Form SIL

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SIL .

DATA : ans(1).

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

DEFAULTOPTION = 'N'

TEXTLINE1 = 'KAYIT SILINECEK?'

  • TEXTLINE2 = ' '

TITEL = 'SIL'

  • START_COLUMN = 25

  • START_ROW = 6

CANCEL_DISPLAY = 'X'

IMPORTING

ANSWER = ans.

.

if ans = 'J'.

delete from zfc_cdtp_musteri where muskd = itab-muskd.

describe table itab lines sy-tfill.

if islem eq sy-tfill.

delete itab index islem.

islem = islem - 1.

else.

delete itab index islem.

endif.

endif.

ENDFORM. " SIL

0 Kudos
112

Hi!

Give the break point inside MODULE STATUS_0250 OUTPUT and check is the data is there in the required work-area or the internal table. If it is not there then you can retrive it just after this module or in this module itself.

regards

Purnima.