View previous topic :: View next topic
|
Author |
Message |
bodatrinadh
Active User
Joined: 05 Jan 2007 Posts: 101 Location: chennai (India)
|
|
|
|
Hi All,
I have an input file containing SYSOUT data of SORT pgm.
Assume LRECL=240, RECFM=FB
Input File :-
WER073I SORTJNF2 : DSNAME=TST.NEW.PROD.ER87251.M0611.PC.X4
WER484I SORTJNF2 : RCD IN= 110662,OMITTED= 0,PAIRED= 45247,UNPAIRED= 65415
WER052I END SYNCSORT - XP65402A,TC1STP1,,DIAG=EE00,61C2,C200,004E,A6FE,48CB,0
WER073I SORTIN : DSNAME=TST.TC1STP1.CLI654.JULR04A.ZIPMATCH
WER074I SORTOUT : DSNAME=TST.TC1STP1.CLI654.JULR04A.ZIPMATCH.DEFTTERR
WER054I RCD IN 100000, OUT 143
WER052I END SYNCSORT - XP65402A,TC1CHK,,DIAG=CC00,D35B,E01D,A4FD,85F2,68C3,26
WER074I SORTOUT : DSNAME=TST.TC2STP1.CLI654.JULR04A.UNMTCH
WER054I RCD IN 418775, OUT 418775
WER073I SORTJNF1 : DSNAME=TST.GM116101.CLI654.R04.WK26.M06.URP1
After every "END SYNCSORT" a blank line should appear as shown in below and the ouput should be
Output File :-
WER073I SORTJNF2 : DSNAME=TST.NEW.PROD.ER87251.M0611.PC.X4
WER484I SORTJNF2 : RCD IN= 110662,OMITTED= 0,PAIRED= 45247,UNPAIRED= 65415
WER052I END SYNCSORT - XP65402A,TC1STP1,,DIAG=EE00,61C2,C200,004E,A6FE,48CB,0
WER073I SORTIN : DSNAME=TST.TC1STP1.CLI654.JULR04A.ZIPMATCH
WER074I SORTOUT : DSNAME=TST.TC1STP1.CLI654.JULR04A.ZIPMATCH.DEFTTERR
WER054I RCD IN 100000, OUT 143
WER052I END SYNCSORT - XP65402A,TC1CHK,,DIAG=CC00,D35B,E01D,A4FD,85F2,68C3,26
WER074I SORTOUT : DSNAME=TST.TC2STP1.CLI654.JULR04A.UNMTCH
WER054I RCD IN 418775, OUT 418775
WER073I SORTJNF1 : DSNAME=TST.GM116101.CLI654.R04.WK26.M06.URP1
Thanks
-3nadh |
|
Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
Given that the number of records will not be very great, an edit macro or a Rexx script will work quite nicely, yes? |
|
Back to top |
|
|
bodatrinadh
Active User
Joined: 05 Jan 2007 Posts: 101 Location: chennai (India)
|
|
|
|
I have tried the following code and it worked. Please let me know whether i need to do any changes further..
OPTION COPY
OUTFIL IFOUTLEN=240,
IFTHEN=(WHEN=INIT,BUILD=(1,240)),
IFTHEN=(WHEN=(12,12,CH,EQ,C'END SYNCSORT'),BUILD=(1,240,/,240X))
Thanks
-3nadh |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
If you have tested and the code does exactly what you want, we shouldn't be needed. . .
Good to hear it is working
d |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
I have n't tested it yet. But I think you could omit the below line in your code.
Code: |
IFTHEN=(WHEN=INIT,BUILD=(1,240)), |
|
|
Back to top |
|
|
kratos86
Active User
Joined: 17 Mar 2008 Posts: 148 Location: Anna NGR
|
|
|
|
Code: |
OPTION COPY
OUTFIL IFTHEN=(WHEN(12,12,CH,EQ,C'END SYNCSORT'),
BUILD=(1,240,/,240:X)) |
should be enough for your requirement. |
|
Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006 Posts: 2481 Location: @my desk
|
|
|
|
Or even this.
Code: |
OPTION COPY
OUTFIL IFTHEN=(WHEN(12,12,CH,EQ,C'END SYNCSORT'),
BUILD=(1,240,/)) |
|
|
Back to top |
|
|
|
|