Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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
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    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

mdtendulkar

Active User


Joined: 29 Jul 2003
Posts: 238
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: 7130
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
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 Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm
No new posts Convert rows and column into JSON for... Dinesh Manivannan DB2 2 Sun Sep 03, 2017 6:50 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts FTP data transfer from PC to Mainfram... AJAYREDDY All Other Mainframe Topics 8 Wed Aug 23, 2017 9:59 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us