Posted by paullie69 on 02/07/07 10:55

On 6 Feb, 16:12, "Steve" <morrisz...@hotmail.com> wrote:
> On Feb 6, 2:53 am, paulli...@hotmail.com wrote:
>
>
>
>
>
> > Hi all
>
> > Inherited environment :
>
> > Windows 2003 SP1 Ent
> > SQL 2000 Standard
> > 16 GB RAM
>
> > BOOT INI Switches : /3GB /PAE
>
> > I understand that SQL 2000 standard can only address > 2 GB and
> > therefore the /3GB switch will only rob the OS of a GB of RAM without
> > giving it to SQL as it can only use > 2GB
>
> > We have an active X job invoked from a SQL job ran overnight which
> > copies large CSVs (> 5GB) from one folder to another on the SQL
> > server. This runs ok for a while (normally after a reboot) but
> > intermittently comes back with "Not enough server storage is available
> > to process this command"
>
> > The files can then be copied over manually without problem and the
> > rest of the job ran successfully
>
> > Could this error be related to only having 1 GB available to the OS as
> > its a file copy ?
>
> > Would it be best to remove both the /3GB AND /PAE switches or just
> > the /3GB switch to give the OS at least 2 GB to play with ?
>
> > Thankyou in advance for your replies
>
> > Cheers
>
> > Paul
>
> Can you post the code the job executes?- Hide quoted text -
>
> - Show quoted text -


Here it is :

'
*************************************************************************************************
' copy download files to processing folder and remove timestamp from
file name
'
*************************************************************************************************
Option Explicit

Function Main()
Dim oFSO, strDownLoadPath, strProcessingPath, strFolder, strFiles,
strFile, intCount, strFlagpos, uDate
Dim strMinDate, strInFileNameDate, strOutFileName, intEndPos, intLen
Dim rsFileNames, strFilename, strFound, stroutFileNamedate

' set global log message

DTSGlobalVariables("Log_Step").Value = "Data Load"
DTSGlobalVariables("Log_Obj1").Value = "Copy files to Processing
folder"
DTSGlobalVariables("Log_Obj2").Value = "starting "
DTSGlobalVariables("Log_DataText").Value = " "
DTSGlobalVariables("Log_DataNumber").Value = 0
DTSGlobalVariables("Log_Comment").Value = "running "

' find flag file and get earliest time stamp

' get files in download directory

strDownLoadPath = DTSGlobalVariables("DownLoadFolder").Value & "\"
strProcessingPath = DTSGlobalVariables("ProcessingFolder").Value & "\"

Set oFSO = CreateObject("scripting.filesystemobject")


' get date in globals

strMinDate = DTSGlobalVariables("MinFlagDate").Value


' get expected files names from globals and check if in download
folder with timestmp

Set rsFileNames = CreateObject("ADODB.Recordset")
Set rsFileNames = DTSGlobalVariables("DownLoadFiles").Value

if rsfilenames.recordcount = 0 then

DTSGlobalVariables("Log_Obj2").Value = "data missing "
DTSGlobalVariables("Log_DataText").Value = "coping Failed"
DTSGlobalVariables("Log_Comment").Value ="No file names in global
area "

main = DTSTaskExecResult_Failure
Set rsFileNames = Nothing
Set oFSO = Nothing
exit function
end if


rsFileNames.movefirst

While Not rsFileNames.EOF

strFilename = rsFileNames.fields("ConfigChar").Value

If LCase(Left(strFilename, 6)) = "static" Then
strInFileNameDate = strFilename & ".csv"
Else
strInFileNameDate = strFilename & strMinDate & ".csv"
End If
stroutFileNamedate = strFilename & ".csv"

' set surrent file in log message

DTSGlobalVariables("Log_Obj2").Value = strInFileNameDate

' MsgBox strDownLoadPath & strInFileNameDate & " " &
strProcessingPath & stroutFileNamedate

oFSO.copyFile strDownLoadPath & strInFileNameDate,
strProcessingPath & stroutFileNamedate




rsFileNames.movenext

Wend

DTSGlobalVariables("Log_Obj2").Value = " "
DTSGlobalVariables("Log_DataText").Value = " "
DTSGlobalVariables("Log_Comment").Value =" "
Set rsFileNames = Nothing
Set oFSO = Nothing

Main = DTSTaskExecResult_Success

End Function
'------------------------------------------

[Back to original message]