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
 

 

Signed Character

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
som_infotech

New User


Joined: 25 Feb 2006
Posts: 38
Location: chennai-india

PostPosted: Sat Aug 22, 2009 2:07 am    Post subject: Signed Character
Reply with quote

Hi,

I have the below field in numeric field,

01 VarA PIC S9(7)V99 COMP-3.

I have negative values as -133.90.

So to report it I used the below logic in EZ,,

Code:
Input file
NO-PRIOR 425 5 P 

Output file
O-NO-PRIOR  72 9 N MASK('ZZZZZZ9.99-')

working storage
WS-NO-PRI W 9 N MASK('ZZZZZZ9.99-').

Procedure

WS-NO-PRI = NO-PRIOR
O-OR-PRIOR = WS-NO-PRI


But I am not getting the negative values in the report.

whts the reason
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Aug 22, 2009 3:02 am    Post subject:
Reply with quote

Hello,

Quote:
I have negative values as -133.90.
Is the data actually packed or is the data received as posted?

Why is a working storage field used?

It may help if you post the content of the input no-prior in hex.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
No new posts Continuation Character ballaswaroop SYNCSORT 8 Thu Aug 25, 2016 4:46 pm
No new posts Adding a descending character to a file Steve Ironmonger DFSORT/ICETOOL 3 Fri Jul 15, 2016 4:57 pm
No new posts Moving character data to smallint in db2 rikdeb DB2 5 Thu Jul 14, 2016 12:38 am
No new posts SIGNED DECIMAL TO COMP-3 using cobol ... ram_vizag COBOL Programming 1 Tue Mar 01, 2016 11:32 pm


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