Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

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

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

what is the most common way of building queue-id of a tsq?

1024


what are the differences between and exec cics xctl and an exec cics link command?

1231


What are the cics transactions?

966


Define exec cics retrieve?

1110


Explain how do you dynamically set the cursor position to a specific field?

1009


name the command that is used to dump the main storage areas related to a task?

1025


what are the thress bms options?

1152


what are the six different type of argument values in cobol that can be placed in various options of a cics command?

1205


Explain the function of the cics translator?

987


What does EIB mean in CICS?

1112


What are the types of important programs that are used in the cics?

984


What is program reentrance?

1093


Can QSAM files be accessed from CICS?

1077


Can dynamic calls be used in CICS?

1065


Define an aey9 abend?

1142