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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm


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