* SCOUTSUP.PRG V1.02 BY DEREK FOUNTAIN
* OUTPUT SUPPLIERS FILE TO A PD FILE

DO WHILE 1=1
  CLS
  AT 0,30 SAY "OUTPUT SUPPLIER FILE"
  AT 2,20 SAY "Please enter the name of the output file"
  LET filenam$="                    "
  AT 6,25 SAY "Leave the name blank to abandon"
  AT 4,30 GET filenam$                                   
  IF filenam$=" "
    RELEASE filenam$,over$
    RETURN
  ENDIF
  AT 2,20 SAY "                                         "
  AT 4,30 SAY "                      "                    
  AT 6,25 SAY "                               "
  LET over$="Y"
  IF FILE(filenam$)=1
    AT 3,20 SAY "File exists - Overwrite it? (Y/N) >>>"
    LET over$=" "
    DO WHILE over$=" "
      AT 3,59 GET over$
      IF WHERE(over$,"YyNn")=0
        LET over$=" "
      ENDIF
    ENDDO
  ENDIF
  IF UPPER(over$)="Y"
    AT 3,20 SAY "Copying data to Pipedream file "+filenam$
    USE SCSUPP INDEX SCSUPP.NDX
    COPY TO &filenam$ PD
    AT 3,20 SAY "                                                  "
    AT 3,11 SAY "Process completed - The file MUST be loaded as plain text"
    AT 5,27 SAY "Press any key to continue"
    WAIT
    RELEASE filenam$,over$
    RETURN
  ENDIF
ENDDO