[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:FOCUS, from INFORMATION BUILDERS
Moderator:ZAYIUS::BROUILLETTE
Created:Thu Feb 19 1987
Last Modified:Mon May 05 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:615
Total number of notes:1779

543.0. "error 1006 : help needed" by MLNAD0::FERRARIF () Tue Feb 09 1993 10:54

	Hi,

	While running in batch Focus procedure, I get the following error:

	(FOC1006) DDNAME IS NOT ALLOCATED : USR_054

	The procedures extracts records from a RDB, with a list of JOIN.
	during one of this join the error occurs.
	The strange situation is that the same procedure is working
	correctly on other machines, with the only difference that where
	the error is occurring, I have a very big database.
	Can anyone help me?
	I enclose the procedure and the log file.
	Thanks in advance.

	Fabio

********************************************************************************
1) LOG FILE
********************************************************************************

$!*****************************************************************************
$!  Title                : USR_05_R.COM
$!  Author               : Fabio Ferrari         14/7/1989
$!  Version              : V1.00
$!  Enviroment           : Language              DCL
$!                       : Operating System      VMS     V5.3
$!  Modification log     : -
$!*****************************************************************************
$!
$ SET NOON
$ on error then goto ERROR_EXIT
$ SAVE_DIR = F$TRNLNM("SYS$DISK")+F$DIRECTORY()
$ SET DEFAULT SPORT$$D_DML
$!
$ IF F$SEARCH ("SPORT$$D_WRK:USR_05.WRK") .NES. "" THEN -
  DELETE/NOLOG SPORT$$D_WRK:USR_05.WRK;*
$!
$! set verify
$!
$! Added the following two line because it seems FOCUS doesn't succeed in
$! creating a subdirectory when there are ACLs (!!!) -- A.A.
$!
$ this_proc = F$getjpi("","PID")
$ define/job qtmpdir_path "[dml.20200A97]"
$ create/dir [.20200A97]
$ FOCUS /NOBANNER/SUBDIR=KEEP   "EXEC SPORT$$D_EXE:USR_05_R.FEX"
>>>>>>PARAMETERS FOR SELECTION
Start Date Quote Creation: 01-JAN-93
End   Date Quote Creation: 31-JAN-93

Admin Cost Centre   : ALL
Admin Badge Nr      : ALL
Sales Badge Nr      : ALL
Company  Nr         : ALL
Company  Type       : ALL
Service Costcentres : ALL

%SPORT-I-USR_051, USR_051 created with    353663 lines
%SPORT-I-USR_052, USR_052 created with    353663 lines

%SPORT-I-USR_051, USR_051 deleted
%SPORT-I-USR_053, USR_053 created with    398565 lines

%SPORT-I-USR_052, USR_052 deleted
%SPORT-I-USR_054, USR_054 created with    889162 lines

%SPORT-I-USR_053, USR_053 deleted
(FOC1006) DDNAME IS NOT ALLOCATED : USR_054
%SPORT-I-UR5NTGTD, no records selected
%NONAME-W-NOMSG, Message number 00000000
$!
$ set def [.20200A97]
$!
$ if f$search ("usr_05*.ftm") .nes. "" then  delete/nolog usr_05*.ftm;*
$ if f$search ("usr_05*.mas") .nes. "" then  delete/nolog usr_05*.mas;*
$ if f$search ("focs*.ftm")   .nes. "" then  delete/nolog focs*.ftm;*
$!
$ set def [-]
$!
$ dot_dir = ".dir;*"
$ alldir = this_proc + dot_dir
$!
$ if f$search ("20200A97.dir;*") .nes. ""
$   then
$	set file /prot = o:rwed 20200A97.dir;*
$	delete/nolog 20200A97.dir;*
$   endif
$!


********************************************************************************
2) THE PROCEDURE
********************************************************************************

