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
 

 

Format conversion using DFSORT

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
kumarmca1

New User


Joined: 06 Jul 2009
Posts: 13
Location: chennai

PostPosted: Tue Aug 24, 2010 5:44 pm    Post subject: Format conversion using DFSORT
Reply with quote

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
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Tue Aug 24, 2010 6:03 pm    Post subject:
Reply with quote

Looks to me like your number starts in position 2 not in 1.
Back to top
View user's profile Send private message
kumarmca1

New User


Joined: 06 Jul 2009
Posts: 13
Location: chennai

PostPosted: Tue Aug 24, 2010 6:31 pm    Post subject: Reply to: Format conversion using DFSORT
Reply with quote

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
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Tue Aug 24, 2010 6:56 pm    Post subject: Re: Reply to: Format conversion using DFSORT
Reply with quote

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
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 991
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Tue Aug 24, 2010 7:00 pm    Post subject:
Reply with quote

00002.99 is not zoned decimal. I'd suggest you check out use of SFF and UFF formats.

Garry.
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Tue Aug 24, 2010 7:22 pm    Post subject:
Reply with quote

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
Code:
0000000299


Thanks,
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 File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts Match or compare two files in VB Format anatol DFSORT/ICETOOL 14 Thu Nov 03, 2016 7:41 pm
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm
No new posts How to get the remainder and quotient... vnktrrd DFSORT/ICETOOL 2 Mon Oct 31, 2016 10:59 am
No new posts Low values Results from VARCHAR FORMAT balaji81_k DB2 10 Thu Oct 20, 2016 1:18 am


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