RE: [U2] UV sentence stack
> 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
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
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
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
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
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
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
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
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
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
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
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
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)
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
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
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
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/
