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
 

 

Redefines the numeric value to an alphanumeric...

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

New User


Joined: 25 Aug 2006
Posts: 6

PostPosted: Fri Aug 25, 2006 9:30 am    Post subject: Redefines the numeric value to an alphanumeric...
Reply with quote

guys can you help me redefines these numeric value to an alphanumeric...

01 WS-ACCT-BAL PIC Z,ZZ9.99.
01 WS-TEMP-BAL X(10).

i would like WS-TEMP-BAL to contain the same value of WS-ACCT-BAL.

is it possible?

tnx in advance!
Back to top
View user's profile Send private message

senman

New User


Joined: 17 Aug 2006
Posts: 17
Location: Chennai

PostPosted: Fri Aug 25, 2006 10:54 am    Post subject:
Reply with quote

Hope the following code helps

01 WS-ACCT-BAL PIC Z,ZZ9.99.
01 WS-TEMP-BAL redefines WS-ACCT-BAL PIC X(10).
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Aug 27, 2006 6:51 am    Post subject:
Reply with quote

Hi Demire,

Just curious, if ws-acct-bal contains 1,234.56 what 10 chars do you expect to see in ws-temp-bal?
Back to top
View user's profile Send private message
Damire

New User


Joined: 25 Aug 2006
Posts: 6

PostPosted: Tue Aug 29, 2006 1:42 pm    Post subject: Re: Redefines the numeric value to an alphanumeric...
Reply with quote

tnx guys for helping.. dat really solved my problem

@mmwife i just max it to 10 but i'm really not expecting other values on it...

tnx again guys...
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 Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts Casting a Binary Number to Numeric in... Bob Steinkraus Java & MQSeries 6 Tue Aug 09, 2016 5:58 pm


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