What about this
address command
'PIPE (endchar ?)',
'!CP QUERY CPOWN',
'!Hdr: take!In: Fanin!cons',
'?Hdr:',
'!PICK W2 ΒΌ== /------/',
'!Spec a: w1 . SELECT Second b: w1 . 1-* 1',
'if a<>b+1 then Write',
'Print b+1 Pic ZZZ9 1 /-/ N',
'print a-1 Strip N /ommitted/ NW',
'endIf',
'!In:'
Kris Buelens,
--- freelance z/VM consultant, Belgium ---
-----------------------------------------------------------------------
2013/4/11 Frank M. Ramaekers <[email protected]>
> I have this (real simple) PIPE to abbreviate the output from QUERY CPOWN
> in a z/VM 6.2 environment (normally has 255 lines):
>
>
>
> QCPOWN EXEC A1 V 130 Trunc=130 Size=7 Line=0 Col=1 Alt=0
>
>
>
> |...+....1....+....2....+....3....+....4....+....5....+....6....+....7..
> ..+....8
>
> 0 * * * Top of File * * *
>
>
> 1 /* "Q CPOWN" eliminating the empty slots */
>
>
> 2 Trace "O"
>
>
> 3 "PIPE (endchar ?)",
>
>
> 4 "| LITERAL QUERY CPOWN",
>
>
> 5 "| CP",
>
>
> 6 "| PICK SUBSTR 1.6 OF W2 \== /------/",
>
>
> 7 "| CONSOLE"
>
>
>
>
> The output looks okay:
>
>
>
> Slot Vol-ID Rdev Type Status SSIOwner SysOwner
>
> 1 M01RES 0705 Own Online and attached -------- --------
>
> 5 VMCOM1 0701 Own Online and attached -------- --------
>
> 10 M01S01 0706 Own Online and attached -------- MKMFVM
>
> 11 M01S02 0707 Own Online and attached -------- --------
>
> 12 M01S03 0708 Own Online and attached -------- --------
>
> 249 M01P07 070F Own Online and attached -------- --------
>
> 250 M01P06 070E Own Online and attached -------- --------
>
> 251 M01P05 070D Own Online and attached -------- --------
>
> 252 M01P04 070C Own Online and attached -------- --------
>
> 253 M01P03 070B Own Online and attached -------- --------
>
> 254 M01P02 070A Own Online and attached -------- --------
>
> 255 M01P01 0709 Own Online and attached -------- MKMFVM
>
>
>
> I'd like to change it so it shows the omitted lines (minimally):
>
>
>
> Slot Vol-ID Rdev Type Status SSIOwner SysOwner
>
> 1 M01RES 0705 Own Online and attached -------- --------
>
> -
>
> 5 VMCOM1 0701 Own Online and attached -------- --------
>
> -
>
> 10 M01S01 0706 Own Online and attached -------- MKMFVM
>
> 11 M01S02 0707 Own Online and attached -------- --------
>
> 12 M01S03 0708 Own Online and attached -------- --------
>
> -
>
> 249 M01P07 070F Own Online and attached -------- --------
>
> 250 M01P06 070E Own Online and attached -------- --------
>
> 251 M01P05 070D Own Online and attached -------- --------
>
> 252 M01P04 070C Own Online and attached -------- --------
>
> 253 M01P03 070B Own Online and attached -------- --------
>
> 254 M01P02 070A Own Online and attached -------- --------
>
> 255 M01P01 0709 Own Online and attached -------- MKMFVM
>
>
>
> Or ideally:
>
>
>
> Slot Vol-ID Rdev Type Status SSIOwner SysOwner
>
> 1 M01RES 0705 Own Online and attached -------- --------
>
> 2 - 4 omitted
>
> 5 VMCOM1 0701 Own Online and attached -------- --------
>
> 5 - 9 omitted
>
> 10 M01S01 0706 Own Online and attached -------- MKMFVM
>
> 11 M01S02 0707 Own Online and attached -------- --------
>
> 12 M01S03 0708 Own Online and attached -------- --------
>
> 13-248 omitted
>
> 249 M01P07 070F Own Online and attached -------- --------
>
> 250 M01P06 070E Own Online and attached -------- --------
>
> 251 M01P05 070D Own Online and attached -------- --------
>
> 252 M01P04 070C Own Online and attached -------- --------
>
> 253 M01P03 070B Own Online and attached -------- --------
>
> 254 M01P02 070A Own Online and attached -------- --------
>
> 255 M01P01 0709 Own Online and attached -------- MKMFVM
>
>
>
> Can't seem to find a way to replace the omitted lines with a range of
> what was omitted.
>
>
>
> Frank M. Ramaekers Jr. | Systems Programmer | Information Technology |
> American Income Life Insurance Company | 254-761-6649
>
>
>
>
> _____________________________________________________
>
> This message contains information which is privileged and confidential and
> is solely for the use of the
>
> intended recipient. If you are not the intended recipient, be aware that
> any review, disclosure,
>
> copying, distribution, or use of the contents of this message is strictly
> prohibited. If you have
>
> received this in error, please destroy it immediately and notify us at
> [email protected].
>
