===========================================================================
Packet: PC-OHIO
Date: 1997-10-30 (14:33)           Number: 2690
From: DANIELE CALANCA              Refer#: NONE
  To: TOM CLAFFY                    Recvd: NO
Subj: RE: PROBLEM WITH CL5.2C (      Conf: (757) CLIPPER-F
---------------------------------------------------------------------------
DC> Hello Tom!
DC> Friday December 10 1993 16:45, Tom Claffy wrote to Martijn Sanders:
DC>  TC> #xcommand Scatter [ File ]  [ To ]   =>      ;
DC>  TC>             (                            ;
Here's your problem             ^^^^^
DC>  TC>             ( aEval (  := ARRAY( fCount() ) , ;
DC>  TC>             {|x,y| \[y\] := FieldGet(y)}))
DC> I got an error like this trying to compile the code:
DC> TEST.PRG(4)    Error C2061  Label error in #translate/#command
DC> I cannot find what is wrong....
DC> Daniele
DC> wilcox@freenet.hut.fi
This is the correct/tested (Clipper 5.2) version.
#xcommand Scatter [ File ]  [ To ]   =>      ;
            (  )->                           ;
            ( aEval (  := ARRAY( fCount() ) , ;
            {|x,y| \[y\] := FieldGet(y)}))
#xcommand Gather [ File ]  [ From ]   => ;
            (  )->                     ;
            ( aEval (                , ;
            {|x,y| FieldPut( y, x) } ) )
So long for now,
Steve
---
 * QMPro 1.53 * steven.read@pcohio.com (in western New York state, USA)
--- InterEcho 1.19
---------------