RE: [U2] UV sentence stack

2007-09-14 Thread karlp

> The command stack is also available as @COMMAND.STACK, which actually
> compiles as SYSTEM(33).
>
> UV documentation erroneously says SYSTEM(33) returns only the last
> command, but Ray's right. It has the whole stack.
> I'm correcting the U2UG WIKI page for SYSTEM(n) to say:
>
>33 Dynamic array containing the last 99 commands executed.
>   (IBM doc erroneously says: "Returns the last command on the
> command stack.")
>   @COMMAND.STACK is equivalent.  It compiles as SYSTEM(33).

You may wish to add to the wiki that 99 is a tunable number in the
~/uv/uvconfig file as HISTSTK NN where NN = 99 as the default. If you
wish, you can reduce or enlarge that number, which is what SYSTEM(33) will
then return.

Karl

>
> cds
>
> -Original Message-
> From: Ray Wurlod
>
> The UniVerse sentence stack isn't stored anywhere.  It is kept in the
> user's "printer shared memory segment" while the user is active.  The .L
> command and the SYSTEM() function retrieve it from there.
>
> When the user exits from UniVerse, and if the VOC item STACKWRITE is set
> to ON, then the command stack is saved in &SAVEDLISTS& as others have
> posted.  But it does not go there until the user exits from UniVerse.
>
> The command stack can be deliberately saved to &SAVEDLISTS&, for example
> via the SAVE.STACK command, but this is not an automatic operation.
> ---
> u2-users mailing list
> u2-users@listserver.u2ug.org
> To unsubscribe please visit http://listserver.u2ug.org/
>


-- 
Karl Pearson
Director of I.T.
ATS Industrial Supply, Inc.
[EMAIL PROTECTED]
http://www.atsindustrial.com
800-789-9300 x29
Local: 801-978-4429
Fax: 801-972-3888

"To mess up your Linux PC, you have to really work at it;
 to mess up a microsoft PC you just have to work on it."
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [OT] Primos emulator

2007-09-14 Thread Stevenson, Charles
Ha. I'm guessing the disk is "emululated", too.
Actually I don't think it's the Wang Word Processing Station,  but
something else.  I don't remember what.  Now you know as much, probably
more than I do.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Garry Smith
Sent: Friday, September 14, 2007 4:42 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [OT] Primos emulator

Does that load on the 10 inch floppy disk? What was the size of that
large disk for the Wang Word Processing Station?


Garry L. Smith

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stevenson,
Charles
Sent: Friday, September 14, 2007 4:24 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [OT] Primos emulator

I work for what used to be Wang, but is now a part of Getronics, which
is the Dutch parent company that is currently being bought by another
Dutch company.  (For you younguns still reading this thread, Wang was
another of the players at the same time PR1ME was in it's prime.)

Anyway,  there's a group that has written some kind of Wang emulator on
a PC to run old Wang software that still has a customer base but a
diminishing supply of "experienced" Wang hardware since we no longer
build the stuff.   I'm told the emulator is a money maker.

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/


RE: [U2] [UD] create file

2007-09-14 Thread Larry Hiscock
You don't need to do the touch command.  If the OPENSEQ takes the ELSE
branch, but the content of STATUS() is 0, the file does not currently exist,
but you can still WRITESEQ to the file handle, and the file will be created.

Larry Hiscock
Western Computer Services
http://www.wcs-corp.com
 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Charlie Rubeor
Sent: Friday, September 14, 2007 7:41 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] [UD] create file

A lot more lines of code, but this should work.  (Please double-check for
typos.)

FILE.IS.OPEN = 0
LOOP
OPENSEQ '/path/file' TO FV
ON ERROR
PRINT;PRINT 'Could not open the /path/file file, status
':STATUS():'.'
STOP
END LOCKED
PRINT;PRINT 'File /path/file is locked.'
SLEEP 1
END THEN
FILE.IS.OPEN = 1
END ELSE
CMD = '!touch /path/file'
EXECUTE CMD CAPTURING OUTPUT RETURNING ERROR.MESSAGE
IF @SYSTEM.RETURN.CODE = -1 THEN
PRINT;PRINT 'Could not create the /path/file file,
status ':STATUS():'.'
STOP
END
END
UNTIL FILE.IS.OPEN DO REPEAT


[EMAIL PROTECTED] wrote on 09/13/2007 09:44:15 PM:

> Hello group, I am a UV guy and I need some UD assistance.
> 
> In UV I can
> 
> OPENSEQ "/path/file" TO FV ELSE
>   CREATE FV ELSE STOPM "nope"
> END
> 
> Which will create the file if it doesn't exit, after which I can 
> READEQ
or
> READBLK to my heart's content.
> 
> But UD dies at the CREATE statment.
> 
> Also, instead of READBLK WRITEBLK it is OSBREAD, OSBWRITE in UD, 
> correct
?
> 
> Thanks,
> /Scott Ballinger
> Pareto Corporation
> Edmonds WA USA
> 206 713 6006
> ---
> 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] [OT] Primos emulator

