I think Anna level number 49 does not matter here. I think the problem is

I just want to ask why does the variable I passed in a
dclgen of sql that has a data type of varchar which has a
maximum length is 250 is truncated,,

Here is the code..

DCLGEN of rsauud01 table
01 dataarea
43 data-area-len pic s9(4).
43 data-area-text pic x(250).
MYVARIABLE.
01 DATAAREA1 pic x(250).

move 250 to data-area-len of dataarea of rsauud01
MOVE DATA-AREA1 TO data-area-text of dataarea of rsauud01

---
but it is always trucated everytime I insert it in the table
by the way it is a cobol-cics program

Question Posted / virender

2 Answers
5512 Views
I also Faced
E-Mail Answers

Answer Posted / virender

I think Anna level number 49 does not matter here. I think
the problem is because of using "of dataarea of rsauud01"
with the move statement.

Just use
move 250 to data-area-len
MOVE DATA-AREA1 TO data-area-text

Please let me know if it worked.

Is This Answer Correct ?

3 Yes

1 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

Can you define aica abend?

1152

Kindly specify the pic clause for the hhmmss type of data fields?

1066

Explain processing program table(ppt)?

1146

Explain the primary significance of intra-partition and extra-partition tdqs ?

1071

What is commarea (communications area)?

1007

Sync points cannot be requested by the application programs? State true or false

1157

Explain how do you access storage outside your cics program?

966

when an xctl is done, does the tranid change ? Is a new task created ? Does it cause an implicit syncpoint to be issued ?

1225

explain the means of supporting pseudo conversation programming. (Eg. Storing and restoring of states, control flow, error handling)?

1065

Can you define temporary storage?

1130

Explain the use of DCT ?

1073

Highlight the difference between a symbolic map and physical map?

1123

Explain how and where is the twa size set?

1083

Code the related portions of cics/cobol-i programs to gain addressability to twa area assigned to a particular task. Assme that the size of twa area is 300bytes. What are the advantages if cobol-ii is used in the place of cobol?

1139

How can you access esds files from cics?

1106