-*******************************************************************************
-************************ T O P   O F   S O U R C E ****************************
-*******************************************************************************
-*
-*    System        :     Sport
-*
-*    Procedure     :     Usr_05_r.fex
-*
-*    Author        :     Fabio Ferrari
-*
-*    Data          :     30-jul-89
-*
-*    Description   :     outstanding quotes
-*
-*    Output        :     File Sport$$d_wrk:usr_05.wrk
-*
-*    Modifications Log
-*    Author     Data       Notes
-*    Fabio F.   30-oct-91  Deleted extraction of contracts 'S'.
-*   			    Only 'Q' and 'A' will be selected
-*
-**   -          -          -
-***************************************************************************-
-***************************************************************************-
-**
-************************************************************
-*  DEFINITION OF THE RELATIONS
-************************************************************
-**
FI  EN_CO_LO DISK SPORT$$F_SPACEDB
FI  EN_MA    DISK SPORT$$F_SPACEDB
FI  EN_KI    DISK SPORT$$F_SPACEDB
FI  EN_SP    DISK SPORT$$F_SPACEDB
FI  EN_OS    DISK SPORT$$F_SPACEDB
FI  EN_SL    DISK SPORT$$F_SPACEDB
FI  EN_GP    DISK SPORT$$F_SPACEDB
FI  EN_KO    DISK SPORT$$F_SPACEDB
FI  EN_CN    DISK SPORT$$F_SPACEDB
-RUN
-** 
-********************************************************************
-*     CREATION OF THE REPORT
-********************************************************************
-**
DEFINE FILE EN_KO
KO_DEL_FLAG/I1=IF KO_DELETE_FL IS 'D' THEN 0 ELSE
               IF KO_DELETE_FL IS 'H' THEN 0 ELSE 1;
END
-**
TABLE FILE EN_KO
PRINT KO_TYPE_CD
AND KO_SERIAL_NO
AND KO_SYS_ID
AND KO_LO_SYS_ID
-**
IF KO_DEL_FLAG  IS 1
IF KO_NU_KO_SYS EQ ' '
ON TABLE HOLD AS USR_051
END
-RUN
-**
-IF &LINES EQ 0 THEN GOTO NORECORD;
-**
-TYPE %SPORT-I-USR_051, USR_051 created with &LINES lines
-**
FI USR_051 DISK QTMPDIR_PATH:USR_051.FTM
-RUN
-**
JOIN CLEAR  JQ1
JOIN KO_LO_SYS_ID IN USR_051 TO ALL LO_SYS_ID IN EN_CO_LO AS JQ1
-RUN
-**
TABLE FILE USR_051
PRINT KO_TYPE_CD
AND KO_SERIAL_NO
AND KO_SYS_ID
-**
AND CO_NO
AND LO_LOCAL_CD
AND CO_SHORT_NAM
-**
ON TABLE HOLD AS USR_052
END
-RUN
-IF &LINES EQ 0 THEN GOTO NORECORD;
-**
-TYPE %SPORT-I-USR_052, USR_052 created with &LINES lines
-**
-VMS DELETE/NOLOG/NOCONF QTMPDIR_PATH:USR_051.FTM;1
-TYPE %SPORT-I-USR_051, USR_051 deleted
-**
FI USR_052 DISK QTMPDIR_PATH:USR_052.FTM
-RUN
-**
JOIN CLEAR  JQ1
JOIN KO_SYS_ID IN USR_052 TO ALL OS_KO_SYS_ID IN EN_OS AS JQ1
-RUN
-**
DEFINE FILE USR_052
OS_DEL_FLAG/I1=IF OS_DELETE_FL IS 'D' THEN 0 ELSE
               IF OS_DELETE_FL IS 'H' THEN 0 ELSE 1;
