Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

move alphanumeric values to comp-3

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

New User


Joined: 21 May 2008
Posts: 22
Location: chennai

PostPosted: Wed Feb 18, 2009 12:17 pm    Post subject: move alphanumeric values to comp-3
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    Post subject:
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    Post subject:
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    Post subject:
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    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 Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Compare two files and subtract values ameetmund DFSORT/ICETOOL 7 Fri Mar 31, 2017 3:35 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us