topic Re: Call Screen Problem in Application Development and Automation Discussions

Call Screen Problem

Former Member — Fri, 13 Aug 2010 08:16:13 GMT

Hi,

I have just wrtiiten this program to call another program with buttons. I have created buttons and program is running without error. But the problem is when i click 'input' button to call my another program(which program is adding new record on my table)

it is not working. I mean nothing happens and i cant leave this screen. I will show you my programs so if you can help me i will be pleased.

REPORT z0244.

CALL SCREEN 100.

----

MODULE status_0100

----

MODULE status_0100.

SET PF-STATUS '100'.

ENDMODULE. "status_0100

----

MODULE user_command_0100

----

MODULE user_command_0100.

CASE sy-ucomm .

WHEN 'GIRIS'.

SUBMIT Z0239 VIA SELECTION-SCREEN AND RETURN.

ENDCASE.

ENDMODULE. "user_command_0100

REPORT z0239.

TYPE-POOLS : slis.

TABLES: zpersonel_bilg.

DATA : gt_fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

gd_tab_group TYPE slis_t_sp_group_alv,

gs_layout TYPE slis_layout_alv,

gs_variant TYPE disvariant,

gd_repid LIKE sy-repid,

gt_events TYPE slis_t_event,

gd_prntparams TYPE slis_print_alv.

DATA : zpersonel_bilg1 LIKE zpersonel_bilg OCCURS 100 WITH HEADER LINE,

gs_personel TYPE zpersonel_bilg.

SELECTION-SCREEN : BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.

PARAMETERS : p_name TYPE zpersonel_bilg-name,

p_srname TYPE zpersonel_bilg-surname,

p_bthday TYPE zpersonel_bilg-birthday,

p_city TYPE zpersonel_bilg-city,

p_job TYPE zpersonel_bilg-job,

p_salary TYPE zpersonel_bilg-salary,

p_email TYPE zpersonel_bilg-email.

SELECTION-SCREEN : END OF BLOCK block1.

START-OF-SELECTION.

PERFORM create_data.

END-OF-SELECTION.

&----

*& Form create_data

&----

FORM create_data.

" ls_personel-id = p_id.

gs_personel-name = p_name.

gs_personel-surname = p_srname.

gs_personel-birthday = p_bthday.

gs_personel-city = p_city.

gs_personel-job = p_job.

gs_personel-salary = p_salary.

gs_personel-email = p_email.

SELECT MAX( id ) FROM zpersonel_bilg

INTO gs_personel-id.

IF sy-subrc EQ 0.

gs_personel-id = gs_personel-id + 1.

ELSE.

gs_personel-id = 1.

ENDIF.

INSERT into zpersonel_bilg values gs_personel.

MESSAGE i666(01) WITH gs_personel-id 'no''lu personel kaydi olusturulmustur'.

ENDFORM. "create_data

Re: Call Screen Problem

Former Member — Fri, 13 Aug 2010 08:17:21 GMT

REPORT z0244.

CALL SCREEN 100.

----

MODULE status_0100

----

MODULE status_0100.

SET PF-STATUS '100'.

ENDMODULE. "status_0100

----

MODULE user_command_0100

----

MODULE user_command_0100.

CASE sy-ucomm .

WHEN 'GIRIS'.

SUBMIT Z0239 VIA SELECTION-SCREEN AND RETURN.

ENDCASE.

ENDMODULE. "user_command_0100

Re: Call Screen Problem

Former Member — Fri, 13 Aug 2010 08:18:10 GMT

REPORT z0239.

TABLES: zpersonel_bilg.

DATA : zpersonel_bilg1 LIKE zpersonel_bilg OCCURS 100 WITH HEADER LINE,

gs_personel TYPE zpersonel_bilg.

SELECTION-SCREEN : BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.

PARAMETERS : p_name TYPE zpersonel_bilg-name,

p_srname TYPE zpersonel_bilg-surname,

p_bthday TYPE zpersonel_bilg-birthday,

p_city TYPE zpersonel_bilg-city,

p_job TYPE zpersonel_bilg-job,

p_salary TYPE zpersonel_bilg-salary,

p_email TYPE zpersonel_bilg-email.

SELECTION-SCREEN : END OF BLOCK block1.

START-OF-SELECTION.

PERFORM create_data.

END-OF-SELECTION.

&----

*& Form create_data

&----

FORM create_data.

" ls_personel-id = p_id.

gs_personel-name = p_name.

gs_personel-surname = p_srname.

gs_personel-birthday = p_bthday.

gs_personel-city = p_city.

gs_personel-job = p_job.

gs_personel-salary = p_salary.

gs_personel-email = p_email.

SELECT MAX( id ) FROM zpersonel_bilg

INTO gs_personel-id.

IF sy-subrc EQ 0.

gs_personel-id = gs_personel-id + 1.

ELSE.

gs_personel-id = 1.

ENDIF.

INSERT into zpersonel_bilg values gs_personel.

MESSAGE i666(01) WITH gs_personel-id 'no''lu personel kaydi olusturulmustur'.

ENDFORM. "create_data

Re: Call Screen Problem

Sandeep_Panghal — Fri, 13 Aug 2010 09:40:35 GMT

Try using "using selection-screen"

Re: Call Screen Problem

Former Member — Fri, 13 Aug 2010 12:35:09 GMT

I fixed my problem. Thank you anyway.