IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Quick way to convert this to either ZD or PD format


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Taylortek

New User


Joined: 22 Mar 2008
Posts: 4
Location: Seattle

PostPosted: Sat Mar 29, 2008 10:52 pm
Reply with quote

I couldn't find this searching the site but it seems like it would be a common issue. I'm uploading and extract from a SQL database that contains both negative and positive integers. They come up with a fixed position of numbers followed by a - or a + (e.g. 000012545+ or 000012545-).

Is there a quick way to convert this to either ZD or PD format? I tried a few ways using the DFSORT conversion but the numbers keep coming out as positive.
Back to top
View user's profile Send private message
mdtendulkar

Active User


Joined: 29 Jul 2003
Posts: 237
Location: USA

PostPosted: Sun Mar 30, 2008 5:48 pm
Reply with quote

Hi Taylortek,

Please try following

SORT FIELDS=COPY
OUTREC FIELDS=(1:1,5,CST,PD)

It will convert Signed numeric with trailing separate sign into PD

Hope this helps

Regards
Mayuresh
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Mon Mar 31, 2008 1:15 am
Reply with quote

Quote:
Please try following

...


Mayuresh,

If you had followed your own advice and tried that, you would have found out that it doesn't work. That syntax is invalid. In the future, please try out your "solutions" with DFSORT before posting them. If you can't do that, then please don't post in this Forum.

Taylortek,

You can use a DFSORT job like this to do what you asked for. I assumed your numeric field was in positions 1-10. The output will be a 6-byte PD field in positions 1-6. Adjust as needed.

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file
//SORTOUT DD DSN=...  output file (FB/6)
//SYSIN    DD    *
  OPTION COPY
  SORT FIELDS=COPY
  INREC BUILD=(1:1,10,SFF,TO=PD)
/*
Back to top
View user's profile Send private message
Taylortek

New User


Joined: 22 Mar 2008
Posts: 4
Location: Seattle

PostPosted: Mon Mar 31, 2008 6:25 am
Reply with quote

Worked like a champ. Thanks again
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Keep leading zero(s) after convert fl... SYNCSORT 7
No new posts InfoSphere OPTIM CSV ouput vs DSNTIUA... IBM Tools 3
Search our Forums:

Back to Top