topic Re: module pool initial screen in Application Development and Automation Discussions

module pool initial screen

Former Member — Wed, 11 Apr 2007 04:31:01 GMT

Hi experts,

I am doing a module pool program, in the initial screen there a filed licence number. i have created it and raised an error message if the user enters incorrect licence number. The problem is when i enter incorrect licence number it's getting grayed out, rather tha resting it.

the code i have written is below

SELECT SINGLE zz_licno

FROM zlec_master

INTO zlec_master-zz_licno

WHERE zz_licno = zlec_master-zz_licno.

IF sy-subrc <> 0.

MESSAGE e000(zmj) WITH 'ENTER VALID LICENCE NUMBER'.

ENDIF.

plz suggest me the best solution.

thanks and regards,

alson.

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 04:35:51 GMT

Hi,

Use FIELD ..MODULE.. in the PAI..Now that input field will not be grayed out..

Ex..

PROCESS AFTER INPUT.

FIELD zlec_master-zz_licno MODULE valid_licno.

Code..

MODULE valid_licno.

SELECT SINGLE zz_licno

FROM zlec_master

INTO zlec_master-zz_licno

WHERE zz_licno = zlec_master-zz_licno.

IF sy-subrc <> 0.

MESSAGE e000(zmj) WITH 'ENTER VALID LICENCE NUMBER'.

ENDIF.

ENDMODULE.

Thanks,

Naren

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 04:38:05 GMT

u can also use CHAIN .... ENDCHAIN in PAI

in PAI

CHAIN
 FIELDs: field1,
              field2... " here specify all the screen fields

ENDCHAIN.

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 04:38:30 GMT

in the PAI of the screen write

field <field name> module <module name> on request

it will solve ur problem

regards

ravish

plz reward if helpful

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 04:45:36 GMT

hi alson,

u can write the statement field for the license number in PAI.

Process after input.

field zlec_master-zz_licno values (between '10' and '1000');

if u give a incorrect value this field will be enabled. u can re enter the correct value.

Regards....

Arun.

Reward points if useful.

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 04:50:14 GMT

good

dont use the SINGE statement in the select statement,instead of that you can use the corresponding fields of and you r selecting the field from zlec_master and also putting into the same table ,i cant able to understnad that,plz check that line,and change accordingly.

thanks

mrutyun^

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 04:52:26 GMT

hi muthukumaran,

i postin u my complete code in PAI. plz suggest where to use the code suggested by u. As i am new to module pool plz help in solving the issue.

the code is as follows:

MODULE user_command_0100 INPUT.

CASE sy-ucomm.

WHEN 'BACK'.

LEAVE PROGRAM.

ENDCASE.

IF NOT zlec_master-zz_licno IS INITIAL.

SELECT SINGLE zz_licno

FROM zlec_master

INTO zlec_master-zz_licno

WHERE zz_licno = zlec_master-zz_licno.

IF sy-subrc <> 0.

MESSAGE e000(zmj) WITH 'ENTER VALID LICENCE NUMBER'.

ENDIF.

IF NOT zlec_master-zz_licno IS INITIAL.

SELECT zz_licno

zz_lec

zadd_line_1

zadd_line_2

zadd_line_3

zlandline_no

zmobile_no

zlicence_val_dt

FROM zlec_master

INTO CORRESPONDING FIELDS OF TABLE itab

WHERE zz_licno = zlec_master-zz_licno.

ENDIF.

CALL SCREEN 200.

ENDMODULE. " USER_COMMAND_0100 INPUT

thanks and regards

alson.

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 05:08:08 GMT

Write like this

here licence is the screen field name

PROCESS AFTER INPUT.

FIELD licence MODULE check_licence ON INPUT.

MODULE check_licence INPUT.

IF licence NE space.

SELECT SINGLE zz_licno

FROM zlec_master

INTO zlec_master

WHERE zz_licno = licence.

IF sy-subrc NE 0.

MESSAGE e 'Licence No does not exist'.

ENDIF.

ENDMODULE.

Hope this helps

Regds

Seema

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 06:06:16 GMT

hi seema,

I am sorry i am unable to place your piece of code in the existing. plz suggest me where to write. This is urgent plz help me with the code and fields below mentioned.

CASE sy-ucomm.

WHEN 'BACK'.

LEAVE PROGRAM.

ENDCASE.

IF NOT zlec_master-zz_licno IS INITIAL.

SELECT SINGLE zz_licno

FROM zlec_master

INTO zlec_master-zz_licno

WHERE zz_licno = zlec_master-zz_licno.

IF sy-subrc <> 0.

MESSAGE e000(zmj) WITH 'ENTER VALID LICENCE NUMBER'.

ENDIF.

IF NOT zlec_master-zz_licno IS INITIAL.

SELECT zz_licno

zz_lec

zadd_line_1

zadd_line_2

zadd_line_3

zlandline_no

zmobile_no

zlicence_val_dt

FROM zlec_master

INTO CORRESPONDING FIELDS OF TABLE itab

WHERE zz_licno = zlec_master-zz_licno.

ENDIF.

CALL SCREEN 200.

ENDMODULE. " USER_COMMAND_0100 INPUT

thanks and Regards,

alson

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 06:15:50 GMT

Hey Alson,

in SCREEN 1000's flow logic,

there would be statement like....

MODULE user_command.

instead of that write...

FIELD zlec_master-zz_licno MODULE user_command.

This will solve your problem.

Dont forget to Reward Points if helpful,

Regards,

Tejas

Re: module pool initial screen

Former Member — Wed, 11 Apr 2007 10:13:21 GMT

Hi Alson

I had already written in the code u have to write it in PAI.

Regds

Seema