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 ICETOOL - Finding keys within a file nartcr DFSORT/ICETOOL 10 Mon Sep 17, 2018 6:39 am
No new posts Generate SQL query dynamically using ... vnktrrd DB2 7 Tue Aug 28, 2018 8:11 pm
No new posts Generate and submit JCL and step dyna... vnktrrd DFSORT/ICETOOL 11 Wed Jul 25, 2018 11:31 pm
No new posts CA SYSVIEW - MQTHRESH updating dynami... Anilkumarmq CA Products 2 Fri Jun 08, 2018 2:06 pm
No new posts Dynamically updating the MQ monitorin... Anilkumarmq Java & MQSeries 0 Fri Jun 08, 2018 2:05 pm

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