Nome File: U_BIF454.DLL
Questa BIF può essere utilizzata per eseguire comandi SQL a livello di database all'interno dei programmi LANSA bypassando l'I/O Module.
NOTA: NON UTILIZZARE MAI ALL'INTERNO DEL COMANDO SELECT_SQL DI LANSA (vale anche per call a funzioni esterne)
Note:
I parametri per il salvataggio su file o la working-list hanno valenza solamente nel caso in cui il comando è una SELECT.
In tutti gli altri casi (INSERT, DELETE, UPDATE) non vengono presi in considerazione.
La working-list passata deve essere compatibile con i campi selezionati a livello di posizione, natura e dimensione; non importa il nome.
Esempio:
DEFINE FIELD(£SQLCMD) TYPE(*CHAR) LENGTH(256)
DEFINE FIELD(£WKLORD) REFFLD(£RGNROR)
DEFINE FIELD(£WKLRIGA) REFFLD(£RGNRRG)
DEFINE FIELD(£WKLART) REFFLD(£RGKAR)
DEF_LIST LIST NAME(£LISTARSLT) FIELDS(£WKLORD £WKLRIGA £WKLART) TYPE(*WORKING) ENTRYS(*MAX)
...
£SQLCMD := "SELECT RGNROR, RGNRRG, RGKAR FROM " + *EDSQLLIB + "RIGO00F WHERE RGNROR BETWEEN 134 AND 987"
USE BUILTIN(UD_EXECSQL) WITH_ARGS(£SQLCMD "N" "*LIST" "5" "N") TO_GET(£RETCODA £R_MES256 £R_NU1500 £LISTARSLT)
SELECTLIST £LISTARSLT
...