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
- 2 Answers
- 5380 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / anna
the variable shoud be under level 49 and pic comp.
01 dataarea.
49 data-area-len pic s9(4) comp.
49 data-area-text pic x(250).
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / 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 |
Can a tsq of one particular transaction be accessed from an alternate transaction?
What are the DB2 steps required to migrate a CICS DB2 program from source code to load module?
I have a Field which is of size 9(4). In the Screen if I enter the value for this field as 1234, it showing it as Valid. But if I enter only one or two digits, zeros should be appended in the remaining places. For example: When u enter 1 in the screen the output should be 0001. When you enter 12, output should be 0012. How to achieve this in the program?
What will be the length of the eibcalen ,if the transaction is used to cics first time?
What is the other way of terminating a transaction?
Have you entered any program names in PPT or PCT? If so How?
What are the common tables in cics and their usage?
plz tell me abt PF key and PA keys
What are the parameters that you have to give when you are using the CSSN transaction?
In an on-line environment, how can you prevent more than one user from accessing the same Transient Data Queue at the same time?
What is eib?
What tables must be updated when adding a new transaction and program?
COBOL 
