Progress - cantidad de palabras

Hola, buenos dias no se si me podrian ayudar tengo este programa:

DEFINE VARIABLE l-Straux AS CHAR NO-UNDO.
DEFINE VARIABLE l-dirinput AS CHAR NO-UNDO.
DEFINE VARIABLE l-Recid AS RECID.
DEFINE VARIABLE l-conta AS INTEGER.
DEFINE VARIABLE l-palabra AS CHAR NO-UNDO.
DEFINE VARIABLE l-conta2 AS INT NO-UNDO.

l-dirinput = "c:\Documents\".
INPUT FROM "c:\Documents\contrato.txt".
l-conta = 0.
REPEAT:
IMPORT UNFORMATTED l-Straux.
l-conta = l-conta + 1.
END.

DISPLAY l-conta.
INPUT CLOSE.

El cual me lee el numero de lineas que contiene ese archivo, pero tambien quiero saber cuantas palabras contiene el archivo la unica manera que se me ocurre es identificando los espacios en blanco entre palabras pero no sabria como hacerle me podrian ayudar?

Podrías utilizar:

intCuentaPalabras = NUM-ENTRIES(l-Straux, " ").

el inconveniente es si tienes mas de un espacio en blanco, porque no es lo mismo:

"uno dos tres"

que:

"uno dos tres".

DEFINE VARIABLE I-Straux AS CHAR NO-UNDO.
DEFINE VARIABLE l-dirinput AS CHAR NO-UNDO.
DEFINE VARIABLE l-Recid AS RECID.
DEFINE VARIABLE l-cntLineas AS INTEGER NO-UNDO.
DEFINE VARIABLE l-cntPalabras AS INTEGER NO-UNDO.

l-dirinput = "c:\Documents\".
INPUT FROM "c:\Documents\contrato.txt".
l-conLineas = 0.
i-cntPalabras = 0.
REPEAT:
IMPORT UNFORMATTED l-Straux.
l-cntLineas = l-cntLineas + 1.
DO WHILE INDEX(i-strAux,' ') > 0:
i-strAux = REPLACE(i-strAux,' ',' ').
END.
I-cntPalabras = i-cntPalabras + NUM-ENTRIES(i-strAux,' ').
END.
INPUT CLOSE.
DISPLAY l-cntLineas i-cntPalabras.