Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Want to convert these comp-3 to ZD format

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

New User


Joined: 04 Apr 2006
Posts: 86
Location: Pune

PostPosted: Wed May 02, 2007 3:18 pm    Post subject: Want to convert these comp-3 to ZD format
Reply with quote

Hi,
I have a VB input file, in that from 178 to 250 i have comp-3 variables. I want to convert these comp-3 to ZD format.
How can I do this?
Input File record Length:1000
Blk Size-27998
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Wed May 02, 2007 5:20 pm    Post subject:
Reply with quote

Topic discussed earlier. Search the forum for the previous posts.
Back to top
View user's profile Send private message
mahi

New User


Joined: 04 Apr 2006
Posts: 86
Location: Pune

PostPosted: Wed May 02, 2007 5:30 pm    Post subject:
Reply with quote

Thanks murali for your response. I have searched the forum before posting this problem.
I have given the code:
OUTREC FIELDS=(1,4,178,72,PD,TO=ZD,LENGTH=72
But I got the error at 72:
CTL1CNTL :
OUTREC FIELDS=(1,4,178,72,PD,TO=ZD,LENGTH=72)

WER428I CALLER-PROVIDED IDENTIFIER IS "0001"
WER271A OUTREC STATEMENT : NUMERIC FIELD ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000 .

While converting from PD to ZD how can I give the Length, Is it equivalent to input length?
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: Thu May 03, 2007 1:49 am    Post subject:
Reply with quote

Hello,

Please note that your topic has been moved as your post concerns Syncsort.

I don't believe you can convert "all of them" in one field definition - how would the sort know if your packed fields were 2,3,5,7,etc bytes long? You need to define the starting position and length of each field.

I believe your control info will include something like
Code:

 OUTREC FIELDS=(. . .   178,lth,PD,ZD,nxt fld pos, etc)
 


where lth is the length of the first packed field in bytes and nxt fld pos is the byte-length of the next packed field and so on. . .
Back to top
View user's profile Send private message
mahi

New User


Joined: 04 Apr 2006
Posts: 86
Location: Pune

PostPosted: Thu May 03, 2007 3:22 pm    Post subject:
Reply with quote

Thanx Dick..
I am using ICETOOL to do the above task...
I have one doubt My input field id s9(9)v9(2) comp-3. to convert this to ZD how much length I need to specify..Is it 6?
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Thu May 03, 2007 3:39 pm    Post subject:
Reply with quote

Zoned decimal should be 12 (Including a decimal point), correct me if I am wrong..
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: Thu May 03, 2007 7:40 pm    Post subject:
Reply with quote

Hello Mahi,

The length of the "output" field (ZD) will be 11 assuming the sign is in the high-order nibble of the low order byte and there is still an implied decimal place rather than an explicit decimap point (which is the definition of zoned decimal). A zoned decimal number takes one byte for each digit in the packed field being expanded. If a minus sign or a decimal-point is in the expanded field, it is an edited field rather than zoned decimal.

At your site ICETOOL is an alias for Syncsort's SYNCTOOL. Your job does not really use the DFSORT/ICETOOL (so be wary of any of the documented features of them - both products do not have the same features and some of the "same" features are coded differently).
Back to top
View user's profile Send private message
mahi

New User


Joined: 04 Apr 2006
Posts: 86
Location: Pune

PostPosted: Fri May 04, 2007 4:47 pm    Post subject:
Reply with quote

Thank you dick...
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: Fri May 04, 2007 8:08 pm    Post subject:
Reply with quote

You're welcome icon_smile.gif
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 Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts How to pick only YYMMDD from DATE1P (... atulbaviskar SYNCSORT 7 Wed Mar 22, 2017 11:39 am
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts Convert current to hex value gopurs DFSORT/ICETOOL 4 Wed Feb 15, 2017 5:40 am
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us