[U2] mvBASE to Unidata via virtual tape file

2005-06-16 Thread CDMI
Anyone had experience with moving from mvBASE to Unidata via the VTF
(virtual tape file) backup method provided by mvBASE ?

FYI: the vtf is basically a tape file written to disk. mvBASE uses the same
'file-save', 'account-save', 't-dump' commands to tape as well as to VTFs.

Thanks in advance,

Steve Trimble

Computerized Data Management, Inc.
PO Box 3473
Fayetteville, AR 72702
(479) 521-5670   9:00am - 6:00pm CST
[EMAIL PROTECTED] 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Basic program editor for Windows

2005-02-14 Thread CDMI
My vote would be for AccuTerm.
It's totally integrated with mv databases. Works on most if not all flavors.
Can out online or offline. Works with SSH, Telnet, Serial, Modem, etc. Can
transfer files to and from DOS. Includes BASIC keywords for highlighting.
Allows you to add your own keywords, change highlight font, style, color.
Allows you to item lock and compile while still in the editor. Can capture
and save any screen or printer output to DOS. Has built in GUI development
tools. And a whole lot more :) Is a long time supporter of the multi value
market. Plus the author is a pretty good guy. Price is very reasonable. 

Steve Trimble

Computerized Data Management, Inc.
PO Box 3473
Fayetteville, AR 72702
(479) 521-5670   9:00am - 6:00pm CST
[EMAIL PROTECTED]
 
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Richard Taylor
Sent: Monday, February 14, 2005 10:53 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Basic program editor for Windows

I would add my vote for UltraEdit.  As has been mentioned you can do syntax
highlighting, but more important for me is the project organization tools.
You can very effectively organize files you are working on into projects for
easy retrieval.  This works with files opened via FTP too.
The only caveat I can add is that you are working OUTSIDE the U2 environment
so source code management tools like PRC will not be directly integrated.
You will have to add items you edit this way to your projects by manually
adding them or editing them in U2.

Rich Taylor | Senior Programmer/Analyst| VERTIS 250 W. Pratt Street |
Baltimore, MD 21201 P 410.361.8688 | F 410.528.0319 [EMAIL PROTECTED] |
http://www.vertisinc.com

Vertis is the premier provider of targeted advertising, media, and marketing
services that drive consumers to marketers more effectively.

The more they complicate the plumbing
  the easier it is to stop up the drain

- Montgomery Scott NCC-1701


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
Sent: Sunday, February 13, 2005 1:39 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Basic program editor for Windows

When I'm teaching my Basic programming courses, I am frequently asked about
any Windows editors which might be used to edit the source programs which
are held in DIRECTORY / DIR type files.  Can anyone suggest any suitable
software which I might recommend?
 
It would be nice if the software had facilities for highlighting keywords,

labels, variables and so on, and if it could indent the source code.
 
Regards
 
Malcolm  Bull
---
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] GE and LE question

2005-02-11 Thread CDMI
Brenda:

Put: SEL = OCONV(SEL,MCN)

This ensures SEL is numeric.

--Steve T 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Pingilley, Ron
Sent: Friday, February 11, 2005 9:43 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] GE and LE question

Brenda,

Suggestion:  put 

IF NOT(NUM(SEL)) OR SEL= THEN . 

Before your CASE block.  That should trap any interesting user
input before you get to the comparisons.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brenda Price
Sent: Friday, February 11, 2005 9:25 AM
To: U2-Users (E-mail)
Subject: [U2] GE and LE question

We have several programs that have been writing non-numeric when numeric
required errors to the system log.  The user inputs the value for each
program.

INPUT SEL
BEGIN CASE
 CASE SEL GE 1 AND LE MX.VALS ; * passes this line
  VAL1 = RECORDSEL ; * line that gets the error.

I've found out what is causing the error.  The users have been inputting a
number plus X.  While testing my fix, I entered 2Q that also past the GE
and LE test but errored at the VAL1 line.

Brenda
---
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] Universe to Web interface

2005-02-08 Thread CDMI
Will - if you're interested in an HTTP 1.1 real time web server - check out:
http://coyote.modsoft.com/
I use this with several mv databases. It's great. It resides with the
database. It is a PICK web server. One thing I really like is it's sold
based on bandwidth requirements and it does NOT take up any user licenses.
If you have any questions, just email me offline.