END
-**
TABLE FILE USR_052
PRINT KO_TYPE_CD
AND KO_SERIAL_NO
AND KO_SYS_ID
AND CO_NO
AND LO_LOCAL_CD
AND CO_SHORT_NAM
-**
AND OS_LINK_ID
AND OS_BOM_PRICE
-**
IF OS_DEL_FLAG IS 1
-**
ON TABLE HOLD AS USR_053
END
-RUN
-IF &LINES EQ 0 THEN GOTO NORECORD;
-**
-TYPE %SPORT-I-USR_053, USR_053 created with &LINES lines
-**
-VMS DELETE/NOLOG/NOCONF  QTMPDIR_PATH:USR_052.FTM;1
-**
-TYPE %SPORT-I-USR_052, USR_052 deleted
-**
FI USR_053 DISK QTMPDIR_PATH:USR_053.FTM
-RUN
-**
JOIN CLEAR  JQ1
JOIN OS_LINK_ID IN USR_053 TO ALL SL_OS_LINK_I IN EN_SL AS JQ1
-RUN
-**
TABLE FILE USR_053
PRINT KO_TYPE_CD
AND KO_SERIAL_NO
AND KO_SYS_ID
AND CO_NO
AND LO_LOCAL_CD
AND CO_SHORT_NAM
AND OS_LINK_ID
AND OS_BOM_PRICE                                                             
-**                                                                          
AND SL_SP_SYS_ID                                                             
ON TABLE HOLD AS USR_054                                                     
END                                                                          
-RUN                                                                         
-IF &LINES EQ 0 THEN GOTO NORECORD;                                          
-**                                                                          
-TYPE %SPORT-I-USR_054, USR_054 created with &LINES lines                    
-**                                                                          
-VMS DELETE/NOLOG/NOCONF QTMPDIR_PATH:USR_053.FTM;1             *            
-TYPE %SPORT-I-USR_053, USR_053 deleted                         *            
-**                                                             *            
FI USR_054 DISK QTMPDIR_PATH:USR_054.FTM                        *            
-RUN                                                            *  here the  
-**                                                             *  error is  
JOIN CLEAR  JQ1                                                 *  occuring  
JOIN SL_SP_SYS_ID IN USR_054 TO ALL SP_SYS_ID IN EN_SP AS JQ1   *            
-RUN                                                            *            
-**                                                             *            
DEFINE FILE USR_054                                             
SP_DEL_FLAG/I1=IF SP_DELETE_FL IS 'D' THEN 0 ELSE               
               IF SP_DELETE_FL IS 'H' THEN 0 ELSE 1;            
END                                                             
-**                                                             
TABLE FILE USR_054
PRINT KO_TYPE_CD
AND KO_SERIAL_NO  
AND KO_SYS_ID
AND CO_NO
AND LO_LOCAL_CD
AND CO_SHORT_NAM
AND OS_LINK_ID
AND OS_BOM_PRICE
AND SL_SP_SYS_ID
-**
AND SP_SYS_SERIA
AND SP_SYS_TYPE
AND SP_SYS_ID
AND SP_HOLD_FLAG
AND SP_START_DT
BY SP_KI_SYS_ID
IF SP_DEL_FLAG IS 1
ON TABLE HOLD AS USR_0551
END
-RUN
-IF &LINES EQ 0 THEN GOTO NORECORD;
-**
-TYPE %SPORT-I-USR_0551, USR_0551 created with &LINES lines
-**
-VMS DELETE/NOLOG/NOCONF QTMPDIR_PATH:USR_054.FTM;1
-VMS DELETE/NOLOG/NOCONF QTMPDIR_PATH:FOCSORT.FTM;*
-TYPE %SPORT-I-USR_054, USR_054 deleted
T.RTitleUserPersonal
Name		DateLines
543.1Correction contained in 6.2 upgradeEM::DICKFri Feb 12 1993 14:4612
Hi Fabio,

Your error is a known problem related to the large size of your database,  
and your relatively large selection request for the hold file.    The 
correction to this problem is contained in the FOCUS 6.2 upgrade.    
You'll need to upgrade Focus.

Regards,

Ellen
543.2FILEDEF additionSERV01::CIONIThu Feb 18 1993 13:014
    
    	How about adding a FILEDEF for the USA_054 file???
    
    	LisaC
543.3sorry - you do have FILEDEFSERV01::CIONIThu Feb 18 1993 13:0410
    
    	Oops..sorry ...you do have a filedef - how about trying to make
    	sure all joins are cleared instead of just the one if that's
    	what you need...
    
    	JOIN CLEAR *
    
    	Another thought...
    
    	LC
543.4Still in errorMLNAD0::FERRARIFMon Mar 15 1993 05:21254
    
    
    
    
    
    
    Hi, 
    
    After migrating to FOCUS 6.2, my procedure is still going on error,
    but this time it is the following:
    
%FOCUS-F-INTERROR, FOCUS internal error

    I include the new log file, and thank in advance for any help.
    
    Fabio.
    
    
