Determining the last digit of a packed number 2

[lbzh]

I have a field as below:

4 Field1 PIC 9(5) COMP-3.


What is the simplest way to extract the last digit of Field1?

Example

Field1 Last Digit
12345 5
45678 8

Field1 is always greater than 9999 and is always less than 100,000.

Thank You.

 

[PHV]

01 Field1 PIC 9(5) COMP-3.
01 Field2 PIC 9(5).
01 FILLER REDEFINES Field2.
03 FILLER PIC X(4).
03 Last9 PIC 9.

...
MOVE Field1 TO Field2.
DISPLAY Last9.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[mrregan]

field-1 pic 9(5) comp-3.
field-2 pic 9.
move field-1 to field-2.

 

[3gm]

Why not use a redefinition to avoid any moves at all?

4 field-1              pic 9(5) comp-3.
4 redefines field-1.
  5                    pic xx.
  5 field-1-last-digit pic 9(1) comp-3.

Note that this is not a general purpose solution, but should suffice in most cases.

Regards.

Glenn

 

[WMK]

Glenn's solution will work on IBM mainframe compilers and many (most?) other compilers with COMP-3 as Packed-Decimal support. HOWEVER, it will *not* work on all non-IBM compilers. Some vendors do *NOT* allocate a "sign-nibble" for unsigned COMP-3 fields, i.e. for

PIC 9(5) Comp-3

the last byte includes the last *2* digits (with no sign to indicate it is "unsigned".

Personally, I prefer the "MOVE to 1 display numeric digit" solution as it will ALWAYS work. (Truncation is "guaranteed")

Bill Klein