Cobol Foro - [Sintaxis] Indirección...

Hola Amigos:

Les paso un ejemplo de indirección, una de tantas forma que se puede utilizar.
Cuando queremos realizar algo con archivos (leer, buscar, grabar, etc) podemos tener el nombre del archivo en una variable y hacer referencia a ella para automatizar más la cosa. Les paso tambien el link de la ayuda en ingles

Saludos.

Fito...

Código WinDev:

//Ejemplo de uso de Indirecciones 
 
sArchivo is string = "Articulo"
nCantidad is int
 
FOR EACH {sArchivo,indFile} //Equivalente a FOR EACH Articulo 
    nCantidad++
END
Info("Cantidad de Artículos="+nCantidad)
 
//Ayuda oficial de Windev sobre Indirecciones: 
//http://doc.windev.com/en-US/?1512005&name=Indirection_operator_control_and_item&verdisp=200