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

Create Multiple file with Header and Trailer from one file


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

New User


Joined: 26 Oct 2006
Posts: 50
Location: Chennai

PostPosted: Thu Jul 10, 2008 8:36 pm
Reply with quote

Dear All,

Greetings!
It would be great if some one give me the solution for the below requirement?

Below is the sample input file. RECFM=FB and LEN=26

Code:
HDR 20081206
200kumarkhkA
200malathiij 
200shridulla
444malathifa
444ijljlkjlk
TRL 00000007


The above file has to be split into two files depend on the number in 1-3 position.Also the same header have to be appear in both the files.
And the trailer record has to be write with the total number of records(including hdr and TRL) in both files.

So the o/p file should be like this

Out File1:

Code:
HDR 20081206
200kumarkhkA
200malathiij 
200shridulla
TRL 00000005


Out File2:
Code:

HDR 20081206
444malathifa
444ijljlkjlk
TRL 00000004
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Thu Jul 10, 2008 8:53 pm
Reply with quote

bbharathiraj,

The following DFSORT JCL will give you the desired results

Code:

//STEP0100 EXEC PGM=ICEMAN                 
//SYSOUT   DD SYSOUT=*                     
//SORTIN   DD *                             
HDR 20081206                               
200KUMARKHKA                               
200MALATHIIJ                               
200SHRIDULLA                               
444MALATHIFA                               
444IJLJLKJLK                               
TRL 00000007                               
//OUT1     DD SYSOUT=*                     
//OUT2     DD SYSOUT=*                     
//SYSIN    DD *                             
  SORT FIELDS=COPY                         
  OUTFIL FNAMES=OUT1,REMOVECC,             
  INCLUDE=(1,3,SS,EQ,C'HDR,200'),           
  TRAILER1=('TRL ',COUNT+1=(M11,LENGTH=8))   
  OUTFIL FNAMES=OUT2,REMOVECC,             
  INCLUDE=(1,3,SS,EQ,C'HDR,444'),           
  TRAILER1=('TRL ',COUNT+1=(M11,LENGTH=8))   
//*
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 How to split large record length file... DFSORT/ICETOOL 9
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
Search our Forums:

Back to Top