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

Author Message
kiran_65

New User

Joined: 01 Apr 2005
Posts: 46

 Posted: Sun Jan 14, 2007 6:17 pm    Post subject: assigning value in Comp-3 Variable in procedure division Hi All, I am declaring a variable as comp-3. I want to pass value into that. Suppose the value is 123456. how can I pass the value into that in the procedure division. please let me know the answer.

hey_its_me
Warnings : 1

New User

Joined: 23 Aug 2006
Posts: 14
Location: USA

 Posted: Sun Jan 14, 2007 6:32 pm    Post subject: Re: assigning value in Comp-3 Variable in procedure division Hi Kiran, If a variable is declared as comp-3, such that the case given below. 01 A pic 9(05) comp-3. This variable A uses [(5+1)/2] bytes amount of space for storing information. If you have to store a value of 123,456 into this variable, this declaration is just sufficient. This is because 3bytes of space means it can have a maximum value of (2^24)= 17*10^6 in it. After all comp, binary and comp-3 values are used mathematical calculations. Since it speeds up the calculations. With Regards, Anil Kumar
William Thompson

Global Moderator

Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

Posted: Sun Jan 14, 2007 6:43 pm    Post subject: Re: assigning value in Comp-3 Variable in procedure division

Hi
 kiran_65 wrote: I am declaring a variable as comp-3. I want to pass value into that. Suppose the value is 123456. how can I pass the value into that in the procedure division.
Are you refering to the MOVE verb? A simple "MOVE 123456 to variable-name" should work just fine.