To display comp-3 variable

raje_17285 · New User Joined: 05 Mar 2008 Posts: 3 Location: chennai

I have a CHAR field in a DB2 TABLE. This field has both characters and comp-3 field in it. Need a query that can display comp-3 values in normal display format.

ex: field value: "asfsaf xxxxx sassfafs"
where xxxxx is comp-3 number field

i need this xxxxx to be displayed in normal format.

Craq Giegerich · Posted: Wed Mar 05, 2008 6:20 pm

Phrzby Phil · Posted: Wed Mar 05, 2008 7:16 pm

Your post is confusing, meaning that you seeem to be confusing terms.

In your words, what makes xxxxx a comp-3 (a COBOL term) instead of just numeric (an English word)?

comp-3 is a COBOL term for a specific way (packed dec) to internally store numerics. The corresponding DB format is DEC, but that would be a column attribute, not just part of a char col.

I can store COBOL numerics, e.g., also as comp or display. Is there something in xxxxx that dictates comp-3?

raje_17285 · New User Joined: 05 Mar 2008 Posts: 3 Location: chennai

Here goes the declaration of columns in two tables.

TABLE A

01 dclgen-tablea
05 filed1 PIC X(2).
05 filed2 PIC X(2).
05 filed3 PIC S9(13)V9(2) USAGE COMP-3.
05 filed4 PIC S9(13)V9(2) USAGE COMP-3.

TABLE B

01 dclgen-tableb
05 fieldx PIC X(20)

in program i move dclgen-tablea to fieldx and store the value in the TABLEB.

Noe i need to use this fieldx and get field3 and field4 values in display format.

Hope i am more clear now.

Thanks for your time.

CICS Guy · Posted: Thu Mar 06, 2008 3:14 pm

raje_17285 · New User Joined: 05 Mar 2008 Posts: 3 Location: chennai

Thanks for the answer.....
I was not clear with my question.

Actually i need to get the
field3 and field4 from fieldx in the SQL QUERY itself.

ex:

select *
from
tableb
where
substr(fieldx,5,8) > 0
substr(fieldx,13,8) > 0

Here the substr(fieldx,5,8) is having the fielda (packed) in CHAR
Which can not be compared with numeric 0.

What i need is now to convert the substr(fieldx,5,8) to numeric and compare it with 0.

enrico-sorichetti · Posted: Thu Mar 06, 2008 4:10 pm

Did You have a doctor prescription for such a setup,
what is the business reason to have such an illogic thing,
if a field/column is a packed/binary number there is absolutely no reason
to have it embedded in an alphanumeric field/column

CICS Guy · Posted: Thu Mar 06, 2008 6:41 pm

Then try substr(fieldx,5,8) > X'000000000000000C'