I have a file, print output, that looks something like this.
1REPT: BYUSER
DATE: 10/23/06
TIME: 14:50:46
0USERID LIBRARY
======== ======
0AAA FULL01
0BBB FULL01
0CCC LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
LIST01
0DDD DIST01
0EEE LIST01 A1
LIST01 A2
LIST01 A3
LIST01 A4
LIST01 A5
LIST01 A6
1REPT: BYUSER
DATE: 10/23/06
TIME: 14:50:46
0USERID LIBRAR
======== ======
0EEE LIST01 A7
0FFF FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
FULL01
JCL01
JCL01
.
.
.
.
I want to end up with something like this.
With the headings stripped off and all of the records belonging to user EEE.
0EEE LIST01 A1
LIST01 A2
LIST01 A3
LIST01 A4
LIST01 A5
LIST01 A6
LIST01 A7
I have a couple of pipes that work, but they aren't pretty.
I'm always looking for a better way so I thought I'd ask the experts.
My pipes:
'PIPE < MY LISTING A | SPECS 1-9 1 | NLOCATE 1-6 /1REPT:/ | NLOCATE 1-6 /DATE:/ |NLOCATE 1-6 /TIME:/ ',
'| NLOCATE 1-9 /========/ | NLOCATE 1-7 /0USERID/ | SORT UNIQUE 1-9 ',
'| BETWEEN /0'||USERID' / /0/ | DROP FIRST 1 | VAR ENDUSER'
/* all this just to find who the next user is */
'PIPE < MY LISTING A | NLOCATE 1-6 /1REPT:/ | NLOCATE 1-6 /DATE:/ |NLOCATE 1-6 /TIME:/ ',
'| NLOCATE 1-9 /========/ | NLOCATE 1-7 /0USERID/ ',
'| BETWEEN /0'||USERID' / /'ENDUSER' / | DROP LAST 1 | SPECS 13-43 1 | STEM PROGS.'
Thanks
__________________________________________________________________
<< ella for Spam Control >> has removed VSE-List messages and set aside VM-List for me
You can use it too - and it's FREE! http://www.ellaforspam.com
