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
 
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 Read a file dynamically without the d... Antonio A Negrelli COBOL Programming 4 Wed Apr 29, 2020 10:54 pm
No new posts Splice multiple records into single r... sarankriya DFSORT/ICETOOL 4 Wed Apr 15, 2020 10:55 pm
No new posts Add the name in the PS file and creat... dharmaraok DFSORT/ICETOOL 9 Wed Apr 01, 2020 10:43 am
No new posts Dynamically adding CLIST Library to e... upendrasri TSO/ISPF 12 Sat Mar 14, 2020 4:33 pm
No new posts Using ICETOOL set return code as per ... Bhuvana Narasimhan DFSORT/ICETOOL 4 Fri Jan 24, 2020 12:58 pm

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