How move to next frame field and assign some varible

[Namasiva]

Hi All,

for a requirement I had developed the code as below

define var frmnbr like so_nbr .
{mfdeclre.i}
update frmnbr.

for each so_mstr where so_nbr = frame-value no-lock:
find first usr_mstr where so_site = usr_access_loc no-lock no-error.
If not avail usr_mstr then
Do:
message "ERROR: User Doesn't have access to:" so_site "site."
view-as alert-box.

return no-apply.
End.


ON GO,return ANYWHERE
DO:
If frame-field = "nbr" then assign frame-value = frmnbr.
If frame-field = "nbr1" then assign frame-value = frmnbr.

end.
End.

{gprun.i ""xssorp10.p""}

the above code if i press F1 to go from frame field "nbr" it is assigning the frmnbr only to "nbr" filed it not assigning the frmnbr to nbr1 field

if i press f1 from the frame field nbr it has to gor to frame field nbr1 and assign frmnbr value to that field then only it has to go to the next level.

Pls help me.

Thanks in advance

 

[Kishor Chari]

I dont underdstand why you are complicating things I woul keep it simple;

There is no need to introduce frmnbr field.

update nbr.
ASSIGN nbr1 = nbr.

 

[Namasiva]

Hi Chari,


Thanks for your reply.

I am not geting . could you pls explain how do i do that?

 

[Kishor Chari]

define var frmnbr like so_nbr .
{mfdeclre.i}
update nbr.

for each so_mstr where so_nbr = nbr no-lock:
find first usr_mstr where so_site = usr_access_loc no-lock no-error.
If not avail usr_mstr then
Do:
message "ERROR: User Doesn't have access to:" so_site "site."
view-as alert-box.

return no-apply.
End.

assign nbr1 = nbr.

End.
{gprun.i ""xssorp10.p""}

 

[Namasiva]

Hi Chari,


Here the frame-field "nbr" and "nbr1" for xxsorp10.p not for the current codes. will this code work for that also?.

 

[Kishor Chari]

Are you the one with no source code for custom program? then accept all the value and run it as CIM.