RPG — (англ. Report Program Generator) мова програмування, синтаксисом спочатку схожа з командною мовою механічних табуляторів компанії IBM. Мова RPG була розроблена для полегшення переходу інженерів, що обслуговували ці табулятори на нову техніку і переносу даних. Спочатку була реалізована для IBM 1401. Найрозповсюдженіша версія — RPG II. Мова RPG широко використовувалась в 1960-х і 1970-х роках.
RPG | |
---|---|
Парадигма | процедурне програмування |
Дата появи | 1959 |
Розробник | IBM |
Останній реліз | 7.4[1] |
Система типізації | строга типізація і статична |
Компанія IBM досі підтримує мову так як на ній написано багато коду, який не вигідно переводити на інші мови програмування. В версії RPG IV, яка випущена в 2001 р. введено елементи .
Крім мейнфреймів і машин AS/400 від IBM, RPG була реалізована на платформах Digital VAX, Sperry Univac BC/7, Univac system 80, Siemens BS2000, Burroughs B1700, Hewlett Packard HP3000, ICL 2900 series, Honeywell 6220, WANG VS, IBM PC (DOS) тощо.
Компілятор Visual RPG, розроблений стороннім виробником, забезпечує роботу під Windows і підтримку GUI. Також існують реалізації RPG для OpenVMS та інших платформ.
Приклад коду
* "F" (file) specs define files and other i/o devices FARMstF1 UF E K Disk Rename(ARMST:RARMST) * "D" specs are used to define variables and parameters * The "prototype" for the program is in a separate file * allowing other programs to call it /copy cust_pr * The "procedure interface" describes the *ENTRY parameters D getCustInf PI D pCusNo 6p 0 const D pName 30a D pAddr1 30a D pAddr2 30a D pCity 25a D pState 2a D pZip 10a /free // The "chain" command is used for random access of a keyed file chain pCusNo ARMstF1; // If a record is found, move fields from the file into parameters if %found; pName = ARNm01; pAddr1 = ARAd01; pAddr2 = ARAd02; pCity = ARCy01; pState = ARSt01; pZip = ARZp15; endif; // RPG makes use of switches. One switch "LR" originally stood for "last record" //LR actually flags the program and its dataspace as removable from memory. *InLR = *On; /end-free
Майданчик тенет
1401 RPG manual (1964)[недоступне посилання з червня 2019]
- https://www.ibm.com/docs/de/i/7.4?topic=wn-whats-new-in-74-1#rpgrelv7r4
Вікіпедія, Українська, Україна, книга, книги, бібліотека, стаття, читати, завантажити, безкоштовно, безкоштовно завантажити, mp3, відео, mp4, 3gp, jpg, jpeg, gif, png, малюнок, музика, пісня, фільм, книга, гра, ігри, мобільний, телефон, android, ios, apple, мобільний телефон, samsung, iphone, xiomi, xiaomi, redmi, honor, oppo, nokia, sonya, mi, ПК, web, Інтернет
RPG angl Report Program Generator mova programuvannya sintaksisom spochatku shozha z komandnoyu movoyu mehanichnih tabulyatoriv kompaniyi IBM Mova RPG bula rozroblena dlya polegshennya perehodu inzheneriv sho obslugovuvali ci tabulyatori na novu tehniku i perenosu danih Spochatku bula realizovana dlya IBM 1401 Najrozpovsyudzhenisha versiya RPG II Mova RPG shiroko vikoristovuvalas v 1960 h i 1970 h rokah RPGParadigmaprocedurne programuvannyaData poyavi1959RozrobnikIBMOstannij reliz7 4 1 Sistema tipizaciyistroga tipizaciya i statichna Kompaniya IBM dosi pidtrimuye movu tak yak na nij napisano bagato kodu yakij ne vigidno perevoditi na inshi movi programuvannya V versiyi RPG IV yaka vipushena v 2001 r vvedeno elementi Krim mejnfrejmiv i mashin AS 400 vid IBM RPG bula realizovana na platformah Digital VAX Sperry Univac BC 7 Univac system 80 Siemens BS2000 Burroughs B1700 Hewlett Packard HP3000 ICL 2900 series Honeywell 6220 WANG VS IBM PC DOS tosho Kompilyator Visual RPG rozroblenij storonnim virobnikom zabezpechuye robotu pid Windows i pidtrimku GUI Takozh isnuyut realizaciyi RPG dlya OpenVMS ta inshih platform Priklad kodu F file specs define files and other i o devices FARMstF1 UF E K Disk Rename ARMST RARMST D specs are used to define variables and parameters The prototype for the program is in a separate file allowing other programs to call it copy cust pr The procedure interface describes the ENTRY parameters D getCustInf PI D pCusNo 6p 0 const D pName 30a D pAddr1 30a D pAddr2 30a D pCity 25a D pState 2a D pZip 10a free The chain command is used for random access of a keyed file chain pCusNo ARMstF1 If a record is found move fields from the file into parameters if found pName ARNm01 pAddr1 ARAd01 pAddr2 ARAd02 pCity ARCy01 pState ARSt01 pZip ARZp15 endif RPG makes use of switches One switch LR originally stood for last record LR actually flags the program and its dataspace as removable from memory InLR On end freeMajdanchik tenet1401 RPG manual 1964 nedostupne posilannya z chervnya 2019 https www ibm com docs de i 7 4 topic wn whats new in 74 1 rpgrelv7r4