Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Program is too large
Message
From
23/05/2002 10:54:47
 
 
To
23/05/2002 03:17:05
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00660269
Message ID:
00660483
Views:
19
>I believe it has only one offending procedure that passed the 64K limit. Use strextract() to locate. ie:
>
>
>lcClassFile = upper(FileToStr('ProcedureFile.prg')) && I guess it's a procedure file already
>lnOccurs = ('PROCEDURE',lcClassFile)
>for ix = 1 to lnOccurs
> lcProc=strextract(lcClassFile,'PROCEDURE','PROCEDURE',ix,3)
> if len(lcProc) > 65500
>    ? mline(lcProc,1)
> endif
>endfor
>
The refactoring allowed me to proceed. So, the method is now lower than 65k.
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Previous
Reply
Map
View

Click here to load this message in the networking platform