Enhancement-3

INCLUDE zp002110.

INCLUDE mppdat00.

INCLUDE fp50ppsb.

INCLUDE mppers00.

INCLUDE zp002120.

INCLUDE zp002130.

INCLUDE zp002140.

*&---------------------------------------------------------------------*

*&      Module  ZVALIDATE_EMP  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE zvalidate_emp INPUT.

  IF p0021-subty EQ '1' AND p0021-znlc_yes = 'X' AND

    sy-ucomm = 'UPD' AND p0021-zpernr IS INITIAL.

    MESSAGE text-001 TYPE 'E'.

  ENDIF.

ENDMODULE.                 " ZVALIDATE_EMP  INPUT

*&---------------------------------------------------------------------*

*&      Module  ZVALIDATE_SPOUSE  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE zvalidate_spouse OUTPUT.

**-- Making the medically dependent as invisible when employed is yes

if  p0021-subty EQ '1' AND p0021-znlc_no NE 'X'.

LOOP AT SCREEN.

 IF screen-group2 = '003'.

    screen-active = '0'.

    MODIFY SCREEN.

 ENDIF.

 ENDLOOP.

ENDIF.

**Displaying field only for spouse

  IF p0021-subty NE '1'.

    LOOP AT SCREEN.

      IF screen-group2 = '001' OR screen-group2 = '002'.

        screen-active = '0'.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ELSEIF p0021-subty EQ '1' AND p0021-znlc_no = 'X'.

    LOOP AT SCREEN.

      IF screen-group2 = '002'.

        screen-active = '0'.

        MODIFY SCREEN.

      ENDIF.

     IF screen-group2 = '003'.

        screen-active = '1'.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

    CLEAR p0021-zpernr.

  ENDIF.

  IF p0021-subty EQ '1'.

    LOOP AT SCREEN.

      IF screen-group2 = '003'.

        screen-active = '1'.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

    CLEAR p0021-zpernr.

  ENDIF.

ENDMODULE.                 " ZVALIDATE_SPOUSE  OUTPUT