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
 
Convert pic 9 (18).9 (2) to packed decimal through Sort

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

New User


Joined: 07 Oct 2011
Posts: 6
Location: INDIA

PostPosted: Thu Feb 12, 2015 6:44 pm    Post subject: Convert pic 9 (18).9 (2) to packed decimal through Sort
Reply with quote

Hi,

I need to sum the field which has equivalent cobol declaration as Pic 9 (18).99 through Sort. I tried converting the field directly to PD using below code, but the sum field operation failed with S0C7 as the decimal conversion is not happening properly. Can anyone suggest me a method to convert the decimal data to packed decimal through sort ?

Conversion I used:
Outrec fields=(1,90,91,21, ZD,TO=PD,Length=11)

Sample value:
000000000000002645.56
000000000000003600.05

Thanks in advance

Regards,
Praseetha
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7314

PostPosted: Thu Feb 12, 2015 6:59 pm    Post subject: Reply to: Convert pic 9 (18).9 (2) to packed decimal through
Reply with quote

I wonder when I see definitions like that (which require the use of compiler option ARITH(EXTEND). If you have 18 significant digits, what use are two decimal places? If two decimal places are significant, then you'll have a considerable number of leading zeros.

Anyway...

Please copy/paste from your emulator, don't re-type. We don't want to chase typos. Please use the Code tags.

Have a look at the Fields Box sticky at the top of the forum.

A "." is not valid in a ZD, so you are using an incorrect field-definition. If you try with UFF instead, see if you get what you want.
Back to top
View user's profile Send private message
Prase

New User


Joined: 07 Oct 2011
Posts: 6
Location: INDIA

PostPosted: Mon Feb 16, 2015 10:26 am    Post subject:
Reply with quote

Thank you Bill.. that worked..!!! icon_biggrin.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 -> 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 Build SQL query using SORT balaji81_k DFSORT/ICETOOL 2 Mon Feb 18, 2019 9:56 am
No new posts Convert CICS Modules to AMODE ANY CICSWOLF PL/I & Assembler 6 Fri Feb 08, 2019 7:10 pm
No new posts Build Dynamic Sort output and limit '... balaji81_k DFSORT/ICETOOL 2 Sat Feb 02, 2019 4:40 am
This topic is locked: you cannot edit posts or make replies. PARAMETER 'F1' IS UNIDENTIFIED error ... Poha Eater DFSORT/ICETOOL 14 Fri Feb 01, 2019 2:39 pm
No new posts SORT INNER JOIN [F1] OUT OF SEQ ERROR balaji81_k DFSORT/ICETOOL 8 Wed Jan 30, 2019 3:21 am

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