Problem with Fixed Bin(15) variable

sivarajkumarD · New User Joined: 05 Jan 2006 Posts: 1

Hi All,
I am using PL/1 MVS & VM V1R1 compiler.I want to store values upto
65535 in a variable declared as FIXED BINARY(15).UNSIGNED attribute is unavaible in this compiler.Is there a workaround to overcome this problem?

hsourabh · New User Joined: 24 May 2005 Posts: 12 Location: Z?rich

FIXED BIN(15) cannot acccomodate a figure as large as 65535!
Why dnt u use FIXED BIN(31) instead??

Sourabh

jawadshaik · New User Joined: 27 Sep 2005 Posts: 16

Hi

we can store more than 32500 value in bin fixed(15):

Dcl i bin fixed(31);
Dcl j bin fixed(15);
Dcl 1 k based(addr(i)),
2 k1 char(2),
2 k2 char(2);
Dcl k3 char(2) based(addr(j));
i = 40000;
k3 = k2;
put skip list(j);
put skip list(j);
put skip list(k)

now the i,k can be used in the place of j for the values greater the 32500.

This work around will work. try it out.

ravi1 · New User Joined: 27 Apr 2006 Posts: 11

k_vikram07 · New User Joined: 23 Nov 2005 Posts: 35

/*************************************/
DCL bin31 FIXED BIN(31);
DCL bin15 FIXED BIN(15);

DCL 1 temp1 BASED(ADDR(bin31)),
2 tmpdummy FIXED BIN(15),
2 tmpbin15 FIXED BIN(15);

tmpdummy = 0;

/***********************************/

Use bin31 for internal purposes for calculations. Programatically make sure that the value in bin31 is always positive and is in limits.
U will get the equivalent FIXED BIN(15) UNSIGNED value in tmpbin15.

-Vik.