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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
Prajesh_v_p

Active User


Joined: 24 May 2006
Posts: 132
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
References
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 6001
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
Moved: Tue Feb 09, 2010 7:40 am by dick scherrer From DFSORT/ICETOOL to JCL
Prajesh_v_p

Active User


Joined: 24 May 2006
Posts: 132
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

Global Moderator


Joined: 23 Nov 2006
Posts: 13611
Location: 221 B Baker St

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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 Hours
Page 1 of 1