RE: [U2] Universe abort

2009-04-17 Thread Peter Veenhof
Hey Teri,

Try this link, it's a similar error from the U2 mailing list archives:

http://www.mail-archive.com/u2-users@listserver.u2ug.org/msg08925.html

Pete


-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Teri Henry
Sent: Thursday, April 16, 2009 2:08 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Universe abort

The below noted error was received during a repetitive (once per hour)
series of functions executed within a phantom process.  I restarted the
process and it continues to run without error.

Where do I begin looking for causative factors?  Is this simply a
permissions issue or does it point to other problems?  Any help is
greatly appreciated.


Unhandled exception raised at address 0x10106253 : Access
violation
Attempted to read from address 0x00CF1000
Aborting UniVerse...

Teri Henry
Matrix Group, Ltd.
(727) 799-7500 ext. 2430
---
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] Deciphering Pick

2009-02-27 Thread Peter Veenhof
Hi all,

Does anyone have anything like described below that will read
Universe PICK code and then proceed to aid in flowchart creation whether
it creates some kind of map file or a Visio even better?

Thanks,
Peter

-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Peter Gonzalez
Sent: Thursday, December 08, 2005 3:38 PM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Deciphering Pick UniBasic statement

Several years go I wrote a utility to clean source code for Unidata, for
this very same reason. The utility added END statements when need. It
also accounted for all Unidata functions, Verbs. An added feature that I
was not able to complete, due to time, was a flowchart. A second program
would take the cleaned source and build a Visio flowchart. Maybe I'll
finish it one of these days.

Pete
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Universe license usage per account {Unclassified}

2008-09-26 Thread Peter Veenhof
Hey,

Yes, I know I have licenses per system instance, but I want to know how
many of the licenses are being used in a specific account... Is there
any way to find that out?




-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of HENDERSON MIKE,
MR
Sent: Thursday, September 25, 2008 5:25 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV] Universe license usage per account {Unclassified}

Peter,

You don't have licenses per account, only per UniVerse system instance. 

The maximum UV licensed users count is available in SYSTEM(36).
The number of licenses currently consumed is available in SYSTEM(35).


Regards


Mike


-Original Message-
From: [EMAIL PROTECTED] On Behalf Of Peter Veenhof
Sent: Friday, 26 September 2008 8:06 a.m.
To: u2-users@listserver.u2ug.org
Subject: [U2] [UV] Universe license usage per account

Hi,

I was wondering if anyone knows a way to extract the number of
licensed users (or rather licenses in use) for a specified Universe
Account?

Thanks
Pete
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
The information contained in this Internet Email message is intended
for the addressee only and may contain privileged information, but not
necessarily the official views or opinions of the New Zealand Defence
Force.
If you are not the intended recipient you must not use, disclose, copy
or 
distribute this message or the information in it.

If you have received this message in error, please Email or telephone
the sender immediately.
---
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] Universe license usage per account

2008-09-25 Thread Peter Veenhof
Hi,

I was wondering if anyone knows a way to extract the number of
licensed users (or rather licenses in use) for a specified Universe
Account?

Thanks
Pete
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Universe Login

2008-05-14 Thread Peter Veenhof
Hi All,

This is a basic UV question, but for some reason I can't seem to find an
answer... I want to have all uses who log into Universe go to one
specific account, how do I set this universally? ... Using UV 10.2 on
Windows 2003.

Thanks
Pete
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] CLEAR.FILE error

2007-09-18 Thread Peter Veenhof
Hi all,

I'm executing a CLEAR.FILE DATA against a Type18 file and I get an error
code of -128, does anyone know what that error code means?

Thanks in advance,
Pete
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] SQL Select problem using ORDER BY and UONET

2007-07-09 Thread Peter Veenhof
Hi all,

I'm using SQL select statements in Universe (so I can implement JOINS)
however in UONET the SelectList object, ReadList() method returns a
UniDynArray that has all the VMs replaced with AMs if I use ORDER BY in
the select! Has anyone else experienced this problem? If I have no ORDER
BY in the select then I get a proper UniDynArray back with VMs and
AMS

Thanks
Pete
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Connecting to a remote Universe server in Universe Basic

2007-04-30 Thread Peter Veenhof
Look in the manuals for remote file pointers, there is a way to do this
without required UV/Net installed. It's a setting that just needs to be
set in the config file on one of the servers and then you can create
file pointers with a network path.



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Jason Lin
Sent: Monday, April 30, 2007 5:14 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Connecting to a remote Universe server in Universe Basic

Hi all.

Does anyone know what is the easiest way for Universe BASIC programs to
access or update records residing on another Universe server?

In Visual Basic, this can be done easily using UniObject.  But I am
surprised that Universe BASIC itself does not seem to have the
capability
provided by UniObject.  ODBC is out of the question because our Universe
servers are runing on two HP-UX boxes without ODBC drivers.  Our
administrators have no plan to acquire ODBC drivers for them.

Any information would be greatly appreciated.

Thank you.
Jason
---
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] Confirmation: Selling Multivalue to Upper Management

2007-04-18 Thread Peter Veenhof
Thanks Charles, ya I must have gave up just before the new one launched.
I'll be sure to get in on the 2nd one though!


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch
Sent: Tuesday, April 17, 2007 4:09 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Confirmation: Selling Multivalue to Upper Management

Peter (and others),
Skype had a glitch. I'm doing it all again on Sunday (same time of 
day) and I'm working with Skype to resolve the issue. Please join me 
then. If you cannot, let me know, I *may* be doing a tyhird shot for the

Australia/New Zealand crowd.

   - Chuck

Peter Veenhof wrote:
 Can't join the Skypecast, says it has already finished :(
---
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] Confirmation: Selling Multivalue to Upper Management

2007-04-17 Thread Peter Veenhof
Can't join the Skypecast, says it has already finished :(


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch
Sent: Monday, April 16, 2007 11:30 PM
To: undisclosed-recipients
Subject: [U2] Confirmation: Selling Multivalue to Upper Management

If you know anyone who might want to attend, please pass this
information on

 To find the sessions:
 
https://skypecasts.skype.com/skypecasts/skypecast/search.html?search=mul
tivaluedoSearch=Search
 The dates:
 April 17, 2:00 PM  US Eastern Daylights Savings Time - Tuesday
 April 22, 2:00 PM US Eastern Daylights Savings Time - Sunday

If you need the Linux software:
 http://www.skype.com/download/skype/linux/
If you need the Mac OSX software:
 http://www.skype.com/download/skype/macosx/
If you need the Windows software:
 http://www.skype.com/download/skype/windows/

Charles Barouch ([EMAIL PROTECTED])
www.KeyAlly.com (718) 762-3884 x 1
P. O. Box 540957, Queens, NY 11354
---
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

2007-03-08 Thread Peter Veenhof
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

