Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICETOOL - RESIZE DYNAMICALLY

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

Active User


Joined: 02 Jan 2009
Posts: 115
Location: Hyderabad

PostPosted: Tue Nov 21, 2017 5:30 pm    Post subject: ICETOOL - RESIZE DYNAMICALLY
Reply with quote

Hello,

I have searched the forum and tried the whole day to achieve this. But couldn't. Request your inputs on how to achieve this.

I have a input file

Code:

AA00
AA01
AA03
AA05
AA09
ZZ00
BB00
BB03
BB09
ZZ01


Position 1,2 is KEY/account #, position 3,4 is the rec type. ZZ is trailer record for the group. I can have min of 1 record in the group and maximum of 5 records. Can we resize them into 20 byte record length ?



Code:

AA00AA01AA03AA05AA09
BB00    BB03    BB09


If a specific record type is not present, it should insert spaces in between (ex in BB account record type 01 and 05 are not present). Trailer records can be skipped.

I tried icetool with resize option. But because of tolen(20), it is giving the trailer records also though I am trying to exclude trailers in CTL1.

Code:

RESIZE FROM(CATCH1) TO(SEND2) TOLEN(20) USING(CTL1)

//CTL1CNTL DD *                                   
 INCLUDE COND=(4,1,CH,EQ,C'0',OR,                 
               4,1,CH,EQ,C'1',OR,                 
               4,1,CH,EQ,C'3',OR,                 
               4,1,CH,EQ,C'5',OR,                 
               (4,1,CH,EQ,C'9',AND,1,1,CH,NE,C'Z'))
/*                                                 


I also tried grouping them when begin=(4,2,ch,eq,c'00',and,1,1,ch,ne,c'z').
But I am unable to insert spaces if a specific record type is not present.

Any inputs would be of great help.
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 Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts Changing sort Card Dynamically vickey_dw DFSORT/ICETOOL 5 Sat Aug 19, 2017 2:33 pm
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Group elements using ICETOOL Learncoholic DFSORT/ICETOOL 2 Fri Apr 14, 2017 11:01 am

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