Program myProgram type basicProgram (employeeNum INT) { includeReferencedFunctions = yes } // プログラム・グローバル変数 employees record_ws; employeeName char(20); // 必要組み込み関数 Function main() // 従業員名の初期化 recd_init(); // 渡された employeeNum に基づいて // 目的の従業員名を取得 employeeName = getEmployeeName(employeeNum); end // 別の組み込み関数 Function recd_init() employees.name[1] = "Employee 1"; employees.name[2] = "Employee 2"; end end // スタンドアロンの関数 Function getEmployeeName(employeeNum INT) returns (CHAR(20)) // ローカル変数 index BIN(4); index = 2; if (employeeNum > index) return("Error"); else return(employees.name[employeeNum]); end end // 従業員の typeDef として機能するレコード・パーツ Record record_ws type basicRecord 10 name CHAR(20)[2]; end
その他の詳細については、プログラムの特定タイプごとのトピックを参照してください。