EGL ( Enterprise Generation Language ) je moderní programovací jazyk na vysoké úrovni pro tvorbu podnikových aplikací . Vyvinuto společností IBM . EGL je syntaxí podobný jiným programovacím jazykům pro snadné učení. EGL programy jsou obvykle vytvářeny a laděny jako EGL program a pak mohou být zkompilovány do COBOL , Java nebo JavaScript .
Každý program EGL má jeden vstupní bod: funkci main() . Funkce EGL se skládají z příkazů EGL , proměnných a konstant . Program, který vypíše na obrazovku řetězec:
Program Ahoj světe const GREETING string = "Dobrý den," ; function main () myName string = "Jan" ; řekni Ahoj ( mojeJméno ); konec funkce sayHello ( název Řetězec ) SysLib . _ writeStdOut ( POZDRAV + jmeno + "!" ); konec konecSady různých dat lze kombinovat do Záznamu ( Záznam ). Příklad CustomerRecord se šesti poli:
Záznam ZákazníkTyp záznamu ZákladníZáznam Číslo zákazníka INT ; jméno zákazníka STRING ; customerAddr1 STRING ; customerAddr2 STRING ; customerAddr3 STRING ; customerBalance PENÍZE ; konecPro výměnu dat s DBMS má EGL speciální typ záznamu nazvaný SQLRecord . Následující příklad propojuje záznam Employee s tabulkou SQL Employee :
záznam Typ zaměstnance sqlRecord { tableNames =[[ "Zaměstnanec" ] ] , keyItems =[ EMPNO ] } EMPNUMBER string { column = "EMPNO" , maxLen = 6 }; FIRSTNME string { sqlVariableLen = yes , maxLen = 12 }; MIDINIT string { isSqlNullable = yes , maxLen = 1 }; LASTNAME string { sqlVariableLen = yes , maxLen = 15 }; DEPT string { column = "WORKDEPT" , isSqlNullable = yes , maxLen = 3 }; PHONENO string { isSqlNullable = yes , maxLen = 4 }; HIREDATE datum { isSqlNullable = ano }; konecSlužby ( Service ) v EGL jsou sady funkcí, které mohou být použity jinými aplikacemi. Příklad definuje službu se dvěma funkcemi :
balíček com.mojefirma.služby ; služba EmployeeService funkce getEmployees () vrací ( Zaměstnanec [] ) záznamy Zaměstnanec [ 0 ] ; // definuje prázdné pole záznamů get records ; // požaduje záznamy z DBMS return ( records ); // vrátí záznamy end funkce addEmployee ( emp Employee in ) vrací ( boolean ) try add remp ; vrátit ( pravda ); onException ( ex AnyException ) return ( false ); konec konec konecKód v EGL je organizován do balíčků .