2007-03-08 Thread Peter Veenhof
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] A trail of bread crumbs

2007-02-13 Thread Peter Veenhof
SYSTEM(9001) should tell you what you are looking for...



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn
Sent: Tuesday, February 13, 2007 11:19 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] A trail of bread crumbs

Greetings saviors.

I'm trying to find a system variable? Or anything that can tell me, from
within a BASIC program, How did I get here?  

Is there a trail of breadcrumbs for me to follow from within Unibasic,
does
anyone know?

Just sign me,
Gretel

p.s. I'm a digest subscriber, (so busy luring witches into the woods,
you
know) so if anyone has my answer for me, copy me directly, please!
---
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] Universe

2007-02-13 Thread Peter Veenhof
Teri,

I'd bet, as cumbersome as it may be, if you pin down the times at which
this error is occurring and can see what other processes are running on
the system at that time you'd probably get a good answer to your
question. However, to prevent this, would it be possible to check and
trap the file open for an error message, log it, but allow the phantom
to continue on and try again until it's successful? That's probably your
best bet to prevent a required manual restart of the phantom process.

Pete


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Teri Henry
Sent: Tuesday, February 13, 2007 1:16 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Universe

On Universe 10 using Windows.

I have a phantom process running a series of programs twice/hour every
day.  The phantom sleeps during nightly processing and backup.

A couple times a month the process stops with a permissions issue on a
data file with this message Read operation failure.  [EACCES]
Permission denied.  The data file noted is different each time, the
time it fails is varied and only the error message is consistent.  I
restart the process and it works fine.  Is this a Universe permission
that is being lost?  Any ideas on what I can do to prevent this?

I appreciate any advise offered.

Teri Henry
Matrix Group Ltd., Inc.
727-799-7500 ext. 2234
---
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] A trail of bread crumbs

2007-02-13 Thread Peter Veenhof
Yes, essentially the info in Universe is the same, however the order may be 
different... In Universe SYSTEM(9001) you get the most recent at the top of the 
list:

Ie. Running a sub called CLTESTER from my PVRUN main you get this rec in 
SYSTEM(9001):

2}PV.DEV.O/CLTESTER}0x0
1}PV.PGM.O/PVRUN}0x3f98



-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn
Sent: Tuesday, February 13, 2007 12:58 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] A trail of bread crumbs

Thanks, everyone who had my answer at the ready!
I looked right at the system(49) documentation and thought it was something
else.  It is actually quite wonderful!

Does anyone know if the output format is the same on Universe SYSTEM(9001)
as it is on Unidata SYSTEM(49)?  On Unidata you get this output:

 1}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_MM}109 
 2}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.SELECT}262 
 3}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.MENU.S}348  
 4}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.PROCESS}151 
 5}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.INTERP.I}739
 6}C:\IBM\SBPLUS\UNIDATA\SB.DEFN\DM\_SB.VALIDATE}90 
 7}PRCPROGS\_PRC.ASSIGNED.VB}100
 8}PRCPROGS\_PRC.CREATE.PRJ}132 
 9}C:\IBM\ud71\sys\CTLG\p\PRC.PROJECT.TRIGGER}31
 

(A reverse-order stack with a sequence number, the program name, then the
line number within the program in three MV's)

 

Susan/Gretel
p.s. anybody seen Hanzel?
---
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] Storing images on U2 database via UODOTNET

2006-12-19 Thread Peter Veenhof
Hi,

Just about to attempt this process from .NET using UODOTNET, anyone have any
advice off the bat, any concerns I should have?

Thanks,
Pete



From: [EMAIL PROTECTED] on behalf of Uffe Toft
Sent: Mon 18/12/2006 8:37 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Storing images on U2 database.



Hi Jeff,

I'll recommend a Dynamic UniVerse file (TYPE 30) for storing binary data
like images.
Most likely all records will be stored as large records giving almost
direct assess.

It performs fine and there is no practical limits in the total size or the
no. of records to be stored in a 64BIT file.
Alternatively, you could for administrative reasons spread the images in
more 32BIT files each holding maybe 2GB.
The internal format of Dynamic files makes it also a protected way of
storing READONLY images.

Using TYPE 1 or 19 files will slow down the OS system, if you have hundreds
of thousands or millions of images

You will need a TYPE 1or 19 file as a temporary place for moving binary
files to and from the Dynamic file.

Any UniVerse reads and writes to the TYPE 1 or 19 file must by binary.
E.g.:
   READ IMAGE.RECORD FROM F.DYNAMIC.FILE, IMAGE.ID ELSE
   END
ASSIGN SYSTEM(1017) TO 1  ;* binary on
WRITE IMAGE.RECORD TO F.TYPE19_FILE, IMAGE.ID
ASSIGN SYSTEM(1017) TO 0   ;* binary off

The method may be different in UniData.


Regards,
Uffe Toft
Steria Denmark

[demime 1.01d removed an attachment of type application/ms-tnef which had a 
name of winmail.dat]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Phantom Limits

2006-11-23 Thread Peter Veenhof
Hi,

I'm just reading up on phantoms, and saw this little note in the HELP...

There is a system-wide limit on the number of  processes  that
 you  can initiate. If you can start no more processes when you
 issue a PHANTOM command, the following message appears:

NO FREE PHANTOMS
You cannot run a phantom process now.
Wait a while, then try again.

I was wondering if anyone knows off the top of their head, what
determines this limit? Is it a static number, if so what, or is it user
definable?

Thanks
Peter
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Auto start a phantom process

2006-11-07 Thread Peter Veenhof
Perfect, that should solve our problem ;) Thanks to all who responded!


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Anthony W.
Youngman
Sent: Saturday, November 04, 2006 4:37 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] [UV] Auto start a phantom process

In message [EMAIL PROTECTED], Martin Phillips 
[EMAIL PROTECTED] writes
Hi Peter,

You need to execute
  uv PHANTOM command.name
in the appropriate account directory.

If you are on Unix/Linux you can drop this into the end of the startup 
section of the uv.rc shell script. On Windows, use a startup folder.


A startup folder is only of any use if someone logs into the system. If 
it's a server where no-one logs in, that idea probably won't work.

Use the system scheduler. You can set up the system so that a job is run

on startup or, actually, a short time after startup (we had problems 
with the job trying to run before uv had been initialised).

We used this system to fire off all our scheduled jobs - we had a 
scheduler written in BASIC, and used the NT scheduler to fire off our UV

scheduler about a minute after a system boot.

Cheers,
Wol
-- 
Anthony W. Youngman [EMAIL PROTECTED]
'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
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] PCPERFORM - UniVerse Equialent

2006-11-07 Thread Peter Veenhof
Try typing DOS at TCL, is that what you are looking for? From a basic
program you can do:

EXECUTE DOS /c whatever-command

Peter


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Doug Farmer
Sent: Tuesday, November 07, 2006 4:12 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] PCPERFORM - UniVerse Equialent

