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

Amount field conversion - PD to Display format


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts 10 byte RBA conversion DB2 2
No new posts 10 byte RBA conversion -non applicati... JCL & VSAM 1
Search our Forums:

Back to Top