IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to convert COMP-3 to decimal using Syncsort


IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Susanta

Active User


Joined: 17 Nov 2009
Posts: 126
Location: India

PostPosted: Wed Mar 18, 2015 4:30 pm
Reply with quote

Hi

Need to convert S9(8)V9(2) USAGE COMP-3. to displayable decimal . could you please help. using syncsort.


tried with below card but gives error "WER268A OUTFIL STATEMENT : SYNTAX ERROR "

Code:
SORT FIELDS=COPY                                           
OUTFIL FNAMES=FINAL1,                                       
OUTREC BUILD=(1:C'1'                                             
             ,2:6,6,PD,TO=ZD,LENGHT=10),                           
       REMOVECC,HEADER1=('0',2:'xyzfile   ',12:DATE=(4MD-)),
       TRAILER1=('9',COUNT=(M11,LENGTH=10))


Code'd
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Mar 18, 2015 5:50 pm
Reply with quote

LENGHT. Fix the typo.

Please use the Code tags to preserve spacing in future posts, and ensure that the marker which indicates the location of the error appears in the correct place. To see what your posting looks like before submitting it, use the Preview button.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Mar 18, 2015 5:55 pm
Reply with quote

Having now code'd it, it looks a real mess.

Code:
 SORT FIELDS=COPY                                           
 OUTFIL FNAMES=FINAL1,                                       
        BUILD=(C'1',                                             
               6,6,PD,
                TO=ZD,
                LENGTH=10),                           
        REMOVECC,
        HEADER1=('0',2:'xyzfile   ',12:DATE=(4MD-)),
        TRAILER1=('9',COUNT=(M11,LENGTH=10))
Back to top
View user's profile Send private message
Susanta

Active User


Joined: 17 Nov 2009
Posts: 126
Location: India

PostPosted: Wed Mar 18, 2015 6:18 pm
Reply with quote

if i want to conver the PD to ZD with visible decimal pointer and leading +/- sign, how can i do that..
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Mar 18, 2015 6:21 pm
Reply with quote

Use EDIT= with the mask you want. Examples here, also all explained in your SyncSORT documentation. In future please try to post in the correct part of the forum.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> SYNCSORT

 


Similar Topics
Topic Forum Replies
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Keep leading zero(s) after convert fl... SYNCSORT 7
No new posts COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
Search our Forums:

Back to Top