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
 
Amount field conversion - PD to Display format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
vijikesavan

Active User


Joined: 04 Oct 2006
Posts: 118
Location: NJ, USA

PostPosted: Tue Apr 24, 2007 6:20 pm    Post subject: Amount field conversion - PD to Display format
Reply with quote

Hi,
I have two amount fields to be formatted as given below.
Currently a Cobol program does this using Move statement, I want to move this to Sort.
Code:
10    CAS-MONEY-AM                  PIC S9(15)V99 COMP-3.
 converted to the format as
05  XOP-MONEY-AM.                         
    10  XOP-MONEY-SIGN           PIC X.   
    10  XOP-MONEY-WHOLE          PIC 9(14).
    10  XOP-MONEY-DEC-PT         PIC X.   
    10  XOP-MONEY-DEC            PIC 9(2).




Code:
10    CAS-QUANTITY-AM               PIC S9(13)V9999     
                                                  COMP-3.
converted to the format as
05  XOP-QUANTITY-AM.                       
    10  XOP-QTY-SIGN             PIC X.     
    10  XOP-QTY-WHOLE            PIC 9(12).
    10  XOP-QTY-DEC-PT           PIC X.     
    10  XOP-QTY-DEC              PIC 9(4). 


I did go thru the edits available, but not able to figure out the one which suits my requirement.pls help.
Any pointers will be of great help.
Thanks,
Viji
Back to top
View user's profile Send private message

vijikesavan

Active User


Joined: 04 Oct 2006
Posts: 118
Location: NJ, USA

PostPosted: Tue Apr 24, 2007 8:07 pm    Post subject: Re: Help Needed -Amount field conversion - PD to Display for
Reply with quote

Hi All,
Pls ignore this request.
I found the answer myself
a simple
Code:
EDIT=(SIIIIIIIIIIII.II),SIGNS=(+,-)
worked.

Thanks,
Viji
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm

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