Siemens SINUMERIK 840D sl Manual De Programación página 720

Funciones adicionales
14.10 Salida a un equipo/fichero externo (EXTOPEN, WRITE, EXTCLOSE)
WRITE:
EXTCLOSE
:
Ejemplo
Código del programa
N10
N20
N30
N40
N50
N60
N70
N80
N90
N100
...
N200
N210
N220
N230
N240
...
720
Comando para escribir los datos de salida
Descripción, ver "Escribir fichero (WRITE) [Página 140]".
Comando para cerrar un equipo/fichero externo abierto
<Error>: Parámetro 1: Variable para la devolución del valor erróneo
Tipo:
Valores:
<EqExt>: Parámetro 2: identificador simbólico para el equipo/fichero externo
que se debe cerrar
Descripción, ver EXTOPEN.
Nota:
El identificador debe ser exactamente igual al indicado en el
comando EXTOPEN.
DEF INT RESULT
DEF BOOL EXTDEVICE
DEF STRING[80] SALIDA
DEF INT PHASE
EXTOPEN(RESULT,"LOCAL_DRIVE/my_file.txt","SYN","SHARED")
IF RESULT > 0
MSG("Error en EXTOPEN:" << RESULT)
ELSE
EXTDEVICE=TRUE
ENDIF
PHASE=4
IF EXTDEVICE
SALIDA=SPRINT("Fin fase: %D",FASE)
WRITE(RESULT,"LOCAL_DRIVE/my_file.txt",SALIDA)
ENDIF
Nota:
Este parámetro no permite sobrescribir el modo de
escritura configurado en el fichero extdev.ini. En caso
de conflicto, la llamada EXTOPEN se confirma con un
error.
INT
0 No hay error
16 Ruta externa programada no válida
21 Error al cerrar el equipo externo
Manual de programación, 09/2011, 6FC5398-2BP40-2EA0
Preparación del trabajo