|
View previous topic :: View next topic
|
| Author |
Message |
Julie Maquirang
New User
Joined: 07 Jan 2009
Posts: 20
Location: Philippines
|
|
|
|
| Is there a built in function in cobol that will convert decimal value to hexa decimal? |
|
| Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
When you say "convert decimal" do you need to convert COMP-3 (Packed-Decimal) or DISPLAY (External-Decimal) to hexadecimal?
Regards, |
|
| Back to top |
|
|
Julie Maquirang
New User
Joined: 07 Jan 2009
Posts: 20
Location: Philippines
|
|
|
|
DISPLAY (External-Decimal) to hexadecimal.  |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
If you had 1234 in a pic 9(4) field, what is the pic and value you want in the "hexa decimal" field? |
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA
|
|
|
|
| Since ALL fields on a mainframe are hexadecimal, you need to be more specific about what you really want. |
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
AFAIK, there isn't a builtin function.
Give this a try -
| Code: |
03 WS-NBR PIC 9(08) VALUE 12345678.
03 WS-NBR-X REDEFINES WS-NBR PIC X(08).
03 WS-PACKED PIC 9(16)V9 COMP-3 VALUE ZERO.
03 WS-PACKED-X REDEFINES WS-PACKED PIC X(09).
03 WS-DISPLAY PIC 9(16)V9.
03 WS-DISPLAY-X REDEFINES WS-DISPLAY PIC X(17).
MOVE WS-NBR-X TO WS-PACKED-X (1:8).
MOVE WS-PACKED TO WS-DISPLAY.
INSPECT WS-DISPLAY-X CONVERTING HIGH-VALUE TO 'F'.
|
At this point, WS-DISPLAY-X (1:16) = 'F1F2F3F4F5F6F7F8'
Regards, |
|
| Back to top |
|
|
|
|