Steve Trimble
Computerized Data Mgmt Inc
[EMAIL PROTECTED]
(479) 521-5670 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
Sent: Monday, February 07, 2005 7:25 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Universe to Web interface

Thanks George for responding.  The link appears to do something because
A) If I make it a .txt file it brings it up
B) If I make it a .bat file it executes it.  I can make it print Hello a
hundred times in a DOS window (then die).

What I can't make it do it seems is RUN a universe subroutine.  But I'm
wondering how it knows how to log into universe?  Surely it's not just an
open portal ?  Maybe I have to setup a Universe account with *no* password
for it to use?  How exactly does that work?
   Alternatively perhaps you have to specify a login and password on the DOS
command line along with the uv executable command ?
Thanks
Will Johnson



Will, this may not be related to your issue at hand,

Does the IIS or your software also add:

Content-Type: text/html; charset=us-ascii \n (newline) blank line \n

To the top of your HTML code? or is that the function of something else your
using to push the HTML to IIS?

George

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED]
Sent: Friday, February 04, 2005 10:27 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Universe to Web interface


OK I did a search on my system for where the UNIRPC32.dll lives and 
figured out how to add a PATH variable to the .bat file.  So now it 
doesn't complain about not being able to find the dll but it still 
doesn't run the universe routine.

Now I get an error in the event log that says The description for Event 
ID (1000) cannot be found... [and it ends by saying] Message [DBS0043]

And then I get another one similar only it uses Event ID 1004 and 
Message [DBS0036]

I have no idea what all of that means.
Maybe I need some way of telling uv how to log me in?
Like I said this is all new to me.
Thanks.
Will



I have never done this before so I'm likely making some horrible 
blunder.

I have IIS running and I have a Universe database on top of Windows XP.  
I have a Hello page in HTML with a form and the submit action a name 
that I have in the same directory as the Hello page is in.

So the hello page just looks something like this 
HTMLTITLEHELLO/TITLE BODYFORM SUBMIT=test/BODYHTML

And the test item just looks like
echo Hello

which seems to work, although I have it created as a .bat file which is 
probably not right.

But when I try to make it run a command like H:\IBM\UV\BIN\UV 
MYTESTPROGRAM

It complains with a message that UNIRPC32.DLL can't be found in the 
paths ... and then it lists some paths.

What is this telling me?  And how do I fix it?
Thanks
Will 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 exit out mulitple loops?

2005-01-10 Thread CDMI
This works regardless of OS you're on:

FOR T=1 TO 10
 FOR Q=1 TO 6
  FOR X=1 TO 9
   IF CONDITION THEN X=9 ELSE
IF CONDITION THEN
 X = 9 ; Q = 1
END
   END 
  NEXT X
 NEXT Q
NEXT T

Steve Trimble

Computerized Data Management, Inc.
PO Box 3473
Fayetteville, AR 72702
(479) 521-5670   9:00am - 6:00pm CST
[EMAIL PROTECTED] 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of George Gallen
Sent: Monday, January 10, 2005 12:33 PM
To: Ardent List
Subject: [U2] How to exit out mulitple loops?


For instance.

FOR T=1 TO 10
FOR Q=1 TO 6
FOR X=1 TO 9
 IF CONDITION THEN EXIT ; EXIT
OR
 IF CONDITION THEN CONTINUE T
NEXT X
NEXT Q
NEXT T

So the point being if a condition occurs, I want to stop
   the x and q loops entirely, and continue on with the
   next t iteration.

This is with UV10

yes, I could use a line label, but then I'd almost be
forced into a goto. Please no wars on this
or anything that takes more than 5 additional lines

George

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

SLACK Incorporated - An innovative information, education and management
company
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] How to exit out mulitple loops?

2005-01-10 Thread CDMI
sorry - Q = 10 not Q = 1

Can't type :(
Steve T

Computerized Data Management, Inc.
PO Box 3473
Fayetteville, AR 72702
(479) 521-5670   9:00am - 6:00pm CST
[EMAIL PROTECTED] 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of CDMI
Sent: Monday, January 10, 2005 1:22 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] How to exit out mulitple loops?


