Cómo: |
La función IWC.FindAppCGIValue halla los valores de los parámetros y variables de WebFOCUS emparejando el nombre del parámetro o variable con el de la variable WebFOCUS Maintain a la que está asignado el valor.
Nota: IWC.FindAppCGIValue recupera los valores, pero no es capaz de asignarlos directamente a una variable Maintain tal como lo hace IWC.GetAppCGIValue.
IWC.FindAppCGIValue(name,value);donde:
Es el parámetro o variable de WebFOCUS cuyo valor desea averiguar.
Es la variable de WebFOCUS Maintain que recibe el valor del parámetro o variable de WebFOCUS.
IWC.findAppCgiValue halla los valores de nombre de usuario y contraseña de las variables IBIC_user and IBIC_pass, respectivamente:
Maintain
COMPUTE username/A8;
COMPUTE password/A8;
IWC.findAppCgiValue("IBIC_user", username);
IWC.findAppCgiValue("IBIC_pass", password);
IWC.findAppCgiValue halla los valores de los campos listados en un archivo de Excel:
MAINTAIN FILE car
MODULE IMPORT (webbase2 errors);
Case Top
compute xlsRetail_Cost/a0;
Infer car.ORIGIN.COUNTRY car.COMP.CAR car.CARREC.MODEL
car.BODY.BODYTYPE car.BODY.RETAIL_COST into car_stack;
car_stack.FocCount=1;
car_stack.FocIndex=1;
iwc.findAppCgiValue("COUNTRY",car_stack.country);
iwc.findAppCgiValue("CAR",car_stack.car);
iwc.findAppCgiValue("MODEL",car_stack.model);
iwc.findAppCgiValue("BODYTYPE",car_stack.bodytype);
iwc.findAppCgiValue("RETAIL_COST",xlsRetail_Cost);
car_stack.retail_cost = xlsRetail_Cost;
update car.BODY.RETAIL_COST from car_stack;
EndCase
END
| Information Builders |