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].
