[RESOLVIDO] erros apos cadastrar upc

amigos,
estou tentando criar uma upc para gravar o estabelecimento na tela eq0506, pois hoje ela traz da tela pd0301, porem nao posso mudar nesta tela porque a tela pd4000 tb usa esta informacao, e preciso mudar apenas da eq0506, ai pensei em criar uma upc pra fazer isto, ate fiz porem quando abro a tela eq0506 gera uns erros e a tela nem abre.... vejam o codigo, sera que tem algo errado ai?

DEF PARAM BUFFER b-cod-estabel FOR embarque.
DEF PARAM BUFFER b-old-b-cod-estabel FOR embarque.

IF NEW(b-cod-estabel) THEN DO:
FIND FIRST embarque
WHERE embarque.nr-embarque = b-cod-estabel.nr-embarque NO-LOCK NO-ERROR.

IF AVAIL ITEM THEN
ASSIGN b-cod-estabel.cod-estabel = "98"
embarque.cod-estabel = b-cod-estabel.cod-estabel.
END.

RETURN "OK":U.

obrigado a todos...

entao Rogerio,
fiz o que voce disse, nao dá mais erro, porem o que queria nao acontece tambem, a minha ideia é que toda vez que eu gerar um embarque na tela eq0506 venha um valor padrao no codigo do estabelecimento, hoje tenho 3 estabelecimentos cadastrados na empresa e preciso que o 2 saia como default nesta tela, somente nela, pude verificar que na tela pd0301 voce coloca o estabelecimento padrao, porem neste caso eu afeto outras telas que é o caso da tela pd4000, por isto tentei criar aquele programinha pra tentar acertar.
voce consegue me ajudar com isto?
obrigado.

Muito bom Rogerio.... muito obrigado...
me diga uma coisa, eu terei algumas exceções onde terei que entrar com outro estabelecimento, com isto se eu incluir um novo embarque e alterar para o embarque que necessito e der "OK" ele mudará o valor certo?
fiz um teste incluindo um novo embarque, ele muda certinho depois de clicar em "OK", porem se eu entrar no caso da exceção onde eu preciso entrar com um outro estabelecimento, quando eu clico no "OK" ele muda o estabelecimento, dai tenho que alterar o embarque selecionando o outro estabelecimento... deu pra entender ou ficou meio que confuso a minha explicacao?
mais uma vez muito obrigado pela atencao.