Program myProgram type basicProgram (employeeNum INT) { includeReferencedFunctions = yes } // program-global variables employees record_ws; employeeName char(20); // a required embedded function Function main() // initialize employee names recd_init(); // get the correct employee name // based on the employeeNum passed employeeName = getEmployeeName(employeeNum); end // another embedded function Function recd_init() employees.name[1] = "Employee 1"; employees.name[2] = "Employee 2"; end end // stand-alone function Function getEmployeeName(employeeNum INT) returns (CHAR(20)) // local variable index BIN(4); index = 2; if (employeeNum > index) return("Error"); else return(employees.name[employeeNum]); end end // record part that acts as a typeDef for employees Record record_ws type basicRecord 10 name CHAR(20)[2]; end
有关其它详细信息,请参阅特定类型的程序的主题。