moving values from CICS screen to database

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

In CICS screen I am giving the values as below:-

PLAN NAME vod298
LOCAL CALL RATE 12354
LONG DISTANCE CALL RATE 56879
ISD CALL RATE 45143
MONTHLY RENTAL 215
ROAMING CHARGES 45645
LCL SMS CHARGE 31321
STD SMS CHARGES 23154
ISD SMS CHARGES 65487
FREE CALLS 641
FREE SMS 131

Now I am inserting this values into the database...
When I am checking the database, I am getting the values as below:-

TBS_PLAN_NAME VOD298
TBS_LCALL_RATE 354.00
TBS_SDCALL_RATE 879.00
TBS_ICALL_RATE 143.00
TBS_LSMS_RATE 321.00
TBS_LDSMS_RATE 154.00
TBS_ISMS_RATE 487.00
TBS_RMNG_RATE 645.00
TBS_MNTH_RENTAL 215
TBS_FREE_SMS 131
TBS_FREE_CALLS 641
The problem is that if I am giving value as 12354 it is taking as 354.00
In creating table, I am using the DEC(5,2).

I am not able to understand the reason behind this.

Please give the solution what to do????

dbzTHEdinosauer · Posted: Mon May 04, 2009 4:13 pm

what is the definition of your host variables?

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

I am not using any host variables.

Directly moving values from CICS to database.

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

I tried using the host variables and gave their definition as
PIC 9(3).9(2).

Showing the same values.

dbzTHEdinosauer · Posted: Mon May 04, 2009 4:40 pm

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

dbzTHEdinosauer · Posted: Mon May 04, 2009 4:54 pm

try using 9(3)V9(2)
instead of 9(3).9(2)

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

I tried using 9(3)V9(2), but the same error.

Below is the display giving CEDF on and then running:-

Robert Sample · Posted: Mon May 04, 2009 7:48 pm

OK, the definition is (5,2) and your value is 45613. Let's see ... there is no decimal point in 45613 so the implied decimal point will be after the 3 (absent anything to change that) ... so now we have 45613.00 based on the data definition ... oops, too many characters before the decimal point so let's chop it down and now we have 613.00

dbzTHEdinosauer · Posted: Mon May 04, 2009 7:52 pm

ok,

you are losing positions because your decimal alignment is not correct
either because of PIC definition
or your manipulation of the data.

for one field/column for which you are having trouble, please provide

the screen input field definition
the host variable definition
the column defintion

with that info we can provide you some guidance.

Mickeydusaor · Posted: Tue May 05, 2009 3:40 am

DEC(5,2). this statement set up for 5 places and 2 of them are the
decimal position. 12345 work then be 123.45. the first postion is the length of the field and the next is the implied decimal.

Robert Sample · Posted: Tue May 05, 2009 3:44 am

But it depends on what is moving the data; 12345 may be treated as 123.45 or as 345.00 depending. It appears the O/P was expecting the first case and got the second case. Without more details, such as the language being used to interact with the CICS map, that's about all we can say. Both move forms are valid and occur for different languages and variable definitions.

Vishu · New User Joined: 23 Mar 2009 Posts: 22 Location: Bangalore

Even I tried a similar move from CICS screen to the Table sometimes back. It went as under:
1. BMS: the attribute was set as (UNPROT,NUM).
2. Table: Datatype was decimal(7,2) not null .
3. COBOL-CICS-DB2 program:
data was accepted from the screen and directly moved to table as:

aishwarya_20 · New User Joined: 19 Nov 2008 Posts: 57 Location: pune

When you are receiving data from CICS screen then what is the defination of ADJAM3I in the map i.e. what Picture clause is there?

Vishu · New User Joined: 23 Mar 2009 Posts: 22 Location: Bangalore

aishwarya_20 · New User Joined: 19 Nov 2008 Posts: 57 Location: pune

It means if you declare hot variable as x(5) then it will be as per your expectation.

Vishu · New User Joined: 23 Mar 2009 Posts: 22 Location: Bangalore

aishwarya_20 · New User Joined: 19 Nov 2008 Posts: 57 Location: pune

I metioned length as 5 which is pointing to your problem. In your problem you were having DEC(5,2). So in your program you can move data to PIX X(5). It should give correct result.

Vishu · New User Joined: 23 Mar 2009 Posts: 22 Location: Bangalore

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

Hi all,

Thanks,

But the problem is still not solved...

Robert Sample · Posted: Wed May 06, 2009 2:45 pm

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

Map Definitions will take 'X'.

now in the map, I can enter only 5 values at max.

I am giving 12345 in the map

Now In the program I am using this input value and moving directly into database:-

dick scherrer · Posted: Wed May 06, 2009 11:49 pm

Hello,

What part of this

Raghu navaikulam · Posted: Thu May 07, 2009 1:23 am

Hi hills

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.

hills · New User Joined: 27 Apr 2009 Posts: 8 Location: Bangalore

Hi Raghu,

Thanks, the problem is solved. I used PICIN. Data is being moved correctly from CICS screen to database.