Conference ilbbak::ibi_focus

454.0. "help with CONCURRENT access" by MILPND::DANDREA (cool change) Tue Sep 03 1991 12:45

    
    FOCUS V.6.1 accessing Rdb
    
        >>>EX fexname
    	>>>JOININT	CALLED TO READ DATA
    
    	%RMS-F-FAC, record operation not permitted by specific file access
    								  (FAC)
    	ERROR AT OR NEAR LINE   13 IN PROCEDURE fexname.FEX  (see attached)
    
    	(FOC198) Fatal Error in Database I/O.  Focus Terminating.
    
    	Error writing DISK:[DIRECTORY]FOCSORT.FTM , PAGE   1, CODE=01*
    
    	%NONAME-W-NOMSG, Message number 00000000
    
    	%DCL-W-SKPDAT, image data (records not beginning with "$") ignored
    
    
    I get this problem when I try to run two fexes against the same table
    at the same time.  Users will need to access simultaneously...  
    
    Attached are the FEX, MAS and ACX files.  Note that line 13 of the FEX
    is the END of the fex.  Thanks for any help / comments, etc.
    
    
    Nancy

    	the FEX
    
FILEDEF OFFLINE DISK ONER05.DOC
OFFLINE CLOSE
SET LINES=62
TABLE FILE CC_TO_OR
PRINT COC_ORGNZN_UNIT_CD AS 'COST_CENTER' AND CTR_OF_CTRL_NAME AS 'CC NAME'
AND PARENT_ORGNZN_UNIT_CD AS 'ORG_CODE' AND ORGNZN_UNIT_NAME AS 'ORG NAME'
BY COC_ORGNZN_UNIT_CD NOPRINT
HEADING CENTER                                                                
"Mapping of Cost Center to Organization"
"From the ONE_SYSTEM database"                                                
"Date:  &DATE"                                                                
"</2"                                                                         
END 
    

    
	the MAS
    
FILE=CC_TO_OR, SUFFIX=RDB,
SEGNAME=CC_TO_OR, SEGTYPE=S0,$
 FIELD=COC_ORGNZN_UNIT_CD              ,ALIAS=COC_ORGNZN_UNIT_CD                ,
                                       USAGE=A3     ,ACTUAL=A3     ,MISSING=ON ,$
 FIELD=CTR_OF_CTRL_NAME                ,ALIAS=CTR_OF_CTRL_NAME                  ,
                                       USAGE=A25    ,ACTUAL=A25    ,MISSING=ON ,$
 FIELD=PARENT_ORGNZN_UNIT_CD           ,ALIAS=PARENT_ORGNZN_UNIT_CD             ,
                                       USAGE=A3     ,ACTUAL=A3     ,MISSING=ON ,$
 FIELD=ORGNZN_UNIT_NAME                ,ALIAS=ORGNZN_UNIT_NAME                  ,
                                       USAGE=A25    ,ACTUAL=A25    ,MISSING=ON ,$
    
   
    
    	the ACX
    
SEGNAME= CC_TO_OR, TABLENAME= 'CC_TO_OR.CC_TO_ORG_DESC_VIEW' ,
        KEYS  = 0 ,
        KEYDUP= YES ,
        WRITE = NO  ,$
    

    The problem is that there is conflict with the FOCSORT.FTM file. What
    you need to do is start FOCUS for each user using: $ FOCUS/SUBDIR=DELETE
    
    What this will do for you is create a separate sub-directory for each
    user's 'work' files, so that they don't walk on each other. BUT for the
    user to see their report you HAVE TO copy it out of this sub-directory
    at end of the .FEX or FOCUS will delete it. The copy will look like:
    	-VMS COPY/LOG FOC$TMP:report.doc user$dir:
    where the 'user$dir:' is the directory where each particular user can
    distinguish and get their report. Then when FOCUS ends it will cleanup
    the work files and sub-directory.
    
    Good luck, Greg

Also - be careful with the subdir=delete in the focus call - you will need
to make sure that the user finishes with at FIN otherwise the temp files
don't get cleaned up - on a FOCUS abort right out of the FOCUS environment
also doesn't clean up files - 

	LisaC

    For related information on /SUBDIR focus option, see 442.6