RPG OS%2F400 - Programming language

RPG OS%2F400 is an actively used programming language created in 1959. RPG is a high-level programming language (HLL) for business applications. RPG is an IBM proprietary programming language and its later versions are available only on IBM i- or OS/400-based systems. It has a long history, having been developed by IBM in 1959 as the Report Program Generator - a tool to replicate punched card processing on the IBM 1401 then updated to RPG II for the IBM System/3 in the late 1960s, and since evolved into an HLL equivalent to COBOL and PL/I. Read more on Wikipedia...

61Years Old

1,946Users

33Jobs

RPG OS%2F400 ranks in the top 5% of languages
the RPG OS%2F400 wikipedia page
RPG OS%2F400 first appeared in 1959
See also: cobol, pl-i, pascal, assembly-language, algol, autocoder, java
Have a question about RPG OS%2F400 not answered here? Email me and let me know how I can help.

Example code from Wikipedia:

ctl-opt main(GetCustInf);
       dcl-ds ARMSTF1 ext end-ds;
       dcl-proc GetCustInf;
         dcl-pi *n extpgm('CUS001');
           inCusNo like(arCNum) const;
           outName like(arName);
           outAddr1 like(arAdd1);
           outAddr2 like(arAdd2);
           outCity like(arCity);
           outState like(arStte);
           outZip like(arZip);
         end-pi;
         exec sql select arName, arAdd1, arAdd2, arCity, arStte, arZip
                  into  :outName, :outAddr1, :outAddr2, :outCity, :outState,
                        :outZip
                  from   ARMSTF1
                  where  arCNum = :inCusNo
                  fetch first 1 row only
                  with CS
                  use currently committed;
         return;
       end-proc;

Last updated January 18th, 2020

Edit RPG OS%2F400 on GitHub