Varchar variable with lenght 32000

srinathds83 · New User Joined: 17 Jul 2007 Posts: 41 Location: pune

Hi,

i'm trying to read a database field in cobol program. The DB2 filed is declared as Varchar with the length 32000, when i read this column through a cobol program it is displaying spaces where as the table has the data.

is there any compiler option which we need to change because the varchar length is more than 255?

Thanks in Advance,
Srinath D

Bill Woodger · Posted: Fri Aug 26, 2011 1:29 pm

Compiler option? No.

Can you show your code, please. Data definition, code from the procedure division using the data. Please use the Code button (above the input box) to preserve spacing. Highlight text, click code, click preview, correct if necessary. Please copy/paste to avoid typos.

srinathds83 · New User Joined: 17 Jul 2007 Posts: 41 Location: pune

Hi Bill,

Code is somewhat like this:

01 WS-TEXT.
49 WS-TEXT-LEN PIC S9(4) COMP.
49 WS-TEXT-FIELD PIC X(32000).

SELECT COLUMN1
INTO :WS-TEXT
FROM TAB1

DISPLAY ‘WS-TEXT : ‘WS-TEXT
DISPLAY ‘WS-TEXT-LEN : ‘WS-TEXT-LEN
DISPLAY ‘WS-TEXT-FIELD : ‘WS-TEXT-FIELD

OUTPUT:

WS-TEXT :
WS-TEXT-LEN : 0000
WS-TEXT-FIELD :

Problem is we are getting spaces in the fields. I tried using TRUNC(BIN) and TRUNC(OPT) Option as well.

Thanks
Srinath D

Bill Woodger · Posted: Fri Aug 26, 2011 3:27 pm

Interesting. I've never displayed 32000 bytes at once before. I assume you mean

dbzTHEdinosauer · Posted: Fri Aug 26, 2011 4:05 pm

try changing

01 WS-TEXT

to be a subordinate element under a different lvl-01.

dbzTHEdinosauer · Posted: Fri Aug 26, 2011 4:15 pm