Works great except:
1) Omitted only has one m. :)
2) The caret symbol came through as a one quarter sign (1/4)
3) The stage separator is an explanation mark (yet wasn't
declared, not sure if it was translated this way)
Now to understand it better...
Thanks,
Frank M. Ramaekers Jr.
> -----Original Message-----
> From: CMSTSO Pipelines Discussion List [mailto:CMS-
> [email protected]] On Behalf Of Kris Buelens
> Sent: Thursday, April 11, 2013 2:52 PM
> To: [email protected]
> Subject: Re: [CMS-PIPELINES] Placeholder for removed lines
>
> 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].
> >
_____________________________________________________
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].
