Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Quick way to convert this to either ZD or PD format

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
Taylortek

New User


Joined: 22 Mar 2008
Posts: 4
Location: Seattle

PostPosted: Sat Mar 29, 2008 10:52 pm    Post subject: Quick way to convert this to either ZD or PD format
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
References
PostPosted: Sat Mar 29, 2008 10:52 pm    Post subject: Re: Quick way to convert this to either ZD or PD format Reply with quote

mdtendulkar

Active User


Joined: 29 Jul 2003
Posts: 257
Location: USA

PostPosted: Sun Mar 30, 2008 5:48 pm    Post subject:
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 Moderator


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

PostPosted: Mon Mar 31, 2008 1:15 am    Post subject:
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    Post subject:
Reply with quote

Worked like a champ. Thanks again
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1