Ejemplo
En el siguiente ejemplo se lee el material definido de la tabla (WMAT.TAB) y se guardará como texto en un parámetro QS. El próximo ejemplo muestra una posible aplicación y los pasos de programa necesarios.
Se pueden seguir utilizando textos de los parámetros QS, por ejemplo, mediante la función FN 16 en ficheros de protocolo propios.
0 BEGIN PGM SQL_READ_WMAT MM | |
1 SQL Q1800 "CREATE SYNONYM my_table FOR 'TNC:\table\WMAT.TAB'" | ; Establecer un sinónimo |
2 SQL BIND QS1800 "my_table.WMAT" | ; Enlazar parámetros QS |
3 SQL QL1 "SELECT WMAT FROM my_table WHERE NR==3" | ; Definir búsqueda |
4 SQL FETCH Q1900 HANDLE QL1 | ; Ejecutar búsqueda |
5 SQL ROLLBACK Q1900 HANDLE QL1 | ; Finalizar las transacciones |
6 SQL BIND QS1800 | ; Desvincular enlace de parámetros |
7 SQL Q1 "DROP SYNONYM my_table" | ; Borrar sinónimo |
8 END PGM SQL_READ_WMAT MM |
Paso | Explicación | |
---|---|---|
1 | Establecer un sinónimo | Asignar un sinónimo a una ruta (reemplazar una especificación de ruta larga por un nombre corto)
|
2 | Enlazar parámetros QS | Vincular un parámetro QS a una columna de tabla
|
3 | Definir búsqueda | Una definición de búsqueda contiene la entrada del valor de transferencia
|
4 | Ejecutar búsqueda | El control numérico ejecuta el proceso de lectura
|
5 | Finalizar las transacciones | La transacción finalizará y los recursos utilizados se habilitarán |
6 | Desvincular enlace | El enlace entre las columnas de la tabla y los parámetros QS se eliminará (activación de recursos necesarios) |
7 | Borrar sinónimo | El sinónimo vuelve a eliminarse (activación de recursos necesarios) |
Los sinónimos representan exclusivamente una alternativa a las indicaciones de ruta absolutas necesarias. No es posible una introducción de datos de ruta relativos.
El siguiente programa NC muestra la introducción de una ruta absoluta.
0 BEGIN PGM SQL_READ_WMAT_2 MM | |
1 SQL BIND QS 1800 "'TNC:\table\WMAT.TAB'.WMAT" | ; Enlazar parámetros QS |
2 SQL QL1 "SELECT WMAT FROM 'TNC:\table\WMAT.TAB' WHERE NR ==3" | ; Definir búsqueda |
3 SQL FETCH Q1900 HANDLE QL1 | ; Ejecutar búsqueda |
4 SQL ROLLBACK Q1900 HANDLE QL1 | ; Finalizar las transacciones |
5 SQL BIND QS 1800 | ; Desvincular enlace de parámetros |
6 END PGM SQL_READ_WMAT_2 MM |