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
 

 

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 Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts How to pick only YYMMDD from DATE1P (... atulbaviskar SYNCSORT 7 Wed Mar 22, 2017 11:39 am
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts Display FTP Session Count within TSO Yolanda Harvey TSO/ISPF 3 Fri Mar 10, 2017 10:31 pm


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