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: 2361
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: 8344
Location: Dubuque, Iowa, 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 How to delete large data. Mounika Nemani DB2 1 Wed Jun 13, 2018 1:58 pm
No new posts Ways to share data between Cobol and ... Benchwarmer Java & MQSeries 3 Thu May 10, 2018 9:16 pm
No new posts 3270 Data stream error Benchwarmer CICS 6 Tue Apr 17, 2018 12:06 am
No new posts How to list data set names with diffe... murali.andaluri CLIST & REXX 10 Thu Apr 12, 2018 11:33 pm
No new posts Invalid XML character while producing... nikhil.bhole IBM Tools 4 Tue Mar 20, 2018 1:24 am

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