Program myProgram type basicProgram (employeeNum INT)
{
includeReferencedFunctions = yes
}
// variables globales de programa
employees record_ws;
employeeName char(20);
// función incorporada obligatoria
Function main()
// inicializar nombres de empleados
recd_init();
// obtener el nombre de empleado correcto
// en función del employeeNum pasado
employeeName = getEmployeeName(employeeNum);
end
// otra función incorporada
Function recd_init()
employees.name[1] = "Employee 1";
employees.name[2] = "Employee 2";
end
end
// función autónoma
Function getEmployeeName(employeeNum INT) returns (CHAR(20))
// variable local
index BIN(4);
index = 2;
if (employeeNum > index)
return("Error");
else
return(employees.name[employeeNum]);
end
end
// componente de registro que actúa como typeDef de empleados
Record record_ws type basicRecord
10 name CHAR(20)[2];
end
para obtener más detalles, consulte el tema correspondiente al tipo determinado de programa.
Conceptos relacionados
Componentes
Componente de programa