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

Syncsort to Convert records to Column
IBM Mainframe Forums -> SYNCSORT
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
sreejeshcs

New User


Joined: 28 May 2007
Posts: 31
Location: Pune
PostPosted: Sun Nov 03, 2013 2:50 am
 Reply with quote
I need a help to convert to the below row data to columns

I/P:
4770900777
4770979464
4770977464
4770220674
4779077492
4779249942
4779707770
4779406079
4779442744
4772704490
4772727777
4772727702

O/P
4770900777, 4770979464, 4770977464, 4770220674, 4779077492
4779249942, 4779707770, 4779406079, 4779442744, 4772704490
4772727777, 4772727702

Grouping of 5 records to Columns.

Can some one help?
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia
PostPosted: Mon Nov 04, 2013 10:29 am
 Reply with quote
Hi,

try this
Code:
  SORT FIELDS=COPY                                                 
  INREC IFTHEN=(WHEN=INIT,                                         
                OVERLAY=(11:SEQNUM,3,ZD)),                         
        IFTHEN=(WHEN=INIT,                                         
                OVERLAY=(14:11,3,ZD,MOD,+5,EDIT=(T))),             
        IFTHEN=(WHEN=GROUP,END=(14,1,ZD,EQ,0),PUSH=(15:ID=1)),     
        IFTHEN=(WHEN=GROUP,BEGIN=(14,1,ZD,EQ,01),PUSH=(016:1,10)), 
        IFTHEN=(WHEN=GROUP,BEGIN=(14,1,ZD,EQ,02),PUSH=(026:1,10)), 
        IFTHEN=(WHEN=GROUP,BEGIN=(14,1,ZD,EQ,03),PUSH=(036:1,10)), 
        IFTHEN=(WHEN=GROUP,BEGIN=(14,1,ZD,EQ,04),PUSH=(046:1,10)), 
        IFTHEN=(WHEN=GROUP,BEGIN=(14,1,ZD,EQ,00),PUSH=(056:1,10))   
 OUTREC IFTHEN=(WHEN=(14,1,ZD,EQ,01),                               
               BUILD=(1,25)),                                       
        IFTHEN=(WHEN=(14,1,ZD,EQ,02),                               
               BUILD=(1,25,C',',26,10)),                           
        IFTHEN=(WHEN=(14,1,ZD,EQ,03),                               
               BUILD=(1,25,C',',26,10,C',',36,10)),                 
        IFTHEN=(WHEN=(14,1,ZD,EQ,04),                               
               BUILD=(1,25,C',',26,10,C',',36,10,C',',46,10)), 
        IFTHEN=(WHEN=(14,1,ZD,EQ,00),                           
   BUILD=(1,25,C',',26,10,C',',36,10,C',',46,10,C',',56,10))   
   OUTFIL REMOVECC,NODETAIL,BUILD=(16,54),                     
   SECTIONS=(15,1,TRAILER3=(16,54))                             




Gerry
Back to top
View user's profile Send private message
sreejeshcs

New User


Joined: 28 May 2007
Posts: 31
Location: Pune
PostPosted: Mon Nov 04, 2013 1:30 pm
 Reply with quote
Its working icon_smile.gif

What to do if I need to present 7 rows in one line. ?
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: Mon Nov 04, 2013 2:12 pm
 Reply with quote
Work out how this one is working. Then you'll know what to do for seven.
Back to top
View user's profile Send private message
sreejeshcs

New User


Joined: 28 May 2007
Posts: 31
Location: Pune
PostPosted: Mon Nov 04, 2013 9:19 pm
 Reply with quote
Can some one explain, the below 2 lines. I made changes but getting error in below 2 lines.

OUTFIL REMOVECC,NODETAIL,BUILD=(16,54),
SECTIONS=(15,1,TRAILER3=(16,54))
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
PostPosted: Mon Nov 04, 2013 10:04 pm
 Reply with quote
1 - What error? Show it.
2 - REMOVECC, I believe, stands for REMOVE Carriage Control i.e. remove any printer control characters in column 1. The rest I do not know well enough to say but I m not going to look up the manual because you can do that yourself.
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: Mon Nov 04, 2013 10:20 pm
 Reply with quote
OUTFIL REMOVECC,NODETAIL,BUILD=(16,54),
SECTIONS=(15,1,TRAILER3=(16,54))

REMOVECC - as NicC says
NODETAIL - don't show detail lines, only HEADERn/TRAILERn lines
SECTIONS - define a section of a report, based on a control field, with HEADER3/TRAILER3 available
BUILD - I'm sure you know. I don't think it is necessary here (make that part of your investigation and let us know)

Gerry defined a GROUP with an ID, and the report produced (SECTIONS is a reporting feature, as are HEADERn/TRAILERn, hence the Printer Control Character in the first place) is your output file of "total lines". The TRAILER3 record simply contains bytes from position 16 for a length of 54 from the last record in the group..
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 Convert Service Unit to CPU Seconds All Other Mainframe Topics 1
No new posts Syncsort help SYNCSORT 3
No new posts combine multiple unique records into ... DFSORT/ICETOOL 2
No new posts SYNCSORT-DB2 interface SYNCSORT 0
No new posts CONVERT a given date from UTC TO BST CICS 0
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us