| IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| View previous topic :: View next topic |
| Author |
Message |
bbharathiraj
Joined: 26 Oct 2006
Posts: 32
Location: Chennai
|
| Posted: Thu Jul 10, 2008 8:36 pm Post subject: Create Multiple file with Header and Trailer from one file |
|
|
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 |
|
Skolusu
Joined: 07 Dec 2007
Posts: 357
Location: San Jose
|
| Posted: Thu Jul 10, 2008 8:53 pm Post subject: |
|
|
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 |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|
