Perform Subprocedure - Rpg-iv-as400 Typing CST Test
Loading…
Perform Subprocedure — Rpg-iv-as400 Code
Call a subprocedure to calculate bonus.
DCL-PROC CalcBonus;
DCL-PI CalcBonus PACKED(7:2) END-PI;
DCL-PI Amount PACKED(7:2) END-PI;
RETURN Amount * 0.10;
END-PROC;
DCL-S Bonus PACKED(7:2);
Bonus = CalcBonus(5000);
DSPLY ('Bonus: ' + %CHAR(Bonus));
*INLR = *ON;Rpg-iv-as400 Language Guide
RPG IV (also known as RPGLE) is a high-level programming language for IBM i (AS/400) systems, designed for business applications, supporting structured programming, modern free-form syntax, and integration with DB2 databases.
Primary Use Cases
- ▸Developing core business applications on IBM i
- ▸Transaction processing and batch jobs
- ▸Integration with DB2 databases
- ▸Generating reports and financial calculations
- ▸Maintaining legacy ERP and order processing systems
Notable Features
- ▸Free-form and fixed-form syntax support
- ▸Deep integration with DB2 for IBM i
- ▸Service programs for modular code reuse
- ▸Built-in support for files, arrays, and data structures
- ▸Batch and interactive program support
Origin & Creator
IBM developed RPG in the 1960s for business applications. RPG IV, released in the 1990s, modernized the language with free-form syntax, modularization, and integration with DB2.
Industrial Note
RPG IV is highly specialized for IBM i / AS/400 environments, primarily used in banking, retail, and enterprise ERP systems where reliability, legacy integration, and transaction processing are essential.