RPG (ohjelmointikieli)

RPG (Report Program Generator) on ohjelmointikieli , jonka syntaksi oli alun perin samanlainen kuin IBM :n mekaanisten tabulaattorien komentokieli . Suunniteltu helpottamaan näitä tabuloijia ylläpitävien insinöörien siirtymistä uusiin laitteisiin ja tiedonsiirtoon, ja se otettiin alun perin käyttöön IBM 1401:lle. Sitä käytettiin laajasti 1960- ja 1970 -luvuilla .

Yleisin versio kielestä näyttää olleen RPG II.

IBM jatkaa kielen tukemista tällä hetkellä, sillä siihen kirjoitetaan valtava määrä koodia, jota ei kannata kääntää muille ohjelmointikielille.

Vuonna 2001 julkaistu RPG IV -versio esitteli objektiohjelmoinnin elementtejä.

IBM:n keskustietokoneiden ja AS/400 - koneiden lisäksi RPG on toteutettu Digital VAX , Sperry Univac BC/7, Univac system 80, Siemens BS2000, Burroughs B1700, Hewlett Packard HP3000, ICL 2900 series, Honeywell WANG 6220, IBM WANG 6220. PC -alustat ( DOS ).

Kolmannen osapuolen Visual RPG - kääntäjä tarjoaa Windows - ja GUI - tuen . Myös OpenVMS :lle ja muille eksoottisemmille alustoille on toteutuksia.

Esimerkkikoodi

* "F" (tiedosto) spesifikaatiot määrittelevät tiedostot ja muut i/o-laitteet FARMstF1 UF EK -levyn uudelleennimeäminen (ARMST:RARMST) * "D"-määrityksiä käytetään muuttujien ja parametrien määrittämiseen * Ohjelman "prototyyppi" on erillisessä tiedostossa * sallia muiden ohjelmien kutsua sitä /copy custom_pr * "Procedure interface" kuvaa *ENTRY-parametrit D getCustInf PI DpCusNo 6p 0 const D nimi 30a DpAddr1 30a DpAddr2 30a DpCity 25a D pTila 2a D pZip 10a /vapaa // "Chain"-komentoa käytetään avaimenperäisen tiedoston satunnaiseen käyttöön ketju pCusNo ARMstF1; // Jos tietue löytyy, siirrä kentät tiedostosta parametreihin jos % löydetty; pNimi=ARNm01; pAddr1 = ARAd01; pAddr2 = ARAd02; pCity=ARCy01; pState=ARSt01; pZip = ARZp15; loppu Jos; // RPG käyttää kytkimiä. Yksi kytkin "LR" tarkoitti alun perin "viimeistä ennätystä" //LR itse asiassa merkitsee ohjelman ja sen tietotilan muistista poistettavaksi. *InLR = *Päällä; /lopetta

Kirjallisuus