Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 7306

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: 19270
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 Record Not found in AlX but record re... mukun264 COBOL Programming 5 Fri Mar 24, 2017 9:28 am
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Why TS/OP would Not contact site supp... RahulG31 All Other Mainframe Topics 2 Wed Mar 22, 2017 7:46 am
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts To Merge mutliple records into a sing... anandgbe DFSORT/ICETOOL 6 Wed Feb 22, 2017 8:49 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us