/* REXX */                                                                      
NUMERIC DIGITS 5                                                                
                                                                                
x = 123454123456789                                                             
y = 123456123456789                                                             
                                                                                
SAY x ',' x + 0 ',' FORMAT(x,,,0)  /* Force no exponent format. */              
SAY y ',' y + 0 ',' FORMAT(y,,,0)                                               
SAY                                                                             
                                                                                
z = -123                                                                        
SAY z ',' z + 0 ',' FORMAT(z,4,2) ',' FORMAT(z,2,3,2,1)