IBM Mainframe Forum

by **deva_048** » Wed Oct 15, 2014 5:48 pm

Is it possbile to extract output file as mentioned below: I already tried group but can't able to get the exact output. Please help me
i/P File:

Select all

AAAA001|2014|ABEND |10/15|05:00|05:10
AAAA001|2014|COMPLETE |10/15|05:40|05:50
AAAA002|2014|ABEND |10/15|06:00|06:10
AAAA002|2014|PURGED |10/15|06:40|06:50
AAAA003|2014|COMPLETE |10/15|07:00|07:10

O/P File:

Select all

AAAA001|2014|COMPLETE |10/15|05:00|05:50
AAAA002|2014|PURGED |10/15|06:00|06:50
AAAA003|2014|COMPLETE |10/15|07:00|07:10

by **Thampy** » Wed Oct 15, 2014 9:13 pm

I assume that are you are looking for the last occurrence of the group (Positions 1-7)

Select all

//STEP010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
AAAA001|2014|ABEND |10/15|05:00|05:10
AAAA001|2014|COMPLETE |10/15|05:40|05:50
AAAA002|2014|ABEND |10/15|06:00|06:10
AAAA002|2014|PURGED |10/15|06:40|06:50
AAAA003|2014|COMPLETE |10/15|07:00|07:10
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,SECTIONS=(1,7,
TRAILER3=(1,80))
/*

If the key is not sorted, then use SORT FIELDS=(1,7,CH,A)

by **BillyBoyo** » Wed Oct 15, 2014 9:19 pm

I think what you want is just an INCLUDE FIELDS=(....

by **deva_048** » Wed Oct 15, 2014 9:23 pm

I am looking for the time fields start time from the abend row and end time from the purge row for each job should be write into a new file

by **Thampy** » Thu Oct 16, 2014 6:20 pm

Please try the below JCL.

Select all

//SYSIN DD *
SORT FIELDS=(1,7,CH,A,81,4,ZD,D)
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,4,ZD,RESTART=(1,7))),
IFTHEN=(WHEN=GROUP,BEGIN=(81,4,ZD,EQ,1),PUSH=(85:33,5))
OUTREC OVERLAY=(81:SEQNUM,4,ZD,RESTART=(1,7),33:85,5)
OUTFIL INCLUDE=(81,4,ZD,EQ,1),BUILD=(1,80)
/*

The output is coming as

AAAA001|2014|COMPLETE |10/15|05:00|05:50
AAAA002|2014|PURGED |10/15|06:00|06:50
AAAA003|2014|COMPLETE |10/15|07:00|07:10

by **NicC** » Fri Oct 17, 2014 12:48 am

Thampy

Those are mainly sort control cards - not JCL.

One day we might get people to use the correct words at the correct time!

by **Terry Heinze** » Fri Oct 17, 2014 1:41 am

One day we might get people to use the correct words at the correct time!

Don't hold your breath, NicC.

by **Thampy** » Fri Oct 17, 2014 1:53 am

My apologies. I wrongly mentioned the sort control cards as JCL.

by **NicC** » Sat Oct 18, 2014 3:00 am

by **deva_048** » Fri Oct 24, 2014 9:10 am

Thanks for your timely response. Above code worked perfectly. There is a minor change in our requirement. The complete/purged status will always in first row of each job in the i/p file.
Is it possible to get the below o/p file?

i/p file

Select all

AAAA001|2014|COMPLETE |10/15|05:40|05:50
AAAA001|2014|ABEND |10/15|05:20|05:30
AAAA001|2014|ABEND |10/15|05:00|05:10
AAAA002|2014|PURGED |10/15|06:40|06:50
AAAA002|2014|ABEND |10/15|06:10|06:20
AAAA003|2014|COMPLETE |10/15|07:00|07:10

o/p File

Select all

AAAA001|2014|COMPLETE |10/15|05:00|05:50
AAAA002|2014|PURGED |10/15|06:10|06:50
AAAA003|2014|COMPLETE |10/15|07:00|07:10

IBM Mainframe Forum

Matches keyword write the

Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the

Re: Matches keyword write the