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
 

 

Creating Mutliple records from an input record using ICETOOL

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

New User


Joined: 25 Apr 2006
Posts: 32
Location: India

PostPosted: Fri Sep 05, 2008 5:28 am    Post subject: Creating Mutliple records from an input record using ICETOOL
Reply with quote

Hi All,

My requirement is to insert a string "<Page Break>" before each page header in report.Can we do this using ICETOOL?

I can not use rexx as my report has 200,000 lines and i do not want write a COBOL program for this.

Code:

Input:
-------
1JUL'09,       XXXXX Compnay     PAGE1

Name   Salary
-------  -------
AAAA   $200
BBBB   $100

1JUL'09,       XXXXX Compnay     PAGE2

Name   Salary
-------  -------
CCCC   $200
DDDD   $100

Output:
---------
<Page Break>
1JUL'09,       XXXXX Compnay     PAGE1

Name   Salary
-------  -------
AAAA   $200
BBBB   $100

<Page Break>
1JUL'09,       XXXXX Compnay     PAGE2

Name   Salary
-------  -------
CCCC   $200
DDDD   $100


Any help is much appreciated.
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Sep 05, 2008 5:50 am    Post subject:
Reply with quote

You can use a DFSORT/ICETOOL job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80 and the page header record can be identified by 'PAGE' in positions 34-37. You can change the job appropriately if those assumptions are incorrect.

Code:

//S1    EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN DD DSN=...  input file (FB/80)
//OUT DD DSN=...  output file (FB/80)
//TOOLIN   DD    *
COPY FROM(IN) USING(CTL1)
/*
//CTL1CNTL DD *
  OUTFIL FNAMES=OUT,
   IFTHEN=(WHEN=(34,4,CH,EQ,C'PAGE'),
     BUILD=(C'<Page Break>',/,1,80))
/*
Back to top
View user's profile Send private message
satya12

New User


Joined: 25 Apr 2006
Posts: 32
Location: India

PostPosted: Fri Sep 05, 2008 6:03 am    Post subject: Reply to: Creating Mutliple records from an input record usi
Reply with quote

My file is FBA with 133 record lenght..Anyway i modified your CODE and it worked.

Thanks a lot for the 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 Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Using ICETOOL, how we can seperate th... bshkris SYNCSORT 5 Tue May 09, 2017 8:33 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm


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