|
View previous topic :: View next topic
|
| Author |
Message |
sudip_mitra
New User
Joined: 05 Apr 2006
Posts: 5
Location: India
|
|
|
|
Hi,
Anyone can help, How can I convert non redable amount field into Readable format. Example: as below (consider only amount field exist in input file and COBOL declaration is S9(09)V99.)
Input
***********
0009999990}
0009999990{
0009999990{
***********
output
***********
-000999999.00
+000999999.00
+000999999.00
***********
Please let me know what sort card need to write.
Thanks, |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Please DO NOT append your question onto the end of an existing one, especially a Sticky topic for the DFSORT reference materials.
Please run the code below and post the JES SYSOUT element so that we can see the sort product and release level that you have installed.
| Code: |
//SORTSTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY |
|
|
| Back to top |
|
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
sudip_mitra,
use the following DFSORT JCL
| Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
0009999990}
0009999990{
0009999990{
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC BUILD=(1,11,ZD,EDIT=(STTTTTTTTT.TT),SIGNS=(+,-))
//* |
|
|
| Back to top |
|
|
|
|
