Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
sivarajkumarD

New User

Joined: 05 Jan 2006
Posts: 1

 Posted: Thu Jan 05, 2006 12:30 pm    Post subject: Problem with Fixed Bin(15) variable 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

 Posted: Sat Jan 28, 2006 5:24 pm    Post subject: FIXED BIN(15) cannot acccomodate a figure as large as 65535! Why dnt u use FIXED BIN(31) instead?? Sourabh
Warnings : 1

New User

Joined: 27 Sep 2005
Posts: 16

 Posted: Tue Jan 31, 2006 1:02 pm    Post subject: Re: Problem with Fixed Bin(15) variable 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

Posted: Wed May 03, 2006 7:13 pm    Post subject: Re: Problem with Fixed Bin(15) variable

 jawadshaik wrote: 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.

No, the output of the above code is

-25536
-25536
k_vikram07

New User

Joined: 23 Nov 2005
Posts: 35

 Posted: Fri Jun 09, 2006 5:13 pm    Post subject: Re: Problem with Fixed Bin(15) variable /*************************************/ 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.
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm Having a problem FTP'ng to the MF pahiker All Other Mainframe Topics 2 Fri Nov 10, 2017 8:20 pm Move from Comp3 variable to Edited Va... Revathy.nair0485 COBOL Programming 7 Fri Nov 03, 2017 3:30 pm Can a alphanumeric data be moved to a... nico_neoz COBOL Programming 10 Mon Oct 30, 2017 8:28 am LMINIT problem - not finding DDNAME Danielle.Filteau CLIST & REXX 7 Tue Sep 19, 2017 9:57 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us