Call Screen Problem

[Former Member]

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

[Former Member]

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

[Former Member]

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

[Sandeep_Panghal]

Try using "using selection-screen"

[Former Member]

I fixed my problem. Thank you anyway.