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

Redefines the numeric value to an alphanumeric...


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
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
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Convert HEX to Numeric DB2 3
No new posts Find a record count/numeric is multip... COBOL Programming 1
No new posts Handling the numeric data in unstring... COBOL Programming 18
No new posts convert alphanumeric PIC X(02) to hex... COBOL Programming 3
No new posts Numeric check on packed signed and un... COBOL Programming 4
Search our Forums:

Back to Top