Conference iosg::all-in-1_v30

2971.0. "WP TR T1 {GOLD X} deletes currently selected document" by COMICS::BARHAM (Norbert:) Tue Jul 06 1993 13:50

    ALL-IN-1 3.0-1
    
    When a user selects WP TR T1 and exits early using the correct method of
    GOLD X, then their currently selected document is deleted and cannot be
    retrieved.  It is NOT placed in the wastebasket!
    
    The problem does not apparently occur on the other training options.
                          
    Doing a trace here I see it does
    
    .fu CABINET DELETE_DOCUMENT #EXAMPLE1
    
    but for some reason my #EXAMPLE1 is blank, which is why I think it goes
    wrong. Trace follows.
                                 
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 46: .if #DELETE_NEEDED EQ "3" then
    .goto DEL3
    ![SYMBOL] Symbol: #DELETE_NEEDED, Value:
    ![SYMBOL] Symbol: "3", Value: 3
    ![SCRIPT] IF Operation starting
    ![SCRIPT] .IF condition #DELETE_NEEDED EQ "3"  is FALSE
    ![SCRIPT] Null ELSE clause detected
    ![IO]     Getting next record from TXT$TXL_SCRIPT, Text starts ""
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 47:
    ![IO]     Getting next record from TXT$TXL_SCRIPT, Text starts ".label
    DEL1"
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 48: .label DEL1
    ![IO]     Getting next record from TXT$TXL_SCRIPT, Text starts ""
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 49:
    ![IO]     Getting next record from TXT$TXL_SCRIPT, Text starts ".fu
    CABINET DEL"
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 50: .fu CABINET DELETE_DOCUMENT
    #EXAMPLE1
    ![FUNC]   Function: CABINET, Cmd line: DELETE_DOCUMENT #EXAMPLE1
    ![A1LOG]  Entry: %OA-I-LOGFUN, Function: CABINET        
    DELETE_DOCUMENT #EXAMPL
    !               E1
    ![SYMBOL] Symbol: #EXAMPLE1, Value:
    ![IO]     Getting record from DOCDB by Address
    ![IO]     Getting field TYPE from DOCDB, Value: DOCUMENT
    ![IO]     Getting field MAIL_STATUS from DOCDB, Value:
    ![IO]     Getting field DELETE from DOCDB, Value: Y
    ![IO]     Getting field MODIFY from DOCDB, Value: Y
    ![IO]     Deleting record from DOCDB, Key: TEST                         
    998712
    ![IO]     Getting record from CAB$PDAF, Key: [.DOC8]ZUSGMAGWS.WPL,
    Key-of-ref: D
    !               AF_KEY/0
    ![IO]     Locating next record to read from CAB$PDAF, Key:
    [.DOC8]ZUSGMAGWS.WPL,
    !                Key-of-ref: DAF_KEY/0
    ![IO]     Deleting file [.DOC8]ZUSGMAGWS.WPL
    ![IO]     Deleting record from CAB$PDAF, Key: [.DOC8]ZUSGMAGWS.WPL
    ![IO]     Releasing record locks on CAB$PDAF
    ![IO]     Getting next record from TXT$TXL_SCRIPT, Text starts ".fu GET
    #DELETE"
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 51: .fu GET #DELETE_NEEDED = #EXAMPLE1
    = ""
    ![FUNC]   Function: GET, Cmd line: #DELETE_NEEDED = #EXAMPLE1 = ""
    ![A1LOG]  Entry: %OA-I-LOGFUN, Function: GET             #DELETE_NEEDED
    = #EXAMP
    !               LE1 = ""
    ![SYMBOL] Symbol: #DELETE_NEEDED = #EXAMPLE1 = "", Value:
    ![IO]     Getting next record from TXT$TXL_SCRIPT, Text starts ".goto
    NODELETE"
    ![SCRIPT] OA$CBI:CBIPEXFRM Line 52: .goto NODELETE
    
    
    
    Any ideas ?!
    
    Thanks,
    
    Clive
    

    Clive,
    
    known problem - STARS article entitled:
    ALL-IN-1 V3.0: WP Training (T1) deletes Current Document on EXIT       
    
    Regards,
    
    Andrew.D.Wicks