This works regardless of OS you're on:

FOR T=1 TO 10
 FOR Q=1 TO 6
  FOR X=1 TO 9
   IF CONDITION THEN X=9 ELSE
IF CONDITION THEN
 X = 9 ; Q = 1
END
   END 
  NEXT X
 NEXT Q
NEXT T

Steve Trimble

Computerized Data Management, Inc.
PO Box 3473
Fayetteville, AR 72702
(479) 521-5670   9:00am - 6:00pm CST
[EMAIL PROTECTED] 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of George Gallen
Sent: Monday, January 10, 2005 12:33 PM
To: Ardent List
Subject: [U2] How to exit out mulitple loops?


For instance.

FOR T=1 TO 10
FOR Q=1 TO 6
FOR X=1 TO 9
 IF CONDITION THEN EXIT ; EXIT
OR
 IF CONDITION THEN CONTINUE T
NEXT X
NEXT Q
NEXT T

So the point being if a condition occurs, I want to stop
   the x and q loops entirely, and continue on with the
   next t iteration.

This is with UV10

yes, I could use a line label, but then I'd almost be
forced into a goto. Please no wars on this
or anything that takes more than 5 additional lines

George

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

SLACK Incorporated - An innovative information, education and management
company
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/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] PICK Assembler Language

2004-11-11 Thread CDMI
here's the .? from an mvBASE system:

.?

 .L   LIST COMMANDS
.Ln,m will list n stored TCL commands starting with line m.
 .E   EDIT STORED COMMANDS
.En brings the stored commands into the system editor at line n.
 .X   EXECUTE COMMAND(S)
.Xn,n,n will execute the numbered command(s).
 .R   RUN COMMANDS STORED IN A FILE
.R filename item-id will run the commands stored in the item.
 .C   COPY COMMANDS TO A FILE
.Cn,n,n copies the numbered commands to an item in a file.
 .G   GET A COMMAND TO TOP OF STACK
.Gn will get command n to the top of the stack
 .A   APPEND TEXT TO TOP COMMAND
.A text will append text to the top command on the stack
 .K   KILL (DELETE) COMMAND
.Kn kills (deletes) command n.
 .M   MODIFY TOP COMMAND
.M[U]/text1/text2 modifies top cmnd by changing text1 to text2
 .O   COMMAND STORE TOGGLE
 .S   SET NUMBER OF COMMANDS STORED
 .P   PROC COMMAND STORE TOGGLE
 .U   UPPER CASE CONVERSION TOGGLE

Don't see what you might be talking about, Dick.

Steve Trimble
Computerized Data Mgmt Inc
(479) 521-5670
[EMAIL PROTECTED]

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Kryka, Richard
Sent: Thursday, November 11, 2004 9:42 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] PICK Assembler Language


I'm not in front of an MvBase system, but try .? to see a list of the
. commands.  I don't remember the command, but one of them turns off
stacking all executed commands so it stacks just the commands entered at
TCL.  Unfortunately, as I recall, you have to do this each time you log
in, and I could not get this to work in the login proc.

Dick Kryka
Director of Applications
CCCS of Greater Denver, Inc.
Paragon Financial Services
303-632-2226
[EMAIL PROTECTED]
 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Wednesday, November 10, 2004 7:18 PM
To: [EMAIL PROTECTED]
Subject: Re: [U2] PICK Assembler Language

Since we're on MVBase I have a bone to Pick (no pun intended).

Is there any upgrade to their command stacker. It's pathetic, especially
since it retains every executable statement, not just the ones I type.
Thus,
it very easily exceeds the display (20) and I spend more time finding
the
previous statement that it would take typing it.

just asking.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UniVerse to Linux mySQL

2004-11-05 Thread CDMI
you might take a look at:

http://coyote.modsoft.com/over-coyote.htm

this is a full HTTP/1.1 web server running real time in PICK.
very fast. perfect for any 'form' web application.
no reason to port / move data. let the web app look real time.
they also have a RPC scenario if you want to separate the
web server from the 'live data' server.
i've built complete applications from green screen to browser
that run full time / real time.

