View previous topic :: View next topic
|
Author |
Message |
ashimer
Active Member
Joined: 13 Feb 2004 Posts: 551 Location: Bangalore
|
|
|
|
i have the following definitions..
Code: |
01 Char-Value PIC 9(4) COMP
VALUE ZERO.
01 Char-Value-R REDEFINES Char-Value.
05 FILLER PIC X(01).
05 Char-Value-LSB PIC X(01).
88 Uppercase-Char VALUE 'A' THRU 'I'
'J' THRU 'R'
'S' THRU 'Z'
X'4A' X'5A' X'80'
X'9E' X'E0'.
88 Lowercase-Char VALUE 'a' THRU 'i'
'j' THRU 'r'
's' THRU 'z'
X'6A' X'70' X'A1'
X'9C' X'C0' X'D0'. |
when i move 'P' to Char-Value-LSB i get the value of Char-Value as 0215.
Can anyone explain this ?
ashimer |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
ashimer wrote: |
when i move 'P' to Char-Value-LSB i get the value of Char-Value as 0215.
Can anyone explain this ? |
That is 215 decimal, aka D7 hex, aka 'P' character........Why shouldn't you get a value of 215? |
|
Back to top |
|
|
ashimer
Active Member
Joined: 13 Feb 2004 Posts: 551 Location: Bangalore
|
|
|
|
got it ... i was assuming decimal value of P to be 0223 ...
thanks cics guy ... |
|
Back to top |
|
|
|