Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
Quote:
But the problem is still not solved...
And you've been asked for data you haven't provided. If you're using CICS, you have a program that is being run when you enter the transaction name. The variable definitions in that language, and the data movement steps getting the values from the map and back, are absolutely critical to figure out your problem. Without them, we can't help.
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
Hello,
What part of this
Quote:
The variable definitions in that language,
was not clear?
As you have no idea what the problem is, you need to provide the info that was requested to try to help you. You do not need to decide what people should have - simply provide all of the requested info.
After this many iterations, it would probably be best if you copy/paste and "Code" all of the requested info in one reply so that people trying to help have everything available in one place.
To rectify this problem easily, you better define your map variable with PICIN. When using PICIN, you just specify the actual length of data
(eg. for DEC(5,2), PICIN='9(3)V99' ). Then you can move the data directly from the map variable(Host variable) to the database. Assume that you are not placing a decimal point in the map at the time of data entry. Make sure that the map is used for input only(MODE=IN).
If the MODE=INOUT, you have to code PICOUT also. PICOUT='9(3).99'. Here the length of PICIN and PICOUT will not satisfy(LENGTH=5). See the modified MACRO below.
Code:
ADJAM3 DFHMDF POS=(10,28),ATTRB=(FSET,UNPROT,NUM),COLOR=NEUTRAL, X
HILIGHT=UNDERLINE,LENGTH=6, X
PICIN='9(4)V99,PICOUT='9(3).99'
In this case you can enter 6 digits without putting a decimal point. What ever data you are entering, that will be right justified and the last two digits will be considered as part decimal point. Assume you are entering 123456, the actual data stored in the table will be 234.56. So care should be taken at data entry time. If the map is defined for input only, then there is no PICOUT, no mismatch of length.
There are other methods also to rectify your issue.
First you try this. If not satisfied, post your requirement. Someone will help you.