Progress - duda en codificacion

hola, disculpen la molestia tengo duda en la codificaion de un programa. Este es la codificacion para un reporte, quiero q me despliegue blanco cuando no encuetra el nombre de la categoria , pero en el reporte no se puede poner el put ya que hace referencia a un segundo programa... y esa es mi duda como puedo acomodar la codificacion para que me respete los blancos.......mucha gracias

FOR EACH trab1 WHERE index(rancia, string(trab1.idcia, ">9")) ne 0 AND
index(rannom, string(trab1.idcia, ">9") +
string(trab1.idsubdiv, ">9")) ne 0 AND
index(ranfpa, string(trab1.idfopago, "9")) ne 0 NO-LOCK,
EACH GENTRA OF TRAB1 WHERE (trab1.activo AND v-status = 1) OR
((not trab1.activo) AND v-status = 2) OR
((trab1.activo or not trab1.activo) and v-status = 3)
NO-LOCK
BREAK BY trab1.IdCia
BY trab1.IdTrab:

find categoria of trab1 no-lock no-error.
/* IF available CATEGORIA then NOMCAT. */
/* */
/* else put ' ' CATEGORIA.NOMCAT. */

if first-of(trab1.idcia) then do:
find compania where compania.idcia = TRAB1.idcia no-lock no-error.
IF AVAILABLE compania THEN
nomciax = compania.nomcia.
END.

FORM HEADER
SV_Fecha AT 1
SV_Encab001 AT 24
'PAG.' AT 76 PAGE-NUMBER FORMAT '>9' AT 81 SKIP(1)
STRING(TIME,'HH:MM:SS') AT 1
SV_Reporte AT 30
SV_Programa AT 76
fill('-',150) format 'x(100)' AT 1 SKIP

{EXP324P3.P}
WITH FRAME FP_header PAGE-TOP NO-ATTR-SPACE NO-BOX WIDTH 180 NO-LABELS.
VIEW FRAME FP_header.

if FIRST-OF(trab1.idtrab) then do:
END.
{EXP324P2.P}
end.
OUTPUT CLOSE.

SEGUNDO PROGRAMA
OUTPUT TO value(Dfuentes + "EXP324P2.P").

PUT 'PUT '.
K = 1.
do i = 1 to j:
IF VECCON[i] <> " " THEN DO:

PUT unformatted
"STRING("
SUBSTRING(VECCON[i],1,v_long[i]) ",'"
SUBSTRING(V_FORMAT[i],1,v_long1[i]) "') FORMAT 'X(16)'". /* v_long1[i] */
IF K = 1 THEN PUT SKIP.
ELSE PUT "" SKIP.

K = K + 16.

END. /* IF VECCON[i] */
end.

PUT 'SKIP.'.
OUTPUT CLOSE.

Por que no utilizas una variable para desplegar el nombre de la categoría, de tal forma que cuando no encuentre la categoría la inicializas a blanco y si existe le asignas dicho nombre.