Numeric Data type in RPGLE free format - IBM i / AS400

How to declare numeric data type in RPGLE free format:-

 **Free                                                                  
 *                   Numeric data type  Converstion in free format       
                                                                         
 *    D Number1         S              4P 0                              
                                                                         
      Dcl-s Number1 packed(4);                                           
                                                                         
 *    D Number2         S              5P 2                              
                                                                         
      Dcl-s Number2 packed(5:2);                                         
                                                                         
 *    D Number3         S              4S 2                              
                                                                         
      Dcl-s Number3 zoned(4:2);                                          
                                                                         
 *    D Number4         S              3I 0                              
                                                                         
      Dcl-s Number4 int(3);                             

                                                    
 *    D Number5         S              3U 0          
                                                     
      Dcl-s Number5 uns(3);                          
                                                     
 *    D Number6         S              4F            
                                                     
      Dcl-s Number6 float(4);                        
                                                     
 *    Assigning values to variables                  
                                                     
      Number1 = 1234;                                
      Number2 = 123.12;                              
      Number3 = 12.34;                               
      Number4 = 123;                                 
      Number5 = 123;                                 
      Number6 = 1234;                                
                                                     
 *    Displaying output                              

                             
     Dsply Number1;           
     Dsply Number2;           
     Dsply Number3;           
     Dsply Number4;           
     Dsply Number5;           
     Dsply Number6;           

     *inlr = *on;     

 

Subscribe Tech Sharmit for more videos on IBMi / AS400

Please refer to the below video for the same topic.