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
 
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 File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm
No new posts Select numeric portion from CHAR data... balaji81_k DB2 6 Sat Aug 19, 2017 1:51 am
No new posts Validate if a Value from the file is ... balacsv2 COBOL Programming 8 Mon Jun 19, 2017 11:52 pm

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