Re: Grouping Data

[Tony DeLia <tdelia@EROLS.COM>]

Ray,
   Some great ideas are in your list... hopefully SQRibe will take note and
implement some of these! Nice work...

   Tony DeLia

Ray Ontko wrote:

> Tony, Adam,
>
> I've expanded a little on your suggestions and added them to
> Ray's Top n SQR Enhancements list.  Take a look at 13 and 48
> in:
>
>    http://www.ontko.com/sqr/enhancements.html
>
> Ray
>
> > [Adam Dray describes a practical syntax expansion of MOVE and some other
> > stuff]
> >
> > Adam,
> >
> >     That's a good idea... I think SQRIBE should implement this...
> >
> > Another suggestion that may be handy... something like this...
> >
> > Declare-Structure
> >    name=$NArec
> >      variable=$NAname:char
> >      variable=$NAaddr:char
> >      variable=$NAcity:char
> >      variable=$NAstate:char
> >      variable=$NAzip:char
> > End-Declare
> >
> > then you can initialize the whole thing with something like...
> >
> >          let $NArec = ' '
> >   OR
> >          move ' ' to $NArec
> > or even
> >          Clear-Structure Name=$NArec
> >
> > Just a thought...
> >
> >
> >          Tony DeLia
> >
> >
> > Maybe SQRIBE can implement your 'Fill Pattern' proposal by Valentine's
> > Day... if not you'll have to write your own 'XO' routine for the
> > $hugs_and_kisses variable...
> >
> >
> > Dray, Adam wrote:
> > >
> > > [Tony DeLia describes a COBOL-like enhancement that would be nice.]
> > >
> > > >In SQR I would have to initialize as follows...
> > > >
> > > >let $NAname   = ' '
> > > >let $NAaddr   = ' '
> > > >let $NAcity   = ' '
> > > >let $NAstate  = ' '
> > > >let $NAzip    = ' '
> > >
> > > Why not extend the MOVE command thus:
> > >         Move '' to $NAname, $NAaddr, $NAcity, $NAstate, $NAzip
> > >
> > > Yes, you still have to write out each variable, but I find it very
> > > readable.
> > >
> > > If you wanted to fill a set of variables with a character or
> > > pattern, a Write statement could be useful:
> > >     Fill ' ' Into $NAname:15, $NAaddr:30, $NAcity:30, $NAstate:2, $NAzip:9
> > >
> > >     Let $pattern = 'XO'
> > >     Fill $pattern Into $hugs_and_kisses:6
> > >     ! $pattern is now 'XOXOXO'
> > >
> > > While I'm at it, I'd like a pony. ;)
> > >
> > > Adam Dray
> >
> > --
> > Tony DeLia
> > AnswerThink Consulting Group
> > PeopleSoft Solutions Practice - Delphi Partners
> > tdelia@erols.com
> > http://www.sqrtools.com
> >
>
> ----------------------------------------------------------------------
> Ray Ontko       |  Ray Ontko & Co  |  "RO&C: data movers and shakers."
> rayo@ontko.com  |  Richmond, In    |  See us at http://www.ontko.com/



--
Tony DeLia
AnswerThink Consulting Group
PeopleSoft Solutions Practice - Delphi Partners
tdelia@erols.com
http://www.sqrtools.com