RPG (programovací jazyk)

RPG (Report Program Generator) je programovací jazyk , jehož syntaxe byla původně podobná příkazovému jazyku mechanických tabulátorů IBM . Byl navržen pro usnadnění přechodu inženýrů, kteří udržovali tyto tabelátory na nové vybavení a přenos dat, a byl původně implementován pro IBM 1401. Široce používán v 60. a 70. letech 20. století .

Nejběžnější verzí jazyka se zdá být RPG II.

IBM v současné době jazyk nadále podporuje, protože je v něm napsáno obrovské množství kódu, jehož překlad do jiných programovacích jazyků je nerentabilní.

Verze RPG IV, která vyšla v roce 2001, představila prvky objektového programování.

Kromě sálových počítačů IBM a strojů AS/400 bylo RPG implementováno na Digital VAX , Sperry Univac BC/7, Univac system 80, Siemens BS2000, Burroughs B1700, Hewlett Packard HP3000, ICL 2900 series, Honeywell 6220, IBM , WANG VS PC platformy ( DOS ).

Kompilátor Visual RPG třetí strany poskytuje podporu Windows a GUI . Existují také implementace pro OpenVMS a další exotičtější platformy.

Ukázkový kód

* Specifikace "F" (soubor) definují soubory a další I/O zařízení FARMstF1 UF EK Přejmenování disku (ARMST:RARMST) * Specifikace "D" se používají k definování proměnných a parametrů * "Prototyp" programu je v samostatném souboru * umožňuje jiným programům jej volat /copy custom_pr * "Rozhraní procedury" popisuje parametry *ENTRY D getCustInf PI DpCusNo 6p 0 konst D pName 30a DpAddr1 30a DpAddr2 30a DpCity 25a D pStav 2a D pZip 10a /volný, uvolnit // Příkaz "chain" se používá pro náhodný přístup ke klíčovanému souboru řetězec pCusNo ARMstF1; // Pokud je nalezen záznam, přesuňte pole ze souboru do parametrů pokud % nalezeno; pName=ARNm01; pAddr1 = ARAd01; pAddr2 = ARAd02; pCity=ARCy01; pState=ARSt01; pZip=ARZp15; endif; // RPG využívá přepínače. Jeden přepínač „LR“ původně znamenal „poslední záznam“ //LR ve skutečnosti označí program a jeho datový prostor jako odstranitelné z paměti. *InLR = *Zapnuto; /end-free

Literatura