Steve Trimble
[EMAIL PROTECTED]

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of DAREN LORD
Sent: Friday, November 05, 2004 10:09 AM
To: [EMAIL PROTECTED]
Subject: [U2] UniVerse to Linux mySQL


I am a bit of novice when it comes to the UniVerse database but I am trying to dive 
into it and learn as much as I can.  I am also new to the mailing list, so my 
apologizes if I have gone about this the wrong way.

My problem is this:  I am running an AIX 4.3.3 with UniVerse database 10.1 installed.  
I am hosting my companies website from Linux running  the osCommerce shopping cart 
that backends all the information in a mySQL database.

Instead of having to type in all 250,000 items into the mySQL database, I want to real 
time the lookups with our own database.  Is there a way for mySQL to look up the 
tables in UniVerse, or is there a better way?

Thanks for the help
Daren Lord
[EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UniVerse to Linux mySQL

2004-11-05 Thread CDMI
the Coyote web server http://coyote.modsoft.com/
lets you write PICK/BASIC with HTML presentation.
quite fast and fairly easy to implement.
there are 2 ways to write an htm app. One way is
to use the developer referred to as: PLZ
the other is to write pick/basic code right in your
htm item like this:

001 !DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN
002 HTML
003 HEAD
004 TITLE|PAGE.TITLE|/TITLE
005 /HEAD
006 |RAW(BODY.TEXT)|
007 |RAW(VCAT.NAME)|
008 |RAW(DISPLAY.TEXT)|
009 |RAW(VCAT.ADDR)|
010 |RAW(EMAILIT)|nbsp;|RAW(HOMEIT)|
011 |RAW(TIMEDATE)|
012 |RAW(PAGE.LINKS)|
013 |RAW(DISP.CNTR)|
014 PRE
015 PicLan-IP/BASIC | |
016 *
017 * Virtual Catalog
018 *
019 ABORT=0; *  set an abort flag for redirect
020 CALL CHECK.VCAT(ABORT)
021 IF ABORT THEN
022  R.ERR = '302 MOVED TEMPORARILY'
023  PL_ADD_HDR 'Location: index.htm'
024  RETURN
025 END
026 PL_GET_HDR RIP FROM \X-FORWARDED-FOR\ ELSE RIP = ST$RIP
027 DISP.CNTR=''
028 IF RIP # '' THEN
029  CALL UPDATE.CNTR(RIP,'WM_CTLG.HTM',DISP.CNTR)
030 END
031 PL_GETVAR ACTION FROM BUTTON ELSE ACTION=''
032 CONVERT _ TO   IN ACTION
033 PL_GETVAR CMD FROM CMD ELSE CMD=''
034 PL_GETVAR SEARCHWORDS FROM SEARCHWORDS ELSE SEARCHWORDS=''
035 IF ACTION = Cart Review THEN
036  CONVERT   TO _ IN ACTION
037  R.ERR = '302 MOVED TEMPORARILY'
038  XXX= 'Location: WM_CART.HTM?BUTTON=':ACTION
039  PL_ADD_HDR XXX
040  RETURN
041 END
042 PAGE.REC=''
043 CALL GEN.CTLG.SUB(PAGE.REC)
044 PAGE.TITLE=  \Index of Catalog Selections\
045 VCAT.NAME =  PAGE.REC3 ; * virtual catalog name
046 VCAT.ADDR =  PAGE.REC4 ; * virtual catalog address
047 BODY.TEXT =  PAGE.REC5 ; * background color  image
048 PAGE.LINKS=  PAGE.REC6 ; * page links
049 EMAILIT   =  PAGE.REC7 ; * email image / link
050 HOMEIT=  PAGE.REC8 ; * home image / link
051 TIMEDATE  =  PAGE.REC9 ; * time date stamp
052 DISPLAY.TEXT  =  PAGE.REC10 ; * middle stuff
053 *
054 /PRE
055 /BODY
056 /HTML

notice you have PICK/BASIC, htm, called subroutines all within
the htm item. the Coyote web server will extract, compile, and
output on the fly - all within 1 - 3 seconds.

Steve Trimble
[EMAIL PROTECTED]


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Richard Taylor
Sent: Friday, November 05, 2004 10:50 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] UniVerse to Linux mySQL


