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
 
ZD to PD conversion

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Prajesh_v_p

Active User


Joined: 24 May 2006
Posts: 133
Location: India

PostPosted: Tue Feb 09, 2010 5:14 am    Post subject: ZD to PD conversion
Reply with quote

Hi all,

I have a file which has the input data as below:

+000002368+01
+000034630+01

I need to convert this data into packed decimel format. I used the below sort card and the results I am getting is as below:
1,10,ZD,TO=PD,LENGTH=5,11,3,ZD,TO=PD,LENGTH=2

output data in hex on format(last nibble is coming as F, but expected to be C for postitive numbers and also an E is coming at the start of 01)
....±\.
00038E1
0026F0F
-------
...Ä.\.
00360E1
0043F0F

Any issues wity my sort card?

Thanks!
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: Tue Feb 09, 2010 5:22 am    Post subject:
Reply with quote

Those are NOT ZD values. They are FS values.

With DFSORT, the correct control statements would be:

Code:

  OPTION COPY                                               
  INREC BUILD=(1,10,FS,TO=PD,LENGTH=5,11,3,FS,TO=PD,LENGTH=2)


This would give you the following output (in hex):

Code:

000002368C001C    <--- first record

000034630C001C    <--- second record 


If you're getting an F sign, then you must be using Syncsort, not DFSORT. DFSORT gives a C sign for TO=PD automatically. Syncsort gives an F sign.
Back to top
View user's profile Send private message
Prajesh_v_p

Active User


Joined: 24 May 2006
Posts: 133
Location: India

PostPosted: Tue Feb 09, 2010 9:00 am    Post subject:
Reply with quote

Hi Frank,

As you said, we have Synsort. sorry for that confusion.

But even with FS, I am getting the result as below:

Code:
--------
....±.."
00038017
0026F0FF
--------
...Ä...?
00360016
0043F0FF


Any hints?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Feb 09, 2010 9:41 am    Post subject:
Reply with quote

Hello,

Suggest you look at this previous topic:
http://ibmmainframes.com/viewtopic.php?t=44194

or this one:
http://ibmmainframes.com/viewtopic.php?t=44520

You want PDC rather than PD.
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 -> JCL & VSAM 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 File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm

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