Alaska Software Inc. - SORT ON worked in Clipper
Username: Password:
AuthorTopic: SORT ON worked in Clipper
Mark Ebert SORT ON worked in Clipper
on Wed, 19 Sep 2007 09:31:52 -0400
Hello.
The following code must have worked in Clipper but it generates a runtime
error in Xbase.  Does anyone have any suggestions on how to modify this for
Xbase?  I'm at a loss.
Thanks.

FOR LOOPER=1 TO HOWMANY
     TMPSRT="SORT"+ALLTRIM(STR(LOOPER))
     IF LOOPER<>1
         mSORTVAR=mSORTVAR+", "+&TMPSRT
     ELSE
         mSORTVAR=&TMPSRT
     ENDIF
NEXT
cOldDBE := DbeSetDefault ("DBFNTX")   new code

 SORT ON &mSORTVAR TO &DRIVE.TMP\TEMP2.&UID.  clipper code
SORT ON &mSORTVAR TO LOCAL_DATA + ("TEMP2.&UID")  LOCAL_DATA ==
"D:\DATA\<dept>\"
CLOSE
DbeSetDefault (cOldDBE)  new code



The error log:



oError:args         :
           -> VALTYPE: C VALUE: D:\DATA\<dept>\TEMP2.MAE
           -> VALTYPE: A VALUE: {"ADNUM, AMENDNUM, ADTITLE, ADTYPE, APPL727,
APPL747, APPL757, APPL767, APPLDC8, APPLA30, APPLMD1, APPL744, APPLCFM,
APPLJT8, APPLJT9, APPLPW2, APPLT651, APPLRB211, APPLCF6, APPLPW4158,
APPLPW4460, APPLPW4462, APPLCF6D1F, APPLCF6B1F, APPL331, APPL660, APPL85,
APPLTSCP70, APPLPW901A, ADDEDBY, ADDDATE, CHANGEDBY, CHANGEDATE"}
           -> VALTYPE: U VALUE: NIL
           -> VALTYPE: U VALUE: NIL
           -> VALTYPE: U VALUE: NIL
           -> VALTYPE: U VALUE: NIL
           -> VALTYPE: L VALUE: .F.
oError:canDefault   : Y
oError:canRetry     : N
oError:canSubstitute: N
oError:cargo        : NIL
oError:description  :
oError:filename     :
oError:genCode      :       8999
oError:operation    : DbSort
oError:osCode       :          0
oError:severity     :          2
oError:subCode      :          0
oError:subSystem    : BASE
oError:thread       :          1
oError:tries        :          0
Stu FraserRe: SORT ON worked in Clipper
on Wed, 19 Sep 2007 08:57:13 -0700
Hi Mark,

I'm guessing that the problem is the Drive/Path string you have there.

D:\DATA\<dept>\TEMP2.MAE

<dept> is not a valid folder name, or is that getting replaced by something 
somewhere?

HTH,

Stu.


"Mark Ebert" <mpacebert@insightbb.com> wrote in message 
news:2c7f7320$35d7f8d8$69543@news.alaska-software.com...
> Hello.
> The following code must have worked in Clipper but it generates a runtime
> error in Xbase.  Does anyone have any suggestions on how to modify this 
> for
> Xbase?  I'm at a loss.
> Thanks.
>
> FOR LOOPER=1 TO HOWMANY
>     TMPSRT="SORT"+ALLTRIM(STR(LOOPER))
>     IF LOOPER<>1
>         mSORTVAR=mSORTVAR+", "+&TMPSRT
>     ELSE
>         mSORTVAR=&TMPSRT
>     ENDIF
> NEXT
> cOldDBE := DbeSetDefault ("DBFNTX")   new code
>
>  SORT ON &mSORTVAR TO &DRIVE.TMP\TEMP2.&UID.  clipper code
> SORT ON &mSORTVAR TO LOCAL_DATA + ("TEMP2.&UID")  LOCAL_DATA ==
> "D:\DATA\<dept>\"
> CLOSE
> DbeSetDefault (cOldDBE)  new code
>
>
>
> The error log:
>
>
>
> oError:args         :
>           -> VALTYPE: C VALUE: D:\DATA\<dept>\TEMP2.MAE
>           -> VALTYPE: A VALUE: {"ADNUM, AMENDNUM, ADTITLE, ADTYPE, 
> APPL727,
> APPL747, APPL757, APPL767, APPLDC8, APPLA30, APPLMD1, APPL744, APPLCFM,
> APPLJT8, APPLJT9, APPLPW2, APPLT651, APPLRB211, APPLCF6, APPLPW4158,
> APPLPW4460, APPLPW4462, APPLCF6D1F, APPLCF6B1F, APPL331, APPL660, APPL85,
> APPLTSCP70, APPLPW901A, ADDEDBY, ADDDATE, CHANGEDBY, CHANGEDATE"}
>           -> VALTYPE: U VALUE: NIL
>           -> VALTYPE: U VALUE: NIL
>           -> VALTYPE: U VALUE: NIL
>           -> VALTYPE: U VALUE: NIL
>           -> VALTYPE: L VALUE: .F.
> oError:canDefault   : Y
> oError:canRetry     : N
> oError:canSubstitute: N
> oError:cargo        : NIL
> oError:description  :
> oError:filename     :
> oError:genCode      :       8999
> oError:operation    : DbSort
> oError:osCode       :          0
> oError:severity     :          2
> oError:subCode      :          0
> oError:subSystem    : BASE
> oError:thread       :          1
> oError:tries        :          0
AUGE_OHRRe: SORT ON worked in Clipper
on Wed, 19 Sep 2007 23:26:01 +0200
hi,

Cl*pper:   -> &macro
Xbase++: -> &(macro)

greetings by OHR
Jimmy
DanAbelRe: SORT ON worked in Clipper
on Fri, 12 Oct 2007 15:04:11 -0400
Mark,
Did this solve your problem?
Dan

"AUGE_OHR" <AUGE_OHR*AT*CSI.COM> wrote in message 
news:5b8a2fd$2cee9c84$774d2@news.alaska-software.com...
> hi,
>
> Cl*pper:   -> &macro
> Xbase++: -> &(macro)
>
> greetings by OHR
> Jimmy
>
>