Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
data movement from comp-3 to comp-4

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
jayateerth

New User


Joined: 06 Nov 2008
Posts: 2
Location: mumbai

PostPosted: Thu Nov 06, 2008 12:51 pm    Post subject: data movement from comp-3 to comp-4
Reply with quote

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
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

PostPosted: Thu Nov 06, 2008 1:11 pm    Post subject:
Reply with quote

top of the page are buttons for manuals. look for a cobol application programmers guide.
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Thu Nov 06, 2008 1:33 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2285
Location: @my desk

PostPosted: Thu Nov 06, 2008 1:58 pm    Post subject:
Reply with quote

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
View user's profile Send private message
jayateerth

New User


Joined: 06 Nov 2008
Posts: 2
Location: mumbai

PostPosted: Thu Nov 06, 2008 2:27 pm    Post subject: Reply to: data movement from comp-3 to comp-4
Reply with quote

Yes. I have seen it in use in few programs
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Thu Nov 06, 2008 2:43 pm    Post subject:
Reply with quote

I always thought only COMP-5 among the binary items can have scaling factor, obviously I misinterpreted the manual.
Thanks arun.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8195
Location: East Dubuque, Illinois, USA

PostPosted: Thu Nov 06, 2008 6:22 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm
No new posts Fetching data from JHS as per the cur... arunsoods All Other Mainframe Topics 4 Wed Nov 22, 2017 1:54 pm
No new posts Extract Record using range of Data scorp_rahul23 DFSORT/ICETOOL 3 Wed Nov 15, 2017 11:54 pm
No new posts CONDITIONAL USING COMP-2 WITH PROBLEMS. JOSUEGENTIL COBOL Programming 7 Wed Nov 08, 2017 11:13 pm
No new posts Updating data from one file to other!!! Vignesh Sid SYNCSORT 1 Mon Nov 06, 2017 2:42 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us