checkbox is not getting 'X' when checked

761 Views
hi to all experts,
this is my code
when i debug the code and the checkob p_kz_e4 is checked it is not taking the value as 'X'
what could be reason .
TABLES:viaufkst,aufk,rihea,tj02t,tj20,tj30,tj30t,tj02.


INCLUDE ppio_entry_sysstate_check.


DATA: yx   VALUE 'X'.

DATA : IT_OUTPUT TYPE TABLE OF AUFK,
       WA_OUTPUT LIKE LINE  OF IT_OUTPUT.





*-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*                                                         SELECTION SCREEN
*-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-f06.
SELECT-OPTIONS:so_aufnr   FOR viaufkst-aufnr OBLIGATORY,
               so_erdat   FOR viaufkst-erdat.
PARAMETERS:    p_auart LIKE viaufkst-auart DEFAULT 'ZRS'.
SELECTION-SCREEN END OF BLOCK b2 .

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-f07.


SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN:
  COMMENT 1(10) text-sys FOR FIELD p_syst1,
  POSITION 11.
PARAMETERS:
  p_syst1   LIKE tj02t-txt04 ,
  p_sysh1   LIKE jest-stat  NO-DISPLAY.
SELECTION-SCREEN
  POSITION 17.
PARAMETERS:
  p_kz_e1   LIKE rcosa-excl1 .
SELECTION-SCREEN:
  COMMENT 18(5) text-exc FOR FIELD p_kz_e1,
  COMMENT 24(3) text-and FOR FIELD p_syst1,
  POSITION 30.
PARAMETERS:
  p_syst2   LIKE tj02t-txt04,
  p_sysh2   LIKE jest-stat  NO-DISPLAY.
SELECTION-SCREEN
  POSITION 35.
PARAMETERS:
  p_kz_e2   LIKE rcosa-excl1.
SELECTION-SCREEN:
  COMMENT 36(5) text-exc FOR FIELD p_kz_e2,
  COMMENT 42(3) text-and FOR FIELD p_syst2,
  POSITION 48.
PARAMETERS:
  p_syst3   LIKE tj02t-txt04 ,
  p_sysh3   LIKE jest-stat NO-DISPLAY.
SELECTION-SCREEN
  POSITION 54.
PARAMETERS:
  p_kz_e3   LIKE rcosa-excl1.

SELECTION-SCREEN:
  COMMENT 55(5) text-exc FOR FIELD p_kz_e3,
  COMMENT 60(3) text-and FOR FIELD p_syst3,
  POSITION 65.
PARAMETERS:
p_syst4   LIKE tj02t-txt04,
p_sysh4   LIKE jest-stat  NO-DISPLAY.
SELECTION-SCREEN
  POSITION 71.
PARAMETERS:
  p_kz_e4   LIKE rcosa-excl1.

SELECTION-SCREEN:
  COMMENT 75(4) text-exc FOR FIELD p_kz_e4.

SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*                                                          END OF SELECTION SCREEN DECLARATION
*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


*----------------------------------------------------------AT SELECTION-SCREEN ON VALUE REQUEST-----------------------------------------------------------------------------------


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_syst1.
  DATA: stsma     LIKE atj49-stsma.
  DATA: f4_cstate LIKE atj49-cstate.
  PERFORM value_state(saplcoss) USING stsma CHANGING f4_cstate
                                       p_syst1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_syst2.
  DATA: stsma     LIKE atj49-stsma.
  DATA: f4_cstate LIKE atj49-cstate.

  PERFORM value_state(saplcoss) USING stsma CHANGING f4_cstate
                                      p_syst2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_syst3.
  DATA: stsma     LIKE atj49-stsma.
  DATA: f4_cstate LIKE atj49-cstate.
  PERFORM value_state(saplcoss) USING stsma CHANGING f4_cstate
                                       p_syst3.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_syst4.
  DATA: stsma     LIKE atj49-stsma.
  DATA: f4_cstate LIKE atj49-cstate.

  PERFORM value_state(saplcoss) USING stsma CHANGING f4_cstate
                                      p_syst4.

AT SELECTION-SCREEN ON p_syst1.
  PERFORM system_state_check USING    yx  CHANGING p_syst1 p_sysh1.

AT SELECTION-SCREEN ON p_syst2.
  PERFORM system_state_check USING    yx    CHANGING p_syst2  p_sysh2.

AT SELECTION-SCREEN ON p_syst3.
  PERFORM system_state_check USING    yx    CHANGING p_syst3  p_sysh3.

AT SELECTION-SCREEN ON p_syst4.
  PERFORM system_state_check USING    yx    CHANGING p_syst4  p_sysh4.