Our company does some work with U2 interfaced to a website and we are
looking at doing more.  You might want to check-out the MV/Internet
product.  This basically allows you to have a website that can talk
directly to a Universe database.  You write your site scripts in UniBasic
and do cgi calls to interact with them (very rough description).  We are
just starting with this tool, but from what I have seen so far this is
definitely the way to go if you want to put U2 data and functions out to a
website.

Another method would be to interface your MySql tables to Universe using
ODBC or code written using the UniObjects api.

Your call, it depends on what you have setup for security, existing web
code, and requirements.

Rich Taylor | Senior Programmer/Analyst| VERTIS
250 W. Pratt Street | Baltimore, MD 21201
P 410.361.8688 | F 410.528.0319 
[EMAIL PROTECTED] | http://www.vertisinc.com

Vertis is the premier provider of targeted advertising, media, and
marketing services that drive consumers to marketers more effectively.

The more they complicate the plumbing
  the easier it is to stop up the drain

- Montgomery Scott NCC-1701


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of DAREN LORD
Sent: Friday, November 05, 2004 11:09 AM
To: [EMAIL PROTECTED]
Subject: [U2] UniVerse to Linux mySQL

I am a bit of novice when it comes to the UniVerse database but I am
trying to dive into it and learn as much as I can.  I am also new to the
mailing list, so my apologizes if I have gone about this the wrong way.

My problem is this:  I am running an AIX 4.3.3 with UniVerse database 10.1
installed.  I am hosting my companies website from Linux running  the
osCommerce shopping cart that backends all the information in a mySQL
database.

Instead of having to type in all 250,000 items into the mySQL database, I
want to real time the lookups with our own database.  Is there a way for
mySQL to look up the tables in UniVerse, or is there a better way?

Thanks for the help
Daren Lord
[EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] READU ... THEN _or_ ELSE but not both?

2004-10-29 Thread CDMI
Wendy - here's a snippet:
DONELOK = 0
LOOP UNTIL DONELOK = 1 DO
 READU LOKREC FROM CUSTOMERFILE,CUSTID LOCKED
  CRT TIMEDATE():\ port \:SYSTEM(18):\ file CUSTOMER item \:CUSTID:\locked!\
; SLEEP 1
 END THEN DONELOK = 1 ELSE LOKREC = '' ; DONELOK = 1
REPEAT

notice the LOCKED END THEN  ELSE

Steve Trimble
Computerized Data Mgmt Inc
PO Box 3473
Fayetteville, AR 72702
(479) 521-5670
9:00am - 6:00pm CST
[EMAIL PROTECTED]

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Wendy Smoak
Sent: Friday, October 29, 2004 4:08 PM
To: [EMAIL PROTECTED]
Subject: [U2] READU ... THEN _or_ ELSE but not both?


From the documentation:

READU dyn.array.var FROM [file.var,] record.ID.expr [LOCKED statements]
[ON ERROR statements] {THEN statements [END] | ELSE statements [END]}

Am I reading this right?  When I READU I can either have a THEN or an
ELSE, but not both?  (That it does not compile with both tends to
confirm that...)

At the moment I think I need both. :/ And I need to do the same thing in
either case, so I ended up with:

READU R.XBWU FROM F.XBWU, X.ONE.ID LOCKED
   CRT 'XBWU RECORD IS LOCKED, IGNORE IT'
END THEN
   X.LOCKED = '1'
END ;*END READU

IF X.LOCKED = '1' THEN
   CRT 'OBTAINED LOCK ON XBWU RECORD'
   R.XBWUXBWU.ASURITE = X.ASURITE
   WRITE R.XBWU TO F.XBWU, X.ONE.ID ON ERROR
  IF STATUS() = 10 THEN
 ;* Either the ASURITE or USER.ID is duplicated
 X.ERROR = X.DUPLICATE.ON.WRITE
  END ;* IF STATUS
   END ;* END WRITE
END ;* IF X.LOCKED

Suggestions for improvement are welcome!

--
Wendy Smoak
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/