IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

move alphanumeric values to comp-3


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
mighty

New User


Joined: 21 May 2008
Posts: 26
Location: chennai

PostPosted: Wed Feb 18, 2009 12:17 pm
Reply with quote

how to move alphanumeric values to comp-3?

Here is my requirement

01 A-ACCT-NBR PIC S9(10) COMP-3.

01 B-ACCT-NBR PIC X(10)
VALUE SPACES.

MOVE B-ACCT-NBR TO A-ACCT-NBR
Back to top
View user's profile Send private message
shankar.v

Active User


Joined: 25 Jun 2007
Posts: 196
Location: Bangalore

PostPosted: Wed Feb 18, 2009 1:44 pm
Reply with quote

mighty,

Please refer the below link.

http://ibmmainframes.com/viewtopic.php?t=38051

Thanks,
Shankar.
Back to top
View user's profile Send private message
Bharath Bhat

Active User


Joined: 20 Mar 2008
Posts: 283
Location: chennai

PostPosted: Wed Feb 18, 2009 1:59 pm
Reply with quote

Quote:
how to move alphanumeric values to comp-3?


What are you trying to achieve? What is the need for you to do that?

You can use redefines.
Back to top
View user's profile Send private message
aishwarya_20

New User


Joined: 19 Nov 2008
Posts: 57
Location: pune

PostPosted: Wed Feb 18, 2009 2:41 pm
Reply with quote

Either you can use REDEFINES clause or you can declare another variable which is numeric. Then first move COMP-3 value to numeric and numeric to alphanumeric. This should work.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Null values are considered in Total c... DFSORT/ICETOOL 6
No new posts COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
No new posts How to move the first field of each r... DFSORT/ICETOOL 5
Search our Forums:

Back to Top