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
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 |
Given below code, find the value of 'x'. Perform s001-x thru s001-y. s001-x. add 1 to x . s001-1x. ------- . s001-y. perform s001-1y 10 times . s001-1y. perform s001-2y 10 times . s001-2y. perform s001-x 10 times .
What are the steps you go through to a create a BMS executable?
By which CICS defined field can you determine the position of the cursor on the map ?
What is ASRAABEND in CICS?
Can you define mdt?
What are the advantage of Model Data Set Table: it will be help to which among this DCB; LRECL; DISP; SPACE?
In which table would you make an entry for a BMS map?
Which is the command used for terminating a browse operation?
What is the drawback of using HANDLE CONDITION?
Explain how do you dynamically set the cursor position to a specific field?
Explain the difference between cics program control table (pct) and cics processing program table (ppt)?
What is DFHBMSCA?