I know it was 100% perfect.
1) would be better to display Reserved iso omitted
2) ethernal NLS problems
3) in Belgium our code page makes the default stage separator is ! and not
|
to make it perfect the IF in the specs need to be elaborated a bit.
Something like
'if a<>b+1 then Write',
'Print b+1 Pic ZZZ9 1 ',
'if a-1>b+1 then /-/ N',
'print a-1 Strip N',
'endif',
'/Reserved/ NW',
'endIf',
Don't shoot me if still not perfect.
Kris Buelens,
--- freelance z/VM consultant, Belgium ---
-----------------------------------------------------------------------
2013/4/11 Frank M. Ramaekers <[email protected]>
> 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].
>