$! MDVLOGIN.COM
$!
$! Modifications:
$!
$! 5-DEC-1991	Thomas Higginson
$!	Removed logical definitions - now done in images
$! 6-JUL-1991	Paul Milic
$!	removing the logout command
$! 4-FEB-1991	F. Martin 
$!	Changed to properly set MDV Logical Name Table
$!***
$!*** 221092 Arjen Plantinga	* added local Utrecht stuff: setting default
$!***				  printers, addition of logicalname tables, etc.
$!*** 181192 Arjen Plantinga	* added check on sport batch jobs and let them
$!***				  execute the sportlogin
$!----------------------------------------------------------------------------
$!
$!!!*** All modes **************************************************************
$!
$!   1. Check if INTERACTIVE - If set p1 to cli
$!
$    IF F$MODE().NES."INTERACTIVE" THEN P1 = "CLI" 
$    IF P1 .EQS. "" THEN P1 = "MENU"
$!
$!   2. Set MDV setups.
$!
$    SET NOCONTROL=(T,Y)
$    SET NOON
$    LOGOUT := LOGOUT
$    SET MESSAGE/NOID/NOTEX/NOFAC/NOSEV
$    esc[0,8]=27
$    cr[0,8]=13
$    highligh == esc + "[1m" + esc + "[23;1H"
$    normal   == esc + "[0m" + cr + esc + "[2B"
$    MENU :== $MDV$DIR_EXE:MDVSYS
$    CLI  :== $MDV$DIR_EXE:MDVCLI
$!
$!   4. Check if MDV is installed
$!
$ IF .NOT. F$FILE("MDV$DIR_EXE:MDVSHR.EXE","KNOWN") THEN GOTO NOT_INSTALL
$ IF .NOT. $status THEN GOTO NOT_INSTALL
$!
$!
$!!!*** Interactive mode *******************************************************
$!
$!   5. Check terminal
$!!!    IF F$MODE() .EQS. "INTERACTIVE"
$!!!    THEN
$!!!       SET TERM/INQUIRE/EIGHTBIT/WRAP
$!!!       IF .NOT. $status THEN GOTO UNK_TERMINAL
$!!!    ENDIF
$!
$ if f$mode() .nes. "INTERACTIVE" then goto non_interactive
$non_interactive:
$!		### This part adds the applications logical name tables to non
$!		### interactive users (batch/print jobs etc.).
$!		### This is only done for space uic group 2000 (decimal 1024)
$!		### on hlis42.
$ if f$getsyi("nodename") .nes. "HLIS42" .or. f$getjpi("","grp") .ne. 1024 -
	 then goto all_modes
$!
$Logical_name_tables:
$ table_name = "SPACE$_TABLE,CS020$_TABLE,SPORT$TABLE,CSR$_TABLE"
$!		### These tables are added to lnm$file_dev.
$ max_index = f$trnlnm("lnm$file_dev","lnm$system_directory",,,,"MAX_INDEX")
$ list_index = 0
$ full_str = ""
$!
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$ full_str = full_str + ","
$ goto loop
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$ full_str = full_str + ","
$ goto loop
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$ full_str = full_str + ","
$ goto loop
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$ full_str = full_str + ","
$ goto loop
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$ full_str = full_str + ","
$ goto loop
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$ full_str = full_str + ","
$ goto loop
$loop:
$!		### SAVE current value lnm$file_dev into variable "full_str"
$ equiv_str = f$trnlnm( "lnm$file_dev","lnm$system_directory",list_index)
$ full_str = full_str + equiv_str
$ list_index = list_index + 1
$ if list_index .gt. max_index then goto end_loop
$end_loop:
$!		### Creates local copy of lnm$file_dev
$ if f$locate(table_name,full_str) .lt. f$length(full_str) then goto all_modes
$ sys_pos = f$locate("LNM$SYSTEM",full_str)
$ pre_sys = f$extract(0,sys_pos,full_str)
$ post_sys = f$extract(sys_pos,84 , full_str)
$ full_str = pre_sys + table_name + "," + post_sys
$ define/table=lnm$process_directory/nolog  lnm$file_dev LNM$PROCESS,LNM$JOB,LNM$GROUP,SPACE$_TABLE,CS020$_TABLE,SPORT$TABLE,CSR$_TABLE,LNM$SYSTEM,DECW$LOGICAL_NAMES,LNMSHR$MDV,TOP$BOM_TABLE
$!
$!
$execute_sport_login:
$!		!# since sport v. 2.2-B sportjobs need to execute the sportlogin
$!		!# therein are some required (setup) definition
$ if f$mode() .eqs. "BATCH" .and. -
     f$getqui("display_entry","queue_name",,"this_job") .eqs. "SPORT$$P_BATCH"
