RE: [U2] old dog, new tricks
To add to Adrian's explanation, when a string is in memory, the first few bytes at that string's address is not actual data, but metadata about the string, including its length, so UV immediately knows where the string ends (& where the next string begins). Therefore <-1> can make an immediate jump, rather than searching through the string counting attributes. This also implies that something like IF LEN( X ) THEN is faster than something like IF (X # '') THEN . You can also see why & aren't particularly fast, since they aren't at the end of the srting. UV keeps similar metadata up front about the last attribute accessed, & the remove pointer. That is what makes both REMOVE/REVREMOVE and EXTRACTs of sequential s so fast. cds --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FTP
I drooped the file to a type 1 and using the dos command and a dos xcopy to move the items across the in house network to user shared servers. I run about 25 text files a day 2 or 3 servers on the system. I have kept it to universe and dos to get the job done! I use the reverse to copy from remote servers back to the universe server. Reliable! Like for FedEx, UPS, Access Databases, Intranet text files and more. universe to outbox Dir, universe launch batch file xcopy windows copies items 1 or more across the network! wont work across the internet ... I wonder? Dave R e Fax (815)4259364 P.O. Box 17811, Irvine CA 92623-7811 -- "Nancy Fisher" <[EMAIL PROTECTED]> wrote: Yes! He is the man. Nancy Fisher Peninsula Truck Lines, Inc Auburn, Washington 253/929-2040 [EMAIL PROTECTED] - Original Message - From: "MAJ Programming" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 4:12 PM Subject: Re: [U2] FTP > If you're referring to Peter Schellenbach, then he's the man. He can > interface anything with anything else. > > - Original Message - > From: "Nancy Fisher" <[EMAIL PROTECTED]> > To: > Sent: Thursday, March 08, 2007 12:34 PM > Subject: Re: [U2] FTP > > >> Pete (AccuTerm) was able to make it work. >> >> Hi Nancy - >> >> The Windows command processor does not handle redirection properly. > Try >> explicitly launching the command processor using CMD.EXE with the '/C' >> option: >> >> cmd = "CMD.EXE /C > FTP -s:\\OURSERVER\Flatfile\FTP.EXPORT\ftpscript1.txt >> > ftp.log" >> PRINT ESC:STX:'>':CMD:CR:I had to put C:\in front of the ftp.log > and >> then it worked. >> >> Thanks to everyone for your help - and running from the Server would be > best >> and hopefully we will get there - in the meantime >> >> Woo Hoo !!! >> >> Nancy >> [EMAIL PROTECTED] >> >> - Original Message - >> From: "MAJ Programming" <[EMAIL PROTECTED]> >> To: >> Sent: Thursday, March 08, 2007 6:17 AM >> Subject: Re: [U2] FTP >> >> >> >I was focused more on clearing up the accuterm syntax. I do FTP perhaps >> >once >> > a year so I don't remember it directly. >> > >> > I use the ESC:STX stuff a whole lot. >> > >> > Thanks >> > - Original Message - >> > From: "Bill Haskett" <[EMAIL PROTECTED]> >> > To: >> > Sent: Wednesday, March 07, 2007 9:49 PM >> > Subject: RE: [U2] FTP >> > >> > >> >> Mark: >> >> >> >> My thoughts on this subject are usually the same...keep it simple. > There >> >> has to be some pretty serious conditions existing before I'd move ftp >> >> services off the server and onto any client, and just because it can >> >> is >> > not >> >> one of them. :-) >> >> >> >> Every O/S we use has an ftp client as part of it (Windows & ..nix). >> >> Networking is a difficult business where all kinds of things go wrong. >> >> Moving a service like ftp off the UniVerse server is just asking for >> >> an >> >> additional layer of problems. I'm late to ftp processing but I'm sure >> > most >> >> on this list do ftp processing and it would be wise to follow advice >> >> given >> >> in this thread...ftp from the UV server. >> >> >> >> The script I posted works well and includes sftp processing. I'd be >> >> happy >> >> to post more but I'm sure everyone already does this kind of thing. >> >> >> >> Bill >> >> >> >> -Original Message- >> >> From: [EMAIL PROTECTED] >> >> [mailto:[EMAIL PROTECTED] On Behalf Of MAJ > Programming >> >> Sent: Wednesday, March 07, 2007 6:13 PM >> >> To: u2-users@listserver.u2ug.org >> >> Subject: Re: [U2] FTP >> >> >> >> My 2 cents on accuterm: >> >> >> >> This may not clear up the FTP script, but It will set things straight > for >> >> the ESC:STX sequence. >> >> >> >> Accuterm has beaucoups of PC facilities just waiting to run. They are >> >> typically preceed by the ESC:STX (27 : 2). >> >> >> >> The > command means that the Pick session will wait until the DOS > session >> > is >> >> complete. PRINT ESC:STX:"> SOL.EXE" >> >> The < command means that the Pick session will continue while the DOS >> >> session remains open. PRINT ESC:STX:"< SOL.EXE" >> >> >> >> I don't know specifically, But I have had timing concerns with issuing >> >> commands to DOS and then expecting to use those results back in Pick. > If >> >> I >> >> write a textfile to a shared file and then execute notepad to play >> >> with >> > it, >> >> Pick has to wait until notepad is finished. >> >> >> >> The ESC:STX command may finish promptly but re-reading the shared file >> >> textfile may result in beating notepad to the punch and you get the > same >> >> record. >> >> >> >> Putting a SLEEP or READ within a LOOP to compare the before and after > may >> > be >> >> the trick. >> >> >> >> Mark Johnson >> >> --- >> >> 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/ >>
Re: [U2] UD Sharing a network directory
UD.NET installed? like UV.net! that stopped me so I use a batch file with xcopy :) Mostlikly it's permissions Dave R e Fax (815)4259364 P.O. Box 17811, Irvine CA 92623-7811 -- "Bill H" <[EMAIL PROTECTED]> wrote: For the life of me I can't seem to get this to work in UniData. I have... :AE VOC DTAWEB Top of "DTAWEB" in "VOC", 3 lines, 30 characters. *--: P 001: DIR 002: \\AsiOlyWaWeb\WebDev 003: D_VOC Bottom. >From Windows Explorer on the UD server I simply enter "\\AsiOlyWaWeb\WebDev" into the address field and I get everything listed from the web server as I'd expect. But I can't get UniData (v7.1.9) to access the file. All I get is: :LIST DTAWEB errno=2: No such file or directory Open directory file DTAWEB error. Open file error. : I tried to use the "net use Z: \\asiolywaweb\webdev password /user:asioywaweb/admin" command. DOS sees everything just fine. :!dir Z:\Advantos The system cannot find the path specified. : Any ideas what I'm doing wrong? I can't figure out why this doesn't work. Both the UD server and the Web server use the same "admin" user with the same password. Both directories ALLOW all the usual group of users access. Any help would be appreciated. Bill --- 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/
Re: [U2] [UV] DBF file parser in UV Basic?
Try imports from acuterm wizard! Dave R e Fax (815)4259364 P.O. Box 17811, Irvine CA 92623-7811 -- "Buss, Troy \(Logitek Systems\)" <[EMAIL PROTECTED]> wrote: I may need to parse out several DBF files for import and processing in Universe10.0 (Windows Server version). Does anyone already have a generic Universe Basic program they would care to share that will parse out the DBF file format particularly compatible with visual foxpro? Here is a specification: http://www.dbf2002.com/dbf-file-format.html http://www.dbase.com/knowledgebase/int/db7_file_fmt.htm Thanks! -Troy --- 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/
Re: [U2] old dog, new tricks
R77 dog better trick! I too have had to build large arrays for text files and on a U2 db I use the writeseq's. I have also used writev with a ,<-1> this slows way down when are over 5000 atts, I think it gets hung up on all the writes, os I switched it one att line with the text and wrote it to a hashed file, I then used a qselect and a save list to resemble the rows, and a copy-list to move the record. 30,000 rows in a blink! My thinking was that the DC type file the frames are contiguous like cataloged programs and large saved lists these are also optimized. I think UD saves these in linked frames not contiguous files. But the copy list still works. I have use this method on 250,000+ line/row email spam lists to reduce a 6 hour process down to 16 minutes, including the dedup step. Regards, Dave Raven e Fax (815)4259364 P.O. Box 17811, Irvine CA 92623-7811 -- "MAJ Programming" <[EMAIL PROTECTED]> wrote: This review came up a year ago. <-1> is an append on the attribute level. <1,-1> is not as efficient as it doesn't know that the record is only one attribute long. I don't know about U2, but if I detect a very large appended item, say over 30,000 attributes, I use a DIM array and a counter. This is for exporting HTML or large text files. If you have OSWRITESEQ (I forget what it's called), you can write appendingly. After all, what's the next step after building your large <-1> array. My 1 cent Mark Johnson - Original Message - From: "Womack, Adrian" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 10:40 PM Subject: RE: [U2] old dog, new tricks > This is more of an "old trick". > > The reason that <-1> is so much faster is because using <-1> just > appends to an already existing string in memory. Where using will > cause an entirely new string to be created and the old one thrown away > (to be eventually garbage collected). The process gets slower & slower > as each successive string becomes larger and larger. > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Scott Ballinger > Sent: Friday, 9 March 2007 11:10 AM > To: u2-users@listserver.u2ug.org > Subject: [U2] old dog, new tricks > > Perhaps this is not a revelation to many of you, but I did not realize > how _much_ faster it is to append items to a large array using <-1> vs. > an incrementing count, e.g. . I was trying to speed up a program that > builds large arrays, and changed to the <-1> style append. > > Wow [can I say that? this is a linux box, not MS-Vista; is "wow" > copyrighted yet?], huge improvement! (UV 10.1.4 pick flavor, intel cpu). > Of course, when using <-1> you need to check for nulls as appropriate, > but even adding after adding code to test for and handle appending a > null attribute this is still way faster. > > Also, I think UV is optimized for AMs vs VMs, so that it pays to CONVERT > @VM TO @AM IN XXX, do your thing, then CONVERT @VM TO @AM IN XXX back > when done if you need VMs. > > /Scott Ballinger > Pareto Corporation > Edmonds WA USA > 206 713 6006 > > > > > > DISCLAIMER: > Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. > --- > 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-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] old dog, new tricks
This review came up a year ago. <-1> is an append on the attribute level. <1,-1> is not as effecient as it doesn't know that the record is only one attribute long. I don't know about U2, but if I detect a very large appended item, say over 30,000 attributes, I use a DIM array and a counter. This is for exporting HTML or large text files. If you have OSWRITESEQ (I forget what it's called), you can write appendingly. After all, what's the next step after building your large <-1> array. My 1 cent Mark Johnson - Original Message - From: "Womack, Adrian" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 10:40 PM Subject: RE: [U2] old dog, new tricks > This is more of an "old trick". > > The reason that <-1> is so much faster is because using <-1> just > appends to an already existing string in memory. Where using will > cause an entirely new string to be created and the old one thrown away > (to be eventually garbage collected). The process gets slower & slower > as each successive string becomes larger and larger. > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Scott Ballinger > Sent: Friday, 9 March 2007 11:10 AM > To: u2-users@listserver.u2ug.org > Subject: [U2] old dog, new tricks > > Perhaps this is not a revelation to many of you, but I did not realize > how _much_ faster it is to append items to a large array using <-1> vs. > an incrementing count, e.g. . I was trying to speed up a program that > builds large arrays, and changed to the <-1> style append. > > Wow [can I say that? this is a linux box, not MS-Vista; is "wow" > copyrighted yet?], huge improvement! (UV 10.1.4 pick flavor, intel cpu). > Of course, when using <-1> you need to check for nulls as appropriate, > but even adding after adding code to test for and handle appending a > null attribute this is still way faster. > > Also, I think UV is optimized for AMs vs VMs, so that it pays to CONVERT > @VM TO @AM IN XXX, do your thing, then CONVERT @VM TO @AM IN XXX back > when done if you need VMs. > > /Scott Ballinger > Pareto Corporation > Edmonds WA USA > 206 713 6006 > > > > > > DISCLAIMER: > Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. > --- > 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/
RE: [U2] [UV] DBF file parser in UV Basic?
Use BCI? >-Original Message- >Does anyone already have a generic Universe Basic program they would >care to share that will parse out the DBF file format particularly >compatible with visual foxpro? ** This email message and any files transmitted with it are confidential and intended solely for the use of addressed recipient(s). If you have received this communication in error, please reply to this e-mail to notify the sender of its incorrect delivery and then delete it and your reply. It is your responsibility to check this email and any attachments for viruses and defects before opening or sending them on. Spotless collects information about you to provide and market our services. For information about use, disclosure and access, see our privacy policy at http://www.spotless.com.au Please consider our environment before printing this email. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] UD Sharing a network directory
For the life of me I can't seem to get this to work in UniData. I have... :AE VOC DTAWEB Top of "DTAWEB" in "VOC", 3 lines, 30 characters. *--: P 001: DIR 002: \\AsiOlyWaWeb\WebDev 003: D_VOC Bottom. >From Windows Explorer on the UD server I simply enter "\\AsiOlyWaWeb\WebDev" into the address field and I get everything listed from the web server as I'd expect. But I can't get UniData (v7.1.9) to access the file. All I get is: :LIST DTAWEB errno=2: No such file or directory Open directory file DTAWEB error. Open file error. : I tried to use the "net use Z: \\asiolywaweb\webdev password /user:asioywaweb/admin" command. DOS sees everything just fine. :!dir Z:\Advantos The system cannot find the path specified. : Any ideas what I'm doing wrong? I can't figure out why this doesn't work. Both the UD server and the Web server use the same "admin" user with the same password. Both directories ALLOW all the usual group of users access. Any help would be appreciated. Bill --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] old dog, new tricks
This is more of an "old trick". The reason that <-1> is so much faster is because using <-1> just appends to an already existing string in memory. Where using will cause an entirely new string to be created and the old one thrown away (to be eventually garbage collected). The process gets slower & slower as each successive string becomes larger and larger. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Scott Ballinger Sent: Friday, 9 March 2007 11:10 AM To: u2-users@listserver.u2ug.org Subject: [U2] old dog, new tricks Perhaps this is not a revelation to many of you, but I did not realize how _much_ faster it is to append items to a large array using <-1> vs. an incrementing count, e.g. . I was trying to speed up a program that builds large arrays, and changed to the <-1> style append. Wow [can I say that? this is a linux box, not MS-Vista; is "wow" copyrighted yet?], huge improvement! (UV 10.1.4 pick flavor, intel cpu). Of course, when using <-1> you need to check for nulls as appropriate, but even adding after adding code to test for and handle appending a null attribute this is still way faster. Also, I think UV is optimized for AMs vs VMs, so that it pays to CONVERT @VM TO @AM IN XXX, do your thing, then CONVERT @VM TO @AM IN XXX back when done if you need VMs. /Scott Ballinger Pareto Corporation Edmonds WA USA 206 713 6006 DISCLAIMER: Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Searching PDFs tips [was SUM Function]
Just on the subject of finding stuff in the PDF manuals, one of the good things about PDF is that you CAN quickly search across multiple PDFs. The U2 family PDF sets all come with a .PDX file. This is a full text index you can load into Adobe Reader to search through all the manuals at once. It has better filtering searching capability and usually runs far more quickly than using the normal document 'Find'. So, searching for SUM across the UV set brings back 154 instances of the word SUM (case sensitive) over 9 documents or 187 instances containing the word SUM over 11 documents. Simply select the relevant doco (eg basic ref) and instance (from about 25 in the basic ref). You can run this type of search in the Edit /Search (Ctrl-Shift-F) menu. Select "Use Advanced Search Options". [nb. You can set Reader to always use the Advanced Search options in the Edit/Preferences/Search dialog box.] Make sure that your reader is up to date (current is v8) and you have the 'search.api' (Look in Help/Plug-ins). Reader gets faster and better with each release. Many of the annoyances of earlier versions have disappeared. Also if you use a Windows editor that allows context sensitive tools (eg EditPlus, UltraEdit, et al) you can configure it to lookup syntax for a highlighted word in the PDF. Eg. In EditPlus to setup a hotkey search for the basic verb under the cursor: Tools / Configure User Tools... ...\acrord32.exe /A search=$(CurWord) c:\...\UVdocs\BasicRef.pdf Regards, Stuart >-Original Message- >On a related topic. Some MV manuals that come in multiple books (pdf's) cause you >to know the category (which book) to look in. The D3 manual (pdf), having only one >comprehensive book, would have it's index as such: > >SUM command 3-123 >SUM function 5-123 > >for the 2 separate chapters (Access and Basic respectively). Those multiple manuals >don't help the newbies as clearly as they should. ** This email message and any files transmitted with it are confidential and intended solely for the use of addressed recipient(s). If you have received this communication in error, please reply to this e-mail to notify the sender of its incorrect delivery and then delete it and your reply. It is your responsibility to check this email and any attachments for viruses and defects before opening or sending them on. Spotless collects information about you to provide and market our services. For information about use, disclosure and access, see our privacy policy at http://www.spotless.com.au Please consider our environment before printing this email. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] old dog, new tricks
Perhaps this is not a revelation to many of you, but I did not realize how _much_ faster it is to append items to a large array using <-1> vs. an incrementing count, e.g. . I was trying to speed up a program that builds large arrays, and changed to the <-1> style append. Wow [can I say that? this is a linux box, not MS-Vista; is "wow" copyrighted yet?], huge improvement! (UV 10.1.4 pick flavor, intel cpu). Of course, when using <-1> you need to check for nulls as appropriate, but even adding after adding code to test for and handle appending a null attribute this is still way faster. Also, I think UV is optimized for AMs vs VMs, so that it pays to CONVERT @VM TO @AM IN XXX, do your thing, then CONVERT @VM TO @AM IN XXX back when done if you need VMs. /Scott Ballinger Pareto Corporation Edmonds WA USA 206 713 6006 Here is a test program: * dynamic array append test * 03-08-07 asb MAX = 2 T1 = TIME() XX = "" FOR N = 1 TO MAX XX<-1> = N IF MOD(N,1000) EQ 0 THEN PRINT ".": NEXT N PRINT PRINT TIME()-T1 T1 = TIME() XX = "" FOR N = 1 TO MAX XX = N IF MOD(N,1000) EQ 0 THEN PRINT ".": NEXT N PRINT PRINT TIME()-T1 T1 = TIME() XX = "" FOR N = 1 TO MAX XX<-1> = N IF MOD(N,1000) EQ 0 THEN PRINT ".": NEXT N PRINT PRINT TIME()-T1 And here is the result: >RUN BP SB 0.0197 5.6788 0.0205 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] DBF file parser in UV Basic?
I may need to parse out several DBF files for import and processing in Universe10.0 (Windows Server version). Does anyone already have a generic Universe Basic program they would care to share that will parse out the DBF file format particularly compatible with visual foxpro? Here is a specification: http://www.dbf2002.com/dbf-file-format.html http://www.dbase.com/knowledgebase/int/db7_file_fmt.htm Thanks! -Troy --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FTP
Yes! He is the man. Nancy Fisher Peninsula Truck Lines, Inc Auburn, Washington 253/929-2040 [EMAIL PROTECTED] - Original Message - From: "MAJ Programming" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 4:12 PM Subject: Re: [U2] FTP If you're referring to Peter Schellenbach, then he's the man. He can interface anything with anything else. - Original Message - From: "Nancy Fisher" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 12:34 PM Subject: Re: [U2] FTP Pete (AccuTerm) was able to make it work. Hi Nancy - The Windows command processor does not handle redirection properly. Try explicitly launching the command processor using CMD.EXE with the '/C' option: cmd = "CMD.EXE /C FTP -s:\\OURSERVER\Flatfile\FTP.EXPORT\ftpscript1.txt > ftp.log" PRINT ESC:STX:'>':CMD:CR:I had to put C:\in front of the ftp.log and then it worked. Thanks to everyone for your help - and running from the Server would be best and hopefully we will get there - in the meantime Woo Hoo !!! Nancy [EMAIL PROTECTED] - Original Message - From: "MAJ Programming" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 6:17 AM Subject: Re: [U2] FTP >I was focused more on clearing up the accuterm syntax. I do FTP perhaps >once > a year so I don't remember it directly. > > I use the ESC:STX stuff a whole lot. > > Thanks > - Original Message - > From: "Bill Haskett" <[EMAIL PROTECTED]> > To: > Sent: Wednesday, March 07, 2007 9:49 PM > Subject: RE: [U2] FTP > > >> Mark: >> >> My thoughts on this subject are usually the same...keep it simple. There >> has to be some pretty serious conditions existing before I'd move ftp >> services off the server and onto any client, and just because it can >> is > not >> one of them. :-) >> >> Every O/S we use has an ftp client as part of it (Windows & ..nix). >> Networking is a difficult business where all kinds of things go wrong. >> Moving a service like ftp off the UniVerse server is just asking for >> an >> additional layer of problems. I'm late to ftp processing but I'm sure > most >> on this list do ftp processing and it would be wise to follow advice >> given >> in this thread...ftp from the UV server. >> >> The script I posted works well and includes sftp processing. I'd be >> happy >> to post more but I'm sure everyone already does this kind of thing. >> >> Bill >> >> -Original Message- >> From: [EMAIL PROTECTED] >> [mailto:[EMAIL PROTECTED] On Behalf Of MAJ Programming >> Sent: Wednesday, March 07, 2007 6:13 PM >> To: u2-users@listserver.u2ug.org >> Subject: Re: [U2] FTP >> >> My 2 cents on accuterm: >> >> This may not clear up the FTP script, but It will set things straight for >> the ESC:STX sequence. >> >> Accuterm has beaucoups of PC facilities just waiting to run. They are >> typically preceed by the ESC:STX (27 : 2). >> >> The > command means that the Pick session will wait until the DOS session > is >> complete. PRINT ESC:STX:"> SOL.EXE" >> The < command means that the Pick session will continue while the DOS >> session remains open. PRINT ESC:STX:"< SOL.EXE" >> >> I don't know specifically, But I have had timing concerns with issuing >> commands to DOS and then expecting to use those results back in Pick. If >> I >> write a textfile to a shared file and then execute notepad to play >> with > it, >> Pick has to wait until notepad is finished. >> >> The ESC:STX command may finish promptly but re-reading the shared file >> textfile may result in beating notepad to the punch and you get the same >> record. >> >> Putting a SLEEP or READ within a LOOP to compare the before and after may > be >> the trick. >> >> Mark Johnson >> --- >> 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-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-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FTP
If you're referring to Peter Schellenbach, then he's the man. He can interface anything with anything else. - Original Message - From: "Nancy Fisher" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 12:34 PM Subject: Re: [U2] FTP > Pete (AccuTerm) was able to make it work. > > Hi Nancy - > > The Windows command processor does not handle redirection properly. Try > explicitly launching the command processor using CMD.EXE with the '/C' > option: > > cmd = "CMD.EXE /C FTP -s:\\OURSERVER\Flatfile\FTP.EXPORT\ftpscript1.txt > > ftp.log" > PRINT ESC:STX:'>':CMD:CR:I had to put C:\in front of the ftp.log and > then it worked. > > Thanks to everyone for your help - and running from the Server would be best > and hopefully we will get there - in the meantime > > Woo Hoo !!! > > Nancy > [EMAIL PROTECTED] > > - Original Message - > From: "MAJ Programming" <[EMAIL PROTECTED]> > To: > Sent: Thursday, March 08, 2007 6:17 AM > Subject: Re: [U2] FTP > > > >I was focused more on clearing up the accuterm syntax. I do FTP perhaps > >once > > a year so I don't remember it directly. > > > > I use the ESC:STX stuff a whole lot. > > > > Thanks > > - Original Message - > > From: "Bill Haskett" <[EMAIL PROTECTED]> > > To: > > Sent: Wednesday, March 07, 2007 9:49 PM > > Subject: RE: [U2] FTP > > > > > >> Mark: > >> > >> My thoughts on this subject are usually the same...keep it simple. There > >> has to be some pretty serious conditions existing before I'd move ftp > >> services off the server and onto any client, and just because it can is > > not > >> one of them. :-) > >> > >> Every O/S we use has an ftp client as part of it (Windows & ..nix). > >> Networking is a difficult business where all kinds of things go wrong. > >> Moving a service like ftp off the UniVerse server is just asking for an > >> additional layer of problems. I'm late to ftp processing but I'm sure > > most > >> on this list do ftp processing and it would be wise to follow advice > >> given > >> in this thread...ftp from the UV server. > >> > >> The script I posted works well and includes sftp processing. I'd be > >> happy > >> to post more but I'm sure everyone already does this kind of thing. > >> > >> Bill > >> > >> -Original Message- > >> From: [EMAIL PROTECTED] > >> [mailto:[EMAIL PROTECTED] On Behalf Of MAJ Programming > >> Sent: Wednesday, March 07, 2007 6:13 PM > >> To: u2-users@listserver.u2ug.org > >> Subject: Re: [U2] FTP > >> > >> My 2 cents on accuterm: > >> > >> This may not clear up the FTP script, but It will set things straight for > >> the ESC:STX sequence. > >> > >> Accuterm has beaucoups of PC facilities just waiting to run. They are > >> typically preceed by the ESC:STX (27 : 2). > >> > >> The > command means that the Pick session will wait until the DOS session > > is > >> complete. PRINT ESC:STX:"> SOL.EXE" > >> The < command means that the Pick session will continue while the DOS > >> session remains open. PRINT ESC:STX:"< SOL.EXE" > >> > >> I don't know specifically, But I have had timing concerns with issuing > >> commands to DOS and then expecting to use those results back in Pick. If > >> I > >> write a textfile to a shared file and then execute notepad to play with > > it, > >> Pick has to wait until notepad is finished. > >> > >> The ESC:STX command may finish promptly but re-reading the shared file > >> textfile may result in beating notepad to the punch and you get the same > >> record. > >> > >> Putting a SLEEP or READ within a LOOP to compare the before and after may > > be > >> the trick. > >> > >> Mark Johnson > >> --- > >> 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-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] Haydon Bishop is out of the office.
I will be out of the office starting 08/03/2007 and will not return until 12/03/2007. I will respond to your message when I return. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Catalog Command
Did you compile the program? I get this when write a program, then catalog it without compiling: Unable to open "JMRBP.O/NOT.COMPILED" for cataloging. On 3/7/07, Brutzman, Bill <[EMAIL PROTECTED]> wrote: I have had better luck with '*' option below... as the '*' uses the global catalog. --Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Andrew Lakeland Sent: Wednesday, March 07, 2007 9:16 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] catalog command Compile first. BASIC BP SUB CATALOG BP *SUB Or CATALOG BP SUB -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Anita Panda Sent: 07 March 2007 13:56 To: u2-users@listserver.u2ug.org Subject: [U2] catalog command Hi I have created one BP file containing the main procedure (say Main)and another BP file which contains the subroutine (say SUB). I tried cataloging the subroutine but couldnot it raised the following error "Unable to open "BP.O/SUB for cataloging".Also I want to view all the cataloged files. Can anyone help me in this regard. Thanks Anita =-=-= Notice: The information contained in this e-mail message and/or attachments to it may contain confidential or privileged information. If you are not the intended recipient, any dissemination, use, review, distribution, printing or copying of the information contained in this e-mail message and/or attachments to it are strictly prohibited. If you have received this communication in error, please notify us by reply e-mail or telephone and immediately and permanently delete the message and any attachments. Thank you --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ Legal Disclaimer: The information contained in this message may be privileged and confidential. It is intended to be read only by the individual or entity to whom it is addressed or by their designee. If the reader of this message is not the intended recipient, you are on notice that any distribution of this message, in any form, is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete or destroy any copy of this message --- 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/ -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SEARCH command
Peter: Look here: http://www.pickwiki.com/cgi-bin/wiki.pl?BFind I modified the old version, for UniData, to make it case insensitive by default. It should just run in the U2 environment. Hope this helps. Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Peter Veenhof Sent: Thursday, March 08, 2007 6:45 AM To: u2-users@listserver.u2ug.org Subject: [U2] [UV] SEARCH command Hi all, Is anyone familiar with the TCL command SEARCH? I can do a 'SEARCH filename ALL.MATCH' command at TCL and then it prompts for search criteria. I am wondering if it is possible to make this command case insensitive as it is only working case sensitive currently. Thanks Peter --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SEARCH command
I have a program I wrote that will find just about any string in any file.
I wrote it case sensitive, however, because we have to search that way 99%
of the time. Since it's a program, you can modify it to be case insenstive
and have the speed of the TCL SEARCH command with control. Don't we like
control?
I've pasted it at the end of this email. It's 117 lines long and uses a
few things specific to our system, such as SET.DIMENSIONS which reads the
COLUMNS and LINES from the terminal and sets the UV environment to match,
plus $include INC.KLP which has a few variables that should be
self-explanatory as @(-N) commands commonly used.
And, I hope it helps. Maybe it should be put on the WIKI?
Karl
> Thanks Brian, that'll do the trick for what I'm after. Since I'm calling
> from UONET I may be able to do a 'squawk' to a phantom piped output to a
> file to pull record IDs as they are found when running this against any
> seriously large tables.
>
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> [EMAIL PROTECTED]
> Sent: Thursday, March 08, 2007 10:18 AM
> To: u2-users@listserver.u2ug.org
> Subject: RE: [U2] [UV] SEARCH command
>
> Peter
>
> Search is case sensitive.
> The best case-insensitive equivalent (though slower) is to use a SELECT
> command:
>
> SELECT yourfile WITH EVAL "UPCASE(@RECORD)" LIKE "...YOUR_PHRASE..."
>
> Brian
> ---
0001 !(FINDALL) - Search any file for input string
0002 ! Karl Pearson
0003 ! 02/09/2005
0004 $include INC.KLP
0005
0006 VARS = trim(@sentence)
0007 TLRT = dcount(VARS,' ')
0008 FL = field(VARS,' ',TLRT)
0009 SRCH = field(VARS,' ',2,TLRT-2)
0010 execute 'RUN BP SET.DIMENSIONS' ;! Set terminal Width & Height
0011 open EMP,'AR.CTL' to AR.CTL else stopm 'No AR.CTL File.'
0012 read REC from AR.CTL,"FINDALL" then
0013 USRNM = REC<1>
0014 if USRNM = @LOGNAME then
0015 print "You are running FINDALL. If you know you aren't,
then type ATS and press to continue : ":
0016 input DOSLK
0017 if upcase(DOSLK) = 'ATS' then go ARNDIT
0018 end
0019 stopm USRNM:" is running FINDALL. Try again."
0020 end else
0021 write @LOGNAME on AR.CTL,"FINDALL"
0022 end
0023 ARNDIT:
0024 Y = 1 ; KEY = EMP ; CNT = 0 ; PCNT = 0
0025 BTM = @crthigh
0026 SPOT = @(0,BTM-4)
0027 SPTT = @(0,BTM-3)
0028 print @(-1)
0029 SRCH: if TLRT = 1 then
0030 print SPOT:' Enter Search String or E=End : ':CLSLN:
0031 input SRCH
0032 if SRCH = EMP then
0033 print 'Nothing Entered...'
0034 go SRCH
0035 end
0036 if upcase(SRCH) = 'E' or upcase(SRCH) = 'Q' then go OUTT
0037 print SPOT:' Enter FILE to Search for ':SRCH:' : ':CLSLN:
0038 input FL
0039 if upcase(FL) = 'E' or upcase(FL) = 'Q' then go OUTT
0040 if FL = EMP or FL = 0 then
0041 print 'No File Entered...'
0042 go SRCH
0043 end
0044 end
0045 open EMP,'FNDLST' TO FNDLST else
0046 gosub CLEANIT
0047 stopm 'No FNDLST File'
0048 end
0049 open EMP,FL to SRCHFL else
0050 gosub CLEANIT
0051 stopm 'No ':FL:' File'
0052 end
0053 read LOCKED from FNDLST,'LOCKED' then
0054 print 'Process being run by ':LOCKED<1>
0055 print 'If you continue, you will clear FNDLST from them'
0056 print 'Continue =No/Yes : ':
0057 input CONTI ; CONTI = upcase(CONTI)
0058 if CONTI = EMP or CONTI = 'N' then go OUTT
0059 end
0060 execute 'CLEAR.FILE FNDLST' CAPTURING OUTPUTLN
0061 writev @logname on FNDLST,'LOCKED',1
0062 select SRCHFL
0063 if FL[1,2] = 'BP' or FL[1,4] = 'PROG' or FL[1,3] = 'VOC' then
0064 DCT = 0
0065 end else
0066 DCT = 1
0067 end
0068 if DCT then
0069 open 'DICT',FL to DFL else
0070 gosub CLEANIT
0071 stopm 'No DICT ':FL:' File GET HELP!'
0072 end
0073 end
0074 PCNT = 1
0075 ST: readnext KEY else go OUTT
0076 inputif DOODLY,1: then go OUTT
0077 read REC from SRCHFL,KEY else
0078 print 'UNABLE TO OPEN "':KEY:'"'
0079 go ST
0080 end
0081 C = 1
0082 print SPOT:'Itm#: ':PCNT:' ':KEY:CLSLN:
0083 print SPTT:'Finding: ':SRCH:' in ':FL:CLSLN:
0084 PCNT += 1
0085 NXT: inputif DOODLY,1: then go OUTT
0086 findstr SRCH in REC setting POS else go ST
0087 ! if @logname = 'karl' then debug
0088 C += 1
0089 POS = POS'r%2'
0090 if POS then
0091 if Y > (BTM - 6) then Y = 2
0092 CNT += 1
0093 if DCT then
0094 readv DCTLN from DFL,'F':POS,4 else DCTLN = EMP
0095 print @(0,Y):CNT"R#4":' ':KEY:' on Line ':POS:'
(':DCTLN:')':CLSLN:@(0,Y+1):CLSLN:
0096 end else
0097
Re: [U2] FTP
Pete (AccuTerm) was able to make it work. Hi Nancy - The Windows command processor does not handle redirection properly. Try explicitly launching the command processor using CMD.EXE with the '/C' option: cmd = "CMD.EXE /C FTP -s:\\OURSERVER\Flatfile\FTP.EXPORT\ftpscript1.txt > ftp.log" PRINT ESC:STX:'>':CMD:CR:I had to put C:\in front of the ftp.log and then it worked. Thanks to everyone for your help - and running from the Server would be best and hopefully we will get there - in the meantime Woo Hoo !!! Nancy [EMAIL PROTECTED] - Original Message - From: "MAJ Programming" <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 6:17 AM Subject: Re: [U2] FTP I was focused more on clearing up the accuterm syntax. I do FTP perhaps once a year so I don't remember it directly. I use the ESC:STX stuff a whole lot. Thanks - Original Message - From: "Bill Haskett" <[EMAIL PROTECTED]> To: Sent: Wednesday, March 07, 2007 9:49 PM Subject: RE: [U2] FTP Mark: My thoughts on this subject are usually the same...keep it simple. There has to be some pretty serious conditions existing before I'd move ftp services off the server and onto any client, and just because it can is not one of them. :-) Every O/S we use has an ftp client as part of it (Windows & ..nix). Networking is a difficult business where all kinds of things go wrong. Moving a service like ftp off the UniVerse server is just asking for an additional layer of problems. I'm late to ftp processing but I'm sure most on this list do ftp processing and it would be wise to follow advice given in this thread...ftp from the UV server. The script I posted works well and includes sftp processing. I'd be happy to post more but I'm sure everyone already does this kind of thing. Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of MAJ Programming Sent: Wednesday, March 07, 2007 6:13 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] FTP My 2 cents on accuterm: This may not clear up the FTP script, but It will set things straight for the ESC:STX sequence. Accuterm has beaucoups of PC facilities just waiting to run. They are typically preceed by the ESC:STX (27 : 2). The > command means that the Pick session will wait until the DOS session is complete. PRINT ESC:STX:"> SOL.EXE" The < command means that the Pick session will continue while the DOS session remains open. PRINT ESC:STX:"< SOL.EXE" I don't know specifically, But I have had timing concerns with issuing commands to DOS and then expecting to use those results back in Pick. If I write a textfile to a shared file and then execute notepad to play with it, Pick has to wait until notepad is finished. The ESC:STX command may finish promptly but re-reading the shared file textfile may result in beating notepad to the punch and you get the same record. Putting a SLEEP or READ within a LOOP to compare the before and after may be the trick. Mark Johnson --- 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-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SEARCH command
I've often wanted the same. Often. Is there a [BB] (Better&Better) Enhancement Request buried here? > From: Peter Veenhof > Is anyone familiar with the TCL command SEARCH? I can do a > 'SEARCH filename ALL.MATCH' command at TCL and then it > prompts for search criteria. I am wondering if it is possible > to make this command case insensitive as it is only working > case sensitive currently. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SEARCH command
Thanks Brian, that'll do the trick for what I'm after. Since I'm calling from UONET I may be able to do a 'squawk' to a phantom piped output to a file to pull record IDs as they are found when running this against any seriously large tables. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Thursday, March 08, 2007 10:18 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] [UV] SEARCH command Peter Search is case sensitive. The best case-insensitive equivalent (though slower) is to use a SELECT command: SELECT yourfile WITH EVAL "UPCASE(@RECORD)" LIKE "...YOUR_PHRASE..." Brian --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SEARCH command
Peter Search is case sensitive. The best case-insensitive equivalent (though slower) is to use a SELECT command: SELECT yourfile WITH EVAL "UPCASE(@RECORD)" LIKE "...YOUR_PHRASE..." Brian Hi all, Is anyone familiar with the TCL command SEARCH? I can do a 'SEARCH filename ALL.MATCH' command at TCL and then it prompts for search criteria. I am wondering if it is possible to make this command case insensitive as it is only working case sensitive currently. Thanks Peter --- 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/
Re: [U2] SUM Function
I knew that my reply may ruffle some feathers. I took his request as not the entire file as it pertains to Data/Basic, ie not the English (UQL/MQL) processor. Hopefully Marinko knows the difference between processing the data in a program and processing it outside. This also falls under yesterday's reply for ms Anita. Here's a guy, Marinko, who is asking about something that we all take for granted. We know that there's the SUM command at TCL and the SUM function in Data/Basic. While the results are the same, they're applied differently. If you review the other replies, some went a little overboard with their style. On a related topic. Some MV manuals that come in multiple books (pdf's) cause you to know the category (which book) to look in. The D3 manual (pdf), having only one comprehensive book, would have it's index as such: SUM command 3-123 SUM function 5-123 for the 2 separate chapters (Access and Basic respectively). Those multiple manuals don't help the newbies as clearly as they should. I think the overall tone between the newbies and us experienced guys is how to gracefully pass the torch to get them up to speed. As replied earlier, the 'reference' manuals are just that, references and not tutorials. Perhaps it's a lot harder than we think. We've got such a scattered collection of programming 'styles' all trying to pass as 'standards'. IHMO, since the new guys aren't creating new systems but rather jumping on a moving train, they could learn the 'house rules' that hopefully are consistent within the application they are primarily exposed to. Thus, they will at least perpetuate that 'standard' and learn from it. I've acquired my opinion of these different styles only due to having so many clients with previous software written by so many different programmers. Because of that, I can see the differences and IHMO, see good practices to keep and see bad ones to avoid. As I ponder the use of the word BAD in the prior paragraph and what pandora's box that may open, I mentally review some of the techniques that I've seen that I consider BAD. And what I've concluded is the reason for them being BAD is that they look like a work-around as the programmer probably didn't know what direct function they should have used. It all compiles. So maybe it falls back on the quality or purpose of the education process towards newbies. I don't think that programmers take MV classes (or seminars) like they used to (nee JES). Perhaps the existing environment that was created years ago and whose primary programmers haave since departed now has multiple technologies involved. It's like "Wanted: Java programmer with a whole bunch of other alphabetic contemporary skills. MV programming or Dartmouth Basic a plus" is the ad to get the next MV guy at that location. Anita and Marinko are not new programmers. They're new to MV. In fact, I don't know if there's any MV courses at the college level anymore. So our future is in the hands of getting these new guys up to speed. Come to think of it, I don't know anyone who learned MV first. It tends to come outside of academia and in the business world. I worked with 7 other languages before starting with MV decades ago. My 3 cents. Sorry for the duration. Mark Johnson - Original Message - From: <[EMAIL PROTECTED]> To: Sent: Thursday, March 08, 2007 3:15 AM Subject: Re: [U2] SUM Function > Mark > > The post said 'data file field'. In other words, summing a field across an entire file. > > As for summing a specific variable: > > SUM(CONVERT(@VM:@SVM,@FM:@FM,Value)) > > > > Brian > > > Did we not confuse this person with too much of an answer. He doesn't ask > about the entire file so MQL is overkill. He doesn't ask about SQL so that > may be overkill as well. He doesn't ask about the entire file so the > READNEXT thing may also be overkill. > > Perhaps the answer is: > > * > *** OPEN and READ > > > * > *** TO GET THE TOTAL OF THIS FIELD IF IT'S MULTI-VALUED > TOT=SUM(REC<2>) > > * > *** TO GET THE TOTAL OF THIS FIELD IF IT'S SUB-VALUED > TOT=SUM(SUM(REC<2>)) > > If Marinko is new enough to MV to ask about SUM, then the other stuff may > confuse him with things that he may believe are necessary. I'm answering his > question as posted. It didn't imply the entire file. > > Just don't want to get the new people off on the wrong foot. > > Respectfully, > Mark Johnson > > > - Original Message - > From: "Babic Marinko" <[EMAIL PROTECTED]> > To: > Sent: Wednesday, March 07, 2007 10:04 AM > Subject: [U2] SUM Function > > > > Hi > > > > > > > > What is the best and fastest way to get the SUM of a specific numeric > > data file field in UniVerse Basic? > > > > > > > > Kind regards, > > > > > > > > Marinko > > --- > > 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] [UV] SEARCH command
Hi all, Is anyone familiar with the TCL command SEARCH? I can do a 'SEARCH filename ALL.MATCH' command at TCL and then it prompts for search criteria. I am wondering if it is possible to make this command case insensitive as it is only working case sensitive currently. Thanks Peter --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FTP
I endorse the use of the DONE string. Many times (typically when mixing
technologies), they aren't handshaking very well.
I'll create a batch file or script that sets DONE to "N", perform the task
and then set DONE to "Y". The waiting MV program proceeds when DONE=Y.
I'm doing a project in VB that is to gather all of the files for a
particular extension (across all of the C: directories) and I have to use
this waiting method as well. I've worked with Twain scanners within MV that
also have timing issues.
These timing situations bite us in the rear as we're used to our code
processing sequentially. When one line of MV code kicks off another PC
session, we're used to the following line waiting until that session is
done.
My 1 cent.
Mark Johnson
- Original Message -
From: "Scott Ballinger" <[EMAIL PROTECTED]>
To:
Sent: Wednesday, March 07, 2007 10:21 PM
Subject: RE: [U2] FTP
> Accuterm can also execute a vb-like script. Here is an example (I got it
> from the ASENT.COM web site) that executes a WORD mail-merge process. I
> added a belt-AND-suspenders solution to the timing problem: the script
> outputs a text string ("DONE") at the end, which the calling basic
> program waits for with an INPUT, after which it also SLEEPS. In
> retrospect, 5 seconds seems a bit extreme; but this thing has been
> running for years and years, so I am unlikely to mess with it.
>
> /Scott Ballinger
> Pareto Corporation
> Edmonds WA USA
> 206 713 6006
>
> SUBROUTINE ATWORDMERGE.SUB(DOCUMENT)
>
> * THIS SUBROUTINE EXECUTES A PRESET WORD MERGE WITH A DOCUMENT USING
> ACCUTERM
> * 19 MARCH 2001 BC
>
> EQUATE EM TO CHAR(25)
>
> PRINT "Now printing document: ":DOCUMENT:"... ":
>
> *First create our object variables
> SCR ='Dim WordApp As Object'
> SCR = SCR:EM:'Dim WordDoc As Object'
> SCR = SCR:EM:'Const SendToPrinter = 1'
>
> *Make sure errors dont mess us up
> SCR = SCR:EM:'On Error Resume Next'
>
> *Start up word
> SCR = SCR:EM:'Set WordApp = CreateObject("Word.Application")'
>
> *Open our source document
> SCR = SCR:EM:'Set WordDoc =
> WordApp.Documents.Open(FileName:="G:\UVWORDMERGE\':DOCUMENT:'",
> ReadOnly:=True)'
>
> *Merge the document with our data file
> SCR = SCR:EM:'With WordDoc.MailMerge'
> SCR = SCR:EM:'.Destination = SendToPrinter'
> SCR = SCR:EM:'.SuppressBlankLines = True'
> SCR = SCR:EM:'.Execute Pause:=False'
> SCR = SCR:EM:'End With'
>
> * clean up
> SCR = SCR:EM:' WordDoc.Close savechanges:=False'
> SCR = SCR:EM:' Set WordDoc = Nothing'
> SCR = SCR:EM:' WordApp.Quit'
> SCR = SCR:EM:' Set WordApp = Nothing'
>
> * output text string back so we'll pause until word has completed
> SCR = SCR:EM:' InitSession.Output "DONE" & Chr$(13)'
>
> PRINT CHAR(27):CHAR(2):'P':SCR:CHAR(13):
>
> PROMPT ""
> INPUT DONE
> PRINT
>
> SLEEP 5 ;* allow word to completely shut down
>
> RETURN
> ---
> 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/
Re: [U2] FTP
I was focused more on clearing up the accuterm syntax. I do FTP perhaps once a year so I don't remember it directly. I use the ESC:STX stuff a whole lot. Thanks - Original Message - From: "Bill Haskett" <[EMAIL PROTECTED]> To: Sent: Wednesday, March 07, 2007 9:49 PM Subject: RE: [U2] FTP > Mark: > > My thoughts on this subject are usually the same...keep it simple. There > has to be some pretty serious conditions existing before I'd move ftp > services off the server and onto any client, and just because it can is not > one of them. :-) > > Every O/S we use has an ftp client as part of it (Windows & ..nix). > Networking is a difficult business where all kinds of things go wrong. > Moving a service like ftp off the UniVerse server is just asking for an > additional layer of problems. I'm late to ftp processing but I'm sure most > on this list do ftp processing and it would be wise to follow advice given > in this thread...ftp from the UV server. > > The script I posted works well and includes sftp processing. I'd be happy > to post more but I'm sure everyone already does this kind of thing. > > Bill > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of MAJ Programming > Sent: Wednesday, March 07, 2007 6:13 PM > To: u2-users@listserver.u2ug.org > Subject: Re: [U2] FTP > > My 2 cents on accuterm: > > This may not clear up the FTP script, but It will set things straight for > the ESC:STX sequence. > > Accuterm has beaucoups of PC facilities just waiting to run. They are > typically preceed by the ESC:STX (27 : 2). > > The > command means that the Pick session will wait until the DOS session is > complete. PRINT ESC:STX:"> SOL.EXE" > The < command means that the Pick session will continue while the DOS > session remains open. PRINT ESC:STX:"< SOL.EXE" > > I don't know specifically, But I have had timing concerns with issuing > commands to DOS and then expecting to use those results back in Pick. If I > write a textfile to a shared file and then execute notepad to play with it, > Pick has to wait until notepad is finished. > > The ESC:STX command may finish promptly but re-reading the shared file > textfile may result in beating notepad to the punch and you get the same > record. > > Putting a SLEEP or READ within a LOOP to compare the before and after may be > the trick. > > Mark Johnson > --- > 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/
RE: [U2] How to use SQLExecDirect ?
Sanjeeb
Why are you calling the subroutine through an SQLExecDirect?
You just need to Call from BASIC:
Crt "Enter the Item Code :" ; Input ItemCode
Call SUB(ItemCode)
If you are wanting to get back the results from the selection in the sub, you
need to SQLExecute() it so you can SQLBindCol() the results. See the email I
posted yesterday for Babic for an example.
Regards
Brian
Hi,
I created a sub routine and tried to execute a SQL query within it. In the
Client programm i called the Subroutine within the SQLExecDirect function.
Compilation, catalogging everything was fine. But the SQLExecDirect is
returing a value '-1' which is an error and with the SQLError function I
got the error as "invalid Cursor State".
please, help me in this regard.
Below is the block of code.
>ED TEST2.BP MAIN
11 lines long.
: PP
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: PRINT "ENTER THE ITEM CODE: ": ; INPUT ITEM
0004: ST = SQLExecDirect(@HSTMT,"CALL SUB(":ITEM:")")
0005: PRINT ST
0006: IF ST <> 0 THEN
0007: E = SQLError(SQL.NULL.HENV, SQL.NULL.HDBC, @HSTMT, STATE, CODE, MSG)
0008: PRINT "SQLSTATE = ":STATE:", ERROR CODE = ":CODE:", ERROR TEXT = "
0009: PRINT MSG
0012: END
: pp
0001: SUBROUTINE SUB(ITM)
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: S="SELECT ITEM_CODE,DESCRIPTION FROM INVENTORY.T WHERE ITEM_CODE =
":ITM
0004: ST = SQLExecDirect(@HSTMT,S)
0005: RETURN
>RUN TEST2.BP MAIN
ENTER THE ITEM CODE: ?6
-1
SQLSTATE = 24000, ERROR CODE = 0, ERROR TEXT =
[IBM][SQL Client]Invalid cursor state
Sanjeeb
=-=-=
Notice: The information contained in this e-mail
message and/or attachments to it may contain
confidential or privileged information. If you are
not the intended recipient, any dissemination, use,
review, distribution, printing or copying of the
information contained in this e-mail message
and/or attachments to it are strictly prohibited. If
you have received this communication in error,
please notify us by reply e-mail or telephone and
immediately and permanently delete the message
and any attachments. Thank you
---
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/
RE: [U2] How to use SQLExecDirect ?
0007: * Create client interface environment
0008: status = SQLAllocEnv(henv)
0009: * Initialsie a connection environment within the client interface environ
ment
0010: status = SQLAllocConnect(henv, hdbc)
0011: * Connect to the data source
0012: status = SQLConnect(hdbc, "sql2", "exploreworldwid\tlog","Tr4v3ll0g
")
0013: * Create an SQL Statement Environment
0014: status = SQLAllocStmt(hdbc, hstmt)
0015: * Pass an SQL statement (in SRDATA) to the data source readty for SQLExec
ute
0016: *status = SQLPrepare(hstmt, SRDATA) ; CRT status
0017: * Set up parameters for input to spjiooutput
0018: CRT "Execute"
0019: status = SQLExecDirect(hstmt,SRDATA)
0020: * Bind columns to program variables
0021: status = SQLBindCol(hstmt,1,SQL.B.CHAR,XML1)
0022: OP = ''
0023: LOOP
0024: WHILE status <> SQL.NO.DATA.FOUND DO
0025: status = SQLFetch(hstmt)
0026: OP := XML1
0027: REPEAT
0028:
0029: *
===
0030: * Release the SQL Statement Environment
0031: status = SQLFreeStmt(hstmt,SQL.DROP)
0032: * DisConnect from the data source
0033: status = SQLDisconnect(hdbc)
0034: * Releases a connection environment within the client interface environm
ent
0035: status = SQLFreeConnect(hdbc)
0036: * Releases client interface environment
0037: status = SQLFreeEnv(henv)
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Sanjeebkumar
Sarangi
Sent: 08 March 2007 12:48
To: u2-users@listserver.u2ug.org
Subject: [U2] How to use SQLExecDirect ?
Hi,
I created a sub routine and tried to execute a SQL query within it. In the
Client programm i called the Subroutine within the SQLExecDirect function.
Compilation, catalogging everything was fine. But the SQLExecDirect is
returing a value '-1' which is an error and with the SQLError function I
got the error as "invalid Cursor State".
please, help me in this regard.
Below is the block of code.
>ED TEST2.BP MAIN
11 lines long.
: PP
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: PRINT "ENTER THE ITEM CODE: ": ; INPUT ITEM
0004: ST = SQLExecDirect(@HSTMT,"CALL SUB(":ITEM:")")
0005: PRINT ST
0006: IF ST <> 0 THEN
0007: E = SQLError(SQL.NULL.HENV, SQL.NULL.HDBC, @HSTMT, STATE, CODE, MSG)
0008: PRINT "SQLSTATE = ":STATE:", ERROR CODE = ":CODE:", ERROR TEXT = "
0009: PRINT MSG
0012: END
: pp
0001: SUBROUTINE SUB(ITM)
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: S="SELECT ITEM_CODE,DESCRIPTION FROM INVENTORY.T WHERE ITEM_CODE =
":ITM
0004: ST = SQLExecDirect(@HSTMT,S)
0005: RETURN
>RUN TEST2.BP MAIN
ENTER THE ITEM CODE: ?6
-1
SQLSTATE = 24000, ERROR CODE = 0, ERROR TEXT =
[IBM][SQL Client]Invalid cursor state
Sanjeeb
=-=-=
Notice: The information contained in this e-mail
message and/or attachments to it may contain
confidential or privileged information. If you are
not the intended recipient, any dissemination, use,
review, distribution, printing or copying of the
information contained in this e-mail message
and/or attachments to it are strictly prohibited. If
you have received this communication in error,
please notify us by reply e-mail or telephone and
immediately and permanently delete the message
and any attachments. Thank you
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
__
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
__
__
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
__
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
[U2] How to use SQLExecDirect ?
Hi,
I created a sub routine and tried to execute a SQL query within it. In the
Client programm i called the Subroutine within the SQLExecDirect function.
Compilation, catalogging everything was fine. But the SQLExecDirect is
returing a value '-1' which is an error and with the SQLError function I
got the error as "invalid Cursor State".
please, help me in this regard.
Below is the block of code.
>ED TEST2.BP MAIN
11 lines long.
: PP
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: PRINT "ENTER THE ITEM CODE: ": ; INPUT ITEM
0004: ST = SQLExecDirect(@HSTMT,"CALL SUB(":ITEM:")")
0005: PRINT ST
0006: IF ST <> 0 THEN
0007: E = SQLError(SQL.NULL.HENV, SQL.NULL.HDBC, @HSTMT, STATE, CODE, MSG)
0008: PRINT "SQLSTATE = ":STATE:", ERROR CODE = ":CODE:", ERROR TEXT = "
0009: PRINT MSG
0012: END
: pp
0001: SUBROUTINE SUB(ITM)
0002: $INCLUDE UNIVERSE.INCLUDE ODBC.H
0003: S="SELECT ITEM_CODE,DESCRIPTION FROM INVENTORY.T WHERE ITEM_CODE =
":ITM
0004: ST = SQLExecDirect(@HSTMT,S)
0005: RETURN
>RUN TEST2.BP MAIN
ENTER THE ITEM CODE: ?6
-1
SQLSTATE = 24000, ERROR CODE = 0, ERROR TEXT =
[IBM][SQL Client]Invalid cursor state
Sanjeeb
=-=-=
Notice: The information contained in this e-mail
message and/or attachments to it may contain
confidential or privileged information. If you are
not the intended recipient, any dissemination, use,
review, distribution, printing or copying of the
information contained in this e-mail message
and/or attachments to it are strictly prohibited. If
you have received this communication in error,
please notify us by reply e-mail or telephone and
immediately and permanently delete the message
and any attachments. Thank you
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] SUM Function
Mark The post said 'data file field'. In other words, summing a field across an entire file. As for summing a specific variable: SUM(CONVERT(@VM:@SVM,@FM:@FM,Value)) Brian Did we not confuse this person with too much of an answer. He doesn't ask about the entire file so MQL is overkill. He doesn't ask about SQL so that may be overkill as well. He doesn't ask about the entire file so the READNEXT thing may also be overkill. Perhaps the answer is: * *** OPEN and READ * *** TO GET THE TOTAL OF THIS FIELD IF IT'S MULTI-VALUED TOT=SUM(REC<2>) * *** TO GET THE TOTAL OF THIS FIELD IF IT'S SUB-VALUED TOT=SUM(SUM(REC<2>)) If Marinko is new enough to MV to ask about SUM, then the other stuff may confuse him with things that he may believe are necessary. I'm answering his question as posted. It didn't imply the entire file. Just don't want to get the new people off on the wrong foot. Respectfully, Mark Johnson - Original Message - From: "Babic Marinko" <[EMAIL PROTECTED]> To: Sent: Wednesday, March 07, 2007 10:04 AM Subject: [U2] SUM Function > Hi > > > > What is the best and fastest way to get the SUM of a specific numeric > data file field in UniVerse Basic? > > > > Kind regards, > > > > Marinko > --- > 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-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
