Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Rearrange group of colums to one record.

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

New User


Joined: 08 Jan 2013
Posts: 6
Location: india

PostPosted: Tue Jan 08, 2013 3:29 pm    Post subject: Rearrange group of colums to one record.
Reply with quote

Hi All,

I am new to this forum. I have one requirement which I would like to do using DFSORT instead of COBOL program. I have checked in DFSORT material to get the solution but I can able to see only Transpose related solutions. I have mentioned the requirement below. Please let me know if any solutions. Thanks in advance.

Input file: Rec length -80, Type-Fixed Block

Code:

ABC DEF GHI COMMENT1
ABC DEF GHI COMMENT2
ABC DEF GHI COMMENT3
ABC DEF GHI COMMENT4
JKL MNO PQR COMMENT1
JKL MNO PQR COMMENT2
STU VWX YZA COMMENT3
STU VWX YZA COMMENT2
STU VWX YZA COMMENT3
BCD EFG HIJ COMMENT2
KLM NOP QRS COMMENT2
KLM NOP QRS COMMENT1
KLM NOP QRS COMMENT2
KLM NOP QRS COMMENT3
KLM NOP QRS COMMENT5
TUV WXY ZAB COMMENT1
TUV WXY ZAB COMMENT2
TUV WXY ZAB COMMENT3
TUV WXY ZAB COMMENT4
TUV WXY ZAB COMMENT5
TUV WXY ZAB COMMENT6
TUV WXY ZAB COMMENT7


Expected output: Rec length -500, Type-Fixed Block
(Should be take the maximum COMMENTS from input file is 5)
Code:

ABC DEF GHI COMMENT1 COMMENT2 COMMENT3 COMMENT4
JKL MNO PQR COMMENT1 COMMENT2
STU VWX YZA COMMENT3 COMMENT2 COMMENT3
BCD EFG HIJ COMMENT2
KLM NOP QRS COMMENT2 COMMENT1 COMMENT2 COMMENT3 COMMENT5
TUV WXY ZAB COMMENT1 COMMENT2 COMMENT3 COMMENT4 COMMENT5
Back to top
View user's profile Send private message

pradeean

New User


Joined: 08 Jan 2013
Posts: 6
Location: india

PostPosted: Tue Jan 08, 2013 6:58 pm    Post subject:
Reply with quote

Hi,

I have founded the same post in this forum which is similar to my requirement. it is available in http://ibmmainframes.com/about58061.html. Thanks
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Tue Jan 08, 2013 7:13 pm    Post subject: Reply to: Rearrange group of colums to one record.
Reply with quote

Good searching. I believe there are a couple of more recent examples as well.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19254
Location: Inside the Matrix

PostPosted: Tue Jan 08, 2013 10:02 pm    Post subject: Reply to: Rearrange group of colums to one record.
Reply with quote

Hello and welcome to the forum,

Good job looking for and finding what you needed icon_smile.gif

Enjoy the forum!

d
Back to top
View user's profile Send private message
pradeean

New User


Joined: 08 Jan 2013
Posts: 6
Location: india

PostPosted: Wed Jan 09, 2013 9:05 am    Post subject:
Reply with quote

Thank you 'Bill Woodger' and 'dick scherrer'.
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 Concatenate two files of variable rec... Thiru S DFSORT/ICETOOL 3 Wed Aug 21, 2019 11:53 pm
No new posts ALTERNATE RECORD KEY usage for KSDS AIX sophia.lee COBOL Programming 1 Thu Jul 25, 2019 7:28 am
This topic is locked: you cannot edit posts or make replies. Removing duplicate record based on th... Nilanjan Sikdar DFSORT/ICETOOL 4 Mon Jul 22, 2019 8:29 pm
No new posts how to add date & timestamp to th... dharmaraok DFSORT/ICETOOL 5 Thu Apr 18, 2019 2:45 pm
No new posts files whose record count varies with ... janmejay CA Products 0 Fri Mar 08, 2019 9:35 pm

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