$   then
$     @sport$$p_root:[000000]sport_login.com
$!
$!============================================================================!
$! Title		: sport_login.com
$! Author		: Andrea Antonangeli	15/5/1989
$! Version		: V1.00
$! Abstract		: first command executed by SPORT
$! Enviroment 		: Language 		DCL
$!			: Operating System 	VMS 	V5.0
$! Modification log 	: Fabio 	10-JUN-1992
$!			  define SYS$HELP at process level, and deassign
$!                        when EXITing.
$!                        Save user's definitions of FOC$DIRx,
$!                        define FOC$DIRx logocals at process level, 
$!                        restore user's values on EXIT.
$!                        Save user's definition on logical searching list,
$!                        and restore user's values on EXIT.
$!
$!----------------------------------------------------------------------------!
$!	    * �	* COPYRIGHT Digital Equipment Co. Ltd. 1989 *
$!----------------------------------------------------------------------------!
$! Description 		:
$!============================================================================!
$ set NOverif
$ exit
$ endif
$!
$!
$!!!*** All modes **************************************************************
$!
$LOGOUT:
$all_modes:
$ SET CONTROL=(T,Y)
$ exit
$! 
$!*****************************************************************************
$!  Title                : USR_05_R.COM
$!  Author               : Fabio Ferrari         14/7/1989
$!  Version              : V1.00
$!  Enviroment           : Language              DCL
$!                       : Operating System      VMS     V5.3
$!  Modification log     : -
$!*****************************************************************************
$!
$ SET NOON
$ on error then goto ERROR_EXIT
$ SAVE_DIR = F$TRNLNM("SYS$DISK")+F$DIRECTORY()
$ SET DEFAULT SPORT$$D_DML
$!
$ IF F$SEARCH ("SPORT$$D_WRK:USR_05.WRK") .NES. "" THEN -
  DELETE/NOLOG SPORT$$D_WRK:USR_05.WRK;*                  
$!
$! set verify              
$!
$! Added the following two line because it seems FOCUS doesn't succeed in
$! creating a subdirectory when there are ACLs (!!!) -- A.A.
$!
$ this_proc = F$getjpi("","PID")
$ define/job qtmpdir_path "[dml.204008C6]"
$ create/dir [.204008C6]
$ FOCUS /NOBANNER/SUBDIR=KEEP   "EXEC SPORT$$D_EXE:USR_05_R.FEX" 
>>>>>>PARAMETERS FOR SELECTION
Start Date Quote Creation: 01-JAN-93
End   Date Quote Creation: 31-MAR-93
 
Admin Cost Centre   : ALL
Admin Badge Nr      : ALL
Sales Badge Nr      : ALL
Company  Nr         : ALL
Company  Type       : ALL
Service Costcentres : ALL
 
%SPORT-I-USR_051, USR_051 created with    359216 lines
%SPORT-I-USR_052, USR_052 created with    359216 lines
 
%SPORT-I-USR_051, USR_051 deleted
%SPORT-I-USR_053, USR_053 created with    404285 lines
 
%SPORT-I-USR_052, USR_052 deleted
%FOCUS-F-INTERROR, FOCUS internal error
$ERROR_EXIT:
$ WRITE SYS$OUTPUT "**********************************************"
**********************************************
$ WRITE SYS$OUTPUT "%SPORT-E-UR5NTGTD, report usr_05 not generated"
%SPORT-E-UR5NTGTD, report usr_05 not generated
$ WRITE SYS$OUTPUT "**********************************************"
**********************************************
$!
$ SET DEFAULT MDV$USER:[LAMSWEERDE_A]
$ SET NOON
$ EXIT
  LAMSWEERDE_A job terminated at 10-MAR-1993 20:37:02.05

  Accounting information:
  Buffered I/O count:            9122         Peak working set size:    7685
  Direct I/O count:           2211853         Peak page file size:     20878
  Page faults:                   7215         Mounted volumes:             0
  Charged CPU time:           0 01:47:55.09   Elapsed time:     0 12:06:32.03