HP3000-L Archives

September 2002, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Extraneous text after end of expression. TO ALL MPEX gurus out there!!!!
From:
Jean <[log in to unmask]>
Reply To:
Jean <[log in to unmask]>
Date:
Fri, 20 Sep 2002 15:05:56 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (67 lines) 
When I compile the code below, I get the error Extreneous text after end of expression.  Anybody knows why?



Jean Huot

Northern Credit Bureaus Inc.



If fexists("nwtscma1") then

    Begin

           While vefinfo("nwtscma1").opened Do

           Pause(60);

           End;

     MPE ('purge nwtscma1');

    End;

Else

           Setvar flag, "n";

           If vefinfo("nwtscmad").eof > 0 and &

              (not vefinfo("nwtscmad").opened) then

              Begin

                  Setvar flag, "o"; 

                  Rename nwtscmad, nwtscma1;

                  MPE ('Build nwtscmad;rec=-320,24,f,ascii;disc=500000,32,1');

              End;

            If vefinfo("nwtscmae").eof > 0 and &

               (not vefinfo("nwtscmae").opened) &

                and flag = "n" then

                Begin

                     Setvar flag, "o"; 

                     Rename nwtscmae,nwtscma1;

                     MPE ('Build nwtscmae;rec=-320,24,f,ascii;disc=500000,32,1');

               End;

               If flag ="o" then

                  MPE ('Stream cndatape.datastrm');

endif;

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2