Input/Filed validations in module pool

[Former Member]

Hi,

Please tell me how to do validations in module pool programming? Is it the same as in reports or differnt?

For example: Validation of date:- dates enterd as input shd nt be in the table.

[Former Member]

Hi

write one module in that module u write what ever validations u want ..

smae as reports..

but remeber one thing keep the vaiable names a ssame in both in flow logic and in program or else u need to pass them explicitly..

hope i am clear to u for further details see my business card...

[Former Member]

ok thanks

[ak_upadhyay]

Hi Poonam,

Check...

In Flow Logic....

PROCESS AFTER INPUT.

  CHAIN.
    FIELD P4001-PRV_CTC.
    field P4001-PRV_DSG.
    FIELD P4001-LISTBOX.
    FIELD P4001-OTHERS.
    FIELD P4001-INDUSTRY.
    FIELD P4001-IOTHERS.
    FIELD P4001-QUALIF.
    MODULE INPUT_STATUS_SUBSCREEN ON CHAIN-REQUEST.
  ENDCHAIN.
  MODULE MODULE_PAI_4001.

In Program...

loop at SCREEN.


*IF SY-TCODE = 'PB30' AND ( SY-UCOMM = 'DIS' ) .
IF SCREEN-NAME = 'P4001-PRV_CTC'.
SCREEN-INPUT = '1'.
MODIFY SCREEN.
ENDIF.

IF SCREEN-NAME = 'P4001-PRV_DSG'.
SCREEN-INPUT = '1'.
MODIFY SCREEN.
ENDIF.

IF SCREEN-NAME = 'P4001-LISTBOX'.
SCREEN-INPUT = '1'.
MODIFY SCREEN.
ENDIF.

IF SCREEN-NAME = 'P4001-OTHERS' AND P4001-LISTBOX = 'OTHERS' AND SY-UCOMM = 'OTHERS' .
SCREEN-INPUT = '1' .
MODIFY SCREEN.
ELSEIF SCREEN-NAME = 'P4001-OTHERS'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
*ELSEIF SCREEN-NAME = 'P4001-OTHERS' .
**AND P4001-LISTBOX <> 'OTHERS'.
*SCREEN-INPUT = '0'.
*CLEAR P4001-OTHERS.
*MODIFY SCREEN.
ENDIF.

IF SCREEN-NAME = 'P4001-LISTBOX' AND P4001-LISTBOX NE 'OTHERS'.
SCREEN-INPUT = '0'.
CLEAR P4001-OTHERS.
ENDIF.

IF SCREEN-NAME = 'P4001-INDUSTRY'.
SCREEN-INPUT = '1'.
MODIFY SCREEN.
ENDIF.

IF SCREEN-NAME = 'P4001-IOTHERS' AND P4001-INDUSTRY = 'OTHERS' AND SY-UCOMM = 'OTHERS'.
SCREEN-INPUT = '1'.
MODIFY SCREEN.
ELSEIF SCREEN-NAME = 'P4001-IOTHERS'.
SCREEN-INPUT = '0'.
MODIFY SCREEN.
ENDIF.

IF SCREEN-NAME = 'P4001-INDUSTRY' AND P4001-INDUSTRY NE 'OTHERS'.
SCREEN-INPUT = '0'.
CLEAR P4001-IOTHERS.
ENDIF.

IF SCREEN-NAME = 'P4001-QUALIF'.
SCREEN-INPUT = '1'.
MODIFY SCREEN.
ENDIF.
*ENDIF.
ENDLOOP.

Reward points if useful....

Regards

AK

[Former Member]

is it that u want to tell that the statements which r to be validated shd be written in chain - endchain.

[ak_upadhyay]

Yes, Absolutely....

Regards

AK

[Former Member]

ok thank you so much.