Just wondering if any has run across this file. If I run this command
file(Gecount.REP) the file XDEBUG.TXT appears. Does not appear to hurt
anything if I delete it but it reappears after running the code and does not
delete on its own. If I don't delete  it just keeps getting bigger and
bigger.

Buddy


**********Getcount.REP***********

  CONN BTURECOG

  SCONN CurrentOSA IDENTI AS Anyone

--The studata table is already sattached

   SET VAR VAssn TEXT, VHowMany INTEGER

   RUN TmpStuRe.TBL

--Medical Alumni Assoc Recog Award

   PAUSE 3 USI 'Getting MAARA Nominees' AT 10

   INSERT INTO TmpRecognition (ASSN) +
    SELECT MAARA FROM FellowStuRecog 

   DEL DUP FROM TmpRecognition

  PAUSE 3 USI 'Updating Names' AT 10

   UPD TmpRecognition SET GLName = GLName, GFName = GFName, +
    GMName = GMName FROM Studata T1, TmpRecognition T2 WHE +
    T2.ASSN = T1.ASSN

    DROP CURSOR C#1

    DECL C#1 CURSOR FOR SEL ASSN FROM TmpRecognition

    OPE C#1
  
    FETCH C#1 INTO VAssn INDIC IVAssn
 
    WHILE SQLCODE <> 100 THEN
      SET VAR VHowMany = 0
      SEL COUNT(*) INTO VHowMany INDIC IVHowMany FROM FellowStuRecog WHE +
        MAARA = .VAssn
      UPD TmpRecognition SET NumOfVotes = .VHowMany WHE Assn = .VAssn
     FETCH C#1 INTO VAssn INDIC IVAssn
   ENDWHILE

  DROP CURSOR C#1

  SET VAR VH1 = ('Medical ALumni Association Recognition Award')

  PRI FellowRecogAward WHE ASSN <> '000000000' +
       ORDER BY NumOfVotes =DESC, GLName,GFName

**********End of Getcount.REP***********************





***********Contents of the XDEBUG.TXT file*************************

old type=   3�new type=   1� old type=   3Xnew type=   1X old type=   3Xnew
type=   1X old type=   3Xnew type=   1X old type=   3�new type=   1� old
type=   3Xnew type=   1X old type=   3Xnew type=   1X old type=   3Xnew
type=   1X old type=   3�new type=   1� old type=   3Xnew type=   1X old
type=   3Xnew type=   1X old type=   3Xnew type=   1X old type=   3�new
type=   1� old type=   3Xnew type=   1X old type=   3Xnew type=   1X old
type=   3Xnew type=   1X old type=   3�new type=   1� old type=   3Xnew
type=   1X old type=   3Xnew type=   1X old type=   3Xnew type=   1X old
type=   3�new type=   1� old type=   3Xnew type=   1X old type=   3Xnew
type=   1X old type=   3Xnew type=   1X old type=   3�new type=   1� old
type=   3Xnew type=   1X old type=   3Xnew type=   1X old type=   3Xnew
type=   1X old type=   3�new type=   1� old type=   3Xnew type=   1X old
type=   3Xnew type=   1X old type=   3Xnew type=   1X old type=   3�new
type=   1� old type=   3Xnew type=   1X old type=   3Xnew type=   1X old
type=   3Xnew type=   1X old type=   3�new type=   1� old type=   3Xnew
type=   1X old type=   3Xnew type=   1X old type=   3Xnew type=   1X old
type=   3�new type=   1� old type=   3Xnew type=   1X old type=   3Xnew
type=   1X old type=   3Xnew type=   1X old type=   3�new type=   1� old
type=   3Xnew type=   1X old type=   3Xnew type=   1X

***************End of file*****************************
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/

Reply via email to