POSIT: Cómo hallar el principio de una subcadena (Maintain)

Cómo:

La función POSIT halla la posición inicial de una subcadena dentro de una cadena más larga. Por ejemplo, la posición inicial de la subcadena DUCT dentro de la cadena PRODUCTION, es 4. Si la subcadena no está dentro de la cadena principal, la función devuelve un valor de 0.

Para usar esta función, debe importar la biblioteca de funciones MNTUWS. Para más información sobre la importación de esta biblioteca, consulte Cómo acceder y llamar a una función.

También existe una función POSIT disponible en el lenguaje de informes. Para más información acerca de esta función, consulte POSIT: Cómo hallar el principio de una subcadena.
Principio de página
x
Sintaxis: Cómo Hallar el principio de una subcadena 
POSIT(parent, substring)

donde:

parent

Alfanumérico

Es la cadena principal.

substring

Alfanumérico

Es la subcadena cuya posición se está averiguando.
Ejemplo: Cómo hallar el principio de una subcadena

POSIT muestra todos los títulos de películas que contienen la palabra ROOF y la posición inicial de la cadena ROOF: 

MAINTAIN FILE movies
Module Import (mntuws);
Case Top
For all next Moviecode into stk1
  Where Title Contains 'ROOF';
Compute i/i2=1;
type "    Title       Start Position of word ROOF"
repeat stk1.Foccount
  Compute STK1(i).POS/I3 = POSIT(STK1(I).TITLE, 'ROOF');
  Type "  <STK1(i).Title  <<STK1(I).pos"
  Compute i=i+1;
endrepeat
EndCase
END

A continuación, le mostramos valores de ejemplo para MOVIECODE y el resultado de la función POSIT:

Title                   Start Position of word ROOF
FIDDLER ON THE ROOF     16
CAT ON A HOT TIN ROOF   18
WebFOCUS