Perhaps simpler, as a rexx stage: Parse arg tag . 'CallPipe (End ?) *:', '|a:Pick anycase from 1+ == /'tag'/ count 2', '|Spec a: 1-* . set #0:=a read 1-* n write print #0 1', '|b:Faninany', '|*:', '?a:|b:' Exit Rc
-- Mike Harding z/VM System Support [email protected] [email protected] (925) 672-3922 | (925) 672-4403 (h) (925) 323-2070 (m) /sp CMSTSO Pipelines Discussion List <[email protected]> wrote on 08/14/2019 09:49:43 AM: > From: Rob van der Heij <[email protected]> > To: [email protected] > Date: 08/14/2019 09:50 AM > Subject: [EXTERNAL] Re: swap two records > Sent by: CMSTSO Pipelines Discussion List <[email protected]> > > | x: if between /tag/ 2 > | spec 1-* c2x > | join / / > | spec w2 1 w1 nw > | split > | spec 1-* x2c > | x: > > Or close... > > On Wed, 14 Aug 2019 at 18:45, <[email protected]> wrote: > > > In a file I have every now and then a record tagged at the > > beginning, all other lines begin with blanks. I'd like to change > > the sequence of tagged records with the one directly following it > > (which is for sure not tagged). > > > > I tried with Fanintwo, but failed. I considered a mod of Throttle > > REXX (based on Dial), another idea with Synchronise, alas even in > > my imagination it gets rather "gordian/gordic(?)". May be Spec > > could help with its second reading station. > > > > Simpler solutions anyone? > > > > Ciao.....Mike > > -- > > www.Ok.de - die kostenlose E-Mail Adresse > > >
