View previous topic :: View next topic
|
Author |
Message |
vijikesavan
Active User
Joined: 04 Oct 2006 Posts: 118 Location: NJ, USA
|
|
|
|
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 |
|
|
vijikesavan
Active User
Joined: 04 Oct 2006 Posts: 118 Location: NJ, USA
|
|
|
|
Hi All,
Pls ignore this request.
I found the answer myself
a simple
Code: |
EDIT=(SIIIIIIIIIIII.II),SIGNS=(+,-) |
worked.
Thanks,
Viji |
|
Back to top |
|
|
|