ILE Concepts in IBM i / AS400

 Module 1: 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;                        

Module 2: Source code for subtraction procedure

**Free                                                                 

    //Procedure Declaration                                

    Dcl-Proc Subtraction EXPORT;      

       Dcl-PI Subtraction Zoned(4);   

         Number1 Zoned(2);            

         Number2 Zoned(2);            

       End-PI;                        

       Dcl-S Result Zoned(4);         

       Result = Number2 - Number1;    

       Return Result;                 

       *inlr = *on;                   

    End-Proc;                         

Module3: Source code for calling the above procedure

**Free                                                                            

    //Prototype Declaration                                                           

    Dcl-Pr Addition Zoned(4);                 

      Number1 Zoned(2);                       

      Number2 Zoned(2);                       

    End-Pr;                                   

                                              

    Dcl-Pr Subtraction 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;      

    Dcl-S OUTPUT2 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;                          

                                         

 // Calling the Subtraction procedure    

                                         

 OUTPUT2 = Subtraction(Number1:Number2); 

                                         

 //Displaying the output on screen       

 Dsply Output2;    

                   

 *inlr = *on;       

Subscribe Tech Sharmit for more videos on IBMi / AS400

Please refer to the below video for the same topic.