View previous topic :: View next topic
|
Author |
Message |
jayateerth
New User
Joined: 06 Nov 2008 Posts: 2 Location: mumbai
|
|
|
|
Hi,
Please let me know how the data movement from comp-3 to comp-4 takes place. I have the following variables from which the data is to be moved-
VarA PIC S9(3)V999 COMP-3.
VarB PIC S9(6)V99 COMP-4.
I am moving value of VarA to VarB |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
top of the page are buttons for manuals. look for a cobol application programmers guide. |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
Code: |
VarB PIC S9(6)V99 COMP-4. |
Are you sure if such a declaration is possible? I mean use of V in a COMP-4 item. |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Enterprise COBOL Programming Guide wrote: |
BINARY, COMP, and COMP-4 are synonyms. |
If that's the case, what's wrong in having a "V"? It'll be just like moving a COMP-3 item to a COMP item. I can't see anything other than the 3rd decimal place getting truncated and some leading zeroes. |
|
Back to top |
|
|
jayateerth
New User
Joined: 06 Nov 2008 Posts: 2 Location: mumbai
|
|
|
|
Yes. I have seen it in use in few programs |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
I always thought only COMP-5 among the binary items can have scaling factor, obviously I misinterpreted the manual.
Thanks arun. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Quote: |
I always thought only COMP-5 among the binary items can have scaling factor, obviously I misinterpreted the manual. |
You're misinterpreting in more than one way -- P is the scaling factor, V is assumed decimal place. The presence of a P in the PICTURE implies a V, but a V can be present without a P (and frequently is). Furthermore, from the Language Reference:
Quote: |
The PICTURE of a computational item can contain only:
9
One or more numeric character positions
S
One operational sign
V
One implied decimal point
P
One or more decimal scaling positions
COMPUTATIONAL-1 and COMPUTATIONAL-2 items (internal floating-point) cannot have PICTURE strings. |
|
|
Back to top |
|
|
|