Converting multiple Headers and Trailers into one

chandra_devatha · New User Joined: 10 Jul 2008 Posts: 4 Location: Hyderabad

Hello,

I have data merged from two files like this

H0012008-07-012008-07-31
DDATA RECORD ONE
DDATA RECORD TWO
DDATE RECORD THREE
TTRAILER RECORD FOR FIRST FILE COUNT OF DATA RECORDS 00003
H0022008-07-01200807-31
DDATA RECORD FOUR
DDATA RECORD FIVE
DDATA RECORD SIX
DDATA RECORD SEVEN
TTRAILER RECORD FOR SECOND FILE COUNT OF DATA RECORDS 00004

In my output file I need one header (does not matter which one it is)
I need all the data records
I need one trailer(does not matter which one) with the count of total data records.
Effectively I need my output file some thing like this

H0012008-07-012008-07-31
DDATA RECORD ONE
DDATA RECORD TWO
DDATE RECORD THREE
DDATA RECORD FOUR
DDATA RECORD FIVE
DDATA RECORD SIX
DDATA RECORD SEVEN
TTRAILER RECORD FOR SECOND FILE COUNT OF DATA RECORDS 00007

First byte of the file would have 'H'eader, 'D'ata or 'T'railer
It is going to be a FB file of length 80. Count of records would come in trailer record from 73 through 80.

COuld this be accomplished through DFSORT? If so, kindly help.

Thanks,
Chandra

Skolusu · Posted: Thu Jul 10, 2008 9:19 pm

chandra_devatha,

The following DFSORT JCL will give you the desired results

chandra_devatha · New User Joined: 10 Jul 2008 Posts: 4 Location: Hyderabad

Kolusu, Thanks a ton for your response.

I have tried executing the above. I am getting a SYSTEM=001 USER=0000 REASON=00000000 abend.

I have changed the above SORT Statements as below:

dick scherrer · Posted: Fri Jul 11, 2008 8:16 pm

Hello,

Please post the jcl and diagnostic info from the abended run.

It is likely that you have a dataset problem.

chandra_devatha · New User Joined: 10 Jul 2008 Posts: 4 Location: Hyderabad

Hello Dick,

Here is what I have in my JOB

//STEP01 EXEC PGM=ICEMAN
//*-------------------------
//SYSOUT DD SYSOUT=*
//SORTIN DD *
H0012008-07-012008-07-31
DDATA RECORD ONE
DDATA RECORD TWO
DDATE RECORD THREE
TTRAILER RECORD FOR 1ST FILE. RECORD COUNT 00003
H0022008-07-01200807-31
DDATA RECORD FOUR
DDATA RECORD FIVE
DDATA RECORD SIX
DDATA RECORD SEVEN
TTRAILER RECORD FOR 2ND FILE. RECROD COUNT 00004
//SORTOUT DD *
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(72:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,1,SS,EQ,C'H,T'),
OVERLAY=(80:SEQNUM,1,ZD),HIT=NEXT),
IFTHEN=(WHEN=(1,1,CH,EQ,C'T'),
OVERLAY=(73:72,8,ZD,SUB,+2,M11,LENGTH=8))

OUTFIL BUILD=(1,80),OMIT=(80,1,SS,EQ,C'2,3')
//*

Thanks,
Chandra

dick scherrer · Posted: Mon Jul 14, 2008 12:08 pm

Hello,

That is part of what you needed to post. . .

You also need to post the diagnostic info presented by the run. There should be at least 2 "pieces" of diagnostic info. When you post these, the message numbers need to be included as well.

chandra_devatha · New User Joined: 10 Jul 2008 Posts: 4 Location: Hyderabad

Hello Dick,

I was able to get this working. I guess the problem came when I tried with Instream data. I replaced SYSIN DD card with a dataset and it works well.

Kolusu, Thanks a lot. It works like a charm!

Regards,
Chandra

dick scherrer · Posted: Mon Jul 14, 2008 9:04 pm

Hello,

Good to hear it is working