Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
shanmugapriya j

New User

Joined: 28 Dec 2006
Posts: 9
Location: chennai

 Posted: Fri Aug 21, 2009 12:56 pm    Post subject: OUTREC with EDIT command When I use the EDIT for the decimal values conversion SORT FIELDS=COPY OUTREC OVERLAY=(1:5,5,PD,EDIT=(STTTT.TT),SIGNS=(,-)) /* The output results: The decimal value (0.30) is displaying as (30). Can anyone help on this

Arun Raj

Moderator

Joined: 17 Oct 2006
Posts: 2353
Location: @my desk

 Posted: Fri Aug 21, 2009 1:13 pm    Post subject: Please post the HEX form of your 5 byte PD field.
shanmugapriya j

New User

Joined: 28 Dec 2006
Posts: 9
Location: chennai

 Posted: Fri Aug 21, 2009 2:16 pm    Post subject: The hex on Form of value 30 is 00000 0003C
Frank Yaeger

DFSORT Moderator

Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

Posted: Fri Aug 21, 2009 9:32 pm    Post subject:

 Quote: The decimal value (0.30) is displaying as (30). Can anyone help on this 00000 0003C

Huh? When I run your DFSORT statements with that input, I get the following output:

0000.30

So what do you mean its displaying as 30?

Note that PD value is actually stored as 30 and YOU are using the edit mask to interpret it as .30.
shanmugapriya j

New User

Joined: 28 Dec 2006
Posts: 9
Location: chennai

 Posted: Mon Aug 24, 2009 5:59 pm    Post subject: Thanks its working I have used OUTREC OVERLAY=(1:5,5,PD,EDIT=(SIIII.II),SIGNS=(,-)) instead of OUTREC OVERLAY=(1:5,5,PD,EDIT=(STTTT.TT),SIGNS=(,-)) Didn't use trailing zero thats the reason. Now it is perfect, Thanx for your help
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Need help with 002-030 ABEND in TSO R... Terry Tallian TSO/ISPF 0 Sat Mar 17, 2018 1:13 am OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm exec macro in the end of edit anatol CLIST & REXX 8 Fri Sep 22, 2017 5:10 am How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us