[U2] [UD 7.1] [Solaris 9]
REPOSTED FOR NON-MEMBER ADDRESS: [EMAIL PROTECTED] Hi, Are there any NFA users out there that can help me with an issue? I 'd like to copy 10 files from our production server to our test server. The problem is that NFA doesn't allow me to use the ECL command COPY. I don't want to run through every file copying record by record since that will take some time and it's not a neat solution. We are also implementing RFS so we can't use unix copy. Does anyone have a way to solve this I'd be glad. TIA Bjvrn Eklund --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
SV: [U2] [UD 7.1] [Solaris 9]
Thanks Tim and Brian, We will have to go with the copy record by record as it seems. Bjvrn Eklund -Ursprungligt meddelande- Fren: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Timothy Snyder Skickat: den 9 augusti 2007 16:32 Till: u2-users@listserver.u2ug.org Dmne: Re: [U2] [UD 7.1] [Solaris 9] I 'd like to copy 10 files from our production server to our test server. The problem is that NFA doesn't allow me to use the ECL command COPY I've seen NFA users write their own copy utilities in UniBasic. It really isn't any less efficient than the COPY command, since your bottleneck will be on the network more than anything you're doing on the hosts. I envision a cataloged program called something like NFA.COPY that can take the same command-line parameters as the standard COPY command. Naturally, you could work off of saved lists, and all of that good stuff. We are also implementing RFS so we can't use unix copy. And you're right about recoverable files under RFS - please don't copy them at the UNIX level! :-) Actually, I'm not a fan of using O/S commands to copy database files unless it's done in a very controlled fashion. And even then... Tim Snyder Consulting I/T Specialist U2 Lab Services Information Management, IBM Software Group --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UD 7.1] [Solaris 9]
Hi, are there any NFA users out there that can help me with an issue? I 'd like to copy 10 files from our production server to our test server. The problem is that NFA doesn't allow me to use the ECL command COPY. I don't want to run through every file copying record by record since that will take some time and it's not a neat solution. We are also implementing RFS so we can't use unix copy. Does anyone have a way to solve this I'd be glad. TIA Bjvrn Eklund --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2][UD 7.1][Solaris 9]
Bjvrn, Would a simple UniObjects/VBscript do the job? It could connect to both servers and act as a quick and dirty shuttle. Something along the lines of : Dim sess1,sess2 Dim HostName1,UserName1,AccountPath1,Password1,FileName1 Dim HostName2,UserName2,AccountPath2,Password2,FileName2 HostName1 = localhost UserName1 = administrator AccountPath1 = wychbooks Password1 = InputBox(Password for UserName1 on HostName1) FileName1 = BOOK_SALES IsUniData = False HostName2 = localhost UserName2 = administrator AccountPath2 = pick Password2 = InputBox(Password for UserName2 on HostName2) FileName2 = TESTFILE If DoConnections() = False Then Msgbox Could not connect Else Msgbox Connected to server DoCopyFile End If Function DoConnections() If CreateSessions() = False Then Msgbox Could not create sessions DoConnections = False Exit Function End If sess1.HostName = HostName1 sess1.UserName = UserName1 sess1.AccountPath = AccountPath1 sess1.Password = Password1 If IsUniData Then sess1.DatabaseType = 2 End If sess1.Connect If sess1.Error False Then Msgbox Error returned from connect = sess1.Error DoConnections = False Exit Function End If sess2.HostName = HostName2 sess2.UserName = UserName2 sess2.AccountPath = AccountPath2 sess2.Password = Password2 If IsUniData Then sess2.DatabaseType = 2 End If sess2.Connect If sess2.Error False Then Msgbox Error returned from connect = sess2.Error DoConnections = False Exit Function End If DoConnections = True End Function Function DoCopyFile() Dim SourceFL Dim TargetFL Dim SL On Error Resume Next Err = False Set SourceFL = Sess1.OpenFile(FileName1) If (Err False) Or (SourceFL IS Nothing) Then Msgbox Could not open FileName1 Exit Function End If Set TargetFL = Sess2.OpenFile(FileName2) If (Err False) Or (TargetFL IS Nothing) Then Msgbox Could not open FileName2 Exit Function End If Set SL = Sess1.SelectList(0) SL.Select(SourceFL) Do SourceFL.RecordId = SL.Next SourceFL.Read TargetFL.RecordId = SourceFL.RecordId TargetFL.Record = SourceFL.Record TargetFL.Write Loop Until SL.LastRecordRead Msgbox Copy completed DoCopyFile = True End Function (Dump into notepad, save with a VBS extension and run using CSCRIPT or WSCRIPT). Brian --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] [UD 7.1] [Solaris 9]
I 'd like to copy 10 files from our production server to our test server. The problem is that NFA doesn't allow me to use the ECL command COPY I've seen NFA users write their own copy utilities in UniBasic. It really isn't any less efficient than the COPY command, since your bottleneck will be on the network more than anything you're doing on the hosts. I envision a cataloged program called something like NFA.COPY that can take the same command-line parameters as the standard COPY command. Naturally, you could work off of saved lists, and all of that good stuff. We are also implementing RFS so we can't use unix copy. And you're right about recoverable files under RFS - please don't copy them at the UNIX level! :-) Actually, I'm not a fan of using O/S commands to copy database files unless it's done in a very controlled fashion. And even then... Tim Snyder Consulting I/T Specialist U2 Lab Services Information Management, IBM Software Group --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