I am lookin for the UniVerse equivalent to the UniData PCPERFORM
command.  I need this to work on both Unix and Windows Platforms.
Looking at the UniVerse docmentatin, I see the CSH and SH commands, but
they do not say they work on Windows Platforms,.  Is there something I
am missing?

Thanks

Doug Farmer




This e-mail is for the use of the intended recipient(s) only. If you
have
received this e-mail in error, please notify the sender immediately and
then
delete it. If you are not the intended recipient, you must not use,
disclose
or distribute this e-mail without the author's prior permission. We have
taken
precautions to minimize the risk of transmitting software viruses, but
we
advise you to carry out your own virus checks on any attachment to this
message. We cannot accept liability for any loss or damage caused by
software
viruses.
---
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] Why does the IF statement think these values are different?

2006-11-06 Thread Peter Veenhof
Hi

I've copied your code as you've provided, and used the same numbers that
you have provided, and my IF statement behaves properly and does not
create an ERRMSG string.

Is there perhaps some system setting that could be causing this? I
certainly do not see any errors in your logic...

Pete
 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Steve Ferries
Sent: Monday, November 06, 2006 10:14 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Why does the IF statement think these values are
different?

HI All,

I don't understand why the IF statement THEN clause is executed in the
following code:

 CUSTOMCALC: 447:   IF INTREC+PRNREC#INTPAY+PRNPAY THEN
:: S
 CUSTOMCALC: 448: ERRMSG='ACCT/CALCULATOR MISMATCH:
