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

Adding multiple trailer records at reqular interval


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
kenshin

New User


Joined: 02 Aug 2014
Posts: 16
Location: Saint Paul , USA

PostPosted: Fri Sep 25, 2015 11:01 am
Reply with quote

Hi All ,

can you please help me in getting follwing result:
Can we add mutiple trailer records ?

Input dataset:
AAA AK 3
BBB AK 5
CCC AK 1

AAA AL 1
BBB AL 2
CCC AL 3

AAA FL 1
BBB FL 1
CCC FL 3


Ouput:
AAA AK 3
BBB AK 5
CCC AK 1
count :9
AAA AL 1
BBB AL 2
CCC AL 3
cout :6
AAA FL 1
BBB FL 1
CCC FL 3

count : 5
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: Fri Sep 25, 2015 12:41 pm
Reply with quote

Use WHEN=GROUP to PUSH an ID to a temporary extension of the record, then use OUTFIL reporting features, TRAILER3 with SECTIONS on the ID, and use TOT(AL).
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: Fri Sep 25, 2015 2:03 pm
Reply with quote

And, since you're using reporting features but don't want a report, specify REMOVECC not not get the "carriage control" codes.
Back to top
View user's profile Send private message
kenshin

New User


Joined: 02 Aug 2014
Posts: 16
Location: Saint Paul , USA

PostPosted: Fri Sep 25, 2015 2:36 pm
Reply with quote

Hi Bill,

Thank you providing solutions.

I will try it out.

I have one question , when you said "PUSH an ID to a temporary extension of the record," i didnt get you

Can you please elaborate more?
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: Fri Sep 25, 2015 3:29 pm
Reply with quote

If you look up WHEN=GROUP you'll find PUSH. PUSH is like OVERLAY, except you can only PUSH data from the first record of the group, or the special ID and SEQ, which represent a sequence-number for groups, and a sequence-number within groups respectively.
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: Sat Sep 26, 2015 5:04 am
Reply with quote

Missed the "regular interval" in the title, and didn't trust your data :-)

Someone's pointed out something shorter, neater, and faster.

Code:
  OPTION COPY                                   
  OUTFIL REMOVECC,LINES=4,                       
  TRAILER2=('COUNT : ',TOT=(8,1,ZD,EDIT=(IT)))


It's still using the reporting functions of OUTFIL (so you need the REMOVECC, as you don't want a "report"), but uses the TRAILER2, which appears "at the bottom of each page". So you set the page-length (LINES=) to four (including the total) and format your trailer.

If you don't have regular data, you'll get a mess, but it's the best way for regular data.
Back to top
View user's profile Send private message
kenshin

New User


Joined: 02 Aug 2014
Posts: 16
Location: Saint Paul , USA

PostPosted: Sat Sep 26, 2015 9:41 am
Reply with quote

As per my requirment ,I modified your statements and it worked ..!!!!

OPTION COPY
OUTFIL REMOVECC,LINES=8,
TRAILER2=(22:'TOTAL HOMESAVER RECORDS
TOT=(59,7,ZD,EDIT=(IIIIIIT)))


yes ,I have regular data reoccuring in bundle of 8 rows having different states.

Thanks Bill, You are the best!! :-)
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Adding QMF and SPUFI to the ISPF menu DB2 20
Search our Forums:

Back to Top