Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
Thanks guys, I will look at this later, not before the weekend. Just shut down my z/OS system as I will busy with more pressing matters tomorrow, and on Thursday/Friday I will be hitchhiking back to Vilnius, where our car will hopefully be back in a drivable state.
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
Rahul,
Consider the effect of each report being preceded by a blank line. The first report has no blank line, so you make one (single-record file, concatenate the real data to it).
Then you should be able to identify start/end of the heading group, the data group, and footer group if present.
Don't forget the bit about ignoring lines with only | and - on them (once the TRAN=ALTSEQ has done some cleaning). But get the main part up-and-running first.
Oh, reminds me. Prino, you have a typo in your ALTSEQ.
The problem for WHEN=GROUP is that the logical start and end of the group has the same data (the +- lines) which means the the group ends immediately (both the BEGIN and END are satisfied by the same line.
So you need to change one of those lines before you can do the WHEN=GROUP.
All reports except the first are prefixed by a blank line, which could be used to amend the first line of the group.
So make, by concatenating to a single-record file which contains a blank line, a blank line precede the first report as well.
Then use WHEN=GROUP for the blank line to clobber part of the first line of the logical group.
Identifying the footer-group is then also possible.
The detritus lines, containing only vertical bars and dashes, are removed by first saving the line (with PARSE, into a PARSEd field) and then FINDREPing the characters to blank.
If the resultant line is not blank, put the PARSEd field back onto the record.
It is then a case of arranging the INCLUDE on OUTFIL to only get the records which are actually required.
I suspect there is a requirement for the multi-line headings to remain together, but we'll see.
I also suspect the SORT and SUM FIELDS=NONE is not required, but the answer to that lies in the data - is there more than one copy of the same report, so that headings which are duplicate are not logically contiguous.
Tested with 80-byte lines, adjust for actual lengths.
In detail:
Identify blank lines with WHEN=GROUP and PUSH the blank identified onto the first +- line for a report, giving blank-then-dash.
Do Prino's required translation to get various things in heading lines to blank (does not matter one jot that it affects data lines as well, as they are not required in the output) with presumed typos fixed.
Code:
IFTHEN=(WHEN=INIT,
OVERLAY=(1:1,80,TRAN=ALTSEQ)),
Save the current state of the record in a PARSEd field (ignoring the extensions to the record from PUSH).
Code:
IFTHEN=(WHEN=INIT,
PARSE=(%01=(FIXLEN=80))),
Use FINDREP to get rid of the characters that would be unwanted if there is no other data on the line.
If, having got rid of the unwanted characters, the line is not blank, restore the original data from the PARSEd field.
Code:
IFTHEN=(WHEN=(1,80,CH,NE,C' '),
BUILD=(%01,81,2))
The SORT and SUM as per Prino's original code.
Code:
SORT FIELDS=(1,80,CH,A)
SUM FIELDS=NONE
Ignore blank lines and otherwise use the flags set from the second two GROUPs to identify the header content and footer content that is required. Probably don't need to ignore the blank lines because all the GROUPs are limited (by RECORDS or by END) but I had that there whilst developing it.
With SORT solutions, concentrate thought on the data. When you think "if only the data were like that, I could do this", work out how to get the data like that.
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
And add one to all positions for the A in the RECFM (so ignore it for the PARSE, and on the FINDREP have a STARTPOS=2 (and adjust the ENDPOS for the last byte of data) :-)
To create the single-record file with a blank line:
Code:
OPTION COPY,STOPAFT=1
INCLUDE COND=(2,1,CH,EQ,C' ')
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
Thanks guys, this works nicely. As for the blank line at the top issue, there actually is one, every page starts with a line just containing a '1' ASA control character.
