cursor position on screen data in module pool programming(urgent)

[former_member190312]

Hi all,

I developed a module pool program which will save the data after scanning the barcode data.

In my program screen 100 is there which contains field ‘2dbar’. scanned data is comming to 2dbar field.

we r doing scan 4 times.once for vendor number,once for material no. like this.

After 1st scan, vendor number will come to field ‘2dbar’.

Then I developed logic to put comma after each scanned data come to this field ‘2dbar’.

MODULE put_comma INPUT.

CASE OK_CODE.

when ''.

move 2dbar to 2dbar1.

clear 2dbar.

concatenate 2dbar1 ',' into 2dbar2.

*replace 2dbar with 2dbar2 into 2dbar.

move 2dbar2 to 2dbar.

*write 2dbar2 to 2dbar.

condense 2dbar no-gaps.

*move '' to 2dbar.

*set cursor field 2dbar offset 5.

*write

ENDCASE.

ENDMODULE. " put_comma INPUT

By above logic, comma comes to the starting position of 2dbar after each scan. i.e cursor position is coming to the starting position of screen field ‘2dbar’.

Now I need to move the cursor position after the comma position on 2dbar after each scan.

after 1st scan, 2dbar contains

vmotorola

then my logic puts a comma when u put enter on screen 100.

now 2dbar contains

vmotorola,

i should get the cursor position after the comma.but i am getting cursor position before 'v'.so how to move this cursor position beyond comma after each scan.

I added set cursor command but it is not working.plz

What is the logic, I need to put in PAI to move the cursor on selection screen.

Already the logic I have mentioned. with that logic, I can put comma.now I need to add cursor movement logic to move the cursoron on screen field ‘2dbar’.

Plz reply me as it is urgent.

Thanks in advance.

Regards

pabitra

[Former Member]

CASE OK_CODE.

when ''.

move 2dbar to 2dbar1.

clear 2dbar.

concatenate 2dbar1 ',' into 2dbar2.

move 2dbar2 to 2dbar.

condense 2dbar no-gaps.

-

---

len = strlen ( 2dbar ).

len = len - 1.

set cursor field 2dbar offset len.

-

---

ENDCASE.

ENDMODULE. " put_comma INPUT