ILE Concepts in IBM i / AS400
Module1: Source code for addition procedure:-
**Free
//Procedure Declaration
Dcl-Proc Addition EXPORT;
Dcl-PI Addition Zoned(4);
Number1 Zoned(2);
Number2 Zoned(2);
End-PI;
Dcl-S Result Zoned(4);
Result = Number1 + Number2;
Return Result;
*inlr = *on;
End-Proc;
Module2: Source code for calling the above procedure:-
**Free
//Prototype Declaration
Dcl-Pr Addition Zoned(4);
Number1 Zoned(2);
Number2 Zoned(2);
End-Pr;
// Program Variable Declration
Dcl-S Number1 Zoned(2) INZ;
Dcl-S Number2 Zoned(2) INZ;
Dcl-S OUTPUT1 Zoned(4) INZ;
//Assignment of values in variables
Number1 = 40;
Number2 = 60;
// Calling the addition procedure
OUTPUT1 = Addition(Number1:Number2);
//Displaying the output on screen
Dsply OUTPUT1;
*inlr = *on;
Subscribe Tech Sharmit for more videos on IBMi / AS400
Please refer the below video for the same topic.
Comments
Post a Comment