How display integer bigger than 2.147.483.647

, , ,
4

That !

… I didn’t know, I have to admit.

To complete the picture:


DEFINE DATA LOCAL            
1 #B1  (B1)  INIT <H'FF'>    
1 #B2  (B2)  INIT <H'FFFF'>  
1 #B3  (B3)  INIT <H'FFFFFF'>
1 #PACKED (P21)              
END-DEFINE                   
ASSIGN #PACKED = #B1         
WRITE #PACKED                
*                            
ASSIGN #PACKED = #B2         
WRITE #PACKED                
*                            
ASSIGN #PACKED = #B3         
WRITE #PACKED                
*                            
END                          
                255
           65535
    16777215

Doesn’t work for anything above B4, and B4 is a special case as it is treated as “signed” while B1 or B2 are not.