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
その他の詳細については、プログラムの特定タイプごとのトピックを参照してください。