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
 
SYNCSORT: OUTREC Numeric edited field

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

New User


Joined: 02 Aug 2007
Posts: 18
Location: Kolkata

PostPosted: Mon Jan 10, 2011 4:54 pm    Post subject: SYNCSORT: OUTREC Numeric edited field
Reply with quote

I have an input-file, with a field
IN-AMT PIC S9(05)V999 SIGN IS LEADING SEPARATE CHARACTER.

The first 2 values are:
+00112.738
+00024.119

When I used the SYNCSORT to download it to a output file, using:

OUTREC FIELDS=(001:197,08,ZD,
010:C';',

The output I get is:

112730-;
24110-;

i.e.
1. Decimal is not printed
2. Negative sign coming in the end
3. LSB is truncated


Please note that increasing the input-field length , i.e using
OUTREC FIELDS=(001:197,09,ZD,
results in S0C7

Is there any way, apart from using EDIT=TTT.TTT
using which I can get the same output as input
like the way we use ZD,M4?
Back to top
View user's profile Send private message

nareshdacha

New User


Joined: 12 Jan 2010
Posts: 66
Location: US

PostPosted: Mon Jan 10, 2011 6:31 pm    Post subject: Reply to: SYNCSORT: OUTREC Numeric edited field
Reply with quote

Try this out.....


SORT FIELDS=COPY
OUTREC FIELDS=(1:1,10,SFF,EDIT=(STTTTT.TTT),SIGNS=(+,-))
Back to top
View user's profile Send private message
Arun Raj

Moderator


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

PostPosted: Tue Jan 11, 2011 11:30 am    Post subject:
Reply with quote

nareshdacha,

The field under question occupies ONLY 9 bytes and NOT 10 bytes as in your post.

dipakgoyal,

I believe this would work for you.
Code:
OUTREC FIELDS=(1:197,9,ZD,EDIT=(STTTTT.TTT),SIGNS=(+,-))
Back to top
View user's profile Send private message
dipakgoyal
Warnings : 1

New User


Joined: 02 Aug 2007
Posts: 18
Location: Kolkata

PostPosted: Thu Jan 13, 2011 4:10 pm    Post subject:
Reply with quote

Thanks Arun
It solves the purpose
Back to top
View user's profile Send private message
Arun Raj

Moderator


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

PostPosted: Fri Jan 14, 2011 11:05 pm    Post subject:
Reply with quote

Youre 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 sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am

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