RE: [UD] OPENSEQ, WEOFSEQ, CLOSESEQ

2004-04-13 Thread Maresh, Mel
I've always just opened the file and deleted the record before the OPENSEQ


  OPEN 'MBP' TO F.MBP THEN 
 FILE.NAME='customer_tm.txt'
 DELETE F.MBP,FILE.NAME
 OPENSEQ 'MBP',FILE.NAME TO F.SEQ ELSE NULL
  END ELSE
  END

Mel Maresh

-Original Message-
From: Shawn Waldie [mailto:[EMAIL PROTECTED]
Sent: Tuesday, April 13, 2004 12:15 PM
To: U2 Users Discussion List
Subject: [UD] OPENSEQ, WEOFSEQ, CLOSESEQ


Except for one possible inconsistency with the instructions regarding
OPENSEQ, the documentation seems very straight-forward.  However, I'm
still missing something.

My intention is to:
1) create a record (if it doesn't already exist) in a DIR-type
file;
2) clear said record if data exists;
3) write "new" data to the record; and
4) close the file.

The problem is that only an empty record is created if the WEOFSEQ
command is executed.  However, if the WEOFSEQ command is not executed,
the record will not first be cleared.  In other words, each time someone
runs the program, the new info is appended to whatever exists.

Here's my code:


X.DIR   = "X.HOME.WALDIES"
X.FILE  = "SRW_TEST_SEQ.txt"
X.DELIM = "|"


* MAIN *

GOSUB OPEN.SEQFILE


FOR I = 0 TO 9
  OUTPUT.DATA = ""
  FOR J = 0 TO 9
BEGIN CASE
  CASE J # 9
OUTPUT.DATA := I:"-":J:X.DELIM
  CASE 1
OUTPUT.DATA := I:"-":J
END CASE
  NEXT J
  GOSUB WRITE.TO.SEQFILE
NEXT I


CLOSESEQ FV.SEQ




*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*~-~*

* ---
OPEN.SEQFILE:
* ---
PCPERFORM 'touch ':@PATH:'/':X.DIR:'/':X.FILE

OPENSEQ X.DIR,X.FILE TO FV.SEQ ELSE
  CRT "File ":X.FILE:" in ":X.DIR:" didn't open!"
END

WEOFSEQ FV.SEQ

RETURN


* ---
WRITE.TO.SEQFILE:
* ---
WRITESEQ OUTPUT.DATA APPEND TO FV.SEQ ELSE
  CRT "Can't append ":OUTPUT.DATA:" to ":X.FILE:" in ":X.DIR:"!"
END

RETURN





TIA
Shawn
-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: How to start windows programs

2004-03-03 Thread Maresh, Mel
You can do this with the full version of Accuterm which costs $139, Accuterm
lite which costs $59 does not have this feature.  This feature is now
support by a terminal emulator called HotVT, at least in Wyse60 modes, which
is available for $39, if cost is a consideration.  Control is also better to
if you want the host process to wait until the local process is finished.
My host program launches the local process and then waits until it receives
a return code.  HotVT returns '...' when the local program is terminated.
The '...' is a user defined parameter that is passed to it.  Accuterm is
supposed to wait for the process to terminate, but I found that it wasn't.

LOOP
INPUT ANS,3
IF ANS = '...' THEN EXIT
REPEAT

Mel Maresh 

-Original Message-
From: Results [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 03, 2004 11:59 AM
To: U2 Users Discussion List
Subject: Re: How to start windows programs


Björn,
I know you can do it from AccuTerm, I don't know of a way to do it 
from wIntergrate.

- Charles Barouch
[EMAIL PROTECTED]

Björn Eklund wrote:

>Hi,
>Is there a way of starting windowsprograms on the users PC from a Unibasic
>program or do I need Wintergrate or some other tool to do that?
>
>I would like to send a invoice number away to an invoice archive on MS
>sql-server to get a pdf copy of the invoice in an Internet Exploreror
>acrobat reader window.
>
>Björn Eklund
>
>  
>


-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


RE: Pick AP-Pro Discs

2004-03-01 Thread Maresh, Mel
I recently completed the conversion of an old application running on R83 to
QM.  QM from Ladybridge Systems was chosen primarily because of it's low
price (not quite so low anymore due to the cheap dollar).

Cost breakdown as follows

Computer running XP Pro 600.00
6 user License QM (45 British Pounds/user)  508.00
6 copies HotVT Terminal Emulator ($39/copy) 234.00

The conversion from R83 was relatively painless.  The support from the QM
and HotVt has been fantastic.  Performance is tremendous.  The system has
been extremely stable.  Remote access is now via the internet and the
customer has been able to eliminate 2 phones lines costing about $100 a
month.

The system will run on any Windows box and a 3 user system would run about
$300 for QM and $120 for the emulator.

Regards,
Mel Maresh

>-Original Message-
Dear All:

I would like to acquire or purchase the complete box, manual and all
diskettes for an older Pick AP-Pro system or someone's retired AP-Pro system
(133-166 P1 preferably). I only need 3-5 users. I think the minimum is 3.

I have a new client that I want to break into the Pick world with an
inexpensive application to start. I can develop their new app on my own
AP-Pro yet in 2 months they will want their own system. We've explored the
concepts of a W2K/D3 or U2 box and its cost would kill the deal. I want to
get my foot in the door and as they grow, we can convert later.

Thanks in advance.
-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users
-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users