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

Help Needed - Regarding data movement
IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
tushar_study

New User


Joined: 01 Feb 2007
Posts: 30
Location: Mumbai
PostPosted: Fri May 01, 2009 9:17 pm
 Reply with quote
Hi ,

I have the following Working storage declaration :

01 ws-N pic 9(03) value 003.

01 ws-A pic X(03) .


I need to move ws-N to ws-A(as i need to display only 3 and not 003 on a report.Can some1 please help.


Thanks in advance,
Tushar
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
PostPosted: Fri May 01, 2009 9:27 pm
 Reply with quote
tushar_study wrote:
I need to move ws-N to ws-A(as i need to display only 3 and not 003 on a report.
What do you want where the zeros were?
What if the number was 303?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
PostPosted: Fri May 01, 2009 9:38 pm
 Reply with quote
RTFM - look for EDIT or EDIT MASK
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
PostPosted: Fri May 01, 2009 9:42 pm
 Reply with quote
tushar_study wrote:
Hi ,

I have the following Working storage declaration :

01 ws-N pic 9(03) value 003.

01 ws-A pic X(03) .


I need to move ws-N to ws-A(as i need to display only 3 and not 003 on a report.Can some1 please help.


Thanks in advance,
Tushar


I would suggest that you look in the COBOL manual for the PIC clause.
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 How to save SYSLOG as text data via P... All Other Mainframe Topics 4
No new posts Store the data for fixed length COBOL Programming 1
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts Check data with Exception Table DB2 0
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us