Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB2IOS.ARC/VERIFDEL.SIG

Text File | 1983-01-04 | 2.8 KB | 100 lines

* verifdel.sig 08/18/83
* locates all records marked for deletion and gives you
* a chance to review same before purging them from file
@ 07,22 SAY 'LOOKING for records marked for DELETION'
GOTO top
LOCATE FOR *
STORE t TO more
DO WHILE more .AND. (.NOT.EOF)
    ERASE
    STORE 'Verify Deleted Records' TO mode
    STORE '<A>ccept, <C>ontinue, <D>elete/Recall' TO prompt1
    STORE '<E>dit, <P>rint, <Q>uit' TO prompt2
    STORE ' ' TO prompt3
    STORE '?' TO command
    IF *
        STORE 'Deleted' TO deleted
    ELSE
        STORE '       ' TO deleted
    ENDIF *
    @  1,25 SAY mode
    @  2, 0 SAY "+--------------------------------------"
    @  2,39 SAY "----------------------------------------+"
    @  3, 5 SAY "ORDER NUMBER:"
    @  3,43 SAY "Complete:"
    @  4, 8 SAY "Last name:"
    @  4,46 SAY "First:"
    @  5,10 SAY "Address:"
    @  6, 9 SAY "(line 2):"
    @  7, 9 SAY "(line 3):"
    @  8,13 SAY "City:"
    @  8,46 SAY "State:"
    @  8,65 SAY "ZIP:"
    @ 10, 2 SAY "Volumes:"
    @ 12, 3 SAY "Amount:"
    @ 12,46 SAY "Enter:"
    @ 12,64 SAY "Ship:"
    @ 13, 2 SAY "Remarks:"
    @ 14, 2 SAY "Remarks:"
    @ 16, 0 SAY "Backorder:"
    @ 17,44 SAY "Catalog:"
    @ 18, 2 SAY "Shipped:"
    @ 18,26 SAY "Shipped:"
    @ 18,62 SAY "Update:"
    @ 19, 0 SAY "+--------------------------------------"
    @ 19,39 SAY "----------------------------------------+"
    @ 20,12 SAY prompt1
    @ 21,12 SAY prompt2
    @ 22,12 SAY prompt3
    @  1, 0 SAY deleted
    @  3,19 SAY order
    @  3,53 SAY comp
    @  4,19 SAY lname
    @  4,53 SAY fname
    @  5,19 SAY addr1
    @  6,19 SAY addr2
    @  7,19 SAY addr3
    @  8,19 SAY city
    @  8,53 SAY state
    @  8,70 SAY zip
    @ 10,11 SAY vol1
    @ 12,11 SAY amt using '$###.##'
    @ 12,53 SAY entered
    @ 12,70 SAY shipped
    @ 13,11 SAY rem1
    @ 14,11 SAY rem2
    @ 16,11 SAY bo
    @ 17,53 SAY catalog
    @ 18,11 SAY bo:ship
    @ 18,35 SAY bo2:ship
    @ 18,70 SAY dayu
    @ 22,56 SAY 'WHAT NEXT?'
    @ 22,70 GET command PICTURE '!'
    READ
    DO CASE
        CASE command = 'A'
            * remove mark of a new record
            REPLACE new WITH f
            continue
        CASE command = 'D'
            IF *
                RECALL
            ELSE
                DELETE
            ENDIF *
        CASE command = 'E'
            DO edit.sig
        CASE command = 'P'
            DO print.sig
        CASE command = 'Q'
            * set up loop to exit
            STORE f TO more
        CASE command = 'C'
            continue
    ENDCASE
ENDDO while more
RELEASE mode, prompt1,prompt2,prompt3
STORE t TO more
STORE '?' TO command
STORE t TO first