2007-09-14 Thread Garry Smith
Does that load on the 10 inch floppy disk? What was the size of that
large disk for the Wang Word Processing Station?


Garry L. Smith

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stevenson,
Charles
Sent: Friday, September 14, 2007 4:24 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [OT] Primos emulator

I work for what used to be Wang, but is now a part of Getronics, which
is the Dutch parent company that is currently being bought by another
Dutch company.  (For you younguns still reading this thread, Wang was
another of the players at the same time PR1ME was in it's prime.)

Anyway,  there's a group that has written some kind of Wang emulator on
a PC to run old Wang software that still has a customer base but a
diminishing supply of "experienced" Wang hardware since we no longer
build the stuff.   I'm told the emulator is a money maker.

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/


RE: [U2] [OT] Primos emulator

2007-09-14 Thread Stevenson, Charles
I work for what used to be Wang, but is now a part of Getronics, which
is the Dutch parent company that is currently being bought by another
Dutch company.  (For you younguns still reading this thread, Wang was
another of the players at the same time PR1ME was in it's prime.)

Anyway,  there's a group that has written some kind of Wang emulator on
a PC to run old Wang software that still has a customer base but a
diminishing supply of "experienced" Wang hardware since we no longer
build the stuff.   I'm told the emulator is a money maker.

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


RE: [U2] UV sentence stack

2007-09-14 Thread Stevenson, Charles
The command stack is also available as @COMMAND.STACK, which actually
compiles as SYSTEM(33).

UV documentation erroneously says SYSTEM(33) returns only the last
command, but Ray's right. It has the whole stack. 
I'm correcting the U2UG WIKI page for SYSTEM(n) to say:

   33 Dynamic array containing the last 99 commands executed.  
  (IBM doc erroneously says: "Returns the last command on the
command stack.")
  @COMMAND.STACK is equivalent.  It compiles as SYSTEM(33).

cds

-Original Message-
From: Ray Wurlod

The UniVerse sentence stack isn't stored anywhere.  It is kept in the
user's "printer shared memory segment" while the user is active.  The .L
command and the SYSTEM() function retrieve it from there.

When the user exits from UniVerse, and if the VOC item STACKWRITE is set
to ON, then the command stack is saved in &SAVEDLISTS& as others have
posted.  But it does not go there until the user exits from UniVerse.

The command stack can be deliberately saved to &SAVEDLISTS&, for example
via the SAVE.STACK command, but this is not an automatic operation.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Question - retrieving file separation setting

2007-09-14 Thread Allen Egerton

Manu Fernandes wrote:

Use the STATUS stmt FROM filevar
  
  OPEN yourfile TO F.DUMMY ELSE EXIT

STATUS F.STATUS FROM F.DUMMY ELSE EXIT
TYPE  = F.STATUS<21,1,1>
  IF TYPE <2 OR TYPE > 18 THEN EXIT
MODULO= F.STATUS<22,1,1>
SEPARATOR = F.STATUS<23,1,1>

Regards
Manu


Perfecto.  Muchas Gracias!

--
Allen Egerton
aegerton at pobox dot com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Question - retrieving file separation setting

2007-09-14 Thread Allen Egerton

Brian Leach wrote:

Allen

From memory - 

Open FileName To FL Then
  Status FStat From FL Then
FileType = FStat<21>
FileMod  = FStat<22>
FileSep = FStat<23>
  End
End

You may need to check the numbers (HELP BASIC STATUS) - those are off the top 
my head.

Brian


Perfect.  Thank you very much.

--
Allen Egerton
aegerton at pobox dot com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [OT] Primos emulator

2007-09-14 Thread Norman Morgan
Dare we say that you are all "past your Prime"?

===
Norman Morgan <> [EMAIL PROTECTED] <> http://www.brake.com
===
Lower your blood pressure -- slit your wrists.
===

 

> -Original Message-
> From: [EMAIL PROTECTED] 
> [mailto:[EMAIL PROTECTED] On Behalf Of Dawn Wolthuis
> Sent: Friday, September 14, 2007 7:49 AM
> To: u2-users@listserver.u2ug.org
> Subject: Re: [U2] [OT] Primos emulator
> 
> A cherished possession of mine is a 9-track tape of Oracle for Primos.
>  I also have a controller board and a, yes, I have a Pr1me 
> disk pack too.
> 
> Maybe there's a support group for people who have have kept 
> Pr1me disk packs?  --dawn
> 
> On 9/13/07, Drew Henderson <[EMAIL PROTECTED]> wrote:
> > I've still got a 300MB disk pack I use for tours ("here is where we 
> > were in 1981") that came from a 750.
> >
> > Drew
> >
> > Louie Bergsagel wrote:
> > > Nice.  I kept my PR1MOS books for 27 years, and tossed 
> them out in March.
> > >
> > > I was able to login and create a directory.  What fun!
> ---
> 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] [OT] Primos emulator

2007-09-14 Thread Martin Phillips
I threw out most of my Prime manuals a few years back and, just as one might 
expect, almost immediately wanted one of them.


I still have a few, including the "Hacker's Guide to the Prime", an internal 
engineering manual that I probably only keep because it has my name in the 
Acknowledgements (though I never did work out quite what I contributed).


So, a question for the die hard Primos fans Just who was Lyne Smith who 
manages to have a whole memory segment (2036) reserved in her name as the 
"Lyne Smith memorial segment"?


Of course, those who didn't come from Prime won't have a clue what any of 
this is about.



Martin Phillips, Ladybridge Systems Ltd 
---

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


Re: [U2] [UD] create file

2007-09-14 Thread Charlie Rubeor
A lot more lines of code, but this should work.  (Please double-check for 
typos.)

FILE.IS.OPEN = 0
LOOP
OPENSEQ '/path/file' TO FV
ON ERROR
PRINT;PRINT 'Could not open the /path/file file, status 
':STATUS():'.'
STOP
END LOCKED
PRINT;PRINT 'File /path/file is locked.'
SLEEP 1
END THEN
FILE.IS.OPEN = 1
END ELSE
CMD = '!touch /path/file'
EXECUTE CMD CAPTURING OUTPUT RETURNING ERROR.MESSAGE
IF @SYSTEM.RETURN.CODE = -1 THEN
PRINT;PRINT 'Could not create the /path/file file, 
status ':STATUS():'.'
STOP
END
END
UNTIL FILE.IS.OPEN DO REPEAT


[EMAIL PROTECTED] wrote on 09/13/2007 09:44:15 PM:

> Hello group, I am a UV guy and I need some UD assistance.
> 
> In UV I can
> 
> OPENSEQ "/path/file" TO FV ELSE
>   CREATE FV ELSE STOPM "nope"
> END
> 
> Which will create the file if it doesn't exit, after which I can READEQ 
or
> READBLK to my heart's content.
> 
> But UD dies at the CREATE statment.
> 
> Also, instead of READBLK WRITEBLK it is OSBREAD, OSBWRITE in UD, correct 
?
> 
> Thanks,
> /Scott Ballinger
> Pareto Corporation
> Edmonds WA USA
> 206 713 6006
> ---
> 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] U2U London - Full Steam Ahead

2007-09-14 Thread Claude Masseron
Hi All,

Just In Case, there was a posting yesterday mentioning that the 
U2U event in London may not happen. This is absolutely not the case, this 
event is going ahead as scheduled, I've just come off a planning call and 
we're all very excited about repeating the success of the Denver and 
Sydney events.

Regards

Claude

Claude Masseron
 

 
Mobile: +44(0)7801 684039 
 
Email: [EMAIL PROTECTED]
 
http://www.ibm.com/software/data/u2
Register today for the premier U2 technical event!


 





Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

[demime 1.01d removed an attachment of type image/jpeg]

[demime 1.01d removed an attachment of type image/jpeg]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [OT] Primos emulator

2007-09-14 Thread Dawn Wolthuis
A cherished possession of mine is a 9-track tape of Oracle for Primos.
 I also have a controller board and a, yes, I have a Pr1me disk pack
too.

Maybe there's a support group for people who have have kept Pr1me disk
packs?  --dawn

On 9/13/07, Drew Henderson <[EMAIL PROTECTED]> wrote:
> I've still got a 300MB disk pack I use for tours ("here is where we were
> in 1981") that came from a 750.
>
> Drew
>
> Louie Bergsagel wrote:
> > Nice.  I kept my PR1MOS books for 27 years, and tossed them out in March.
> >
> > I was able to login and create a directory.  What fun!
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] U2U UK You Need to Be There (BTW Register Now and Win an IPod)

2007-09-14 Thread Claude Masseron
Not sure where that information came from.

There are no plans to cancel the U2U event in London, I've just come off a 
planning call and it's full steam ahead.

Regards

Claude





Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Question - retrieving file separation setting

2007-09-14 Thread Manu Fernandes
Use the STATUS stmt FROM filevar
  
  OPEN yourfile TO F.DUMMY ELSE EXIT
STATUS F.STATUS FROM F.DUMMY ELSE EXIT
TYPE  = F.STATUS<21,1,1>
  IF TYPE <2 OR TYPE > 18 THEN EXIT
MODULO= F.STATUS<22,1,1>
SEPARATOR = F.STATUS<23,1,1>

Regards
Manu

> -Message d'origine-
> De : [EMAIL PROTECTED] [mailto:owner-u2-
> [EMAIL PROTECTED] De la part de Allen Egerton
> Envoyi : vendredi 14 septembre 2007 05:00
> @ : .U2 List
> Objet : [U2] Question - retrieving file separation setting
> 
> In a Universe environment, (running either on Windows or *nix), does
> anyone know a fast way to determine the separation of a file?
> 
> Type, Modulo, etc are easily returned via the FILEINFO function, but
> separation doesn't appear to be retrievable that way.
> 
> Thank you.
> 
> --
> Allen Egerton
> aegerton at pobox dot 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] Question - retrieving file separation setting

2007-09-14 Thread Brian Leach
Allen

>From memory - 
Open FileName To FL Then
  Status FStat From FL Then
FileType = FStat<21>
FileMod  = FStat<22>
FileSep = FStat<23>
  End
End

You may need to check the numbers (HELP BASIC STATUS) - those are off the top 
my head.

Brian

In a Universe environment, (running either on Windows or *nix), does 
anyone know a fast way to determine the separation of a file?

Type, Modulo, etc are easily returned via the FILEINFO function, but 
separation doesn't appear to be retrievable that way.

Thank you.

-- 
Allen Egerton
aegerton at pobox dot 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] Question - retrieving file separation setting

2007-09-14 Thread Allen Egerton

Dan Fitzgerald wrote:

MST or UVFile should do it.



I'm obviously missing something, 'cause I can't find either of those in 
any of the online HELP files, in my VOC or in a refreshed &MAP&.  Can 
you enlighten me a bit further please?


Thank you.

--
Allen Egerton
aegerton at pobox dot com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/