home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
MAINTAIN.INV
< prev
next >
Wrap
Text File
|
1983-01-04
|
4KB
|
110 lines
* maintain.inv 08/18/83
STORE t TO more
DO WHILE more
STORE CHR(PEEK(063)) TO dr
ERASE
STORE '?' TO command
@ 02,00 SAY '---------------------'
@ 02,20 SAY '---------------------'
@ 02,40 SAY '---------------------'
@ 02,60 SAY '--------------------'
@ 02,19 SAY '> > > F I L E M A I N T E N A N C E < < <'
@ 06,22 SAY '1. Backup data file'
@ 08,22 SAY '2. Zero shipment and backorder counters'
@ 10,22 SAY '3. Use browse command'
@ 12,22 SAY '4. Return to main menu'
@ 15,00 SAY '--------------------'
@ 15,20 SAY '--------------------'
@ 15,40 SAY '--------------------'
@ 15,60 SAY '--------------------'
@ 17,22 SAY 'What next'
@ 17,33 GET command picture '!'
READ
DO CASE
CASE command = '1'
STORE 'Y' TO doit
ERASE
@ 01,05 SAY 'This module makes a backup of the DATA File to another disk'
@ 03,05 SAY 'Do you want to do a backup of the DATA File (Y/N) ?'
@ 03,59 GET doit PICTURE '!'
READ
IF doit = 'Y'
@ 03,00
@ 07,05 SAY 'The DATA File is on drive '+dr+' and you normally backup to drive B'
@ 09,05 SAY 'Make sure the backup disk is in the drive selected for backup'
RESET
STORE 'B' TO bdr
@ 13,05 SAY 'Which drive selected for backup DATA File ? ' GET bdr PICTURE '!'
READ
DO WHILE @(bdr,'ABCD') = 0
@ 13,05 SAY 'Which drive selected for backup DATA File ? ' GET bdr PICTURE '!'
READ
ENDDO while @
IF bdr <> dr
@ 17,05 SAY 'Now copying DATA File from drive '+dr+' to drive '+bdr+ ' '
COPY TO &bdr.:stockbak
ELSE
@ 17,05 SAY 'Cant backup to same drive - Aborting'
@ 23,00 SAY 'Hit RETURN to Continue'
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ENDIF not same drive
ENDIF do backup
CASE command = '2'
STORE 'N' TO command
ERASE
@ 01,05 SAY 'This Module will zero all order and backorder counters'
@ 03,05 SAY 'Do you wish to continue (Y/N) ? '
@ 03,45 GET command picture '!'
READ
IF command = 'Y'
@ 10,10 SAY ' COUNTERS NOW BEING ZEROED FOR VOLUME '
GOTO TOP
DO WHILE .NOT. EOF
@ 10,55 SAY disk
REPLACE change1 WITH f
REPLACE daych1 WITH ' '
REPLACE ship WITH 0
REPLACE change2 WITH f
REPLACE daych2 WITH ' '
REPLACE ship WITH 0
REPLACE backship WITH 0
SKIP
ENDDO while not eof
ENDIF command = Y
CASE COMMAND = '3'
* browse thru records
ERASE
@ 01,12 SAY '***WARNING*** ***WARNING*** ***WARNING***'
@ 03,13 SAY 'Changes made will be written to the File'
@ 06,12 SAY 'CTRL-C write current record & go down'
@ 07,12 SAY 'CTRL-R write current record & go up'
@ 08,12 SAY 'CTRL-Z/B pans screen left or right'
@ 09,12 SAY 'CTRL-V toggles Insert on or off'
@ 10,12 SAY 'CTRL-G Delete character under cursor'
@ 11,12 SAY 'CTRL-U Delete or Recall current record'
@ 12,12 SAY 'CTRL-Q exit Dont Write Current record'
@ 13,12 SAY 'CTRL-W exit and Save all changes'
* get a starting point in file
STORE 0 TO stletter
@ 22,00
@ 22,12 SAY 'At what volume shall we start browsing'
@ 22,57 Get stletter
READ
* goto starting point or next if no find
LOCATE for disk = stletter
IF EOF
GOTO TOP
ENDIF EOF
* browse thru file
SET ESCAPE OFF
BROWSE
SET ESCAPE ON
CASE (command = '4' .OR. command = 'Q')
STORE f TO more
ENDCASE
ENDDO while more
RELEASE ALL
STORE t TO first