>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.