upc cp0320c

preciso via upc no programa cp0320c ao digitar o depósito verificar se este está cadastrado em uma tabela.
Estou com o código abaixo e ainda não consegui. Alguém pode me ajudar.

/********************************************************************************************
** Programa: UPC/CP0301-U00.P
** Data....: 10/10/2020
** Autor...: SMF - DKP
** Objetivo: UPC para o programa CP0301
** Versao..: 2.06.00.001 - Versao Inicial
*********************************************************************************************/

/************************************* INCLUDES PADRAO **************************************/
{include/i-prgvrs.i UPCCP0320c.P 2.06.00.001}
/********************************************************************************************/

/******************************** DEFINICAO DE PARAMETROS ***********************************/
DEFINE INPUT PARAMETER p-ind-event AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-ind-object AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-object AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-wgh-frame AS WIDGET-HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-cod-table AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER p-row-table AS ROWID NO-UNDO.
/********************************************************************************************/

/******************************** DEFINICAO DE VARIAVEIS ************************************/

/********************************************************************************************/
DEF VAR c-objeto AS CHAR NO-UNDO.


ASSIGN c-objeto = ENTRY(NUM-ENTRIES(p-wgh-objectRIVATE-DATA, "~/"), p-wgh-objectRIVATE-DATA, "~/").

/************************************* BLOCO PRINCIPAL **************************************/
message "EVENTO:" p-ind-event skip
"OBJETO:" p-ind-object skip
"NOME OBJ:" c-objeto skip
"FRAME:" p-wgh-frame skip
"TABELA:" p-cod-table skip
"RECID:" string(p-row-table) view-as alert-box.


IF p-ind-event = "INITIALIZE" and p-ind-object = "CONTAINER" THEN DO:

MESSAGE "oi" VIEW-AS ALERT-BOX.

END.

IF RETURN-VALUE = "NOK":U THEN
RETURN "NOK":U.

RETURN "OK":U.

Alguém saberia como fazer.
Não estou conseguindo e preciso terminar um trabalho urgente.