':(INTREC+PRNREC)'R2':'/':(INTPAY+PRNPAY)'R2'
:: INTREC/
NUMBER: 24016.35
:: PRNREC/
NUMBER: 978.56
:: INTPAY/
NUMBER: 24016.35
:: PRNPAY/
NUMBER: 978.56
:: ERRMSG/
STRING: T r L=42 `ACCT/CALCULATOR MISMATCH: 24994.91/24994.91'

To my tired eyes, they are equal and we should not take the THEN.

What am I missing here?

Thanks for your help!

Steve

Steve Ferries
Vice President, Information Technologies
Total Credit Recovery Limited
416 774 4250
[EMAIL PROTECTED]


Note: This e-mail may be privileged and/or confidential, and the sender
does
not waive any related rights and obligations. Any distribution, use or
copying
of this e-mail or the information it contains by other than an intended
recipient is unauthorized. If you received this e-mail in error, please
advise
me (by return e-mail or otherwise) immediately.
Ce courrier ilectronique est confidentiel et protigi. L'expiditeur ne
renonce
pas aux droits et obligations qui s'y rapportent. Toute diffusion,
utilisation
ou copie de ce message ou des renseignements qu'il contient par une
personne
autre que le (les) destinataire(s) disigni(s) est interdite. Si vous
recevez
ce courrier ilectronique par erreur, veuillez m'en aviser immidiatement,
par
retour de courrier ilectronique ou par un autre moyen.
---
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] Auto start a phantom process

2006-11-03 Thread Peter Veenhof
Hey all,

Does anyone have any knowledge or suggestions on how I might go about
starting up a phantom automatically when the UV system comes online?

Thanks
Peter
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2][UV] Version question

2006-09-21 Thread Peter Veenhof
At TCL:

.L RELLEVEL



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Nick Cipollina
Sent: Thursday, September 21, 2006 8:50 AM
To: u2-users@listserver.u2ug.org
Subject: [U2][UV] Version question

How can I tell which version of universe is installed on the server?  I
know this has been asked before, but I cannot find the email.

Thanks,

Nick Cipollina
 
MCTS, MCP
ACS Heritage, Inc.
2810 North Parham Road, Suite 210
Richmond, VA 23294
(804)965-8294
---
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] Read Error, Improper Data Type

2006-07-27 Thread Peter Veenhof
Hi Bill,

You are execut9ing a CLEAR statement after assigning the file variable.
This CLEAR statement will reset your file variable. Move the CLEAR
statement above your file open to fix this program. Documentation on
CLEAR:

CLEAR statement

_


SYNTAX

  CLEAR [COMMON]

DESCRIPTION

   Use the CLEAR statement at the beginning of a program  to  set
   all assigned and unassigned values of variables outside of the
   common area of the program to 0. This  procedure  avoids  run-
   time  errors  for  unassigned  variables. If you use the CLEAR
   statement  later  in  the  program,  any  values  assigned  to
   noncommon variables (including arrays) are lost.



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill
Sent: Thursday, July 27, 2006 12:12 PM
To: 'u2-users@listserver.u2ug.org'
Subject: [U2] [UV] Read Error, Improper Data Type

I am having a problem with a straightforward read statement that is
driving
me crazy...

Suggestions would be appreciated.

--Bill

  ____
  \_  SLANG _/   Common Names for HK.Parts

_Slang.Name___


6 record(s) selected to SELECT list #0.
 101312   0
 101485   0
 101859   0
 103468   0
 103469   0
 103543   0

101312?101485?101859?103468?103469?103543

***101312***
Program SLANG.R0: Line 77, Improper data type.
Variable previously undefined.  Zero length string used.


*===

===

*R0  Bill Brutzman   Jul.2006

  prompt ''

  open 'IM'  to  F.Item  else  null

*---
--

  crt @(-1)

  crt 
  crt
  crt
  crt
  crt 
  crt
  crt
  crt '   _  '
  crt '  / \ '
  crt '  \  SLANG  /   Common Names for HK Parts '
  crt '   \___/  ' : @(-5)
  crt
  crt '  ~ 10 sec' : @(-6)
  crt
  crt '' :

*---

---

  clear

  equate true to 1, false to 0
  equate AM to char(254)

  done = false

  print

  Part.Array = ''

  gosub Print.Header

*---
--

  clearselect ALL

  execute  SELECT IM WITH SLANG.NAME # ''  

  loop
readnext Part  else done = true
  until done do

Print.Line  =' '
Print.Line := Part  'L#6'  : '   '
Print.Line := Slang.Name

crt Print.Line

  locate Part in  Part.Array1by 'AL'  setting  posn  else
null
  insPart before  Part.Arrayposn

  Next.Step:
  repeat

  crt
  crt Part.Array
  crt

  All.Parts = dcount(Part.Array, AM)

  for Part.Count = 1 to All.Parts

This.Part = Part.ArrayPart.Count

crt '***' : This.Part : '***'

read  R.Item  from F.Item, This.Part   else  R.Item = ''
  Slang.Name = R.Item11

if Slang.Name = '' then go Next.Step

  next This.Part


*---

---
Exit.Prompt:  

  crt @(0,22) : @(-4) : '  [X] ' : 

  input Ans, 1

  Ans = upcase(Ans)

  begin case
case Ans = 'X'  ;  go The.End
case 1  ;  go Exit.Prompt
  end   case

  go The.End:

*---
--
Print.Header:

  crt @(-1)

  crt '  ____ '
  crt '  \_  SLANG _/   Common Names for HK.Parts  '
  crt

  Print.Line  = ' _HK.PN'
  Print.Line  = '_Slang.Name___'

  print Print.Line
  print

return

*---
--
The.End:

  crt @(-1)

  END
---
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] UODOTNET.DLL

2006-07-12 Thread Peter Veenhof
If UO.NET is a big wrapper around COM (which I believe it is), then
might
there be a registration issue (DLL Hell) if the two cuts are
loaded/running
on the same system?


I was under the impression that the UO.NET dll is a native .net dll, not
a wrapper. There is no registration or COM components required when
using the UO.NET dll. I've run projects on a system that has nothing but
the UO.NET dll just sitting in the application directory without
problems. DLL Hell is nowhere to be found. :)
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] CALLHTTP....UV 10

2006-07-04 Thread Peter Veenhof
Hi,

I think I had similar problems, but eventually got it working with this
code:

HTTP.METHOD = 'GET'
REQ.HANDLE = '' ; POST.DATA = '' ; TIME.OUT = '' ; RESP.HEADERS = '' ;
RESP.DATA = '' ; HTTP.STATUS = ''
Ret = setHTTPDefault('VERSION','1.1')
Ret = createRequest(URL,HTTP.METHOD,REQ.HANDLE)
Ret = setRequestHeader(REQ.HANDLE,'Connection','Keep-Alive')
RET.STATUS =
SubmitRequest(REQ.HANDLE,TIME.OUT,POST.DATA,RESP.HEADERS,RESP.DATA,HTTP.
STATUS)


Where RESP.DATA will contain the downloaded data

Setting the HTTP Version to 1.1 is what fixed mine to get the data to
come down, I do recall only getting headers previous to that.

Hope that helps

Peter



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of George Gallen
Sent: Monday, July 03, 2006 4:15 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] CALLHTTPUV 10

I'm trying to setup a very simple web call.

STATUS1=CREATEREQUEST(URL,GET,SHANDLE)
STATUS2=SUBMITREQUEST(SHANDLE,1000,,HEADERS,RDAT,HSTATUS)

OK. From what I gather, the above two lines, should download the
webpage
specified in URL.

I'm getting strange information in HEADERS and RDAT but the HSTATUS says
200
(ok)

What I want to do is access a URL and get the resulting information.

I was using wget, but it keeps hanging. I just want to use something
else, and
thought I'd
try to go UV native.

In actuality, I will really need to use CREATESECUREREQUEST(), But I'll
tackle
that one
when I get the non-secure working first...:)

Any examples would be very helpful

Thanks
George

George Gallen
Senior Programmer/Analyst
Accounting/Data Division
[EMAIL PROTECTED]
ph:856.848.1000 Ext 220

SLACK Incorporated - Delivering the best in health care information and
education worldwide.
http://www.slackinc.com
---
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] What is wrong with this OCONV?

2006-06-29 Thread Peter Veenhof
H this works fine for me on Universe 10.1.11 in a PICK flavored
account. I get X = 2C...


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of David Wolverton
Sent: Thursday, June 29, 2006 1:20 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] [UV] What is wrong with this OCONV?

I am tring to get Hex data back for a URL encode... 

What is wrong with this statement:

X  = OCONV(,,MX)

X is being returned as , instead of the Hex Value of , - 2C

What am I missing -- this seems fine on UniData - But UniVerse isn't
working...

'Still a UniVerse Newbie'...

David W.
---
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] SELECT stmts forbidden during Transaction in UODOTNET????

2006-06-28 Thread Peter Veenhof
FYI, documentation says SELECT (RetrieVe), SELECT (SQL) and SSELECT are
valid to be executed during a transaction, this documentation for
10.1.11, I wonder if they fixed that in a recent release? Still curious
though why doing this during UO NET session would blow up, must be
calling another verb that is forbidden somewhere along the lines. I
suppose my best bet would be to contact IBM on this one.


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ray Wurlod
Sent: Wednesday, June 28, 2006 2:58 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] SELECT stmts forbidden during Transaction in
UODOTNET

I assumed a RetrieVe SELECT, which IS forbidden while a transaction is
active.
---
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] SELECT stmts forbidden during Transaction in UODOTNET????

2006-06-27 Thread Peter Veenhof
I'm not sure what documentation you are reading, the BASIC documentation
says you CAN execute SQL statements from within a transaction. See page
96 of the Basic.pdf in you documentation under the heading Transaction
Restrictions. It explicitly says you CAN EXECUTE a SELECT. 

And I do know that my problem lies within Universe (or rather the RPC
call to universe, that's why I posted it here... It's a bug in UO
.NET I can do a transaction in a PICK account using BASIC
programming and have SELECT statements in it without any problem,
however doing the same from UO .NET blows the program up.

I'm just looking for anyone how has played with UO .NET that might know
of a workaround? 

-Original Message-

It's nothing to do with .NET; it's a restriction within UniVerse itself.
You can read about what is and isn't allowed while a transaction is
active in the UniVerse BASIC manual; it's too long to reproduce here.
---
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] SELECT stmts forbiddin during Transactio in UODOTNET????

2006-06-22 Thread Peter Veenhof
Hi all,

Running latest version of UO DOT NET against Universe 10.1.11...

I have a C# program that begins a transaction, then runs a select using
connection.Command = SELECT BLAH BLAH BLAH then executes it... Upon
return I get the following RPC error:

30124 A Transaction is active so this action is forbidden

If I continue on in my code, whatever the next access command is, it
hangs the process completely Server needs to be rebooted to remove
it.

Are SELECT commands NOT allowed in UO DOT NET Does anyone else have
any experience like this??

Thanks
Peter
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] ICONV 'DW' [was:UniVerse Internal Date Blackout]

2006-06-13 Thread Peter Veenhof
Way tooo easy at this point you can leave the dates and times out of
it :)

Somewhere along the line when SAVING these orders to a database, either
SQL or Universe, an Order ID must be retrieved to store this record.
So let the system decide and just take the first sequential order
number.



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Tuesday, June 13, 2006 5:38 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] ICONV 'DW' [was:UniVerse Internal Date Blackout]


   As  far  as  ISO  conversion goes - here's a hypothetical question
for
   you: If 2 book orders came in from the web each for 1 Da Vinci
Code,
   you  only  have  1  in stock, which order gets priority? The one
dated
   2006-04-30T02:56:32+11:00 or the other dated
   2006-04-29T11:56:32-05:00?

   That's  right,  you  have  to  cut the book in half... even though
one
   order  was dated the 30^th and the other the 29^th they were raised
at
   exactly  the  same moment in time (spooky music plays - camera pans
to
   cryptic  symbols  ...)  and  have the same temporal priority. The
fact
   that  ISO date time is a recognised international standard and is
used
   extensively  in  XML,  is  language  and  OS independent and that
it
   DOESN'T  separate  date and time is actually something I wish Pick
did
   better.  It  is  functionality that IBM already have in other
products
   and could easily incorporate into a U2.

   Cheers,

   Stuart

 
__
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UniVerse Internal Date Blackout

2006-06-09 Thread Peter Veenhof
It's simply because 14001 through 14365 will resolve in the D2
conversion. That is a bad programming practice to use a DICT item with
D2 and force internal format data for the compare. Just to be clear,
this is not a problem with the system as all, this is just someone using
the system incorrectly. If you are selecting on a DICT item that has a
conversion, you NEED to select using converted values!! If you need to
select both ways, just create another DICT item without the conversion
code, ie. A DATE.INTERNAL dict item...





-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Friday, June 09, 2006 10:16 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] UniVerse Internal Date Blackout

We just ran into a strange issue where LIST/SELECT cannot resolve an
internal date - and it's for a block of one full year.

From May 1, 2006 (14001) through April 30, 2007 (14365), if you try to
SELECT records in a file using the internal date value where the DICT
item
has a D2/ (or similar) conversion, it will simply report back 0 records
selected even though records exist for the dates.

The same SELECT using an internal date of 14000 or less, or 14366 or
greater returns the correct records.  Without the conversion code in the
DICT, all the SELECTs work.

A sample of what we're seeing is below.  The first and last examples
work
fine, the middle examples fail.  UniVerse release is 10.1.4 PICK Format
on
UNIX.  Curious if anyone else is experiencing this 'blackout' year with
these internal dates.  Thanks!


SELECT  TESTFILE  WITH  DATE  14000
Bad data 14000 for conversion D2/.  Unconverted data used for
selection.

8 record(s) selected to SELECT list #0.

 CLEARSELECT

SELECT  TESTFILE  WITH  DATE  14001

0 record(s) selected to SELECT list #0.

SELECT  TESTFILE  WITH  DATE  14365

0 record(s) selected to SELECT list #0.

SELECT  TESTFILE  WITH  DATE  14366
Bad data 14366 for conversion D2/.  Unconverted data used for
selection.

2 record(s) selected to SELECT list #0.


Gary P. Canedy
Database Analyst
ProMutual Group
(617) 757-6775





---
This email and any files transmitted with it are intended only for the
person or entity to which it is addressed and may contain confidential
and/or privileged material.   If you received this email in error,
please
contact the sender immediately and delete this email from your system.
If
you are not the named addressee, you should not disseminate, distribute,
print, or copy the email, or take any action in reliance on its
contents.
---
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] How can this be non-numeric?

2006-06-02 Thread Peter Veenhof
I'm on Universe 10.1.11 and I execute the following code:

  INPUT ANS
  SCRATCH = 'HELLO'
  IF (ANS# AND ANS # B) THEN
 IF ANS MATCHES '0N' THEN
IF ANS0 THEN
   IF SCRATCHANS# THEN
  PRINT SCRATCHANS
   END
END
 END
  END
  STOP

And if I enter 1.x or 1X or 2B for ANS the program runs fine without
error. When I debug through it I see that all those inputs return a
false from ANS MATCHES '0N'... must be a wrong line number or something,
I'd get a debug in there and find out for sure!

Pete


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brenda Price
Sent: Friday, June 02, 2006 2:07 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV] How can this be non-numeric?

We get this error when users enter 1.x or 1X or 2B, etc on code
like that.

Brenda

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Kevin King
Sent: Friday, June 02, 2006 11:48 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV] How can this be non-numeric?

That would be my guess, that the line number isn't right. 


-Kevin
[EMAIL PROTECTED]
http://www.PrecisOnline.com

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stevenson,
Charles
Sent: Friday, June 02, 2006 10:31 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] [UV] How can this be non-numeric?

Program TIP.LIST: Line 242, Nonnumeric data when numeric required.
Zero used.

It's got to be ANS that is nonnumeric,  but how?

Here's the code:

239: IF (ANS# AND ANS # B) THEN
240:   IF ANS MATCHES '0N' THEN
241:  IF ANS0 THEN
242: IF SCRATCHANS# THEN

Could be the line number is not right, object  source don't line up,
but here's VLIST of same:

00239:  IF (ANS# AND ANS # B) THEN
00239 00BD8 : 106 ne ANS   = $R44 
00239 00BE0 : 106 ne ANS B  = $R46 
00239 00BE8 : 008 and$R44 $R46  = $R48 
00239 00BF0 : 2DE testfw $R48 00CB0: 

00240: IF ANS MATCHES '0N' THEN
00240 00BF8 : 0E0 match  ANS 0N  = $R49 
00240 00C00 : 2DE testfw $R49 00CA0: 

00241:IF ANS0 THEN
00241 00C08 : 0A6 gt ANS 0  = $R50 
00241 00C10 : 2DE testfw $R50 00C88: 

00242:   IF SCRATCHANS# THEN
00242 00C18 : 060 dyn_extractSCRATCH ANS 0 0  = $R51 
00242 00C24 : 106 ne $R51   = $R52 
00242 00C2C : 2DE testfw $R52 00C70:

UV 10.0.16, HPUX

TIA,
Chuck Stevenson
---
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] Implementing LOCATE function in .NET

2006-06-01 Thread Peter Veenhof
For performance I would certainly write my own, that being said I did do
something similar a while back, but unfortunately I cannot locate the
code as it was just something I was testing. It wasn't too hard, and the
same as doing OCONV and ICONV it is much faster to create these
functions on the .NET side of things :)

Pete


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bhupendra
Jamnadas
Sent: Wednesday, May 31, 2006 10:38 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Implementing LOCATE function in .NET

Hi,

I have a problem wherein I need to implement the functionality of LOCATE
function with it's AR/AL/DR/DL sequence in .NET. Creating a
Universe program or subroutine and using this method therein is not an
option. Is there any way to call BASIC functions from UODOTNET or has
someone tried to implement this function in .NET?

Thanks,
Bhupendra.
---
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] RedHat, Universe, unlocking

2006-03-08 Thread Peter Veenhof
Hi all,

Running Universe on Redhat, how does one setup a user to be able to
perform UNLOCK at TCL?

Thanks
Peter
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] RedHat, Universe, unlocking

2006-03-08 Thread Peter Veenhof
Thanks Steve!



Bit of a newbie in Redhat here, do you have steps or the exact command
on how to create one of these users??



Thanks again,

Peter







From: Sirulnick, Steve [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 08, 2006 11:27 AM
To: Peter Veenhof; u2-users@listserver.u2ug.org
Subject: RE: [U2] RedHat, Universe, unlocking



Peter,

I have had to set up an administrator accounts and I'm not necessarily
happy with this solution.  There may be better ways to go out there.
I've had to create a user with UID 0 privileges.  Universe requires
super-user function to be able to use the admin tools (SYSADM.MENU) and
this was the only solution.

HTH,

Steve

-Original Message-
From: Peter Veenhof [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 08, 2006 9:25 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] RedHat, Universe, unlocking

Hi all,

Running Universe on Redhat, how does one setup a user to be able to
perform UNLOCK at TCL?

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/


[U2] CallHTTP

2006-01-09 Thread Peter Veenhof
Hi all,

Does anyone have a simple example of doing a HTTP POST from within
Universe Basic? The documentation doesn't have any example code and I've
failed to get it to work.

Thanks
Peter
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] CallHTTP

2006-01-09 Thread Peter Veenhof
Thanks to all who gave me tips, I got it working! I had problems with
AM's being inside my posted data as well is a wrong encoding type, once
I solved those issues it works perfect.

Thanks again
Peter


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Perry Taylor
Sent: Monday, January 09, 2006 11:40 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] CallHTTP

Peter,

Here are a couple of local subroutines I use for synchronizing records
to other servers using a CGI post.  The corresponding CGI program on the
hosts generates a return value structured like...

SG: NUMBER.OF.ERRORS: SG: ERROR.MESSAGES

Where SG is EQUATEd to CHAR(255), ERROR.MESSAGES is an
attribute-delimited array of error messages and NUMBER.OF.ERRORS =
DCOUNT(ERROR.MESSAGES, @AM).  It makes it simple to make sure we got
something legitimate back from the POST without having to interpret all
the various http status codes.

Hope this helps.

Perry Taylor
Zirmed, Inc.


!
POST:
  
  POST.ERRMSG = NUL
 
  URL = 'http://': HOSTNAME:
'/~http/cgi-bin/chglog.mirror.update.cgi'
 
  RV = createRequest(URL, 'POST', HDL)
 
  IF RV THEN

 POST.ERRMSG-1 = 'creeateRequest() failure, retval=': RV: '.'
 POST.ERRMSG-1 = 'URL=': URL

 RETURN

  END
 
  PARAM.NAME  = 'ACTION'
  PARAM.VALUE = ACTION

  GOSUB POST.ADD.PARAM
  IF LEN(POST.ERRMSG) THEN RETURN

  PARAM.NAME  = 'CHGLOGID'
  PARAM.VALUE = CHGLOG.ID

  GOSUB POST.ADD.PARAM
  IF LEN(POST.ERRMSG) THEN RETURN

  PARAM.NAME  = 'CHGLOGREC'
  PARAM.VALUE = CHGLOG.REC

  GOSUB POST.ADD.PARAM
  IF LEN(POST.ERRMSG) THEN RETURN

  RESP.HDRS   = NUL
  RESP.DATA   = NUL
  HTTP.STATUS = NUL

  RV = submitRequest(HDL, NUL, NUL, RESP.HDRS, RESP.DATA,
HTTP.STATUS)
 
  IF RV THEN

 POST.ERRMSG-1 = 'submitRequest() failure, retval=': RV: '.'

 RETURN

  END
 
  IF RESP.DATA MATCHES '': SG: '1N0N': SG: '0X' THEN

 IF FIELD(RESP.DATA, SG, 2) THEN

POST.ERRMSG-1 = FIELD(RESP.DATA, SG, 3)
   
 END

  END ELSE

 POST.ERRMSG-1 = 'Unexpected response from HTTP post.'
 POST.ERRMSG-1 = STR('-', 79)
 POST.ERRMSG-1 = RESP.DATA
 POST.ERRMSG-1 = STR('-', 79)
 POST.ERRMSG-1 = 'http status=': HTTP.STATUS

  END
  
  RETURN
!
POST.ADD.PARAM:

  
  IF LEN(PARAM.NAME) ELSE

 POST.ERRMSG-1 = 'No parameter name specified.'

 RETURN

  END

  RV = addRequestParameter(HDL, PARAM.NAME, PARAM.VALUE, NUL)
 
  IF RV THEN

 POST.ERRMSG-1 = 'addRequestParameter() failure to added '
 POST.ERRMSG:= PARAM.NAME: ', retval=': RV: '.'

  END

  RETURN

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Peter Veenhof
Sent: Monday, January 09, 2006 7:38 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] CallHTTP

Hi all,

Does anyone have a simple example of doing a HTTP POST from within
Universe Basic? The documentation doesn't have any example code and I've
failed to get it to work.

Thanks
Peter
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

CONFIDENTIALITY NOTICE: This e-mail message, including any attachments,
is for the sole use of the intended recipient(s) and may contain
confidential and privileged information.  Any unauthorized review, use,
disclosure or distribution is prohibited. ZirMed, Inc. has strict
policies regarding the content of e-mail communications, specifically
Protected Health Information, any communications containing such
material will be returned to the originating party with such advisement
noted. If you are not the intended recipient, please contact the sender
by reply e-mail and destroy all copies of the original 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/


[U2] u2 XML

2004-07-20 Thread Peter Veenhof
I've seen this discussed before, but have never seen any working examples.
Even the examples in the PDF's from IBM do not work. 

I have this mapping file (CDSPVTestData.map):

U2xml root=CDSPVTestData/
U2xml record=PVTestData/
U2xml file=PV.TESTDATA
  FIELD=KEY
  map-to='MyID'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYNAME
  map-to='MyName'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYCODE
  map-to='MyCode'
  type='S'
  treated-as='element'
/

And this BASIC program (XMLTEST):

CALL OPEN(PV.DEV,PV.DEV.FILE)
STATUS = XMLEXECUTE(SELECT KEY,MYNAME,MYCODE, 'RVK' ACCT FROM PV.TESTDATA
TOXML ELEMENTS XMLMAPPING 'CDSPVTestData.map',,XMLVAR,SVAR)
PRINT XMLVAR
WRITE XMLVAR ON PV.DEV.FILE,TEST.XML
STOP

Which successfully generate this XML (TEST.XML):

?xml version=1.0?
CDSPVTestData
PVTestData
  MyID1/MyID
  MyNameMY TEST NAME/MyName
  MyCodeMY TEST CODE/MyCode
  ACCTRVK/ACCT
/PVTestData
/CDSPVTestData

Now here is the hard part. I just want to use XML extraction as shown in
the Chapter 7 of the BasicExt.pdf, so I write this program (XMLTESTEXT):

#INCLUDE UNIVERSE.INCLUDE XML.H
STATUS=PrepareXML(PV.DEV/TEST.XML,TEST_XML)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STATUS = OpenXMLData(TEST_XML,XML/CDSPVTestData.ext,TEST_XML_DATA)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STOP

And have this extraction map (CDSPVTestData.ext):

U2xml-extraction
file-extraction start=/CDSPVTestData/PVTestData
dictionary=D_PV.TESTDATA null=EMPTY/
FIELD-extraction FIELD=KEY path=PVTestData,MyID/text()/
FIELD-extraction FIELD=MYNAME path=PVTestData,MyName/text()/
FIELD-extraction FIELD=MYCODE path=PVTestData,MyCode/text()/
/U2xml-extraction

When I run this XMLTESTEXT, I get this error:

U2XMAP: Illegal U2XMAP file, missing the U2XMAP.


Anybody able to help? I've tried various other incarnations of the EXT file
from chapter 7 in the pdf but with no results. Chapter 7 doesn't even
mention the U2XMAP file. I do find U2XMAP file later on in documentation but
I can't see how it relates.

Thanks,
Peter
This email and any attachments are intended solely for use of the named
addressee.If you received this email in error please notify the sender by
return e-mail, delete this e-mail, and refrain from any disclosure or action
based on the information.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] u2 XML

2004-07-20 Thread Peter Veenhof
Still doesn't work, same error.

I'm on UV 10.1.0



-Original Message-
From: Leroy Dreyfuss [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, July 20, 2004 10:02 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] u2 XML

Peter,

For extraction files, it should be U2XML, and not U2xml. It is case
sensitive.



Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!

Don't miss out on the IBM DB2 Information Management Technical Conference
September 19-24, 2004 - Las Vegas, NV



 Peter Veenhof
 [EMAIL PROTECTED]
 tra.com   To
 Sent by:  [EMAIL PROTECTED]
 [EMAIL PROTECTED]  cc
 stserver.u2ug.org
   Subject
   [U2] u2 XML
 07/20/2004 06:33
 AM


 Please respond to
 u2-users






I've seen this discussed before, but have never seen any working examples.
Even the examples in the PDF's from IBM do not work.

I have this mapping file (CDSPVTestData.map):

U2xml root=CDSPVTestData/
U2xml record=PVTestData/
U2xml file=PV.TESTDATA
  FIELD=KEY
  map-to='MyID'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYNAME
  map-to='MyName'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYCODE
  map-to='MyCode'
  type='S'
  treated-as='element'
/

And this BASIC program (XMLTEST):

CALL OPEN(PV.DEV,PV.DEV.FILE)
STATUS = XMLEXECUTE(SELECT KEY,MYNAME,MYCODE, 'RVK' ACCT FROM PV.TESTDATA
TOXML ELEMENTS XMLMAPPING 'CDSPVTestData.map',,XMLVAR,SVAR)
PRINT XMLVAR
WRITE XMLVAR ON PV.DEV.FILE,TEST.XML
STOP

Which successfully generate this XML (TEST.XML):

?xml version=1.0?
CDSPVTestData
PVTestData
  MyID1/MyID
  MyNameMY TEST NAME/MyName
  MyCodeMY TEST CODE/MyCode
  ACCTRVK/ACCT
/PVTestData
/CDSPVTestData

Now here is the hard part. I just want to use XML extraction as shown
in
the Chapter 7 of the BasicExt.pdf, so I write this program (XMLTESTEXT):

#INCLUDE UNIVERSE.INCLUDE XML.H
STATUS=PrepareXML(PV.DEV/TEST.XML,TEST_XML)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STATUS = OpenXMLData(TEST_XML,XML/CDSPVTestData.ext,TEST_XML_DATA)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STOP

And have this extraction map (CDSPVTestData.ext):

U2xml-extraction
file-extraction start=/CDSPVTestData/PVTestData
dictionary=D_PV.TESTDATA null=EMPTY/
FIELD-extraction FIELD=KEY path=PVTestData,MyID/text()/
FIELD-extraction FIELD=MYNAME path=PVTestData,MyName/text()/
FIELD-extraction FIELD=MYCODE path=PVTestData,MyCode/text()/
/U2xml-extraction

When I run this XMLTESTEXT, I get this error:

U2XMAP: Illegal U2XMAP file, missing the U2XMAP.


Anybody able to help? I've tried various other incarnations of the EXT file
from chapter 7 in the pdf but with no results. Chapter 7 doesn't even
mention the U2XMAP file. I do find U2XMAP file later on in documentation
but
I can't see how it relates.

Thanks,
Peter
This email and any attachments are intended solely for use of the named
addressee.If you received this email in error please notify the sender by
return e-mail, delete this e-mail, and refrain from any disclosure or
action
based on the information.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

[demime 1.01d removed an attachment of type image/gif which had a name of
graycol.gif]

[demime 1.01d removed an attachment of type image/gif which had a name of
pic12924.gif]

[demime 1.01d removed an attachment of type image/gif which had a name of
ecblank.gif]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
This email and any attachments are intended solely for use of the named
addressee.If you received this email in error please notify the sender by
return e-mail, delete this e-mail, and refrain from any disclosure or action
based on the information.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] u2 XML

2004-07-20 Thread Peter Veenhof
Thank you that worked!


-Original Message-
From: Leroy Dreyfuss [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, July 20, 2004 1:46 PM
To: [EMAIL PROTECTED]
Subject: RE: [U2] u2 XML

Try this:

 U2XML_extraction
 file_extraction start=/CDSPVTestData/PVTestData
 dictionary=D_PV.TESTDATA null=EMPTY/
 FIELD_extraction FIELD=KEY path=PVTestData,MyID/text()/
 FIELD_extraction FIELD=MYNAME path=PVTestData,MyName/text()/
 FIELD_extraction FIELD=MYCODE path=PVTestData,MyCode/text()/
 /U2XML_extraction

What I saw incorrect also was the use of dashes rather than underscore
marks.

Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!

Don't miss out on the IBM DB2 Information Management Technical Conference
September 19-24, 2004 - Las Vegas, NV



 Peter Veenhof
 [EMAIL PROTECTED]
 tra.com   To
 Sent by:  [EMAIL PROTECTED]
 [EMAIL PROTECTED]  cc
 stserver.u2ug.org
   Subject
   RE: [U2] u2 XML
 07/20/2004 09:13
 AM


 Please respond to
 u2-users






Still doesn't work, same error.

I'm on UV 10.1.0



-Original Message-
From: Leroy Dreyfuss [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 20, 2004 10:02 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] u2 XML

Peter,

For extraction files, it should be U2XML, and not U2xml. It is case
sensitive.



Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!

Don't miss out on the IBM DB2 Information Management Technical Conference
September 19-24, 2004 - Las Vegas, NV



 Peter Veenhof
 [EMAIL PROTECTED]
 tra.com   To
 Sent by:  [EMAIL PROTECTED]
 [EMAIL PROTECTED]  cc
 stserver.u2ug.org
   Subject
   [U2] u2 XML
 07/20/2004 06:33
 AM


 Please respond to
 u2-users






I've seen this discussed before, but have never seen any working examples.
Even the examples in the PDF's from IBM do not work.

I have this mapping file (CDSPVTestData.map):

U2xml root=CDSPVTestData/
U2xml record=PVTestData/
U2xml file=PV.TESTDATA
  FIELD=KEY
  map-to='MyID'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYNAME
  map-to='MyName'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYCODE
  map-to='MyCode'
  type='S'
  treated-as='element'
/

And this BASIC program (XMLTEST):

CALL OPEN(PV.DEV,PV.DEV.FILE)
STATUS = XMLEXECUTE(SELECT KEY,MYNAME,MYCODE, 'RVK' ACCT FROM PV.TESTDATA
TOXML ELEMENTS XMLMAPPING 'CDSPVTestData.map',,XMLVAR,SVAR)
PRINT XMLVAR
WRITE XMLVAR ON PV.DEV.FILE,TEST.XML
STOP

Which successfully generate this XML (TEST.XML):

?xml version=1.0?
CDSPVTestData
PVTestData
  MyID1/MyID
  MyNameMY TEST NAME/MyName
  MyCodeMY TEST CODE/MyCode
  ACCTRVK/ACCT
/PVTestData
/CDSPVTestData

Now here is the hard part. I just want to use XML extraction as shown
in
the Chapter 7 of the BasicExt.pdf, so I write this program (XMLTESTEXT):

#INCLUDE UNIVERSE.INCLUDE XML.H
STATUS=PrepareXML(PV.DEV/TEST.XML,TEST_XML)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STATUS = OpenXMLData(TEST_XML,XML/CDSPVTestData.ext,TEST_XML_DATA)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STOP

And have this extraction map (CDSPVTestData.ext):

U2xml-extraction
file-extraction start=/CDSPVTestData/PVTestData
dictionary=D_PV.TESTDATA null=EMPTY/
FIELD-extraction FIELD=KEY path=PVTestData,MyID/text()/
FIELD-extraction FIELD=MYNAME path=PVTestData,MyName/text()/
FIELD-extraction FIELD=MYCODE path=PVTestData,MyCode/text()/
/U2xml-extraction

When I run this XMLTESTEXT, I get this error:

U2XMAP: Illegal U2XMAP file, missing the U2XMAP.


Anybody able to help? I've tried various other incarnations of the EXT file
from chapter 7 in the pdf but with no results. Chapter 7 doesn't even
mention the U2XMAP file. I do find U2XMAP file

RE: [U2] u2 XML

2004-07-20 Thread Peter Veenhof
P.S. - for anyone else interested, I also changed the EXT file so that
instead of saying FIELD_extraction, I used field_extraction tag. Which is
also case sensitive. I was using UltraEdit with PICK tag list loaded at it
was automatically UCASEing the keyword field Everything works now, out
to XML and in from XML, thanks again for the help!

-Original Message-
From: Leroy Dreyfuss [mailto:[EMAIL PROTECTED] 
Sent: Tuesday, July 20, 2004 1:46 PM
To: [EMAIL PROTECTED]
Subject: RE: [U2] u2 XML

Try this:

 U2XML_extraction
 file_extraction start=/CDSPVTestData/PVTestData
 dictionary=D_PV.TESTDATA null=EMPTY/
 FIELD_extraction FIELD=KEY path=PVTestData,MyID/text()/
 FIELD_extraction FIELD=MYNAME path=PVTestData,MyName/text()/
 FIELD_extraction FIELD=MYCODE path=PVTestData,MyCode/text()/
 /U2XML_extraction

What I saw incorrect also was the use of dashes rather than underscore
marks.

Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!

Don't miss out on the IBM DB2 Information Management Technical Conference
September 19-24, 2004 - Las Vegas, NV



 Peter Veenhof
 [EMAIL PROTECTED]
 tra.com   To
 Sent by:  [EMAIL PROTECTED]
 [EMAIL PROTECTED]  cc
 stserver.u2ug.org
   Subject
   RE: [U2] u2 XML
 07/20/2004 09:13
 AM


 Please respond to
 u2-users






Still doesn't work, same error.

I'm on UV 10.1.0



-Original Message-
From: Leroy Dreyfuss [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 20, 2004 10:02 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] u2 XML

Peter,

For extraction files, it should be U2XML, and not U2xml. It is case
sensitive.



Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!

Don't miss out on the IBM DB2 Information Management Technical Conference
September 19-24, 2004 - Las Vegas, NV



 Peter Veenhof
 [EMAIL PROTECTED]
 tra.com   To
 Sent by:  [EMAIL PROTECTED]
 [EMAIL PROTECTED]  cc
 stserver.u2ug.org
   Subject
   [U2] u2 XML
 07/20/2004 06:33
 AM


 Please respond to
 u2-users






I've seen this discussed before, but have never seen any working examples.
Even the examples in the PDF's from IBM do not work.

I have this mapping file (CDSPVTestData.map):

U2xml root=CDSPVTestData/
U2xml record=PVTestData/
U2xml file=PV.TESTDATA
  FIELD=KEY
  map-to='MyID'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYNAME
  map-to='MyName'
  type='S'
  treated-as='element'
/
U2xml file=PV.TESTDATA
  FIELD=MYCODE
  map-to='MyCode'
  type='S'
  treated-as='element'
/

And this BASIC program (XMLTEST):

CALL OPEN(PV.DEV,PV.DEV.FILE)
STATUS = XMLEXECUTE(SELECT KEY,MYNAME,MYCODE, 'RVK' ACCT FROM PV.TESTDATA
TOXML ELEMENTS XMLMAPPING 'CDSPVTestData.map',,XMLVAR,SVAR)
PRINT XMLVAR
WRITE XMLVAR ON PV.DEV.FILE,TEST.XML
STOP

Which successfully generate this XML (TEST.XML):

?xml version=1.0?
CDSPVTestData
PVTestData
  MyID1/MyID
  MyNameMY TEST NAME/MyName
  MyCodeMY TEST CODE/MyCode
  ACCTRVK/ACCT
/PVTestData
/CDSPVTestData

Now here is the hard part. I just want to use XML extraction as shown
in
the Chapter 7 of the BasicExt.pdf, so I write this program (XMLTESTEXT):

#INCLUDE UNIVERSE.INCLUDE XML.H
STATUS=PrepareXML(PV.DEV/TEST.XML,TEST_XML)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STATUS = OpenXMLData(TEST_XML,XML/CDSPVTestData.ext,TEST_XML_DATA)
IF STATUS=XML.ERROR THEN
   STATUS=XMLError(errmsg)
   PRINT errmsg
   STOP
END
STOP

And have this extraction map (CDSPVTestData.ext):

U2xml-extraction
file-extraction start=/CDSPVTestData/PVTestData
dictionary=D_PV.TESTDATA null=EMPTY/
FIELD-extraction FIELD=KEY path=PVTestData,MyID/text()/
FIELD-extraction FIELD=MYNAME path=PVTestData,MyName/text()/
FIELD-extraction FIELD=MYCODE path=PVTestData