Re: [U2] How do you determine terminal emulator?
* ViaDuct will return name revision to the following PCCMD=CHAR(27):CHAR(8);EQUATE ENDCMD TO CHAR(0) PRINT PCCMD:'WHAT':ENDCMD: INPUT REPLY -Original Message- From: Anthony W. Youngman [mailto:u...@thewolery.demon.co.uk] Sent: Tuesday, March 09, 2010 6:34 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] How do you determine terminal emulator? In message 6.0.1.1.1.20100309151717.05cc2...@12.167.143.145, Beverly Wilson bwil...@daedalus-books.com writes Hi folks, I'm wondering if anyone on the list can tell me what I can do to determine whether a user is using the Viaduct terminal emulator via UniBasic? Can you configure Viaduct? It should have some sort of answerback function. We have some code that can tell if the emulator is Accuterm or Wintegrate, but I haven't been able to come up with a command string that would cause Viaduct to return a value. I've looked through the docs, but haven't found anything. (I may be suffering situational blindness.) To give you an idea, these lines when run in through Wintegrate puts an X into the variable C: PRINT CHAR(27):CHAR(1):ENTER :DQUOTE(X):CHAR(13): INPUT C WAITING 1 ELSE C = Been there done that, but what you're doing looks slightly odd to me. We had a mix of Prime PT200s, PT250s, Wyse85s, and Wintegrate configured as a PT250. All of the real terminals would respond to a sequence something like esc? (can't remember what it actually was). So I wrote the login program to send this sequence to the user, and the terminal would (as it was meant to) respond with some string without any user intervention. And I programmed Wintegrate to behave just like a pt250 including this answerback. If you look at the pt250.wis (or is it .wit?) file distributed with Wintegrate you might well find my code in there to do exactly that. You'll need to read the Viaduct docu, but if it's at all user-configurable, you should be able to program it to do an answerback. Cheers, Wol -- Anthony W. Youngman pi...@thewolery.demon.co.uk 'Yings, yow graley yin! Suz ae rikt dheu,' said the blue man, taking the thimble. 'What *is* he?' said Magrat. 'They're gnomes,' said Nanny. The man lowered the thimble. 'Pictsies!' Carpe Jugulum, Terry Pratchett 1998 Visit the MaVerick web-site - http://www.maverick-dbms.org Open Source Pick ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Converting from mvBase to Universe
If your code uses the U50BB user exit to get the port number, there is a quick fix, but it will make upgrades a little more complicated. 50BB is a basic program in the APP.PROGS file in the UV account. You can modify it to send port information based on user login or other criteria. I send information into the 3rd field for program logic and leave the port number and account info alone. -Original Message- From: Curt Stewart [mailto:cstewa...@earthlink.net] Sent: Sunday, July 19, 2009 5:43 PM To: u2-users@listserver.u2ug.org Subject: [U2] Converting from mvBase to Universe I have a client that is considering moving from an mvBase system to a Universe (Windows) system. A lot of their processes are tied to specific ports and ranges. Is there an easy solution in Universe to nail the telnet ports for the users? Also, they use UREAD and UWRITE and take advantage of the MVClients ability to read and write to the local workstation, instead of the server when not using MVClient. I haven't heard of this separation being available in Universe, other than using something like Accuterm, am I right? Or is there an easy way to distinguish between writing to the local drive vs. the server? How has others handled this conversion issue? Right now we're planning on assigning each user a directory on the server to write to, does anyone have any alternate ideas? Thanks for the help, I appreciate hearing your solutions. Thanks, Curt TRI-SYS Consulting u2-users@listserver.u2ug.org ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
[U2] Odd permissions error running a vb script using dos /c command
I have a vb script that updates a filezilla configuration file on another server given a username and password. Universe 10.2 is running on a Windows 2003 Server. The Universe Server has administrator permissions on the other server. If I run the script from the windows command line of the Universe server, it works perfectly. If I run the script from TCL or execute it from Unibasic it throws up a permissions error pointing to the write line of the vbscript. When running from the windows command line, I'm running: cscript.exe d:\newage\createftp.vbs Username Password From UV, I'm running dos /c cscript.exe createftp.vbs UserName Password Windows messages are: Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. [Create FTP v2005.2.0] D:\NEWAGE\CREATEFTP.VBS(542, 3) Microsoft VBScript runtime error: Permission denied ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
RE: [U2] Help with encryption
I'm only aware of RC5 and some des. See ENCRYPT function in Basic Ref. -Original Message- From: IT-Laure Hansen [mailto:lhan...@redwoodcity.org] Sent: Tuesday, May 12, 2009 2:48 PM To: 'u2-users@listserver.u2ug.org' Subject: [U2] Help with encryption Does anyone know how to cause MD5 hashing in Universe? UV 10.2.3 on Win2003 server. I am hoping for a Basic command that I can run on a desired piece of data. Reading documentation so far hasn't helped, am I wanting to do something that is not available to me? Thanks in advance! Laure Hansen, City of Redwood City - Information Technology 1017 Middlefield Road - Redwood City, CA 94063 Office 650-780-7087 - Cell 650-207-3235 - Fax 650-556-9204 lhan...@redwoodcity.orgmailto:lhan...@redwoodcity.org P Please think green before printing this e-mail Subscribe to receive Redwood City E-News, news releases, or other documents via email: Click here to register/subscribehttp://www.redwoodcity.org/eGov/login.aspx?ref=/egov/index .aspx --- 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] Universe BCI to MS MSQL Null Question
Do I have to change all empty strings ('') to Char(128) within my program to get a Null field in MS SQL or is there a flag somewhere to have the client do this automatically? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Mentor Pro to UniVerse
I moved data from a GA R91 machine to Universe using Account saves and some modified programs from U2. To read the tape and write a tape file on the disk to use to restore from: Navigate to c:\ibm\u2\bin and run: UVMT -d\\.\tape0 -bBLOCKSIZE -t fread filename to Restore to U2 provided the following set of programs originally designed to move data from D3 to Universe. MVRESTORE. Designed to restore an account save from R91 into an existing universe account. Unlike D3RESTORE this routine restores the files into the account from which it is executed. Also handles BSegments on tape. Will create multi-level files where appropriate. The 'R91' system has an additional tape record not seen on the 'MV' systems. For a type 'DC' file each item is followed by an 'ET' tape record. The 'DC' file as I understand it represents an 'indirect reference'. The 'ET' record seems to be a hex value that points to where the record in question is stored. Suspect this is either a disk record number or group number. Put the routines in APP.PROGS file. Compile all except 'COMMON'. Catalog them globally, ie., CATALOG APP.PROGS *MVBSEGMENT CATALOG APP.PROGS *MVDSEGMENT CATALOG APP.PROGS *MVGETBLOCK CATALOG APP.PROGS *MVGETRECORD CATALOG APP.PROGS *MVISEGMENT CATALOG APP.PROGS *MVRESTORE In each account where you want to restore the data, create a simple pointer to 'MVRESTORE', for example: MVRESTORE 001 V 002 *MVRESTORE 003 B 004 N Log in to the account on Universe that you want to restore. Execute with image name on command-line, ie., 'MVRESTORE FILENAME from UVMT command created above'. The file must exist in the account you are to restoring. Hope this helps Dave -Original Message- From: Results [mailto:resu...@keyally.com] Sent: Tuesday, March 31, 2009 11:12 AM To: u2-users@listserver.u2ug.org Subject: [U2] Mentor Pro to UniVerse All, I'm moving a customer from Mentor Pro to UniVerse. My gut tells me suck the data out through Telnet but I wondered if anyone has any advice on doing it by tape? I remember their being some nasty item-size limits with tape but it has been so long since I've done a tape anything... All help appreciated. - Chuck --- 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] - UniBasic String Search
I use INDEX for this type search in UniBasic. It returns the starting character position of the string if found otherwise 0 CASE INDEX(OP.SPEC,'MIL',1) # 0 * ADD IT TO A RECORD RECORD-1=ID CASE INDEX(OP.SPEC,'Spec',1) # 0 * ETC -Original Message- From: Brutzman, Bill [mailto:bi...@hkmetalcraft.com] Sent: Friday, March 13, 2009 10:40 AM To: u2-users@listserver.u2ug.org Subject: [U2] - UniBasic String Search I need to examine fields for perhaps one thousand part.numbers looking for tech specs that contain character strings like MIL Spec SPEC -14 etc While I can do this with commands like... execute 'SELECT IM WITH OP.SPEC LIKE ...-14... ', this technique is awkward since I have a few dozen strings to look for... I have the IBM tech manual describing the MATCH operator and the MATCHFIELD function. Is there a handy UniBasic method to handle this or should I write a little program to do this myself? Fixes 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] EXECUTE environment in Universe
Wol, Thanks for the suggestion. The problem is the order of magnitude. I have 889 programs with at least one or more instances of this code to change. That's a fair amount of code to change and test. I don't want to enable PIOPEN.EXECUTE or use PERFORM universally because, depending on the program, we may have one or two instances of this select list type of code combined with a recursive executed program or a program that executes another program with named common variables so I do not want to share the workspace. If possible, I would certainly elect to permit select lists to be active in a new environment like the system I am porting from. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Anthony Youngman Sent: Friday, August 03, 2007 10:13 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] EXECUTE environment in Universe Seeing as you don't say whether you're wanting to enable PIOPEN.EXECUTE as a global option, or just in programs as you need to recompile them, it's not clear what exactly your problem is. Two things ... 1. Look at using PERFORM instead of EXECUTE. I'm not sure of the difference, but I strongly suspect that PERFORM *always* does a PI-style execute. I think PERFORM stays in the calling program's exec level, while EXECUTE by default creates a new one. 2. Look at rewriting your code something like EXECPHRASE = PA :@FM: SELECT ... :@FM: PRINT BACKORDER.REPORT PERFORM EXECPHRASE That way, you're guaranteed stable behaviour of select lists, etc etc. But if you're porting code, it looks like you're relying on PI-style executes, so setting PIOPEN.EXECUTE is unlikely to be a problem. Cheers, Wol -Original Message- From: Dave Greer [mailto:[EMAIL PROTECTED] Sent: 03 August 2007 14:41 To: U2-Users (E-mail) Subject: [U2] EXECUTE environment in Universe Is there a configuration setting or $OPTIONS routine, other than $OPTIONS PIOPEN.EXECUTE, that keeps select lists active when an Execute command is run? Our software package uses basic programs with execute statements rather than procs to run reports. An example might be something like the following: EXECUTE 'SSELECT ORDER WITH B/O.FLAG Y BY CUSTOMER BY DUE.DATE' CAPTURING REPLY RETURNING MSG IF SYSTEM(11) = 1 THEN EXECUTE 'PRINT BACKORDER.REPORT' END I'm afraid of the unintended consequences of using PIOPEN.EXECUTE because EXECUTES are used throughout hundreds of programs and many include named common variables. _ Dave Greer Director of Information Systems NewAge Industries AdvantaPure http://www.newageindustries.com/images/nalogo.jpg NewAge Industries, Inc. [EMAIL PROTECTED] www.newageindustries.com http://www.newageindustries.com/ 215.526.2300 PHONE 215.526.2191 FAX http://www.newageindustries.com/ Notice: If you are not the named recipient of this transmission, please notify us immediately, by telephone, and delete or destroy any copy of this message. You should not disclose or use this information in any way. Disclosure or use of this information may expose you to criminal or civil liabilities. We apologize for the inconvenience and thank you for your attention to this notice. --- 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] EXECUTE environment in Universe
Is there a configuration setting or $OPTIONS routine, other than $OPTIONS PIOPEN.EXECUTE, that keeps select lists active when an Execute command is run? Our software package uses basic programs with execute statements rather than procs to run reports. An example might be something like the following: EXECUTE 'SSELECT ORDER WITH B/O.FLAG Y BY CUSTOMER BY DUE.DATE' CAPTURING REPLY RETURNING MSG IF SYSTEM(11) = 1 THEN EXECUTE 'PRINT BACKORDER.REPORT' END I'm afraid of the unintended consequences of using PIOPEN.EXECUTE because EXECUTES are used throughout hundreds of programs and many include named common variables. _ Dave Greer Director of Information Systems NewAge Industries AdvantaPure http://www.newageindustries.com/images/nalogo.jpg NewAge Industries, Inc. [EMAIL PROTECTED] www.newageindustries.com http://www.newageindustries.com/ 215.526.2300 PHONE 215.526.2191 FAX http://www.newageindustries.com/ Notice: If you are not the named recipient of this transmission, please notify us immediately, by telephone, and delete or destroy any copy of this message. You should not disclose or use this information in any way. Disclosure or use of this information may expose you to criminal or civil liabilities. We apologize for the inconvenience and thank you for your attention to this notice. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] EXECUTE environment in Universe
Ken, Yes, I am using PICK flavor and have set the LAYERSEL option to the default - 0. The manual mentions a K Mode. I don't know what that is and can find no other reference to it in any of the documentation. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ken Hall Sent: Friday, August 03, 2007 1:45 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] EXECUTE environment in Universe Dave - Since you are porting from another environment (such as mvBase), have you looked at the options that you can set using UniAdmin. If you are using PICK flavor as your standard, you may want to set the LAYERSEL option to zero in the UV configuration options. See UniAdmin and the Administration manual for more info on this option. Ken At 10:05 AM 8/3/2007, you wrote: Wol, Thanks for the suggestion. The problem is the order of magnitude. I have 889 programs with at least one or more instances of this code to change. That's a fair amount of code to change and test. I don't want to enable PIOPEN.EXECUTE or use PERFORM universally because, depending on the program, we may have one or two instances of this select list type of code combined with a recursive executed program or a program that executes another program with named common variables so I do not want to share the workspace. If possible, I would certainly elect to permit select lists to be active in a new environment like the system I am porting from. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Anthony Youngman Sent: Friday, August 03, 2007 10:13 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] EXECUTE environment in Universe Seeing as you don't say whether you're wanting to enable PIOPEN.EXECUTE as a global option, or just in programs as you need to recompile them, it's not clear what exactly your problem is. Two things ... 1. Look at using PERFORM instead of EXECUTE. I'm not sure of the difference, but I strongly suspect that PERFORM *always* does a PI-style execute. I think PERFORM stays in the calling program's exec level, while EXECUTE by default creates a new one. 2. Look at rewriting your code something like EXECPHRASE = PA :@FM: SELECT ... :@FM: PRINT BACKORDER.REPORT PERFORM EXECPHRASE That way, you're guaranteed stable behaviour of select lists, etc etc. But if you're porting code, it looks like you're relying on PI-style executes, so setting PIOPEN.EXECUTE is unlikely to be a problem. Cheers, Wol -Original Message- From: Dave Greer [mailto:[EMAIL PROTECTED] Sent: 03 August 2007 14:41 To: U2-Users (E-mail) Subject: [U2] EXECUTE environment in Universe Is there a configuration setting or $OPTIONS routine, other than $OPTIONS PIOPEN.EXECUTE, that keeps select lists active when an Execute command is run? Our software package uses basic programs with execute statements rather than procs to run reports. An example might be something like the following: EXECUTE 'SSELECT ORDER WITH B/O.FLAG Y BY CUSTOMER BY DUE.DATE' CAPTURING REPLY RETURNING MSG IF SYSTEM(11) = 1 THEN EXECUTE 'PRINT BACKORDER.REPORT' END I'm afraid of the unintended consequences of using PIOPEN.EXECUTE because EXECUTES are used throughout hundreds of programs and many include named common variables. _ Dave Greer Director of Information Systems NewAge Industries AdvantaPure http://www.newageindustries.com/images/nalogo.jpg NewAge Industries, Inc. [EMAIL PROTECTED] www.newageindustries.com http://www.newageindustries.com/ 215.526.2300 PHONE 215.526.2191 FAX http://www.newageindustries.com/ Notice: If you are not the named recipient of this transmission, please notify us immediately, by telephone, and delete or destroy any copy of this message. You should not disclose or use this information in any way. Disclosure or use of this information may expose you to criminal or civil liabilities. We apologize for the inconvenience and thank you for your attention to this notice. --- 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/