Conference iosg::all-in-1_v30

4131.0. "2.4 To 3.0 CAB ADD_ATTRIBUTE" by TROOA::DROSE () Tue May 03 1994 19:55

Hi,

We're upgrading to ALL-IN-1 V3.0 from ALL-IN-1 V2.4.

The following arg form works fine in the 2.4 system but does not work
in the V3.0 environment.

There are no error messages. I have included a trace log.  
There are no obvious errors.

The same problem occurs if I do the command interactively yet OA$STATUS is 1.

There is a similar arg form that updates the KEYWORDS.  This form works fine
on both the 2.4 and 3.0 systems.

I would appreciate any ideas as to the problem.

Thanks for your help,
Dan


Form:    ADM_MR 
Library: DISK$DATA0:[LAW.LAWLIB]LAW.FLB; 
--------------------------------------------------------------------------------
 
;;.TYPE;; 
 
ARG/overlay=ADM_LFCI 
/post='CLEAR \IFEXIT \CAB ADD_ATTRIBUTE OA$CURDOC,"MODDAT",$REVDAT' 
 
;;CREDAT;; 
 
/put=$REVDAT/GET=$REVDAT


![IVP]    Form: ADM_MR
![FORM]   Form ADM_MR starting
![FORM]   Form ADM_MR opening
![FORM]   Form ADM_MR compiling
![FORM]   Form ADM_MR compiled
![FLOW]   Form ADM_MR opening, Library: DISK$DATA0:[LAW.LAWLIB]LAW.FLB;
![FUNC]   Function: OA$FORM_ARG, Cmd line: 
![FIELD]  Field CREDAT being pre-processed. Workspace: 00046078
![SYMBOL] Symbol: $REVDAT, Value: 04/04/95
![PUT]    Field: CREDAT/0, Page: 1, Text: 04/04/95
![FIELD]  Current Field: CREDAT/0
![FORM]   Form: ADM_MR, Field: CREDAT/0, Page: 1. Getting user input
![FLOW]   Form ADM_MR displaying, Workspace: 00046078
![INPUT]  Terminal input follows:
{CR}
![FORM]   Form: ADM_MR, Field: CREDAT/0, Page: 1, Key Value: {CR}
![FUNC]   Function: OA$FLD_DONE, Cmd line: 
![FIELD]  Field: CREDAT/0. All fields checked
![FIELD]  Field CREDAT being post-processed. Workspace: 00046078
![FIELD]  Field: CREDAT. Returning field contents
![FORM]   Form: ADM_MR, Field: CREDAT/0, Page: 1, Input: 04/04/95
![FUNC]   Function: CLEAR, Cmd line: 
![FLOW]   Undisplaying all workspaces
![FUNC]   Function: IFEXIT, Cmd line: 
![FUNC]   Function: CAB, Cmd line: ADD_ATTRIBUTE OA$CURDOC,"MODDAT",$REVDAT
![SYMBOL] Symbol: OA$CURDOC, Value: [LAW_CAS]STD TEST             000016
![SYMBOL] Symbol: "MODDAT", Value: MODDAT
![SYMBOL] Symbol: $REVDAT, Value: 04/04/95  <------- new date
![IO]     Updating current record in DOCDB
![IO]     Releasing record locks on DOCDB
![FORM]   Form ADM_MR dispatched
![FLOW]   Current field index: 0. Form context follows:
![FLOW]   Form Name                      Dsab      Workspace   Prior Dsab
![FLOW]   ADM_MR                         003648F8  00046078    00363AC0
![FLOW]   LFFORM                         00363AC0  0004603C    00000000
!   
![FORM]   Form ADM_MR closing
![FUNC]   Function: GET, Cmd line: #CURDOC="$LFDOC"
![SYMBOL] Symbol: #CURDOC="$LFDOC", Value: $LFDOC
![FUNC]   Function: ., Cmd line: .IF $LFDOC:6:30 NES "" THEN CAB CURRENT $LFDOC 
!               ELSE CAB CLEAR
![SCRIPT] Form: LFFORM, Statement: .IF $LFDOC:6:30 NES "" THEN CAB CURRENT $LFDO
!               C ELSE CAB CLEAR
![SYMBOL] Symbol: $LFDOC:6:30, Value: 000016
![SYMBOL] Symbol: "", Value: 
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition $LFDOC:6:30 NES ""  is TRUE
![SCRIPT] THEN Operation starting
![SCRIPT] Form: LFFORM, Statement: CAB CURRENT $LFDOC
![FUNC]   Function: CAB, Cmd line: CURRENT $LFDOC
![SYMBOL] Symbol: $LFDOC, Value: [LAW_CAS]STD TEST             000016
![SYMBOL] Symbol: OA$FULL_NAME, Value: Legel Department
![PUT]    Field: USER/0, Page: 1, Text: Legel Department
![SYMBOL] Symbol: OA$TITLE, Value: 
![SYMBOL] Symbol: OA$DAY, Value: Tuesday
![PUT]    Field: DAY/2, Page: 1, Text: Tue
![SYMBOL] Symbol: OA$DATE_FULL, Value: 03-May-1994
![PUT]    Field: DATE/3, Page: 1, Text: 03-May-1994
![SYMBOL] Symbol: OA$CURDOC_FOLDER, Value: [LAW_CAS]STD TEST
![PUT]    Field: CURFDR/4, Page: 1, Text: [LAW_CAS]STD TEST
![SYMBOL] Symbol: OA$CURDOC_TITLE, Value: SERVICE DESCRIPTION                   
!                                                2
![PUT]    Field: CURTITL/5, Page: 1, Text: SERVICE DESCRIPTION                
![SYMBOL] Symbol: OA$CURDOC_KEYWORDS, Value: aaa
![PUT]    Field: KEYWORDS/6, Page: 1, Text: aaa
![SYMBOL] Symbol: OA$CURDOC_DOCNUM, Value: 000016
![PUT]    Field: CURNUM/7, Page: 1, Text: 000016
![SYMBOL] Symbol: OA$CURDOC_CREDAT, Value: 03/22/94
![PUT]    Field: CREDAT/8, Page: 1, Text: 03/22/94
![SYMBOL] Symbol: OA$CURDOC_MODDAT, Value: 05/02/94 <---- not changed!!!
![PUT]    Field: MODDAT/9, Page: 1, Text: 05/02/94
![IO]     Getting record from CAB$PENDING, Key: , Key-of-ref: PENDING_KEY/0
![IO]     Status: record not found
![SYMBOL] Symbol: OA$MAIL_COUNT_DISPLAY, Value: 
![FIELD]  Field MAIL being pre-processed. Workspace: 0004603C
![FIELD]  Current Field: CHOICE/10
![FORM]   Form: LFFORM, Field: CHOICE/10, Page: 1. Getting user input
![FLOW]   Form LFFORM displaying, Workspace: 0004603C
![INPUT]  Terminal input follows:

I'm guessing here, but maybe ALL-IN-1 V3.0 tries to optimise file cabinet disk
accesses - it probably doesn't re-read values for (eg) OA$CURDOC_MODDAT unless
you select a different document.  Also, the file cabinet does a lot of
caching which means that changes aren't always immediately visible.

After using your form, select a different document, read it, then go back to the
original one and read it (or SH, etc) to see if your changed value has been
stored in the file cabinet.

If it has, try using CABINET CURRENT after your CABINET ADD_ATTRIBUTE to make
ALL-IN-1 re-establish the document context and see if that helps.

Scott

    
    hi,
    
    the calling form does a cab current in the form preprocessing...
    
    even when I exit ALL-IN-1 then go back in the changes are not seen.
    
    Any other ideas?
    
    Thanks,
    Dan
    
    

    Hi,
    
    There was a change here between V2.4 & V3.0. In V3.0 the fields MODDAT
    and MODIFIED have been combined into one date field. I've checked the
    code, and if you change the field MODIFIED then MODDAT will
    automatically be updated, but not the other way round. 
    
    HTH
    
    Stuart

    
    Hi,
    
    Thanks for hint....
    
    I had to also add a date_convert to format 2 before I could update the
    modified date.
    
    Thanks for your help,
    
    Dan