PREVWINDOW PREVWINDOW Transfer SET COLOR TO &COLOR2 TRANSFER MOUTPATH MOUTFILE MINFILE MLINPUT PROGRAM MNUMRECS BUFLEN C:\ MOUTPATH @)F3 MOUTFILE C:\ MINFILE MLINPUT MANSWER MYNFILTER Q@)F3 MFILTER MNUMRECS BUFLEN MCONT MCONT This routine will either transfer data into the current data file (Import), or transfer data from the current data file to another file (EXPORT). The imported file must be in comma-delimited format. The exported file will be in comma-delimited format. mport, xport, or uit ? MCONT MCONT MCONT IMPORT SET COLOR TO &COLOR4 ontinue, or uit Drive, path & File name: MINFILE A:\XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX MINFILE MINFILE USE &DATAFILE INDEX &DATAINDEX MCHAR MFNUM MCHAR MCONT Number of records imported -> MCONT MCHAR MCHAR MCHAR MCHAR MFNUM MCHAR MFNUM MCHAR MCHAR MCHAR MCHAR MFNUM MFNUM MFNUM MCHAR MFNUM MCHAR MCHAR MCONT MCHAR FNAME LNAME TITLE CONAME PHONE1 PHONE2 ADDL1 ADDL2 STATE ZIP_EXT NOTE1 NOTE2 NOTE3 CATEG BDATE / / CTOD( REPLACE BDATE WITH &mDT MISCDATE / / CTOD( REPLACE MISCDATE WITH &mDT MISCCHAR NUMINT NUMREAL UPDATED / / CTOD( REPLACE UPDATED WITH &mDT MNUMRECS MNUMRECS MNUMRECS MFNUM MCHAR MCHAR MCHAR MCHAR MCHAR MCHAR MCHAR File Does not Exist. Press any key to continue... IMPORT MCONT EXPORT SET COLOR TO &COLOR4 ontinue, or uit MCONTINUE MCONTINUE MOUTPATH I@)Fd I@I'3 MOUTPATH Drive & Path -> MOUTPATH A:\XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX MOUTPATH MOUTPATH MOUTPATH MOUTPATH MOUTPATH Drive or Path does not exist. Please re-enter. MCONTINUE File Name (a PRN extention will automatically be added) -> MOUTFILE NNNNNNNN MOUTFILE MOUTFILE MOUTFILE MOUTFILE MOUTPATH MOUTFILE MOUTFILE MOUTFILE Replace ? SET COLOR TO &COLOR3 File already exists. dd to the bottom, eplace, or uit ? MANSWER MANSWER Replace ? EXPORT MANSWER TR FILTER Filter the records exported ? MYNFILTER MYNFILTER MYNFILTER Filter Setup SET COLOR TO &COLOR5 MFLTR_OK USE &DATAFILE INDEX &DATAINDEX MFLTR_OK Enter the filter you would like (up to 70 Characters) MFILTER MFILTER The filter you have set is not a valid (logical) filter. ry again, or uit ? MFLTR_OK MFLTR_OK MFLTR_OK EXPORT Filter Setup TRANSFER EXPORT PREVWINDOW TRANSFER MFLTR_OK SET FILTER TO &mFILTER No records found. Press any key to continue. Q@)F3 MFILTER EXPORT Filter Setup TRANSFER EXPORT PREVWINDOW TRANSFER EXPORT TRANSFER MANSWER MOUTFILE Locating the end of file. BUFLEN Adding Data to the file. MOUTFILE USE &DATAFILE INDEX &DATAINDEX MFILTER SET FILTER TO &mFILTER WRITING INFO FNAME )D)+d LNAME )D)+d TITLE )D)+d CONAME )D)+d PHONE1 PHONE2 ADDL1 )D)+d ADDL2 )D)+d )D)+d STATE )D)+d ZIP_EXT NOTE1 )D)+d NOTE2 )D)+d NOTE3 )D)+d CATEG BDATE / / BDATE BDATE iI)+d BDATE iI)+d MISCDATE / / MISCDATE MISCDATE iI)+d MISCDATE iI)+d MISCCHAR NUMINT NUMREAL @iI)+ UPDATED / / UPDATED UPDATED iI)+d UPDATED iI)+d READING INFO MNUMRECS MNUMRECS Number of Records Exported -> MNUMRECS iI)+d EXPORT Transfer Transfer PREVWINDOW PROGRAM