topic Re: Problem in module pool programming in Application Development and Automation Discussions

Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:15:11 GMT

Hi all,

i am using some fields to e shown on table in module pool,

upon hitting enter, it should gets displayed in my table,

the problem is that, when i hits "enter", it is displaying my data

but again successive, it again displays all these entries.

But i wants that, after first enter, it should not come again

after any enter hits.

wa_final-sno = '1'.
wa_final-description = 'Material'.

wa_final-subject = 'Billing'.
APPEND wa_final TO it_final.
CLEAR wa_final.

wa_final-sno = '2'.
wa_final-description = 'Goods'.

wa_final-subject = 'Inputs'.
APPEND wa_final TO it_final.
CLEAR wa_final.

wa_final-sno = '3'.
wa_final-description = 'Cost'.

wa_final-subject = 'Value'.
APPEND wa_final TO it_final.
CLEAR wa_final.

WRITE : / WA_FINAL-SNO, WA_FINAL-DESCRIPTION wa_final-subject.

CLEAR : WA_FINAL.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:19:17 GMT

Hi,

Before append statement, check whether the entry already exists in internal table or not. If not, only then append the entry.

or use MODULE on request.

Regards,

DPM

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:23:27 GMT

Hi Debopriyo,

i am not getting your points, please elaborate how could i do that.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:27:15 GMT

hi Shweta Chouhan,

Just sort the internal table and delete the adjacent duplicates from the internal table...

sort itab ascending by filedname1 fileldname2......

delete adjacent duplicates from itab comparing fileldnale1........

It solves your issue...

Any further queries??

Thanks,

Vijay SR

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:28:33 GMT

wa_final-sno = '1'.
wa_final-description = 'Material'.

wa_final-subject = 'Billing'.

READ TABLE it_final INTO wa_final1 WITH KEY subject = wa_final-subject.

IF sy-subrc <> 0.
APPEND wa_final TO it_final.

ENDIF.
CLEAR wa_final.

Re: Problem in module pool programming

former_member187748 — Wed, 29 Jan 2014 07:35:21 GMT

Hi Shweta,

you can create a

PROCESS_ON_VALUE-REQUEST

in the PAI of your program,

then code in your main program to get those data.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:45:03 GMT

Hi,

i have written according to you, but initially it_final is empty,

so it returns sy-subrc = 4.

So not fetching data, i have written like this, please tell me whats wrong with this code.

I have to declare another internal table or else.

wa_final-sno = '1'.
wa_final-description = 'Material'.

wa_final-subject = 'Billing'.

READ TABLE IT_FINAL INTO WA_FINAL WITH KEY SNO = WA_FINAL-SNO.
IF SY-SUBRC = 0.
APPEND wa_final TO it_final.
ENDIF.
CLEAR wa_final.

wa_final-sno = '2'.
wa_final-description = 'Goods'.

wa_final-subject = 'Inputs'.

READ TABLE IT_FINAL INTO WA_FINAL WITH KEY SNO = WA_FINAL-SNO.
IF SY-SUBRC = 0.
APPEND wa_final TO it_final.
ENDIF.
CLEAR wa_final.

wa_final-sno = '3'.
wa_final-description = 'Cost'.

wa_final-subject = 'Value'.

READ TABLE IT_FINAL INTO WA_FINAL WITH KEY SNO = WA_FINAL-SNO.
IF SY-SUBRC = 0.
APPEND wa_final TO it_final.
ENDIF.
CLEAR wa_final.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 07:52:19 GMT

Hi,

You should not use serial number for comparision, either use description or subject.

I think I mistyped '=' instead of '<>' , in my previous thread.

okay put another check

IF NOT it_final[] IS INITIAL.

READ TABLE IT_FINAL INTO WA_FINAL WITH KEY SNO = WA_FINAL-SNO.

IF SY-SUBRC <> 0.

APPEND wa_final TO it_final.

ENDIF.

ELSE.

APPEND wa_final TO it_final.
ENDIF.

Regards,

DPM

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 08:08:36 GMT

Hi,

Replace you PAI logic as below,

Data : w_line type int4.

describe table it_cra lines w_lines.

if tc-current_line > w_lines.

append wa_final to it_final.

else.

modify it_final from wa_final index tc-current_line.

endif.

Regards,

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 08:33:39 GMT

Hi shweta,

wa_final-sno = '1'.
wa_final-description = 'Material'.

wa_final-subject = 'Billing'.
APPEND wa_final TO it_final.
CLEAR wa_final.

wa_final-sno = '2'.
wa_final-description = 'Goods'.

wa_final-subject = 'Inputs'.
APPEND wa_final TO it_final.
CLEAR wa_final.

wa_final-sno = '3'.
wa_final-description = 'Cost'.

wa_final-subject = 'Value'.
APPEND wa_final TO it_final.
CLEAR wa_final.

sort it_final ascending. "Insert these lines , it will work for the multiple entry for each enter key

delete adjacent duplicates from it_final.

WRITE : / WA_FINAL-SNO, WA_FINAL-DESCRIPTION wa_final-subject.

CLEAR : WA_FINAL..

Thanks,

Vijay SR

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 08:42:52 GMT

Hi Debopriyo,

one more thing i have created a z table, along with above data, there are some more

fields, which will be entered by user, and after that i wants to save those data

in my ztable, what can i do.

Let say i have some fields say fld1, and fld2 that will be entered by user on run time

now, along with above mentioned field i wants to save these fields in my ztable.

How could i achieve this ?

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 08:48:27 GMT

Hi Vijay,

i have tried this already, but not working.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 08:52:32 GMT

Hi Sanjeev,

thanks a lot, i have solved it, now can you please tell me how could i save my data

in a ztable, when some entries has been done in table control .

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 08:53:34 GMT

This message was moderated.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 09:50:13 GMT

In PAI,

IF sy-ucomm = 'SAVE'.

IF it_final IS NOT INITAIL.

MODIFY ztable FROM it_final.

ENDIF.

Re: Problem in module pool programming

Former Member — Wed, 29 Jan 2014 11:41:22 GMT

Create PF Status with SAVE button.

Then in PAI write the function of save button.

if sy-ucomm = 'SAVE'.

if it_final is not initial.

insert ztab from table it_final.

endif.

endif

Re: Problem in module pool programming

former_member187748 — Wed, 29 Jan 2014 12:25:47 GMT

Hi Shweta,

here i am showing you a sample code, please change it accordingly

inside MODULE USER_COMMAND_9000 INPUT

write this code logic

CASE SY-UCOMM.

WHEN 'ENTER'.

PERFORM DISPLAY_DATA.

WHEN 'EXIT' OR 'BACK' OR 'CANCEL'.

LEAVE TO SCREEN 0.

WHEN 'SAVE'.

PERFORM SAVE_DATA.

ENDCASE.

CLEAR : SY-UCOMM.

Now write a FORM SAVE_DATA as shown below

FORM SAVE_DATA .

LOOP AT IT_FINAL INTO WA_FINAL.

your ztable work area-MANDT = SY-MANDT.

your ztable work area-field1 = your final table work area-field1.

your ztable work area-field2 = your final table work area-field2.

your ztable work area-field3 = your final table work area-field3.

your ztable work area-field4 = your final table work area-field4.

MODIFY ZTABLE FROM your ztable work area.

ENDLOOP.

CLEAR your ztable work area.

ENDFORM.