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
 
PD TO ZD CONVERSION WITHOUT SIGN BIT

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

New User


Joined: 05 Dec 2007
Posts: 82
Location: chennai

PostPosted: Thu Sep 24, 2009 9:06 pm    Post subject: PD TO ZD CONVERSION WITHOUT SIGN BIT
Reply with quote

Hi,
My requirement is to convert Packed decimal format to Zoned decimal format without sign. Im using the sort card-

OUTFIL FILES=01,REMOVECC,
HEADER1=(‘ XXXXXXXX ‘),
HEADER2=(02:C'DIV-ID',
08:C' BENANO',
17:C' ALRVL-SW',
29:C' ALRVL-OR',
41:C' PCS-SW',
53:C' PCS-OR',
65:C' PCH-SW',
77:C' PCH-OR',
89:C' PHRS-SW',
101:C' PHR-OR',
113:C' PHR-SW',
125:C' PHR-OR'),
OUTREC=(4:1,03,PD,TO=ZD,LENGTH=4,
09:05,05,PD,TO=ZD,LENGTH=9,
28:9,1,
40:10,1,
52:11,1,
62:12,02,PD,TO=ZD,LENGTH=3,
76:14,1,
86:15,02,PD,TO=ZD,LENGTH=3,
100:17,1,
112:18,1,
124:19,1,
136:20,1)
SORT FIELDS=COPY

I'm getting zoned decimal fields in signed format (123A instead of 1231).
I did read other forums regarding this and tried using EDIT, SFF but it did not work. Please advise.

Thanks,
Anand
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: Thu Sep 24, 2009 9:13 pm    Post subject:
Reply with quote

If you are getting a C sign for Zd instead of an F sign, then you're using Syncsort, not DFSORT. DFSORT gives an F sign for TO=ZD. Try using TO=ZDF. And since you're using Syncsort, please post in the JCL Forum, not in the DFSORT Forum.
Back to top
View user's profile Send private message
lanand_hps

New User


Joined: 05 Dec 2007
Posts: 82
Location: chennai

PostPosted: Thu Sep 24, 2009 9:27 pm    Post subject:
Reply with quote

Yeah.. Thanks Frank. It is SYNCSORT. Posted in JCL forum.
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: Thu Sep 24, 2009 9:33 pm    Post subject:
Reply with quote

Interesting. Even though you are using Syncsort, I gave you the solution (use TO=ZDF), but you ignored it.
Back to top
View user's profile Send private message
lanand_hps

New User


Joined: 05 Dec 2007
Posts: 82
Location: chennai

PostPosted: Fri Sep 25, 2009 9:45 am    Post subject:
Reply with quote

It is working.. Thanks Frank..
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 Conversion of DLI update Jobs as BMP ... Gopinath Shanmugam IMS DB/DC 3 Wed Dec 20, 2017 12:02 pm
No new posts Conversion of UTF-8 to EBCDIC muralikrishnan_new COBOL Programming 1 Tue Nov 21, 2017 5:33 pm
No new posts Mainframe Blocks to Tracks conversion upendrasri JCL & VSAM 1 Sat Nov 18, 2017 10:52 am
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm

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