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 Sum the fields in particular format f... sharana64 DFSORT/ICETOOL 9 Fri Jan 05, 2018 1:11 am
No new posts Conversion of DLI update Jobs as BMP ... Gopinath Shanmugam IMS DB/DC 3 Wed Dec 20, 2017 12:02 pm
No new posts Conversion of UTF-8 to EBCDIC muralikrishnan_new COBOL Programming 1 Tue Nov 21, 2017 5:33 pm
No new posts Mainframe Blocks to Tracks conversion upendrasri JCL & VSAM 1 Sat Nov 18, 2017 10:52 am
This topic is locked: you cannot edit posts or make replies. Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm

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