Object: | frmbehindsc |
LPARAMETERS tcStoredProcFileName LOCAL lnFileHandle, ; lnFileSize, ; lcStoredProcs COPY PROCEDURES TO (tcStoredProcFileName) lnFileSize = FileSize(tcStoredProcFileName) && IN UTILITY.PRG lnFileHandle = FOPEN(tcStoredProcFileName) =FSEEK(lnFileHandle, 0) lcStoredProcs = FREAD(lnFileHandle, lnFileSize) =FCLOSE(lnFileHandle) RETURN lcStoredProcs