|
View previous topic :: View next topic
|
| Author |
Message |
kumarmca1
New User
Joined: 06 Jul 2009
Posts: 13
Location: chennai
|
|
|
|
Hi,
I tried to use SORT utility with EDIT option to convert 00002.99 to 0000000299.But i got the output as
"0000000029"
my sort step was
| Code: |
//STEP2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
00002.99
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,8,ZD,EDIT=(TTTTTTTTTT))
/* |
can anyone please help me obtaining the correct output!!
Regards,
Muthu. |
|
| Back to top |
|
 |
Craq Giegerich
Senior Member
Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
|
|
|
|
| Looks to me like your number starts in position 2 not in 1. |
|
| Back to top |
|
|
kumarmca1
New User
Joined: 06 Jul 2009
Posts: 13
Location: chennai
|
|
|
|
I am getting the below error when i tried to start the number from position 1.
| Code: |
ICE751I 2 EF-K10929 F0-Q84357 DA-K26318
ICE185A 0 AN S0C7 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 3) |
Please help to sort out this error.
Thanks,
Muthu |
|
| Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA
|
|
|
|
| kumarmca1 wrote: |
I am getting the below error when i tried to start the number from position 1.
| Code: |
ICE751I 2 EF-K10929 F0-Q84357 DA-K26318
ICE185A 0 AN S0C7 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE C 3) |
Please help to sort out this error.
Thanks,
Muthu |
00002.99 is not a zoned decimal. |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
00002.99 is not zoned decimal. I'd suggest you check out use of SFF and UFF formats.
Garry. |
|
| Back to top |
|
|
sqlcode1
Active Member
Joined: 08 Apr 2010
Posts: 577
Location: USA
|
|
|
|
kumarmca1,
Use below...
| Code: |
//SORT01 EXEC PGM=SORT
//SORTIN DD *
00002.99
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,8,UFF,EDIT=(TTTTTTTTTT))
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D |
OUTPUT
Thanks, |
|
| Back to top |
|
|
|
|
