home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Phoenix CD 2.0
/
Phoenix_CD.cdr
/
15a
/
convdb2.zip
/
CONFILE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
4KB
|
122 lines
************************************************************
************************************************************
***** File Converter (c) COPYRIGHT 1983 *****
***** confile.cmd Data Based Advisor *****
***** *****
***** AUTHOR: Larry Eitel *****
***** DATE: October 29, 1983 *****
***** *****
***** called from con.cmd *****
***** *****
***** PURPOSE: *****
***** Get a valid files. One will be the PRIMARY *****
***** file that will be appended to. The other file *****
***** (SECONDARY) will contain the information that *****
***** contains the information that will converted *****
***** and added to the to file tion from the file *****
***** that will be converted and added to the "to" *****
***** file. *****
***** *****
***** DISCLAIMER: *****
***** The author makes or implies no warranties *****
***** regarding the operation or usefulness of this *****
***** program. It is recommended the user make *****
***** backups of any valuable files. *****
************************************************************
************************************************************
STORE t TO check
DO WHILE check
STORE ' ' TO fromdriv
STORE ' ' TO fromfile
***** Get drive letter
@ 05,00 SAY 'Enter the drive letter of the file to '+;
'convert from, <RET> to quit. ' GET fromdriv PICTURE '!'
READ
IF fromdriv= ' '
ERASE
RELEASE ALL
CANCEL
ENDIF fromdriv= ' '
***** Get the name of the file to convert from
@ 06,00 SAY 'Enter the file to convert from, ' +;
'<RET> to list files. ' GET fromfile PICTURE 'XXXXXXXX'
READ
***** Get drive letter
IF fromdriv# ' '
STORE fromdriv+ ':' +fromfile TO fromck
STORE ' ON ' +fromdriv TO where
ELSE
STORE ' ' TO where
STORE fromfile TO fromck
ENDIF fromdriv# ' '
IF fromfile= ' '
***** List available files on drive chosen
@ 7,0 SAY ' '
LIST FILE &where
?
? 'Press any key to continue'
WAIT
ERASE
? header
LOOP
ENDIF fromfile= ' '
***** Make sure file chosen is on drive chosen
IF .not.FILE(fromck)
?? chr(7)
SET inte OFF
@ 24,00 SAY 'That file was not found, try again.'
SET inte ON
LOOP
ELSE
STORE f TO check
ENDIF
ENDDO WHILE check
@ 24,00 SAY ' '
**** get the name of the file to append to
STORE t TO check
DO WHILE check
STORE ' ' TO todriv
STORE ' ' TO tofile
@ 07,00 SAY 'Enter the drive letter of the file to '+;
'append to, <RET> to quit. ' GET todriv PICTURE '!'
READ
IF todriv= ' '
ERASE
RELEASE ALL
CANCEL
ENDIF todriv= ' '
@ 08,00 SAY 'Enter the file to append to, ' +;
'<RET> to list files. ' GET tofile PICTURE 'XXXXXXXX'
READ
IF todriv# ' '
STORE todriv+ ':' +tofile TO tock
STORE ' ON ' +todriv TO where
ELSE
STORE ' ' TO where
STORE tofile TO tock
ENDIF todriv# ' '
IF tofile= ' '
***** List available files on drive chosen
@ 10,0 SAY ' '
LIST FILE &where
?
? 'Press any key to continue'
WAIT
ERASE
? header
LOOP
ENDIF tofile= ' '
***** Make sure file chosen is on drive chosen
IF .not.FILE(tock)
?? chr(7)
SET inte OFF
@ 24,00 SAY 'That file was not found, try again.'
SET inte ON
LOOP
ELSE
STORE f TO check
ENDIF
ENDDO WHILE check
@ 24,00 SAY ' '
RETURN