RPG (programmeringssprog)

RPG (Report Program Generator) er et programmeringssprog, hvis syntaks oprindeligt svarede til kommandosproget i IBMs mekaniske tabulatorer . Designet til at lette overgangen af ​​ingeniører, der vedligeholdt disse tabulatorer, til nyt udstyr og dataoverførsel, blev det oprindeligt implementeret til IBM 1401. Udbredt i 1960'erne og 1970'erne .

Den mest almindelige version af sproget ser ud til at have været RPG II.

IBM fortsætter med at understøtte sproget på nuværende tidspunkt, da der er skrevet en enorm mængde kode i det, hvilket er urentabelt at oversætte til andre programmeringssprog.

Udgivet i 2001 introducerede RPG IV-versionen elementer af objektprogrammering.

Ud over IBM mainframes og AS/400 - maskiner er RPG blevet implementeret på Digital VAX , Sperry Univac BC/7, Univac system 80, Siemens BS2000, Burroughs B1700, Hewlett Packard HP3000, ICL 2900 series, Honeywell 6220, IBM WANG, PC- platforme ( DOS ).

En tredjeparts Visual RPG compiler giver Windows og GUI support . Der er også implementeringer til OpenVMS og andre mere eksotiske platforme.

Eksempelkode

* "F" (fil) specifikationer definerer filer og andre i/o-enheder FARMstF1 UF EK Disk Rename(ARMST:RARMST) * "D" specifikationer bruges til at definere variabler og parametre * "Prototypen" for programmet er i en separat fil * tillade andre programmer at kalde det /kopi tilpasset_pr * "Proceduregrænsefladen" beskriver *ENTRY-parametrene D getCustInf PI DpCusNo 6p 0 konst D pNavn 30a DpAddr1 30a DpAddr2 30a DpCity 25a D pState 2a D pZip 10a /ledig // Kommandoen "kæde" bruges til tilfældig adgang til en nøglefil kæde pCusNo ARMstF1; // Hvis der findes en post, skal du flytte felter fra filen til parametre hvis % fundet; pName=ARNm01; pAddr1 = ARAd01; pAddr2 = ARAd02; pCity=ARCy01; pState=ARSt01; pZip=ARZp15; Afslut Hvis; // RPG gør brug af switches. En kontakt "LR" stod oprindeligt for "sidste rekord" //LR markerer faktisk programmet og dets datarum som flytbare fra hukommelsen. *InLR = *Til; /slutfri

Litteratur