extractprg Method
Object: frmbehindsc
Expand/Collapse source code of procedure extractprg Source Code
LPARAMETERS tnOutFileHandle, tcFileName

LOCAL lnFileHandle

tcFileName = "PROGS\" + tcFileName

lnFileHandle = FOPEN(tcFileName)
IF lnFileHandle = -1
  =FPUTS(tnOutFileHandle,ERR_FOPEN_LOC + tcFileName)  &&"Could not open: "
  RETURN
ENDIF

DO WHILE !FEOF(lnFileHandle)
  =FPUTS(tnOutFileHandle, FGETS(lnFileHandle))
ENDDO

=FCLOSE(lnFileHandle)
RETURN