Re: [U2] stop

2014-05-09 Thread Allen Egerton
Slight
Tap
On
Pedal


Je ne comprends pas. 

(Allen - Sent from my paperweight)

 On May 9, 2014, at 11:52 AM, Jerry Neff jerry.n...@scccd.edu wrote:
 
 stop
 
 Jerry L Neff,
 Programmer/Analyst - IS
 State Center Community College District
 Phone (559) 244-5952
 Fax (559) 222-9954
 jerry.n...@scccd.edumailto:jerry.n...@scccd.edu
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] INDEX taking forever to rebuild after server upgrade.

2014-04-21 Thread Allen Egerton
Possibly you're indexing nulls, which will give you a very large branch of
the tree.

EXECUTE DELETE.INDEX : FILENAME:  : FIELD.NAME
EXECUTE CREATE.INDEX : FILENAME:  NO.NULLS
EXECUTE BUILD.INDEX : FILENAME:  : FIELDNAME

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Chris Austin
Sent: Monday, April 21, 2014 12:39 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] INDEX taking forever to rebuild after server upgrade.

Hello,

We recently upgraded to a new Windows 2012 R2 server with the latest version
of UniVerse (11.2.x). Everything seems to be working great except we noticed
that 1 index on 1 record is taking a TON of time to do a rebuild. 

The basic syntax we're using is 

EXECUTE  'CREATE.INDEX ':FILENAME:' ':FIELDNAME EXECUTE  'BUILD.INDEX
':FILENAME:' ':FIELDNAME

The output looks like 

Clearing Index File INDEX.007

Starting DATA processing for index 'OTHER_REF'!
2251000 processed.
***

However, this used to finish in a couple minutes and now runs for HOURS
without finishing. 

Any ideas what would cause this or how to remedy the situation? Maybe the
index is corrupt?

Thanks,

Chris

  
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [UV] Programmatic Verification of Globally Cataloged Subroutine

2014-01-27 Thread Allen Egerton
Perhaps VCATALOG

(Allen - Sent from my paperweight)

 On Jan 27, 2014, at 12:06 PM, Perry Taylor perry.tay...@zirmed.com wrote:
 
 Does anyone know of a good method in UniVerse BASIC to be able to verify if a 
 subroutine is globally cataloged?
 
 Thanks.
 Perry Taylor
 Senior MV Architect
 Office (877) 494-7633 ext. 4392
 Direct (502) 779-4392
 ZirMed
 888 West Market Street, Suite 400
 Louisville, KY 40202
 www.zirmed.comhttp://www.zirmed.com/
 
 
 
 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
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [OT] Interview Questions

2013-12-14 Thread Allen Egerton
Hi Dan.  

Instead of the case statement, which requires leapyear logic - Set YY to 
current year; set MM to current month.  Mm += 1; if 13 then MM = 1 AND YY += 1. 
 I.date = Iconv(MM / 01 / YY, 'd2/').  Then i.date -= 1.  That gives you last 
day of current month every time.  Then dow and roll back to thursday. 

Some liberties taken in typing above - iphone typing is tedious...

(Allen - Sent from my paperweight)

 On Dec 14, 2013, at 11:48 AM, Dan Fitzgerald dangf...@hotmail.com wrote:
 
 First, agreeing with Kevin. I've been amazed over the years at how many folks 
 represent that they have technical skills that they don't. 
 But, I got a good non-technical question recently: Describe a situation where 
 you argued strongly for a position and ended up changing your mind. I had a 
 wealth of examples to draw upon…
 Kevin: I'd take the month (verifying; gigo), then run it through a case 
 statement to determine the number of days in that month (sounds like a handy 
 subroutine to have in the toolbox). Then I'd convert to get the day of the 
 week, another case statement to get the number of days past Thursday, do the 
 math from the last DOM internal date, oconv the result, and grab a cup of 
 dark roast. There are probably more efficient ways, but that's how I'd work 
 it through my head in an interview.
 
 Date: Sat, 14 Dec 2013 09:14:36 -0700
 From: ke...@precisonline.com
 To: u2-users@listserver.u2ug.org
 Subject: Re: [U2] [OT] Interview Questions
 
 David, I've used many of these questions in the past but where it fell down
 was that it didn't give any real picture of technical ability. The one
 question I've been using lately to assess technical thinking is how would
 you calculate the last Thursday in a month? The answers have been
 everywhere from accurate to sheer ridiculous. The unexpected takeaway from
 this question is that it has helped to identify people who simply want to
 answer quickly without thinking - not a good trait unless the answer is
 right and to date that's happened a total of zero times - vs people who
 think first and then give a reasoned response.
 
 I've just found it too easy for people to stretch the truth when
 explaining their
 technical ability, so I'm asking questions intended to give some evidence.
 
 On Saturday, December 14, 2013, David Sharp wrote:
 
 Here is something I have used:
 What single project
 or task would you consider the most significant accomplishment in your
 career
 so far?
 
 
 
 
 ·
 Can you give me a detailed overview of the
 accomplishment?
 
 ·
 Tell me about the company, your title, your
 position, your role, and the team involved.
 
 ·
 What were the actual results achieved?
 
 ·
 When did it take place and how long did the
 project take.
 
 ·
 Why you were chosen?
 
 ·
 What were the 3-4 biggest challenges you
 faced and how did you deal with them?
 
 ·
 Where did you go the extra mile or take the
 initiative?
 
 ·
 Walk me through the plan, how you managed
 to it, and if it was successful.
 
 ·
 Describe the environment and resources.
 
 ·
 Describe your manager’s style and whether
 you liked it or not.
 
 ·
 Describe the technical skills needed to
 accomplish the objective and how they were used.
 
 ·
 Some of the biggest mistakes you made.
 
 ·
 Aspects of the project you truly enjoyed.
 
 ·
 Aspects you didn’t especially care about
 and how you handled them.
 
 ·
 How you managed and influenced other, with
 lots of examples.
 
 ·
 How you changed and grew as a person.
 
 ·
 What you would do differently if you could
 do it again.
 
 ·
 What type of formal recognition did your
 receive?
 
 
 Regards,
 David Sharp
 Date: Fri, 13 Dec 2013 12:27:18 -0800
 From: i...@keyway.net javascript:;
 To: u2-users@listserver.u2ug.org javascript:;
 Subject: Re: [U2] [OT] Interview Questions
 
 Please email me in regards to your ads. I am currently in between
 contracts/assignments/projects and looking for my next assignment.
 Multivalue languages I have been programming in:
 
 * CACHE (language: MV BASIC)
 * INFORMATION (language: INFO/BASIC)
 * jBASE (language: jBC, jBASE BASIC, jBASIC)
 * MENTOR System (language: DATA/BASIC, DATABASIC, DATA BASIC)
 * MVENTERPRISE (language: MVENTERPRISE BASIC)
 * MVON/ONWARE (language: ONWARE BASIC)
 * OPENINSIGHT (language: BASIC+)
 * OPENQM, QM (language: QMBASIC)
 * PICK, Advanced PICK, D3 (language: PICK BASIC)
 * Power95 (language: DATA/BASIC, DATABASIC, DATA BASIC)
 * REALITY System (language: DATA/BASIC, DATABASIC, DATA BASIC)
 * REVELATION, Advanced REVELATION (language: R/BASIC, REVELATION BASIC)
 * UNIDATA (language: UNIBASIC)
 * UNIVERSE (language: UNIVERSE BASIC)
 * UNIVISION (language: UVBASIC)
 * WebSphere DataStage (language: DSBASIC, DataStage BASIC)
 
 Robert Norman, Multivalue Programmer/Analyst
 (951) 541-1668
 
 On 10/7/2013 7:35 PM, Kevin King wrote:
 This is not specifically a job posting, but I do have ads up on
 Monster and
 LinkedIn looking for talent.
 
 At the risk of confessing too much, 

Re: [U2] Exporting to File regularly

2013-12-11 Thread Allen Egerton
Good morning David.

While the answers you've gotten regarding triggers are valid, they're
perhaps an overly complicated solution to your problem.

Your statement that LIST FILE.NAME LPTR gives you the info you need seems to
imply to me that the record key is numeric and generated sequentially.   If
so, then there's a control record in the existing system that you should be
able to retrieve.   And it may be as simple as finding the NEXT.AVAILABLE
record in the dictionary of the file that you're looking at.   If not, it's
going to be stored in a parameter file somewhere.   Unfortunately that
somewhere is a nasty word given that you are new to universe...



-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David Campbell
Sent: Wednesday, December 11, 2013 12:39 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Exporting to File regularly

Hi Everyone,

I'm new to universe (a complete noob) and I couldn't quite find what I was
looking for on google and I've been smashing my face against this for a
while until I stumbled upon this mailing list so I was wondering if anyone
could help me out here.

I'm writing a script that will hopefully alert me via email whenever a new
record is added to a particular universe file, if there is a better way to
do this I would be all ears. I'm working around another proprietary system
which operates on universe and I dont know enough about universe to really
say for sure what is proprietary and what is universe standard code and the
proprietary stuff is covered in NDA's and no touchy hand slappy orders so I
cannot really modify the way it works, I just need to know when a new entry
appears, preferably via an smtp email.

My Current plan works like this

I'm looking to regularly (every 5 minutes) output data into a text or csv
file, doesn't matter really, so long as it is not full of characters that
batch scripts hate and it can happen in an automated fashion.

The closest thing I can get to what I want right now is

SP.ASSIGN HS
LIST FILE.NAME LPTR

this lists all the records and dumps them in a spool file under
/var/spool/uv/ and then a script I have written in the past retrieves that
spool file for me, I have trained that spool file to look for specific
markers in the first line of the file and apply a particular script to it

This spooled print job gives me a list of the records that I can then sort
numerically, pick the highest number, check that number against what the
number was last time and alert me via email if its different.

Ultimately I would love for a regularly running script to just output the
highest record (maybe sort numerically and give me the highest number and
dump just that number into a file on the unix box for me to retrieve and the
work with.

Any help would be greatly appreciated!




--
View this message in context:
http://u2-universe-unidata.1073795.n5.nabble.com/Exporting-to-File-regularly
-tp42264.html
Sent from the U2 - Users mailing list archive at Nabble.com.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Alternative to parsing LIST.SICA command?

2013-10-11 Thread Allen Egerton
I was unable to find any function or routine when I had the same question. 

If you have to parse it, I've already done it and can give you a copy of the 
code.  

(Allen - Sent from my paperweight)

On Oct 11, 2013, at 1:07 PM, Ladd, Ryan ryan.l...@meritain.com wrote:

 Does anyone know if there is a UV Basic command that will return the 
 information found from the LIST.SICA command?  The LIST.INDEX command has the 
 INDICES() function to return that information to a basic program and I am 
 wondering if LIST.SICA has  a similar function.  I can parse the output of 
 LIST.SICA if there is no alternative, but it would be much easier if a 
 function returned the information in a nice and orderly fashion.
 
 Ryan
 
 
 Note: The information contained in this message may be privileged and 
 confidential and protected from disclosure. If the reader of this message is 
 not the intended recipient, or an employee or agent responsible for 
 delivering this message to the intended recipient, you are hereby notified 
 that any dissemination, distribution or copying of this communication is 
 strictly prohibited. If you have received this communication in error, please 
 notify us immediately by replying to the message and deleting it from your 
 computer.
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] No mail

2013-09-23 Thread Allen Egerton
Will, 

It appears to be a low-traffic week.   As f

(Allen - Sent from my paperweight)

On Sep 23, 2013, at 6:31 PM, Will Johnson wjhon...@aol.com wrote:

 Huh?  I'm responding by GOING to the U2 Archives forum.
 Not responding to the email list, which still isn't coming to my inbox, 
 including this message.
 The forum subscription appears to be working now for me, but I only signed up 
 there because the email list stopped working.
 
 
 
 
 
 
 
 -Original Message-
 From: Tony Gravagno-3 [via U2 (UniVerse  UniData)] 
 ml-node+s1073795n41861...@n5.nabble.com
 To: Will Johnson wjhon...@aol.com
 Sent: Mon, Sep 23, 2013 3:26 pm
 Subject: Re: No mail
 
 
I'm getting mails for this thread, nothing else seems to be going to
 the list at the moment except for the TU.TO.EXCEL discussion last week
 and the Colorado job.
 http://listserver.u2ug.org/pipermail/u2-users/2013-September/date.html
 Nothing like a scare about mail not getting through to stop people
 from sending mail, eh?
 Or, ya know it's possible that people just don't have anything to say
 at the moment.
 I dunno how you can be getting zero emails from the list - you've been
 responding to recent postings...
 
 Shall we just assume it's business as usual here and that the stutter
 with your own personal email has now passed?
 
 From: Will Johnson
 Are you saying you got the emails?  Cause I'm still getting ZERO
 emails
 from the list, for over a week now.
 
 ___
 U2-Users mailing list
 [hidden email]
 http://listserver.u2ug.org/mailman/listinfo/u2-users





 If you reply to this email, your message will be added to the discussion 
 below:

 http://u2-universe-unidata.1073795.n5.nabble.com/No-mail-tp41844p41861.html   
  

To start a new topic under U2 - Users, email 
 ml-node+s1073795n3...@n5.nabble.com 
To unsubscribe from U2 (UniVerse  UniData), click here.
NAML
 
 
 
 
 
 --
 View this message in context: 
 http://u2-universe-unidata.1073795.n5.nabble.com/No-mail-tp41844p41862.html
 Sent from the U2 - Users mailing list archive at Nabble.com.
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] No mail

2013-09-21 Thread Allen Egerton
Pong. 

(Allen - Sent from my paperweight)

On Sep 20, 2013, at 10:01 PM, Michael Spencer mspen...@dbkeeper.com wrote:

 Test.
 
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Will Johnson
 Sent: Friday, September 20, 2013 5:04 PM
 To: u2-users@listserver.u2ug.org
 Subject: Re: [U2] No mail
 
 Still no mail from the list.
 
 
 
 --
 View this message in context:
 http://u2-universe-unidata.1073795.n5.nabble.com/No-mail-tp41844p41855.html
 Sent from the U2 - Users mailing list archive at Nabble.com.
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] KeyPressed

2013-08-09 Thread Allen Egerton
0001   EQUATE TRUE TO 1
0002   EQUATE FALSE TO 0
0003   PROMPT 
0004   DUMMY = @(0,0)
0005 *
0006   WAIT = TRUE
0007   LOOP WHILE WAIT
0008  INPUT XYZ, -1
0009  IF (XYZ) THEN
0010 INPUT XYZ,1  ; *  Eat the char
0011 WAIT = FALSE
0012  END ELSE
0013 SLEEP 1
0014 CRT OCONV(TIME(), MTHS)
0015  END
0016   REPEAT
0017 *
0018   CRT OUT OF LOOP
0019   CRT 'BYE'

(Allen - Sent from my paperweight)

On Aug 9, 2013, at 4:04 PM, Bill Brutzman bi...@hkmetalcraft.com wrote:

 With Dynamic Connect... and UniBasic...
 
 I need a screen that continuously displays time... as we have an inspection
 screen where press operators enter fresh data each hour.  Something like...
 
  loop
 
call *timeOfDay
call *displayOtherStuff
 
 input thisKey, -1
 
  until (thisKey = '1')
 
 sleep
 
  repeat  
 
  gosub secondScreen
 
 
 
 The trouble with this thing is... when a key is pressed... it wants to
 display the key on asubsequent screen.
 
 I tried...inputclear... but it is not doing what I want.
 
 Suggestions would be appreciated.
 
 --Bill
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] Uv_ioctl write failure on eval

2013-07-23 Thread Allen Egerton
Universe 10.3.12; windows 2003 and 2008 platform. 

Executing an eval statement with sql syntax from within a program that's using 
uniobjects to connect is consistently generating  an error 'uv_ioctl: WriteFile 
failed with error=232'. 

It appears to be account based. The same code works in other accounts; and 
continues to fsil in this account even when i move it to another server. 

We've examined permissions and don't see issues.  Any thoughts?

(Allen - Sent from my paperweight)
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Origin of the word 'COMO'

2013-07-22 Thread Allen Egerton
Primos, then prime information.

Primos had command input and command output files. Comi and como.

They upgraded comi files with cpl which was a command processing language that 
supported variables and decision based branching.  

(Allen - Sent from my paperweight)

On Jul 22, 2013, at 3:45 PM, Wjhonson wjhon...@aol.com wrote:

 What is the origin of the word COMO as used for the Universe logs ?
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Origin of the word 'COMO'

2013-07-22 Thread Allen Egerton
Plus you could execute comi files on other than the default unit 6  so you 
could do semi modular programming.

There's still a como subroutine buried in uv that you can send a bit based 
argument to controlling output options. 

Next week: Primos.comi and config data

(Allen - Sent from my paperweight)

On Jul 22, 2013, at 4:36 PM, Wols Lists antli...@youngman.org.uk wrote:

 On 22/07/13 21:10, Allen Egerton wrote:
 Primos, then prime information.
 
 Primos had command input and command output files. Comi and como.
 
 And the nice thing about them was they sat in the OS on the tty line. So
 if it was active it recorded EVERYTHING.
 
 I've noticed - with I think both PI/Open and UV - that they sometimes
 record a cleaned up version of the character stream. Which is nice on
 some occasions, but a pain in the neck on others.
 
 They upgraded comi files with cpl which was a command processing language 
 that supported variables and decision based branching.  
 Not really an upgrade, just a new programming language which sat at the
 input processing level, not the character stream level :-) and yes, I
 made a fair bit of use of both of them :-)
 
 I actually loved COMO as a debugging tool because, combined with
 FORTRAN's TRACE statement I could track exactly what my programs were doing.
 
 Debuggers can be okay, but if your error occurs on the 30th iteration of
 a loop it can be a pain, or if you need to track back a fair way to find
 where things start to go wrong ... the ability to just have a trace of
 the entire execution was great.
 
 Cheers,
 Wol
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Mobile phones

2013-07-10 Thread Allen Egerton
Short answer is that you can't.  At least not from the phone number.

Numbers here are broken down into aaa-bbb-; (aaa=area code;
bbb=exchange; =number).   The area code tells you what state the phone
was/is issued in, the exchange gives you the general area, and the number is
simply sequential.   There's no Service Class indicator.

My brother's cell phone was issued in Connecticut, has a 203 area code.
He's lived in California for almost a decade now.  So, you can't even
reliably tell from his phone number what state he lives in.   Connecticut's
on the East Coast of the USA, California's on the West Coast, we're about as
far apart as we can be and still live on the same continent.  

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen
Sent: Wednesday, July 10, 2013 7:12 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Mobile phones

Hi

 

I have an application that is based in the UK, one of the things it does is
allow entry of a phone number, I then determine if this is a mobile (cell
phone) and send a text (easy in the uk as all mobiles begin with 07)

 

We are embarking upon our first US client (well existing uk customer with a
US presence) so my question is - how with US phone numbers can I determine
if it is a cell phone ?

 

 

 

Thanks

Symeon.

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Help needed..

2013-04-30 Thread Allen Egerton
On 4/30/2013 11:21 AM, Sathya wrote:
 Hi all,..
 
 I have a requirement here. Need guidance in doing that. Any help will be 
 useful. 
 
 TIA.
 
 I have a flat file with tab delimited records and the file looks like below:
 
 abcd 1234
 cdef 3478
 ghae 6284
 ...
 
 I have to fetch the data 'abcd' and 'cdef' from this flat file and fetch 
 some corresponding attributes from a file which has 'abcd' and 'cdef' as 
 the key values. Please let me know if this could be done. If yes any kinda 
 basic suggestions in doing that will be helpful. 
 
Lots of ways to solve this problem, here's a very quick and dirty
untested piece of code written off the top of my head...

PROMPT 
EQUATE TABCHAR TO CHAR(7)
*

OPEN , UFD TO F.UFD ELSE STOP CAN'T OPEN UFD
READ D.UFD FROM F.UFD, xxx.tabdelimitedname ELSE
CRT Can't read tab-delimited file from current directory
STOP
END
OPEN , OTHERFILE TO F.OTHER ELSE
CRT Can't open OTHERFILE file to retrieve data from
STOP
END

REM1 = 999
LOOP WHILE REM1 NE 0
REMOVE LINE FROM D.UFD SETTING REM1
K.OTHER = FIELD(LINE, TABCHAR, 1)
READ D.OTHER FROM F.OTHER, K.OTHER THEN
ONE = D.OTHER1
TWO = D.OTHER2
do something with the fields...
END ELSE
CRT Cant' read record : K.OTHER:  from OTHERFILE.
END
REPEAT
*
CRT DONE
STOP


-- 
Allen Egerton; aeger...@pobox.com


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] TCL input and response logging (AD)

2013-04-26 Thread Allen Egerton
Prime Information was a product running as an application on PRIMOS. 

  It was acquired by Vmark and subsequently by Advent if memory serves me 
correctly. 

IBM acquired Universe and Unidata and subsequently sold them to Rocket. 

(Allen - Sent from my paperweight)

On Apr 26, 2013, at 1:40 PM, Wjhonson wjhon...@aol.com wrote:

 I don't think Universe was ever Prime.
 
 
 
 
 
 
 
 
 -Original Message-
 From: Allen Egerton aeger...@pobox.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Thu, Apr 25, 2013 5:06 pm
 Subject: Re: [U2] TCL input and response logging (AD)
 
 
 
 On 4/25/2013 5:36 PM, Randy Styka wrote:
 Hi!
 
 It's been a long time since I posted here but our company, Computronics,
 has sold a product called PEEK for Unix systems since 1993.  It is most
 often used for remote support, to see what is on someone's screen.  And,
 if needed to send keystrokes as if they were typing them, to help them
 out or close out programs.  
 
 But one of the other uses is for logging.  PEEK can be set up to fire off
 a background process when a user logs in.  That process is independent of
 the user, and can run under another id.  It can then write a log of either
 all keystrokes of the user (input only mode) or of input and the resulting
 output.  Since it runs under a different id, the logs can be placed where
 you want and they can't be modified or accessed by the user being peeked
 on.
 
 If this is of interest, visit http://www.computronics.com and look for
 information on PEEK.  The manuals are there and a free trial is available.
 Note we are UNIX only (we don't do Windows ;-)
 
 If you have questions, email me at ra...@computronics.com.  Thanks!  Randy
 
 ++
 | Computronics   Randy Styka, ra...@computronics.com |
 | 4N165 Wood Dale Road   Phone:  630/941-7767|
 | Addison, Illinois  60101 USA   Fax:630/941-7714|
 |www:http://www.computronics.com |
 | for product information:   i...@computronics.com   |
 | for product support:   supp...@computronics.com|
 ++
 
 For what it may be worth; I'm happy to vouch for Randy and Computronics
 in general.  They've been around for Universe since it was Prime
 Information and have a stellar reputation.
 
 --
 Allen Egerton; aeger...@pobox.com
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] TCL input and response logging (AD)

2013-04-26 Thread Allen Egerton
I didn't say vmark acquired prime. I said they acquired prime information. 

(Allen - Sent from my paperweight)

On Apr 26, 2013, at 3:07 PM, Wjhonson wjhon...@aol.com wrote:

 That idea doesn't seem right Allen.
 I can't find any reference to Vmark acquiring Prime, after Prime's bankruptcy.
 One reference says that the Prime assets all went to ComputerVision, but it's 
 just a blog
 Anyone have a newspaper article link ?
 
 
 
 
 
 
 
 
 -Original Message-
 From: Wjhonson wjhon...@aol.com
 To: u2-users u2-users@listserver.u2ug.org
 Sent: Fri, Apr 26, 2013 11:58 am
 Subject: Re: [U2] TCL input and response logging (AD)
 
 
 I'll have to update the wiki poo pea a pages
 
 Who is the woman in this picture?
 
 http://en.wikipedia.org/wiki/File:Prime9950_kean.jpg
 
 
 
 
 
 
 
 
 
 -Original Message-
 From: Allen Egerton aeger...@pobox.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Fri, Apr 26, 2013 11:31 am
 Subject: Re: [U2] TCL input and response logging (AD)
 
 
 Prime Information was a product running as an application on PRIMOS. 
 
  It was acquired by Vmark and subsequently by Advent if memory serves me 
 correctly. 
 
 IBM acquired Universe and Unidata and subsequently sold them to Rocket. 
 
 (Allen - Sent from my paperweight)
 
 On Apr 26, 2013, at 1:40 PM, Wjhonson wjhon...@aol.com wrote:
 
 I don't think Universe was ever Prime.
 
 
 
 
 
 
 
 
 -Original Message-
 From: Allen Egerton aeger...@pobox.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Thu, Apr 25, 2013 5:06 pm
 Subject: Re: [U2] TCL input and response logging (AD)
 
 
 
 On 4/25/2013 5:36 PM, Randy Styka wrote:
 Hi!
 
 It's been a long time since I posted here but our company, Computronics,
 has sold a product called PEEK for Unix systems since 1993.  It is most
 often used for remote support, to see what is on someone's screen.  And,
 if needed to send keystrokes as if they were typing them, to help them
 out or close out programs.  
 
 But one of the other uses is for logging.  PEEK can be set up to fire off
 a background process when a user logs in.  That process is independent of
 the user, and can run under another id.  It can then write a log of either
 all keystrokes of the user (input only mode) or of input and the resulting
 output.  Since it runs under a different id, the logs can be placed where
 you want and they can't be modified or accessed by the user being peeked
 on.
 
 If this is of interest, visit http://www.computronics.com and look for
 information on PEEK.  The manuals are there and a free trial is available.
 Note we are UNIX only (we don't do Windows ;-)
 
 If you have questions, email me at ra...@computronics.com.  Thanks!  Randy
 
 ++
 | Computronics   Randy Styka, ra...@computronics.com |
 | 4N165 Wood Dale Road   Phone:  630/941-7767|
 | Addison, Illinois  60101 USA   Fax:630/941-7714|
 |www:http://www.computronics.com |
 | for product information:   i...@computronics.com   |
 | for product support:   supp...@computronics.com|
 ++
 
 For what it may be worth; I'm happy to vouch for Randy and Computronics
 in general.  They've been around for Universe since it was Prime
 Information and have a stellar reputation.
 
 --
 Allen Egerton; aeger...@pobox.com
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] History of Prime Information

2013-04-26 Thread Allen Egerton
Prime Computer out of Natick Massachusetts went out of business.   One
of their products was PR1ME INFORMATION.   They were acquired by another
computer, Computervision (Thank you Mark, I'd forgotten the name).

The product PRIME INFORMATION was acquired by VMark.   Vmark was later
acquired by Ardent Software.

I don't remember if there were any companies in between Ardent and IBM,
and while this was going on, there was a separate history happening for
Unidata.  Net upshot was that IBM acquired both Universe and Unidata,
and branded them as U2.

Source - my memory, (such as it is).  I started playing with PR1ME
INFORMATION on a PR1ME 450-II back in 1978.

I bought disk drives, controllers, and tape units off and on throughout
the years from Computronix, specifically from Randy Styka, which is
where I came into this conversation.



On 4/26/2013 4:18 PM, Wjhonson wrote:
 so explain that better
 and whats the source?
 
 
  
 
  
 
  
 
 -Original Message-
 From: Allen Egerton aeger...@pobox.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Fri, Apr 26, 2013 12:58 pm
 Subject: Re: [U2] TCL input and response logging (AD)
 
 
 I didn't say vmark acquired prime. I said they acquired prime information. 
 
 (Allen - Sent from my paperweight)
 
 On Apr 26, 2013, at 3:07 PM, Wjhonson wjhon...@aol.com wrote:
 
 That idea doesn't seem right Allen.
 I can't find any reference to Vmark acquiring Prime, after Prime's 
 bankruptcy.
 One reference says that the Prime assets all went to ComputerVision, but 
 it's 
 just a blog
 Anyone have a newspaper article link ?








 -Original Message-
 From: Wjhonson wjhon...@aol.com
 To: u2-users u2-users@listserver.u2ug.org
 Sent: Fri, Apr 26, 2013 11:58 am
 Subject: Re: [U2] TCL input and response logging (AD)


 I'll have to update the wiki poo pea a pages

 Who is the woman in this picture?

 http://en.wikipedia.org/wiki/File:Prime9950_kean.jpg









 -Original Message-
 From: Allen Egerton aeger...@pobox.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Fri, Apr 26, 2013 11:31 am
 Subject: Re: [U2] TCL input and response logging (AD)


 Prime Information was a product running as an application on PRIMOS. 

  It was acquired by Vmark and subsequently by Advent if memory serves me 
 correctly. 

 IBM acquired Universe and Unidata and subsequently sold them to Rocket. 

 (Allen - Sent from my paperweight)

 On Apr 26, 2013, at 1:40 PM, Wjhonson wjhon...@aol.com wrote:

 I don't think Universe was ever Prime.








 -Original Message-
 From: Allen Egerton aeger...@pobox.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Thu, Apr 25, 2013 5:06 pm
 Subject: Re: [U2] TCL input and response logging (AD)



 On 4/25/2013 5:36 PM, Randy Styka wrote:
 Hi!

 It's been a long time since I posted here but our company, Computronics,
 has sold a product called PEEK for Unix systems since 1993.  It is most
 often used for remote support, to see what is on someone's screen.  And,
 if needed to send keystrokes as if they were typing them, to help them
 out or close out programs.  

 But one of the other uses is for logging.  PEEK can be set up to fire off
 a background process when a user logs in.  That process is independent of
 the user, and can run under another id.  It can then write a log of either
 all keystrokes of the user (input only mode) or of input and the resulting
 output.  Since it runs under a different id, the logs can be placed where
 you want and they can't be modified or accessed by the user being peeked
 on.

 If this is of interest, visit http://www.computronics.com and look for
 information on PEEK.  The manuals are there and a free trial is available.
 Note we are UNIX only (we don't do Windows ;-)

 If you have questions, email me at ra...@computronics.com.  Thanks!  Randy

 ++
 | Computronics   Randy Styka, ra...@computronics.com |
 | 4N165 Wood Dale Road   Phone:  630/941-7767|
 | Addison, Illinois  60101 USA   Fax:630/941-7714|
 |www:http://www.computronics.com |
 | for product information:   i...@computronics.com   |
 | for product support:   supp...@computronics.com|
 ++

 For what it may be worth; I'm happy to vouch for Randy and Computronics
 in general.  They've been around for Universe since it was Prime
 Information and have a stellar reputation.

 --
 Allen Egerton; aeger...@pobox.com

 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users


 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

Re: [U2] TCL input and response logging (AD)

2013-04-25 Thread Allen Egerton

On 4/25/2013 5:36 PM, Randy Styka wrote:
 Hi!
 
 It's been a long time since I posted here but our company, Computronics,
 has sold a product called PEEK for Unix systems since 1993.  It is most
 often used for remote support, to see what is on someone's screen.  And,
 if needed to send keystrokes as if they were typing them, to help them
 out or close out programs.  
 
 But one of the other uses is for logging.  PEEK can be set up to fire off
 a background process when a user logs in.  That process is independent of
 the user, and can run under another id.  It can then write a log of either
 all keystrokes of the user (input only mode) or of input and the resulting
 output.  Since it runs under a different id, the logs can be placed where
 you want and they can't be modified or accessed by the user being peeked
 on.
 
 If this is of interest, visit http://www.computronics.com and look for
 information on PEEK.  The manuals are there and a free trial is available.
 Note we are UNIX only (we don't do Windows ;-)
 
 If you have questions, email me at ra...@computronics.com.  Thanks!  Randy
 
 ++
 | Computronics   Randy Styka, ra...@computronics.com |
 | 4N165 Wood Dale Road   Phone:  630/941-7767|
 | Addison, Illinois  60101 USA   Fax:630/941-7714|
 |www:http://www.computronics.com |
 | for product information:   i...@computronics.com   |
 | for product support:   supp...@computronics.com|
 ++

For what it may be worth; I'm happy to vouch for Randy and Computronics
in general.  They've been around for Universe since it was Prime
Information and have a stellar reputation.

--
Allen Egerton; aeger...@pobox.com

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Apparent Data Problem

2013-03-21 Thread Allen Egerton
That will give the universe version for the current acct.  Double check by CT 
NEWACCT RELLEVEL.They should match if the current acct is up to date. 

(Allen - Sent from my paperweight)

On Mar 21, 2013, at 1:04 PM, Dan Goble dan.go...@interlinebrands.com wrote:

 To tell the version of UniVerse edit the VOC RELLEVEL and it will display the 
 version on attribute2
 
 To the file for corruption I would recommend running the unix command fixtool 
 supplied by Rocket.
 
 fixtool -helpwill show you all the options and syntax
 
 
 Dan Goble | Senior Systems Engineer
 
 Interline Brands, Inc.
 804 East Gate Drive Suite 100, Mount Laurel, NJ 08054
 Office: 856.533.3110 | Mobile: 609.792.6855
 E-mail: dan.go...@interlinebrands.com | Website: www.interlinebrands.com
 
 
 This e-mail and any files transmitted with it are confidential and intended 
 solely for the individual or entity to whom they are addressed.  Please 
 notify the sender immediately by e-mail if you have received this e-mail in 
 error and delete all copies of this message.
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman
 Sent: Thursday, March 21, 2013 11:56 AM
 To: 'U2 Users List'
 Subject: [U2] Apparent Data Problem
 
 I am having trouble with my RR Recent Receivers UniBasic app running on 
 UniVerse 10 ?  on HP-Ux 11i v2.
 
 The app buzzes through receivers file RCVR and then hangs up on this one.
 The RCVR file is approx. 15-MB.
 
 I tried deleting records but the same symptom recurs.
 
 I resized the file in the SandBox from 7577 to 8511 leaving type and 
 separation the same and then the app yields the same error without returning 
 any data at all.
 
 Also... how can I tell what version of UV is installed now?
 
 Help would be appreciated.
 
 --Bill
 
 
 
 
  3.19.13   10R19   072220   M10857300530   222
 **
 16516þ16516þN10091þ1þ124þ745240þ0þ60100þ16515þ124.0þ300468300468þþ1þ
 1240
 
  3.20.13   10R19   07   N10091  300468   124
 ** 16517þ16517þM10762þ1þ13173þ8891775þ0þ6750þ16511þ13173.0þ303253303253
 
  3.21.13   10R11   072232   M1076230325313,173
 Program RECENT.RECEIVERS.R11: Line 313, Improper data type.
 File 0 not found in VOC
  3.21.13   10R11   072232   M10762 30325313,173
 Program RECENT.RECEIVERS.R11: Line 313, Improper data type.
 File 0 not found in VOC
 
 
 
 
 313:   open 'RCVR'   to  fRcvrelse  null
 314:
 315: read rRcvr from fRcvr, rcvrID  else  rRcvr = ''
 316:AP.Invoice.ID = rRcvr20,1
 
 crt '** ' : rRcvr
 crt
 
 
 __
 HASH.HELP RCVR
 
 File RCVR  Type= 4  Modulo= 7577  Sep= 4  11:23:59am  21 Mar 2013  PAGE
 1
 
 Of the 34559 total keys in this file:
 
  0  keys were wholly numeric (digits 0 thru 9)
 (Use File Type 2, 6, 10 or 14 for wholly numeric keys)
 
  11024  keys were numeric with separators (as reproduced below)
 0123456789#$%*+-./:;_
 (Use File Type 3, 7, 11 or 15 for numeric keys with separators)
 
  23472  keys were from the 64-character ASCII set reproduced below
 !#$%'()*+,-./0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
 (Use File Type 4, 8, 12 or 16 for 64-character ASCII keys)
 
 63  keys were from the 256-character ASCII set
 (Use File Type 5, 9, 13 or 17 for 256-character ASCII keys)
 
 The keys in this file are more unique in their right-most eight bytes.
 The smallest modulo you should consider for this file is 8511.
 The smallest separation you should consider for this file is 1.
 The best type to choose for this file is probably type 2.
 
 
 
 
 ed RCVR 10R11*072232
 22 lines long.
 
 : P
 0001: 16517
 0002: 16517
 0003: M10762
 0004: 1
 0005: 13173
 0006: 8891775
 0007: 0
 0008: 6750
 0009: 16511
 0010: 13173.0
 0011: 303253
 0012:
 0013:
 0014:
 0015: 303253
 0016:
 0017:
 0018:
 0019:
 0020:
 0021: 2ü2ü2
 0022: 43990ü43890ü43850
 Bottom at line 22.
 :
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Apparent Data Problem

2013-03-21 Thread Allen Egerton
'NEWACC' not 'NEWACCT'.  

(Allen - Sent from my paperweight)

On Mar 21, 2013, at 1:32 PM, Allen Egerton aeger...@pobox.com wrote:

 That will give the universe version for the current acct.  Double check by CT 
 NEWACCT RELLEVEL.They should match if the current acct is up to date. 
 
 (Allen - Sent from my paperweight)
 
 On Mar 21, 2013, at 1:04 PM, Dan Goble dan.go...@interlinebrands.com wrote:
 
 To tell the version of UniVerse edit the VOC RELLEVEL and it will display 
 the version on attribute2
 
 To the file for corruption I would recommend running the unix command 
 fixtool supplied by Rocket.
 
 fixtool -helpwill show you all the options and syntax
 
 
 Dan Goble | Senior Systems Engineer
 
 Interline Brands, Inc.
 804 East Gate Drive Suite 100, Mount Laurel, NJ 08054
 Office: 856.533.3110 | Mobile: 609.792.6855
 E-mail: dan.go...@interlinebrands.com | Website: www.interlinebrands.com
 
 
 This e-mail and any files transmitted with it are confidential and intended 
 solely for the individual or entity to whom they are addressed.  Please 
 notify the sender immediately by e-mail if you have received this e-mail in 
 error and delete all copies of this message.
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman
 Sent: Thursday, March 21, 2013 11:56 AM
 To: 'U2 Users List'
 Subject: [U2] Apparent Data Problem
 
 I am having trouble with my RR Recent Receivers UniBasic app running on 
 UniVerse 10 ?  on HP-Ux 11i v2.
 
 The app buzzes through receivers file RCVR and then hangs up on this one.
 The RCVR file is approx. 15-MB.
 
 I tried deleting records but the same symptom recurs.
 
 I resized the file in the SandBox from 7577 to 8511 leaving type and 
 separation the same and then the app yields the same error without returning 
 any data at all.
 
 Also... how can I tell what version of UV is installed now?
 
 Help would be appreciated.
 
 --Bill
 
 
 
 
 3.19.13   10R19   072220   M10857300530   222
 **
 16516þ16516þN10091þ1þ124þ745240þ0þ60100þ16515þ124.0þ300468300468þþ1þ
 1240
 
 3.20.13   10R19   07   N10091  300468   124
 ** 16517þ16517þM10762þ1þ13173þ8891775þ0þ6750þ16511þ13173.0þ303253303253
 
 3.21.13   10R11   072232   M1076230325313,173
 Program RECENT.RECEIVERS.R11: Line 313, Improper data type.
 File 0 not found in VOC
 3.21.13   10R11   072232   M10762 30325313,173
 Program RECENT.RECEIVERS.R11: Line 313, Improper data type.
 File 0 not found in VOC
 
 
 
 
 313:   open 'RCVR'   to  fRcvrelse  null
 314:
 315: read rRcvr from fRcvr, rcvrID  else  rRcvr = ''
 316:AP.Invoice.ID = rRcvr20,1
 
 crt '** ' : rRcvr
 crt
 
 
 __
 HASH.HELP RCVR
 
 File RCVR  Type= 4  Modulo= 7577  Sep= 4  11:23:59am  21 Mar 2013  PAGE
 1
 
 Of the 34559 total keys in this file:
 
 0  keys were wholly numeric (digits 0 thru 9)
(Use File Type 2, 6, 10 or 14 for wholly numeric keys)
 
 11024  keys were numeric with separators (as reproduced below)
0123456789#$%*+-./:;_
(Use File Type 3, 7, 11 or 15 for numeric keys with separators)
 
 23472  keys were from the 64-character ASCII set reproduced below
!#$%'()*+,-./0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
(Use File Type 4, 8, 12 or 16 for 64-character ASCII keys)
 
63  keys were from the 256-character ASCII set
(Use File Type 5, 9, 13 or 17 for 256-character ASCII keys)
 
 The keys in this file are more unique in their right-most eight bytes.
 The smallest modulo you should consider for this file is 8511.
 The smallest separation you should consider for this file is 1.
 The best type to choose for this file is probably type 2.
 
 
 
 
 ed RCVR 10R11*072232
 22 lines long.
 
 : P
 0001: 16517
 0002: 16517
 0003: M10762
 0004: 1
 0005: 13173
 0006: 8891775
 0007: 0
 0008: 6750
 0009: 16511
 0010: 13173.0
 0011: 303253
 0012:
 0013:
 0014:
 0015: 303253
 0016:
 0017:
 0018:
 0019:
 0020:
 0021: 2ü2ü2
 0022: 43990ü43890ü43850
 Bottom at line 22.
 :
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users

Re: [U2] History..

2013-03-20 Thread Allen Egerton
John answered your sentence stack commands, so I'll take a shot at how
to execute a program.

Typically programs are stored in type 1 files, aka directories or
folders, (terminology usually depends upon base operating system, *ix or
windows).

There's a corresponding file containing the object code.  To execute the
program, you would typically enter RUN filename programname at the
command prompt.

Then, there's cataloged code which is a method of storing object code so
that it can be referenced by multiple users, (unless it's cataloged
locally).

You can also execute a program directly from its native host without
entering UniData if you know where the binary executable lives.

The last three are included only for some semblance of completeness, I
believe that the answer you're looking for right now is paragraphs two
and three.



On 3/19/2013 11:17 AM, Sathya wrote:
 Hi all,..
 
 I'm pretty new to Unidata. just wanted to know the command for listing the 
 history of commands and how to select nth number of command. 
 
 Also how to execute a unidata program. 
 
 I know my questions will be very simple. But as I'm entirely new to this, 
 unable to find that anywhere :-(
 
 TIA, 
 Sathya V. 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] : Evaluating DCOUNT

2013-02-11 Thread Allen Egerton
David,

You're correct that the remove is faster, and it is because it maintains
an internal pointer to the next item, as opposed to positioning to it
for each reference.

And I'm pretty sure that you can make it run even faster with:
LINE.KEYS = RAISE(HEADER.REC200)

As a matter of preference, I would set D1 to 999 or some other numeric
value rather than a null, only because Universe/Unidata is typeless, and
I would be afraid that the null, (), might be treated as a zero;
but that's just personal fear and preference not based on a horror story.


On 2/11/2013 8:30 AM, Dave Laansma wrote:
 I would HOPE that it evaluates it each time since the size of array could 
 change within the loop.
 
 Personally if the size of array is relatively small, DCOUNT is alright. 
 However I've found REMOVE to be EXTREMELY faster and therefore use it 
 whenever possible, even on small arrays.
 
 For example, we have two files, a 'header' and 'detail' file. The keys to the 
 'detail' file are stored in attribute 200 of the header file. So I'll pull 
 the keys out of the header record, such:
 
 LINE.KEYS = HEADER.REC200
 D1 = 
 LOOP UNTIL D1 = 0
   REMOVE LINE.KEY FROM LINE.KEYS SETTING D1
   loop statements
 REPEAT
 
 As opposed to:
 
 FOR V1 = 1 TO DCOUNT(HEADER.REC200,@VM)
   LINE.KEY = HEADER.REC200,V1
   loop statements
 NEXT V1
 
 Based on historical dialogs on this subject on this forum, I have seen an 
 improvement in overall performance.
 
 Sincerely,
 David Laansma
 Hubbard Supply Co.
 Direct: 810-342-7143
 Office: 810-234-8681
 Fax: 810-234-6142
 www.hubbardsupply.com
 Delivering Products, Services and Innovative Solutions
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jeffrey Butera
 Sent: Monday, February 11, 2013 7:55 AM
 To: u2-users@listserver.u2ug.org
 Subject: Re: [U2] : Evaluating DCOUNT
 
 On 02/11/2013 12:14 AM, Peter Cheney wrote:
 Hi Everyone,

 Does a DCOUNT get evaluated again for each iteration of a loop?
 Or is UniVerse these days intelligent enough to keep track of what's going 
 on?

 e.g.

 for i = 1 to dcount(array,@fm)
 *commands here
 next i

 versus

 totalattributes = dcount(array,@fm)
 for i = 1 to totalattributes
 *commands here
 next i

 Apart from readability and perhaps easier debugging is there an actual 
 internal difference?
 I know it was an issue on older pick releases but I cannot remember if it 
 ever affected UV?
 
 Not sure about universe, but unidata defintely checks the DCOUNT for each 
 iteration.  This produces 4 (not 2):
 
 
 CT=0
 X=45:@VM:58
 FOR I=1 TO DCOUNT(X,@VM)
CT+=1
IF I=2 THEN
  X1,-1 = 99
END
 NEXT I
 CRT CT
 
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [UD] Disabling/blocking ODBC

2013-01-25 Thread Allen Egerton


(Allen - Sent from my paperweight)

On Jan 25, 2013, at 1:49 PM, Daniel McGrath dmcgr...@rocketsoftware.com wrote:

 There is an undocumented feature: ' ODBCLOGIN'. This is a subroutine that is 
 called for every ODBC call. You can use this to either blank prevent ODBC, or 
 setting up restricted login access  login.
 
 If you are under a support contract, contact your support provider and they 
 should be able to help you get ODBCLOGIN up and running.
 
 Cheers,
 
 Dan McGrath
 Managing Director, U2 Servers Lab
 Rocket Software
 4600 South Ulster Street  ·  Suite 1100  ·   Denver, CO 80237 ·  USA
 T: +1 720 475 8098 · E: dmcgr...@rocketsoftware.com · W: u2.rocketsoftware.com
 
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of 
 bradley.sch...@usbank.com
 Sent: Friday, January 25, 2013 11:23 AM
 To: 'U2 Users List'
 Subject: [U2] [UD] Disabling/blocking ODBC
 
 We may need to figure out a way to disable ODBC access to UniData due to data 
 access concerns. I've set up connections before, but have never approached 
 ODBC from this perspective. I'm hoping there's a service we can turn off or a 
 port we can block. One possible constraint is that we still need to be able 
 to connect to UniData via DataStage. We use the native unidata connector, so 
 I'm hoping that won't get in the way. Thoughts?
 
 UniData 7.1
 AIX 5.3
 
 
 TIA,
 Brad.
 U.S. BANCORP made the following annotations
 -
 Electronic Privacy Notice. This e-mail, and any attachments, contains 
 information that is, or may be, covered by electronic communications privacy 
 laws, and is also confidential and proprietary in nature. If you are not the 
 intended recipient, please be advised that you are legally prohibited from 
 retaining, using, copying, distributing, or otherwise disclosing this 
 information in any manner. Instead, please reply to the sender that you have 
 received this communication in error, and then immediately delete it. Thank 
 you in advance for your cooperation.
 
 
 
 -
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [UD] Disabling/blocking ODBC

2013-01-25 Thread Allen Egerton
Dan,

Is this also available in Universe? (Release 10.3.7 for windows)

(Allen - Sent from my paperweight)

On Jan 25, 2013, at 1:49 PM, Daniel McGrath dmcgr...@rocketsoftware.com wrote:

 There is an undocumented feature: ' ODBCLOGIN'. This is a subroutine that is 
 called for every ODBC call. You can use this to either blank prevent ODBC, or 
 setting up restricted login access  login.
 
 If you are under a support contract, contact your support provider and they 
 should be able to help you get ODBCLOGIN up and running.
 
 Cheers,
 
 Dan McGrath
 Managing Director, U2 Servers Lab
 Rocket Software
 4600 South Ulster Street  ·  Suite 1100  ·   Denver, CO 80237 ·  USA
 T: +1 720 475 8098 · E: dmcgr...@rocketsoftware.com · W: u2.rocketsoftware.com
 
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of 
 bradley.sch...@usbank.com
 Sent: Friday, January 25, 2013 11:23 AM
 To: 'U2 Users List'
 Subject: [U2] [UD] Disabling/blocking ODBC
 
 We may need to figure out a way to disable ODBC access to UniData due to data 
 access concerns. I've set up connections before, but have never approached 
 ODBC from this perspective. I'm hoping there's a service we can turn off or a 
 port we can block. One possible constraint is that we still need to be able 
 to connect to UniData via DataStage. We use the native unidata connector, so 
 I'm hoping that won't get in the way. Thoughts?
 
 UniData 7.1
 AIX 5.3
 
 
 TIA,
 Brad.
 U.S. BANCORP made the following annotations
 -
 Electronic Privacy Notice. This e-mail, and any attachments, contains 
 information that is, or may be, covered by electronic communications privacy 
 laws, and is also confidential and proprietary in nature. If you are not the 
 intended recipient, please be advised that you are legally prohibited from 
 retaining, using, copying, distributing, or otherwise disclosing this 
 information in any manner. Instead, please reply to the sender that you have 
 received this communication in error, and then immediately delete it. Thank 
 you in advance for your cooperation.
 
 
 
 -
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Triggers in Universe

2013-01-25 Thread Allen Egerton
Has to be globally cataloged. And there's a prescribed list of args. There are 
some 'best practices' i can pass on to you when im at a fullsize keyboard if 
you'd like. 

(Allen - Sent from my paperweight)

On Jan 25, 2013, at 4:33 PM, Bobby Worley bwor...@coburns.com wrote:

 I'm up against a wall here - trying to use triggers for the first time, on
 Universe.  Can't seem to get my test to work -
 
 Universe on AIX:
 
 RELLEVEL
 001 X
 002 11.1.9
 003 PICK
 004 PICK.FORMAT
 005 11.1.9
 
 BASIC BDW TRIGTEST
 Compiling: Source = 'BDW/TRIGTEST', Object = 'BDW.O/TRIGTEST'
 *
 
 Compilation Complete.
 
 CATALOG BDW TRIGTEST
 TRIGTEST cataloged.
 
 .L TRIGTEST
 
 TRIGTEST
 001 V
 002 BDW.O/TRIGTEST
 003 B
 004 BNP
 005
 006 PICK.FORMAT
 007 S²N²P²I²A²E²H
 008 NO.WARN²NOPAGE²LPTR²KEEP.COMMON²²TRAP²HDR-SUPP
 009 BDW.O
 
 
 CREATE TRIGGER TRIGTEST BEFORE UPDATE OR INSERT OR DELETE ON RENTAL FOR
 EACH ROW CALLING 'TRIGTEST';
 Unable to locate trigger program BDW.O/TRIGTEST.
 
 
 -- 
 
 
 
 *Bobby D. Worley*
 
 IT Applications Developer
 
 Coburn Supply Company
 
 o: 903.753.8613 | m: 214.676.9825
 
 bwor...@coburns.com
 
 ** **
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Sleeping in Basic

2012-12-27 Thread Allen Egerton
On 12/27/2012 4:56 PM, Doug Farmer wrote:
 Happy holidays all,
 
 I just want to make sure I did not miss something over the U2 releases. Since 
 the Microdata Reality days, I have used SLEEP nn to sleep for nn seconds. 
 Simple, usually does the trick.
snip

See if NAP is supported in your release...

-- 
Allen Egerton

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Universe 11.x

2012-12-14 Thread Allen Egerton
On 12/14/2012 12:16 PM, Oaks, Harold wrote:
 Universe folks:
 
 Who has upgraded from Universe 10.x to Universe 11.x lately?  Is it
 painless?  Like - get the users out, install Universe 11.x in 5 minutes,
 then get the users back in.  Then, as time permits, take advantage of
 the new features within Universe 11.x.  Or - is it a big deal to install
 it?
 
 My manager is interested in data encryption in the underlying data.  It
 is my understanding the Automatic Data Encryption (ADE) only exists in
 Universe 11.x.  Is that right?   If the install is simple enough, that
 would seem to be the way to go to obtain this feature for all fields.

If you use indexes, check the release  to make sure they'll be okay.

-- 
allen

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Problem with openpath in UniVerse on windows server

2012-12-11 Thread Allen Egerton
On 12/11/2012 9:34 PM, David Jordan wrote:
 Has anyone had a similar problem.   Our application uses openpath to read 
 some csv files from a directory on windows server 2008R2.
 
 However a couple of sites, only the owner is able to open the directory with 
 openpath, all other users fail.   Even with the users given administration 
 rights, it still fails.   This is not a problem with all sites, just 2 of 
 them.
 
 I run into the same problem with openseq.
 
 I tried even setting Authorisation in the program to the owner name and still 
 no luck.   I am not sure what else to try.

Are the other sites, (those without issue) also running 2008R2?  And are
affected and non-affected sites running same version of Universe?

-- 
allen

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Advantage of indirect call in BASIC

2012-12-03 Thread Allen Egerton
On 12/3/2012 7:38 PM, Wjhonson wrote:
 I've not encountered this is my career previously, but now I'm seeing a 
 system written almost entirely with the use of indirect calls in Universe 
 BASIC.
 
 That is
 SOURCE = *SOME.PROGRAM
 ...
 CALL @SOURCE(INPUTS)
 
 Is there some advantage to the use of indirect calls that a system would be 
 written entirely in this fashion?

In Prime Information, the reference would be resolved the first time
that the routine was called, and it would be cached.  Thereafter, calls
to the routine would be faster.

The other reason would be to allow varying programs to be assigned to
the @var reference.

-- 
Allen Egerton; aeger...@pobox.com

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Perfomance of REC.ID = ID.LIST[@VM, 1, 1] vs REC.ID = ID.LIST1, 1

2012-11-22 Thread Allen Egerton
On 11/22/2012 5:46 AM, Marco Manyevere wrote:
 I have a large dynamic array ID.LIST. 99% of it is made of ID.LIST1 which 
 itself is multi valued. I need to extract only ID.LIST1, 1. Im just 
 wondering if the technical implementation of REC.ID = ID.LIST1, 1 results 
 in an unnecessary scan of almost the entire array looking for @FM to delimit 
 the first field then a second scan to delimit by @VM or am I better off using 
 the FIELD operator ID.LIST[@VM, 1, 1] in this case.
  
 Marco.
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

How about REMOVE REC.ID FROM ID.LIST SETTING UNUSED?

-- 
allen egerton; aegerton @ pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] mailserver test

2012-11-18 Thread Allen Egerton
ping...
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] UV Job Listing

2012-10-06 Thread Allen Egerton
On 10/6/2012 12:33 PM, Dan Fitzgerald wrote:
 
 I spotted this one on Dice.com, for an IT Manager at a UniVerse shop, 
snip

And embedded within it was Project management, organizations and
prioritizing skulls .

Prioritizing SKULLS:
That's easy - first on that list is my ex-wife...


Dan, tell Larry I said hi.


-- 
Allen Egerton; aegerton -at- pobox.com

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Scrub HangUp Fixed

2012-09-01 Thread Allen Egerton
On 8/31/2012 7:30 PM, Wjhonson wrote:
 
  A problem that's not submitted through the hierarchical bureaucracy is how 
 I'd express it.
 The point being that the problem is being submit, through this list.
 That Rocket chooses not to listen to their own user group for bug 
 submissions, is Rocket's choice, not the user who submitted the bug.
 
 Bugs submit here, are vetted, they are vetted here, by other users generally, 
 and even comments such as yes this has been an issue for many years etc 
 *should* one might think, include the *vendor* of that software to say 
 Hey why don't we put in a bug report on this.  The vendor themselves can be 
 the contact for all anyone would care, couldn't they?
 
 I don't like status quo, for cement's sake.  Things change and systems should 
 change to match changing attitudes.  Many software companies allow bug 
 reports from a variety of channels, not just one monolithic one :)  
 (Microsoft allows any user to submit a bug report.)

snip

This isn't Rocket's user group, it's OURS.  It's existed through several
product owners, (where product == UniData/Universe).

It's a user's group - where we can ask our fellow users for support,
thoughts, answers, experience, etc.

Rocket has a formal bug/support reporting/tracking system in place.  If
you want ROCKET to respond to your issues, report it to them.  If you
want help from your fellow users, report it here.

-- 
Allen Egerton; aeger...@pobox.com

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Mysterious UV Error

2012-08-17 Thread Allen Egerton
Hi Jeff,

Almost sounds like perhaps it's piping the results of the COUNT back
into stdin and re-processing it as a command.




On 8/17/2012 3:46 PM, Jeff Fitzgerald wrote:
 I have a client who's seeing a very odd UniVerse error.  Any thoughts about
 it would be most appreciated!
 
 This is a UNIX server running AIX 5.3 and UniVerse 10.2.7.
 
 The UniVerse home directory is at /u1/uv - the following command is entered
 at the UNIX prompt:
 
 # /u1/uv/bin/uv COUNT VOC
 
 the response is:
 
 Verb 60 is not in your VOC.
 
 Things I've checked:
 
 *  There is no LOGIN record in the account VOC
 
 *  There is no UV.LOGIN record in the uv account VOC
 
 *  Same response when the command is run in various accounts, including uv
 
 *  /u1/uv/bin/uv is an executable file and not a script
 
 This one has me scratching my head.  The actual problem is with a C program
 that forks a child to execute a UV session - the child dies with the same
 error...
 
 Probably something obvious that I can't see.  Help me out please!
 
 Jeff Fitzgerald
 Fitzgerald  Long, Inc.
 
 www.fitzlong.com
 j...@fitzlong.com
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Universe; SQL; Indexes?? (10.3.7 on Windows)

2012-07-28 Thread Allen Egerton
The SQL statement sort of looks like:
SELECT x.Date, x.Portfolio, x.Symbol, y.DateOrig, y.Price
FROM Tablex x, Tabley y
WHERE
  x.KeyField = y.KeyField
AND x.Portfolio = 'TEST';

Portfolio is a D-Type field in Tablex, and when I index it, I'm using
the NO.NULLS option.

Selection behavior is what I would expect with native query language,
(RETRIEVE), when setting up Portfolio as an index or removing it.

However, it seems to make no difference to SQL queries whether the index
is present or not, and that doesn't make sense to me.




On 7/27/2012 11:42 AM, David L. Wasylenko wrote:
 Show us the relent dictionary items, the SQL statement, and the LIST.INDEX 
 {filename} ALL output
 
 You should also try native SELECT commands using the index to see if 
 performance is as expected.
 SELECT ... FROM CUSTOMER WHERE I_ZIP = 12345;   vs
 LIST CUSTOMER WITH I_ZIP = 12345
 
 Also, try including REQUIRE.INDEX and then NO.INDEX at the back end of 
 your command to see the difference.
 The 'REQUIRE.INDEX' will fail if the selected index could not be used:
 
   REQUIRE.INDEX
   
  Use in a  RetrieVe  command  to  specify  that  secondary  key
  indexes  must  be  used  to  process  the sentence. If indexes
  cannot be used, an error message appears and the sentence does
  not proceed.
 
 The 'NO.INDEX' will bypass the use of an index, showing the resulting 
 performance change:
 
   NO.INDEX
   _
  Use in a  RetrieVe  command  to  specify  that  secondary  key
  indexes not be used if they exist. This is useful when indexes
  are not up to date or built.
 
 Finally, the order of occurrence of the selection criteria can impact the use 
 of secondary indices.
 
 
 ... david ...
 
 David L. Wasylenko
 President, Pick Professionals, Inc
 w) 314 558 1482
 d...@pickpro.com
 
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Allen Egerton
 Sent: Friday, July 27, 2012 10:35 AM
 To: .U2 List
 Subject: [U2] Universe; SQL; Indexes?? (10.3.7 on Windows)
 
 I'm using SQL to query Universe 10.3.7 data files, (ANSi-compliant and 
 non-compliant formats) and indexing the files to try to optimize the 
 performance seems in some cases to have little or no effect.
 
 I'm pretty clear on index behavior with Universe's native query language, but 
 SQL is somewhat unfamiliar to me, and I'm wondering why I'm not getting the 
 behavior I expect.
 
 Can anyone either point me to reference material on this, or offer thoughts 
 based on experience?
 
 Thank you.
 
 --
 Allen Egerton; aeger...@pobox.com
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] Universe; SQL; Indexes?? (10.3.7 on Windows)

2012-07-27 Thread Allen Egerton
I'm using SQL to query Universe 10.3.7 data files, (ANSi-compliant and
non-compliant formats) and indexing the files to try to optimize the
performance seems in some cases to have little or no effect.

I'm pretty clear on index behavior with Universe's native query
language, but SQL is somewhat unfamiliar to me, and I'm wondering why
I'm not getting the behavior I expect.

Can anyone either point me to reference material on this, or offer
thoughts based on experience?

Thank you.

-- 
Allen Egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] T30File parameter in Universe 10.3.7

2012-07-06 Thread Allen Egerton
The default value for T30Files is 200, and it's described as controlling
the number of dynamic files that can be open on a system at any point in
time.

Has anyone had practical experience with increasing this limit?

And yes I'm asking because we just crashed into this wall --- and it
wasn't pretty.

Thank you.

-- 
Allen Egerton
aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Why did this compile??

2012-06-07 Thread Allen Egerton
I believe that it saw the second tilde as a format string.


On 6/7/2012 2:47 PM, David Wolverton wrote:
 Look at this line of code...
 
 TEST.STRING = TRIM(LINE1):~:TRIM(LINE3)~:TRIM(LINE4)
 
 
 See how it is missing the : between 3)~  ??
 
 Neither did I ... and the program compiled and ran without a complaint in
 UniData 7.2.12 -- but Obviously I was getting bogus results on the other
 side!!
 
 I'm trying to figure out why this was 'allowed' ... I'm ready this and
 thinking this should have tripped a compile message of SOME type!
 
 Just one of those 'how weird is this' things I thought I'd share since it
 cost me about an hour to find!!
 
 DW
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Hi

2012-05-03 Thread Allen Egerton
Will?

On 5/3/2012 1:48 PM, Allen E. Elwood wrote:
 cryptic, but informative 
 
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of satya satya
 Sent: Thursday, May 03, 2012 8:00 AM
 To: u2-users@listserver.u2ug.org
 Subject: [U2] Hi
 
 Hi
 
 This satya
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [AD] User timeout question

2012-05-02 Thread Allen Egerton
On 5/2/2012 12:21 AM, Randy Styka wrote:
 It's been a long time since I've posted about this, but our company wrote
 and has sold a product called LOGMON for many years (15?  I don't even
 remember).  This software works at the Unix level to monitor usage of the
 users on a system, actually monitoring cpu usage, not keystrokes.  And so
 if a user is idle, you can decide what to do about it, via a script that is
 run.
 
 In a Unidata/Universe environment, a signal can be sent that an application
 will see and it can release the locks and close the user out gracefully.  But
 there are other approaches too.  When combined with our Peek software, a 
 script
 can be run to generate keystrokes on behalf of that user.  So...you can set up
 a script that sends a series of predetermined keystrokes to back the user out
 of the application, and thus no coding is required in the specific 
 application.
 (This assumes there's a standard set of keystrokes that you can user for this
 purpose, like a series of escape characters then a Q or somesuch.)
 
 Anyway, there are a lot of options.  Check out Logmon and/or Peek at
 http://www.computronics.com  Free trial versions are available for download.
 
 As I said I haven't posted about this in years as I know users who are
 bothered by commercial plugs, hence the [AD] tag above.  
 
 There are certainly other ways to do it but this is often the path of
 least resistance for users who want to solve this problem without changes
 to their programs.  And it is in use by a number of U2 sites (and plenty
 of other Unix sites).  Note that we are Unix/Linux only.  We don't do
 Windows ;-)
 
 Thanks!  Randy

Probably not doing much with PR1MOS these days...

Peek, Poke and LogMon have indeed been around for years, and
Computronics has a solid reputation.

-- 
Allen Egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] ASCII ^010^013 Removal (LF CR)

2012-04-26 Thread Allen Egerton
Convert as mentioned by others does a character by character
replacement, so convert abc to def will convert all occurrences of
a to d, all occurrences of b to e and all occurrences of c to
f in the target string.

If the to string contains less characters than the from string, then
the to string will be padded with null characters.  Which lets you use
the following technique, which is easy to maintain/modify and is very
fast, (at least on Universe).

ALHA.UC = ABCDEFGHIJKLMNOPQRSTUVWXYZ
ALPHA.LC = OCONV(ALPHA.UC, MCL)
NUMBERS = 0123456789
OKAY.PUNCTUATION.CHARS = -/()
*
GOOD.CHARS = ALPHA.UC: ALPHA.LC: NUMBERS: OKAY.PUNCTUATION.CHARS
*
*
INPUT SOMETHING FROM USER
BAD.CHARS = SOMETHING
CONVERT GOOD.CHARS TO  IN BAD.CHARS
IF (BAD.CHARS) THEN
CRT bad characters in input string ': BAD.CHARS: '.
blah, blah, blah
END
*
*

And of course, you can mix and match your constant strings to determine
what GOOD.CHARS are allowable for a given input.





On 4/26/2012 9:19 AM, Bob Witney wrote:
 I use this :
 
 Bit of a sledgehammer but it works and it's quick too
 
FOR CHARACTER = 127 TO 249
CONVERT CHAR(CHARACTER) TO '' IN THIS.MESSAGE
 NEXT CHARACTER
 
 Gets rid of all sorts of nasty webby characters :-)
 
 Bob
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] Looking for Joe Vargas.

2012-04-20 Thread Allen Egerton
I've lost contact with Joe Vargas, who when I knew him was living in
Florida and was a member of the Datatel Colleague User Group.

If you know him, could you please pass my email address to him and tell
him that I'm looking for him?

Thanks.

-- 
allen egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] BETWEEN operator

2012-04-18 Thread Allen Egerton
Universe release 10.3.7 on a Windows platform.
Voc entry BETWEEN
1 K
2 508

No online help for it, and intuitive guess how to use it didn't work,
but it's definitely there




On 4/18/2012 3:04 PM, Wjhonson wrote:
 
 The BETWEEN only exists in Unidata's Uniquery
 Not Universe, as far as I can see anyway.
 Unless they *just* put it into 11. or something
 
snip
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] BETWEEN operator

2012-04-17 Thread Allen Egerton
So what was/is your point?

'cause I'm like the other Allen, sitting here wondering what it is that
you're asking or responding to...



On 4/17/2012 9:08 PM, Wjhonson wrote:
 There is no question.
 
 
 
 -Original Message-
 From: Allen Elwood RR aelw...@socal.rr.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Tue, Apr 17, 2012 6:01 pm
 Subject: Re: [U2] BETWEEN operator
 
 
 did u hit send b4 the question?
 On 4/17/2012 5:46 PM, Wjhonson wrote:
  Pick BASIC
 
  IF MYVALUE  9 AND MYVALUE  20 THEN...
 
  or
 
  IF 9  MYVALUE  20 THEN ...
 
  or
 
  IF BETWEEN(MYVALUE,9,20) THEN ...
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Issues calling REMOTE VOC pointer

2012-04-10 Thread Allen Egerton
You're EXECUTING PROG1 from TCL, so you can invoke it in any of the
ways that you've documented below.

From within PROG1, you're CALLING PROG2, it's a subroutine, so it has
to be locatable as you've so clearly documented in your example.

If you wanted to have them both run using 4 for security, then you could:
'EXECUTE PROG2 CAPTURING CMD.CAP' from within PROG1.  If you need to
pass args you're either going to have to store them in named common or
pass them as command line args and parse them out.



On 4/10/2012 4:05 AM, Phil Walker wrote:
 Hi,
 
 This is a contrived solution, but I have a program file BP1 and another 
 program file BP2. In program file BP1 I have a program PROG1. In program file 
 BP2 I have a program PROG2.
 
 PROG1 is the following:
 
  PROG1
 0001 PROGRAM PROG1
 0002 CRT IN PROGRAM PROG1
 0003 CRT CALLING PROG2
 0004 CALL PROG2
 0005 CRT BACK IN PROG1
 0006 RETURN
 
 PROG2 is the following:
 
  PROG2
 0001 PROGRAM PROG2
 0002 CRT IN PROGRAM PROG2
 0003 RETURN
 
 If I RUN BP1 PROG1 I get the following
 
 RUN BP1 PROG1
 IN PROGRAM PROG1
 CALLING PROG2
 Program PROG1: Line 4, Unable to open the operating system file 
 BP1.O/PROG2.
 [ENOENT] No such file or directory
 Program PROG1: Line 4, Unable to load file PROG2.
 Program PROG1: Line 4, Unable to load subroutine.
 
 This is as expected, in that Universe assumes when there is not VOC entry 
 that PROG2 is in the same OBJECT file, BP1.O.
 
 If I CATALOG BP2 PROG2 LOCAL COMLETE
 
 CATALOG BP2 PROG2 LOCAL COMPLETE
 PROG2 cataloged.
 CT VOC PROG2
 
  PROG2
 0001 V
 0002 /tmp/BP2.O/PROG2
 0003 B
 0004 BN
 0005
 0006
 0007
 0008
 0009 /tmp/BP2.O
 
 and then RUN BP1 PROG1 I get the following
 
 RUN BP1 PROG1
 IN PROGRAM PROG1
 CALLING PROG2
 IN PROGRAM PROG2
 BACK IN PROG1

 
 If I CATALOG BP1 PROG1 LOCAL COMPLETE
 
 CATALOG BP1 PROG1 LOCAL COMPLETE
 PROG1 cataloged.
 CT VOC PROG1
 
  PROG1
 0001 V
 0002 /tmp/BP1.O/PROG1
 0003 B
 0004 BN
 0005
 0006
 0007
 0008
 0009 /tmp/BP1.O
 
 and then execute PROG1 I get the following
 
 PROG1
 IN PROGRAM PROG1
 CALLING PROG2
 IN PROGRAM PROG2
 BACK IN PROG1

 
 The same results which is still good. However what I really want to do is add 
 a security routine to both VOC entries PROG1 and PROG2. To do this I copy the 
 VOC entries to PROG1 and PROG2 to the VOCLIB file and change the VOC entries 
 to the following
 
  PROG1
 0001 R
 0002 VOCLIB
 0003 PROG1
 
  PROG2
 0001 R
 0002 VOCLIB
 0003 PROG2
 
 I will see if this works first, before adding attribute 4 for the security 
 routine.
 
 PROG1
 IN PROGRAM PROG1
 CALLING PROG2
 Program PROG1: Line 4, Unable to open the operating system file 
 /tmp/BP1.O/PRO
 G2.
 [ENOENT] No such file or directory
 Program PROG1: Line 4, Unable to load file PROG2.
 Program PROG1: Line 4, Unable to load subroutine.

 
 As you can see this does not work. It appears that while Universe will use 
 the contents of attribute 2 LOCAL VOC entry (the path to the object code), 
 Universe will not use the contents of  attribute 2 of the REMOTE VOC entry.
 
 I believe this is a bug...does you agree?
 
 For further clarification this was in IDEAL flavour.  If I change it to PICK, 
 PIOPEN it still behaves the same.
 
 Regards
 
 Phil
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] odbc error Unable to get UCI configuration file from Registry

2012-03-16 Thread Allen Egerton
I'm running Universe clients 10.3 against a server running 10.3, and
I've done something with my configuration that I can't resolve.

When I attempt to test the connection within the Universe ODBC Data
Source Setup, I consistently get this message:
[IBM][UVODBC]90301928]Error ID: 46 Severity:  ERROR Facility: DBCAPERR -
UCI Error. Func: SQLUseCfgFileFn(); State : IA001; uniVerse code:0;
Msg:[U2][SQL Client]Unable to get UCI configuration file from Registry..

I've de-installed the driver, cleaned the registry, re-installed the
driver, removed all Universe client applications/tools, re-installed
them, loop-repeat.

I know it's not the software itself, because we're using the same tools
here on similar laptops running the same OS, (windows-7 32bit), without
issues.

I've looked through the archives, looked through Experts-Exchange, and
googled a number of times.

Has anyone seen this before - and resolved it?

Thank you.

-- 
Allen Egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] odbc error Unable to get UCI configuration file from Registry

2012-03-16 Thread Allen Egerton
Hi Colin,

Sorry, I wish it was that simple.  After I went through the exercise a
couple of times, I got our tech support involved.  He's done at least
several dozen of these installs, (if not more), and he couldn't resolve
it either.

We've opened a ticket with Rocket, I figured I'd try here because if
it's happening to me, it's probably happened to someone else here, and I
might be able to get this resolved reasonably quickly.

And of course, it's not that I need ODBC access in and of itself, but
rather that I need it to test something I'm developing...

Thanks.



On 3/16/2012 12:53 PM, Colin Alfke wrote:
 Sorry, haven't seen it. Are you sure your UCI config file is OK? In my UCI
 config file editor I have options to Get Registry and Reset Registry
 under File. Perhaps that will help
 
 hth
 Colin
 
 -Original Message-
 From: Allen Egerton
 Sent: March 16, 2012 10:29 AM
 To: .U2 List
 Subject: [U2] odbc error Unable to get UCI configuration file from
 Registry
 
 I'm running Universe clients 10.3 against a server running 10.3, and I've
 done something with my configuration that I can't resolve.
 
 When I attempt to test the connection within the Universe ODBC Data Source
 Setup, I consistently get this message:
 [IBM][UVODBC]90301928]Error ID: 46 Severity:  ERROR Facility: DBCAPERR - UCI
 Error. Func: SQLUseCfgFileFn(); State : IA001; uniVerse code:0; Msg:[U2][SQL
 Client]Unable to get UCI configuration file from Registry..
 
 I've de-installed the driver, cleaned the registry, re-installed the driver,
 removed all Universe client applications/tools, re-installed them,
 loop-repeat.
 
 I know it's not the software itself, because we're using the same tools here
 on similar laptops running the same OS, (windows-7 32bit), without issues.
 
 I've looked through the archives, looked through Experts-Exchange, and
 googled a number of times.
 
 Has anyone seen this before - and resolved it?
 
 Thank you.
 
 --
 Allen Egerton 
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] odbc error Unable to get UCI configuration file from Registry

2012-03-16 Thread Allen Egerton
How about I had to download the latest version of the driver?  Despite
the fact that everyone else in my organization is using the one that I
was trying to use?

That was Rocket's recommendation, and it worked.  Can't argue too much
with that.



On 3/16/2012 1:23 PM, Colin Alfke wrote:
 It was worth a shot - sometimes people miss the easy stuff because they're
 concentrating too hard on the complicated stuff.
 
 It's been close to 10 years since I've really looked at ODBC/OLE access to
 UD. I see it's as cryptic as it ever was. I seem to recall an old issue that
 required the UCI file to have a blank line at the end - but I'm pretty sure
 it had a different error. I remember it worked well once you had the right
 driver (I had one that would work with Access but not Excel?!?!?) and you
 pedantically followed all of the steps (even so far as casing on a windows
 box which is normally case insensitive).
 
 Good luck!
 Colin
 
 -Original Message-
 From: Allen Egerton
 Sent: March 16, 2012 11:07 AM
 To: U2 Users List
 Subject: Re: [U2] odbc error Unable to get UCI configuration file from
 Registry
 
 Hi Colin,
 
 Sorry, I wish it was that simple.  After I went through the exercise a
 couple of times, I got our tech support involved.  He's done at least
 several dozen of these installs, (if not more), and he couldn't resolve it
 either.
 
 We've opened a ticket with Rocket, I figured I'd try here because if it's
 happening to me, it's probably happened to someone else here, and I might be
 able to get this resolved reasonably quickly.
 
 And of course, it's not that I need ODBC access in and of itself, but rather
 that I need it to test something I'm developing...
 
 Thanks.
 
 
 
 On 3/16/2012 12:53 PM, Colin Alfke wrote:
 Sorry, haven't seen it. Are you sure your UCI config file is OK? In my 
 UCI config file editor I have options to Get Registry and Reset
 Registry
 under File. Perhaps that will help

 hth
 Colin

 -Original Message-
 From: Allen Egerton
 Sent: March 16, 2012 10:29 AM
 To: .U2 List
 Subject: [U2] odbc error Unable to get UCI configuration file from 
 Registry

 I'm running Universe clients 10.3 against a server running 10.3, and 
 I've done something with my configuration that I can't resolve.

 When I attempt to test the connection within the Universe ODBC Data 
 Source Setup, I consistently get this message:
 [IBM][UVODBC]90301928]Error ID: 46 Severity:  ERROR Facility: DBCAPERR 
 - UCI Error. Func: SQLUseCfgFileFn(); State : IA001; uniVerse code:0; 
 Msg:[U2][SQL Client]Unable to get UCI configuration file from Registry..

 I've de-installed the driver, cleaned the registry, re-installed the 
 driver, removed all Universe client applications/tools, re-installed 
 them, loop-repeat.

 I know it's not the software itself, because we're using the same 
 tools here on similar laptops running the same OS, (windows-7 32bit),
 without issues.

 I've looked through the archives, looked through Experts-Exchange, and 
 googled a number of times.

 Has anyone seen this before - and resolved it?

 Thank you.

 --
 Allen Egerton
 
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] Developer Wanted; USA-CT (Hfd area)

2012-03-13 Thread Allen Egerton
The shop I'm working in has an opening for a developer.  We're looking
for someone with Universe and DotNet skills.  We're located in the
Hartford area of Connecticut, right off of 91.

If you're interested, drop me an email off-list.

No recruiters, please.

Thank you.

-- 
Allen Egerton; aegerton at pobox dot com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Calling U2UG Members

2012-03-09 Thread Allen Egerton
Will,

How about a third choice?

Dan's post is a RE-POSTING from last year, from before when he worked
for Rocket...



On 3/9/2012 12:51 PM, Wjhonson wrote:
 
 You work for Rocket.
 There are 20 U2 people there, and only 2 have heard of U2UG.
 Words fail me.
 I'm not sure if I should be just amazed or righteously angry.
 
 
 -Original Message-
 From: Daniel McGrath dmcgr...@rocketsoftware.com
 To: U2 Users List u2-users@listserver.u2ug.org
 Sent: Fri, Mar 9, 2012 9:12 am
 Subject: Re: [U2] Calling U2UG Members
 
 
 Hi Brian/U2UG,
 Now that I work for Rocket, I'm not sure if I should still vote. Thoughts?
 If I can, I'd like to reiterate the questions I posed this time last year 
 before 
  do vote.
  Hi all,
 I've posted an open letter regarding the U2UG elections to the nominees. I'd
 ove to see more dialogue around these elections as I feel I don't really
 now what I'm voting for when I place my votes.
 http://u2tech.wordpress.com/2011/03/15/u2ug-elections-2011/
 Along with this, I also wonder how many people on this list are members of
 he U2UG and how many actually vote? I've never seen any numbers. I know I'm
 ne of two out of the roughly 20 U2 people at my work who know of the U2UG
 nd am the only member. Not the greatest odds. On the positive side, it
 eaves a lot of room to expand. :)
 Regards,
 an
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Date Problem

2012-01-20 Thread Allen Egerton
On 1/20/2012 12:36 PM, Israel, John R. wrote:
 I have an INCLUDE that I use in ALL programs I touch.  It simply does a bunch 
 of assigning of variables so that I can use them as needed.  One of these 
 assignments is:
 TODAY = @DATE
 
 I have 1 program in 1 account that is consistently returning: 16066 (which is 
 12/26/11).  This program is initiated via a Redback call but so are many many 
 others.
 
 In the pgm that is failing, immediately after my INCLUDE, I just added code 
 to write the following to disk:
 TODAY
 DATE()
 @DATE
 
 Both TODAY and @DATE ALWAYS return 16066 for this 1 program, but no others.  
 The same program is working correctly in other accounts, and the value of 
 TODAY is correct in EVERY other program I have ever used.
 
 Does anyone have a clue?
 
 I could replace @DATE with DATE() in my INCLUDE, but to do my due diligence, 
 I should recompile EVERY program that uses the INCLUDE (and that is NOT going 
 to happen).


@DATE is writable, check to see if you're inadvertently over-writing it
in that one program.

Example code:
0001:   CRT DATE():  : DATE()
0002:   CRT @DATE :  : @DATE
0003:   @DATE = XY
0004:   CRT @DATE :  : @DATE
0005:   STOP

Example results:
RUN ADE.BP TT
DATE():  16091
@DATE :  16091
@DATE :  XY


-- 
allen egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Date Problem

2012-01-20 Thread Allen Egerton
On 1/20/2012 1:08 PM, Israel, John R. wrote:
 I thought of that, but the same programs are working in other accounts.  I 
 have compared all source code between accounts and they are the same.
 
 John

Perhaps do a SEARCH of VOC and VOCLIB in the affected account, looking
for @DATE.  It's a session variable.  If you've ruled out source code
and are reasonably certain that it's only in a specific account, perhaps
there's a paragraph with a typo in it.

Oh yeah, if you've got a file with remote procedures in it, (like
VOCLIB), search that too...


-- 
allen egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Corrupted compiled code

2011-12-21 Thread Allen Egerton

On 12/21/2011 4:45 PM, Bill Haskett wrote:

The incredibly weird thing was the code would do:

snip


...which they all did except, occasionally, on this one account. The
calculation of the amount of spaces to center the report heading data
used SYSTEM(2) and GETPTR in the subroutine BUILD.HEADING. For some
reason the corrupted value was 1024 instead of actual value of 80. Thus,
when I displayed the TclLine variable, it looked like the one above,
except when everything failed, whereupon the variable looked like:


snip

System(2) is set by the TERM command.  Perhaps it's getting reset under 
some obscure circumstances?


--
allen egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Unidata 7.1.22 Index Issue

2011-10-13 Thread Allen Egerton
Were these files by any chance copied/moved from their original location?

The headers to the file, (at least in Universe), create pointers to the
physical disk location of the indexes, and if you move the file without
adjusting those pointers, you can have all sorts of fun issues.


On 10/13/2011 10:07 AM, regalit...@aol.com wrote:
 
 This information has been extremely helpful!
 
 I had 11 files have the indexes go bad on them, and they needed to be 
 completely rebuilt.
 The only anomaly is that the DELETE.INDEX fn ALL didn't work right away.
 
 There was an index on the file, a V-field, called XERP.SQLTRIG.  When the 
 index
 went bad, it was there, but not really there.  On a file called STUMAST for 
 example,
 I would say:
 
 :LIST.INDEX STUMAST
 No indices created on file STUMAST
 :
 
 Then I would say try to create the index:
 :CREATE.INDEX STUMAST XERP.SQLTRIG
 XERP.SQLTRIG: can not create multiple indices on same location
 No new indices are created
 :
 
 So UniData sort of knows the index was there, but it doesn't really know.  And
 unfortunately, that is my problem.
SNIP
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] The math just doesn't work.

2011-10-10 Thread Allen Egerton
On 10/10/2011 8:12 AM, Israel, John R. wrote:
 I am coming late to this party, but wanted to throw out a bug that was just 
 reported to Rocket.  We found that PERCISION was causing a calculation to 
 round in some cases and truncate in others.  I am not sure where this stands 
 because someone else on my team is driving this ticket, but it was pretty 
 disturbing that the same calculation worked differently.
 
 John Israel

John,

Here's the essence of an open ticket we've got with Rocket for Universe
10.3.7 on a windows server:


CT ADE.BP TT

 TT
0001   FOR II = 1 TO 18
0002  CRT FMT(II, 2R):  : FMT(10^II + 1, 35R,)
0003   NEXT II
0004   STOP
RUN ADE.BP TT
 1  11
 2 101
 3   1,001
 4  10,001
 5 100,001
 6   1,000,001
 7  10,000,001
 8 100,000,001
 9   1,000,000,001
10  10,000,000,001
11 100,000,000,001
12   1,000,000,000,001
13  10,000,000,000,001
14 100,000,000,000,001
15   1,000,000,000,000,000
16  10,000,000,000,000,000
17 100,000,000,000,000,000
18   1,000,000,000,000,000,000

See anything wrong with the least significant column?

-- 
allen egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] The math just doesn't work.

2011-10-10 Thread Allen Egerton
On 10/10/2011 12:31 PM, Wols Lists wrote:
 On 10/10/11 13:31, Allen Egerton wrote:
 On 10/10/2011 8:12 AM, Israel, John R. wrote:
 I am coming late to this party, but wanted to throw out a bug that was just 
 reported to Rocket.  We found that PERCISION was causing a calculation to 
 round in some cases and truncate in others.  I am not sure where this 
 stands because someone else on my team is driving this ticket, but it was 
 pretty disturbing that the same calculation worked differently.

 John Israel

 John,

 Here's the essence of an open ticket we've got with Rocket for Universe
 10.3.7 on a windows server:


 CT ADE.BP TT

  TT
 0001   FOR II = 1 TO 18
 0002  CRT FMT(II, 2R):  : FMT(10^II + 1, 35R,)
 0003   NEXT II
 0004   STOP
 RUN ADE.BP TT
  1  11
  2 101
  3   1,001
  4  10,001
  5 100,001
  6   1,000,001
  7  10,000,001
  8 100,000,001
  9   1,000,000,001
 10  10,000,000,001
 11 100,000,000,001
 12   1,000,000,000,001
 13  10,000,000,000,001
 14 100,000,000,000,001
 15   1,000,000,000,000,000
 16  10,000,000,000,000,000
 17 100,000,000,000,000,000
 18   1,000,000,000,000,000,000

 See anything wrong with the least significant column?

 I notice that it starts going wrong beyond 14... Which I understood was
 the maximum possible value of PRECISION. Maybe you can set it higher,
 but it doesn't *work* any higher, because, iirc, a DOUBLE PRECISION
 mantissa only has 14 decimal digits of precision.
 
 Drifting slightly, Brett's comment that PRECISION only affected display
 output is interesting. I always thought it actually controlled the store
 (ie A = B * C, the calculation would be accurate precision, but A would
 be stored to PRECISION places). HOWEVER this is what I understood from
 Pr1me days. And, iirc, Pr1me had BCD microcode which INFORMATION used,
 so it makes sense that Pr1me behaviour would be noticeably different
 (and that Pr1me behaviour would also be far more sensible when viewed
 through our decimal eyes :-)

I'm reasonably familiar with PRECISION, but I always thought it applied
only to the non-whole portions of numbers, and I don't see anything in
the documentation that states otherwise.  The example above is pure
integer, no decimal places...

I'd thought that perhaps the config parameter EXACTNUMERIC would affect
this, but setting it to 30 had no impact at all.

I've got an open ticket with Rocket, I'm hoping they can shed some light.

-- 
allen egerton; aeger...@pobox.com

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Changing TCL prompt?

2011-10-05 Thread Allen Egerton
If Universe, check out UV.PROMPT command.


On 10/5/2011 2:06 PM, gcan...@coverys.com wrote:
 
 Hi everyone,
 
 Maybe I am going back to my Prime INFORMATION days, but I thought there was
 a way to set the '' prompt to a free form prompt, or to display the
 account name you were in as the TCL prompt.  I know that can be done at the
 OS level.
 
 Am I dreaming, or is there a (fairly easy) way without having to write code
 to do it?
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] FAST (File Analysis and Sizing Tool)

2011-10-04 Thread Allen Egerton
MINIMUM.MODULUS can be your friend...


On 10/4/2011 7:27 PM, Susan Lynch wrote:
 Eric, yes, in my experience, they do need resizing, particularly if they
 are very large files, which are the only ones I generally make dynamic.
 
 We have had issues with small dynamic files getting cleared by one user
 and updated by another user, and the resultant modulo being incorrect
 (usually off by 2 groups), so  I try very hard not to use dynamic files
 for small files that may be cleared.  That does not happen to us with
 static files, so I make them static and the problem does not recur.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Very Weird Trigger Behavior

2011-04-21 Thread Allen Egerton
On 4/21/2011 11:03 AM, jonathanm wrote:
 
 Hi, all. I'm new to this forum, but have been programming multivalue database
snip

 I really need to have it perform the intended check before deletion. Any
 ideas?

Your execute of the SELECT will potentially result in an active select
list that doesn't appear to be intentionally used.  Since you don't want
 the ids, you just want to know if there are any, I'd do something like:

CMD - 'COUNT TRADES WITH TRADE_CODE = ': CODE_DEF_ID: ''
EXECUTE CMD CAPTURING CMD.CAP RETURNING CNT.SELECTED
IF (CNT.SELECTED GT 0) THEN
EXECUTE_STATUS = 0
END ELSE
EXECUTE_STATUS = 
END

I also don't know what you're doing with EXECUTE_STATUS, but if it's not
set by the caller, it needs to be set here, otherwise its value is
undetermined, (and in most cases will be set to null).

Regards.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] silly company names

2011-02-19 Thread Allen Egerton
The name Brian Kernighan rang a distant bell, and from my bookshelf
comes The Bell System Technical Journal, July/August 1978, Vol 57, No.
6, Part 2; which includes:
The C Programming Language
by D. M. Ritchie, S. C. Johnson, M. E. Lesk and B. W. Kernighan
-and-
Document Preparation
by B. W. Kernighan, M. E. Lesk and J. F. Ossanna, Jr.


On 2/19/2011 4:09 PM, Jeff Schasny wrote:
 from my infinite storehouse of useless facts:
 
 grep and sed and really acronyms for global regular expression parser
 and stream editor.
 Awk was named for the 3 people who developed the language: Alfred Aho,
 Peter Weinberger, and Brian Kernighan
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] How to Clear Empty VM marks in Field

2011-01-31 Thread Allen Egerton
On 1/31/2011 9:12 AM, George Gallen wrote:
 Am I missing something, or would CONVERT CHAR(253) TO  IN FXI not do the 
 job?
 or FXI=CHANGE(FXI,CHAR(253),) 

snip

That would work for the original poster's specific example which has
trailing value marks.  It would fail badly in any other situation.

Consider a string of a: @VM: b: @VM: @VM
Convert it and your result is ab, which is a single value.

I think perhaps the best answer to the original poster's question
depends upon what the true need and possible data structures are.

--
Allen Egerton
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] CoRelating Two Arrays

2011-01-26 Thread Allen Egerton
There's no code that changes Where.We.Left.Off in your example.  You
initialize it, but never change it...



On 1/26/2011 12:25 PM, Bill Brutzman wrote:
 When I try do something like the following, inside the loop, UV keeps 
 resetting Where.We.Left.Off to 1.
 To solve this, I am expecting to invoke brute force.  I am surprised that 
 UV-Basic behaves this way.
 An explanation would be appreciated.
 
 --Bill
 
 Where.We.Left.Off = 1
 
 for Blanket.PO.Count = 1 to Total.Nbr.PO.Releases
 
   read R.POD from F.POD...
   PO.Qty = R.POD, Blanket.PO.Count
 
   for Receiver.Count = Where.We.Left.Off to Total.Nbr.Receivers
 
read R.Rcvr from F.Rcvr...
  Received.Qty = R.RcvrReceiver.Count
Received.Running.Total += Received.Qty
 begin case
 case Received.Running.Total  PO.Line.Item.Qty  ;  crt PO.Qty : '  ' : 
 Received.Qty
Receeived.Running.Total = 0
   
  exit
 end   case
 
   next Receiver.Count
 
 next Blanket.PO.Count
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Data in Dict

2011-01-25 Thread Allen Egerton
Jeff,

That's a nice simple solution, I'd just add don't forget to right
justify the @ID Dict item in the file that's being selected by.dsnd  ;)

Allen


On 1/25/2011 11:37 AM, Jeff Schasny wrote:
 My preference is to have a data file specifically for next key records
 with the item id being the filename and field 1 being the next available
 key. As far as restoring it should it become corrupted a fairly simple
 Uvbasic program which is fed a list of filenames,
 selects each file BY.DSND @ID,
 readnext,
 add 1 to the first key,
 write that as the next key for the file,
 next filename
 should be able to restore your next key file in a couple minutes if not
 less.
 
 George Gallen wrote:
 The one down side I can think of to not keeping 'next' values in the
 DICT and in a separate file, is if you have to restore the file, you
 will also have to restore the NEXT-FILE as well. It's not one neat
 package.

 But I have to admit, when I was setting up a MySQL structure and
 needed to implement a 'next' value, I went with a separate file and
 each row had two values, key and value, where the key was the filename
 and the value being the next value, and used this one file for all my
 'next' placeholders, instead of writing it to the DICT, I used the
 filename as the key.

 Although, keeping all your nexts in one basket could be a problem if
 that file ever was corrupted, it would be difficult to reset them
 all to the correct values. Other than that, seems a bit of overhead
 to have a separate next file for each file you want to keep one on
 to avoid losing all your keys with one file issue.

 What other methods are people using to track next ID?

  
 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-
 boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
 Sent: Monday, January 24, 2011 7:55 PM
 To: U2 Users List
 Subject: Re: [U2] Data in Dict

 Kate:

 It seems to me that this is very tidy!  :-)

 Bill

 ---
 -
 Kate Stanton said the following on 1/24/2011 1:27 PM:

 Hi David,

 The reason we use dictionaries for data entry, reports, queries and
 forms is so we can use the same dictionary item for all activities,
 thus using the dictionary as designed with a little more.

 So, if part ID is changed at a site to be 6 numbers, then changing
   
 the

 dict item in a file once means the same change applies to all other
 activities.

 We think this is very tidy, and the unused portion of dictionaries
 have been used like this for a long, long time (over 30 years to our
 knowledge).

 Cheers, Kate

 Kate Stanton
 Walstan Systems Ltd,
 4 Kelmarna Ave, Herne Bay, Auckland 1011, New Zealand
 Phone: +64 9 360 5310  mobile: + 64 21 400 486  fax: + 64 9 367 0750
 Email: k...@walstan.com

 On 25 January 2011 03:53, David A. Greendgr...@dagconsulting.com
   
 wrote:

 All this talk about using the Dictionary item to store extra data
 
 has

 prompted this post.

 I realize in the past when the limit to the number of Opened Files
 
 in a

 Basic program was a programming challenge, that doing creative data
 
 storage

 might have been an necessity.  But I would like to suggest we leave
 
 the

 Dictionary alone, let the database use it the way it wants to and
 
 let us

 create our own storage device for dictionary related data.

 Thoughts?

 David A. Green
 (480) 813-1725
 DAG Consulting
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

   
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Fault type is 11. Layer type is BASIC run machine.

2011-01-18 Thread Allen Egerton
You're writing a 53MB sequential file in a single write.  There are
Universe config directives that you could tweak, but given that you're
creating a text file within a directory I'd probably tweak the app to
use OPENSEQ/WRITESEQ/CLOSESEQ code instead.  That'll get rid of your
crash and almost certainly make the app run faster.



On 1/18/2011 11:00 AM, Jeff Colvin wrote:
 I’m getting the following error message:
 
 
 
 CRITICAL ERROR! Notify the system administrator.
 
 Abnormal termination of UniVerse.
 
 Fault type is 11.  Layer type is BASIC run machine.
 
 Fault occurred in BASIC program IM.BUILD.NEW.COLD.WRK at address 228.
 
 
 
 I ran the IM.BUILD.NEW.COLD.WRK program in the DEBUG mode and found out that 
 the error pops up when it executes the following line of code:
 
 WRITE COLD.TEXT ON COLD.WRK, COLD.WRK.ID THEN
 
 I found out the COLD.WRK is a TYPE 19 file.  The COLD.WRK.ID is set to 
 cold13-1.txt.  I can use the PICK EDitor and view the txt file without a 
 problem.  The COLD.TEXT record is 53,486,974 bytes in size.  I’ve opened up 
 the permissions to the COLD.WRK file via chmod 777.  I’ve also had additional 
 space allocated.
 
 
 
 I am working on a system with Universe version 10.0.14 and AIX version 
 5.2.0.0.
 
 
 
 I appreciate your help,

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Determine i-descriptor name?

2011-01-16 Thread Allen Egerton
On 1/16/2011 12:05 PM, Shane Ricciardi wrote:
 Allen Egerton aegerton at pobox.com writes:

 If it doesn't exist as a file system object, it's still got to exist in
 VOC as an F or Q pointer.  Read the VOC rec, grab 2 and 3 to make
 decisions??

 
 Not with a UV/SQL SELECT. @FILENAME can be loaded with an alias that doesn't
 exist in the VOC at all.

So, where's the alias set?  And is @SQLPROC.NAME any use in that situation?
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Determine i-descriptor name?

2011-01-15 Thread Allen Egerton
There's no direct way that I know.

If you're lucky, @FILENAME will help you, if not, you might try parsing
out @SENTENCE or @PARASENTENCE.

On 1/15/2011 11:26 AM, Shane Ricciardi wrote:
 Anyone know if there's a way to tell what i-descriptor has called a subroutine
 without passing the dictionary name as a parameter? Thanks.

-- 
Allen Egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Determine i-descriptor name?

2011-01-15 Thread Allen Egerton
On 1/15/2011 5:45 PM, Shane Ricciardi wrote:
 Allen Egerton aegerton at pobox.com writes:
 

 There's no direct way that I know.

 If you're lucky, @FILENAME will help you, if not, you might try parsing
 out @SENTENCE or @PARASENTENCE.

 
 Hey Allen. I can't use @FILENAME in any way because if an alias is used in the
 statement that's what @FILENAME is set to, which could be a file that doesn't
 exist. I'll check @PARASENTENCE though. I even checked the call stack in
 system(9001) but nothing useful to me is in there.

If it doesn't exist as a file system object, it's still got to exist in
VOC as an F or Q pointer.  Read the VOC rec, grab 2 and 3 to make
decisions??

-- 
Allen Egerton; aeger...@pobox.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Followup; was: Re: [U2] UV 10.1.22; Dynamic File question

2009-04-30 Thread Allen Egerton
Allen Egerton wrote:
 As I understand it, Dynamic files split single groups as you add records
 to the specific group.  So, if you add a large number of records to a
 file that's properly sized, it will (potentially) split multiple times
 as you go along.
 
 If I know in advance that I'm adding a large number of records to a
 file, is there any way to force the file to grow in advance?
 
 If it were a static file, I'd simply resize it to a new guesstimated
 modulo.  Since it's dynamic, I don't see any way to do this other than
 to convert it to back to a static file, then resize it to a dynamic file
 with a minium modulus.  It seems as though there must be a better way...
 
 Thanks.
 

And after receiving a number of both onlist and offlist replies, the
answer as supplied by Mark Baldritch of IBM turned out to be
surprisingly simple.

Just resize the file.

Yeah, it's that simple.  The resize command when executed on a dynamic
file sets the minium.modulus to the modulo specfied in the resize command.


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


Re: [U2] UV 10.1.22; Dynamic File question

2009-04-24 Thread Allen Egerton
Dan Fitzgerald wrote:
 ... and at this point I'd be thinking static file. Distributed, if
 necessary. 

snip

Ayup.  But I'll quote myself from an earlier post:
I've got some slightly unusual circumstances and client induced
constraints that I'm working under.

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


[U2] UV 10.1.22; Dynamic File question

2009-04-23 Thread Allen Egerton
As I understand it, Dynamic files split single groups as you add records
to the specific group.  So, if you add a large number of records to a
file that's properly sized, it will (potentially) split multiple times
as you go along.

If I know in advance that I'm adding a large number of records to a
file, is there any way to force the file to grow in advance?

If it were a static file, I'd simply resize it to a new guesstimated
modulo.  Since it's dynamic, I don't see any way to do this other than
to convert it to back to a static file, then resize it to a dynamic file
with a minium modulus.  It seems as though there must be a better way...

Thanks.

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


Re: [U2] UV 10.1.22; Dynamic File question

2009-04-23 Thread Allen Egerton
Martin Phillips wrote:
 Hi Allen,
 
 If I know in advance that I'm adding a large number of records
 to a file, is there any way to force the file to grow in advance?
 
 You could do this with the MINIMUM.MODULUS parameter but the whole point
 of dynamic files is that they do their own tuning. Although a dynamic
 file is unlikely to be as good as a perfectly tuned static file, it will
 be a lot better than a typical static file that has been left alone for
 a long while.
 
 Another important point is that a split affects only one (or arguably
 two) groups unlike resizing a static file from modulo N to modulo N+1
 which would affect every group.
 
 My real point here is that it is usually best to let a dynamic file look
 after itself.

In general I'd agree with you.

The situation is that I'm potentially adding a million records to a
dynamic file.  That's not hypothetical, it's a real life scenario.  And
I don't want to wait while the file splits multiple times over the
course of the add.  I don't have that large a window.  I want to force
the file to expand the weekend before so that when I add the records the
file isn't rebuilding.

The file's already dynamic, so setting Minimum.Modulus doesn't seem to
do me much good unless I can figure out how to force it to split to that
minium.modulos.  And there's the crux of my question.  How can I force
it to split?

The file's numerically keyed, (sequential), so it hashes pretty evenly
across the groups, consequently I'm not overly worried about empty
groups due to forcing the splits beforehand.

I know this isn't how you, (or I), typically work with dynamic files.
I've got some slightly unusual circumstances and client induced
constraints that I'm working under.

Thank you.

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


Re: [U2] UV to SAP migration disaster

2009-04-21 Thread Allen Egerton
Laurie Blain wrote:
 It was buzz at an Ardent Conference back in the 1999?
 I think some of that attitude is why many think they need to move
 off Unidata. But really in college back in 95 I heard that Cobol was a dead 
 language
 you can still find jobs with Cobol.

In 1981 I took a college course in COBOL.  At that time I was told that
it was on its way out.  It's 2009 and I have friends who are currently
employed as COBOL programmers, (and in demand).

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


Re: [U2] Performance monitoring

2009-03-04 Thread Allen Egerton
ericro wrote:
snip
 Does anyone have any tools, or know of any tools, similar to Oracle, that
 can really give me insight into what's happening with a given user session
 at any time?  I know I can do port.status and find the address in the code
 and see what's being executed at that time, but I want something more that
 will show memory utilization and other stats like that.
 
 Any help would be appreciated.

topas; it's an aix command.
-- 
Allen Egerton
aegerton at pobox dot com
PGP Key ID 0x8EA57261
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Strange happening...

2009-03-02 Thread Allen Egerton
Eric Armstrong wrote:
 Allen,
 Regarding your loop structure below. What happens if the ID is empty string?
 Won't it bail out before all the ids are read!
 
 Eric Armstrong
 Lobel Financial
 IT Dept

Nope.  It's running off of an active select list, it'll process the
record.  Since I'm selecting the file pointer, rather than executing a
SELECT, I'm going on the assumption that I want to process every record
in the file.

If, as stated in another response to this thread, the poster doesn't
want the record that has a null-id to be processed, then I'd probably do
something like this:

SELECT FILENAME
LOOP WHILE READNEXT ID
  IF (ID) THEN
CODE
CODE
CODE with GOSUB
CODE
CODE
  END ELSE
Error handling code
  END
REPEAT


-- 
Allen Egerton  aeger...@pobox.com  860-912-8067
PGP Key ID 0x8EA57261
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Strange happening...

2009-02-27 Thread Allen Egerton
George Gallen wrote:
 ok...I found this code snipit (REALITY FLAVOR)
 
 SELECT FILENAME
 LOOP
READNEXT ID ELSE EXIT
 WHILE ID DO
CODE
CODE with GOSUB
CODE
CODE
 REPEAT
 
 
 What was happening was the loop was exiting early,  but it was exiting after
 the
 CODE with GOSUB line was executed.
 
 What struck me was why there was a While DO as well as an EXIT in the loop?
 while nothing in the CODE or GOSUBs modified the ID, would having both the
 WHILE/DO and EXIT cause some kind of problem?
 
 After I removed (commented out) the WHILE/DO line, the program ran as
 expected
 and processed the 100,000 records, (whereas before it stopped after 6).

While the code itself is less than elegant, I strongly suspect that the
exiting lies in what's being done in the GOSUB.  Perhaps it's doing a
SELECT or a CLEARSELECT, or something else that corrupts the active
select list.

I recently saw a piece of code where the active select list was trashed
because the code opened a file, then executed a create-file on the
opened file...  Took us a while to figure that one out.

As for the loop structure, I tend to like this:
SELECT FILENAME
LOOP WHILE READNEXT ID
  CODE
  CODE
  CODE with GOSUB
  CODE
  CODE
REPEAT

It's clean, it's concise, it's easy to read...  And I wish I could
remember who taught me that you could combine the LOOP and READNEXT in
that manner...

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


Re: [U2] UV - broken file issue [not-secure]

2008-12-19 Thread Allen Egerton

Hennessey, Mark F. wrote:

That'll teach me to compose and e-mail while talking on the phone and
checking a text message on my G1...   I don't know how the 20-somethings
do it...

I should have included that ulimit is in fact unlimited.


snip
I ran into a similar, but not identical situation when copying backup 
files.  Even though ulimit was set to -1, the file system itself had to 
be large file enabled.  I also had to change the fsize parameter(s)in 
/etc/security/limits.


This is on a RS6000 running AIX, so I don't know if it's applicable.

--
Allen Egerton  aeger...@pobox.com  860-912-8067
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Speeding up processing through large dynamic table

2008-11-17 Thread Allen Egerton

Joshua Gallant wrote:

When running through an array with a for next loop the last item
processed isn't remembered so the program needs to traverse the entire
array for each record and will slow down as you get to records later in
the process.

Instead of this:

A11 = DCOUNT(IN.TAB,@AM)

FOR A1 = 1 TO A11
  IN.LINE = IN.TABA1
  SWAP @VM WITH @AM IN IN.LINE
  CUST.NUM  = IN.LINE1
  CUST.DESC = IN.LINE2
NEXT A1

Try something like this instead:

LOOP
REMOVE IN.LINE FROM IN.TAB SETTING MARK
  SWAP @VM WITH @AM IN IN.LINE
  CUST.NUM  = IN.LINE1
  CUST.DESC = IN.LINE2
WHILE MARK DO
REPEAT

That will keep track of where you were in the array and pick up where
you left off.

Let me know how that works out for you.



Unfortunately, that won't quite work.

The REMOVE statement removes the next element, and since he's got 
embedded attributes (@AM), that approach will return the attribute 
instead of the entire line.


Unfortunately.  And particularly since the approach you recommend is one 
that I like, and use a lot 'cause you're absolutely correct about the 
indexing of the elements.


However, this will work:  (at least on Universe):
0001   IN.TAB =  

0002   IN.TAB:= NAME-ONE: @VM: DESC-ONE: @VM: 1A: @VM: 1B 

0003   IN.TAB:= @AM: NAME-TWO: @VM: DESC-TWO: @VM: 2A: @VM: 
2B
0004   IN.TAB:= @AM: NAME-THREE: @VM: DESC-THREE: @VM: 3A: 
@VM: 3B:
  @VM: 3C 

0005 

0006   REM1 = 999 

0007   LOOP WHILE REM1 NE 0 

0008  REMOVE CUST.NAME FROM IN.TAB SETTING REM1 

0009  CRT CUST.NAME: : CUST.NAME 

0010  REMOVE CUST.DESC FROM IN.TAB SETTING REM1 

0011  CRT CUST.DESC: : CUST.DESC 

0012  LOOP WHILE REM1 EQ 3 

0013 REMOVE EXCESS FROM IN.TAB SETTING REM1 

0014 CRT REMOVED : EXCESS 

0015  REPEAT 

0016  CRT 

0017   REPEAT 

0018   STOP 

RUN ADE.BP TT 

CUST.NAME: NAME-ONE 

CUST.DESC: DESC-ONE 

REMOVED 1A 

REMOVED 1B 




CUST.NAME: NAME-TWO 

CUST.DESC: DESC-TWO 

REMOVED 2A 

REMOVED 2B 




CUST.NAME: NAME-THREE 

CUST.DESC: DESC-THREE 

REMOVED 3A 

REMOVED 3B 


REMOVED 3C


--
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] [UV] What is this?

2008-10-16 Thread Allen Egerton

[EMAIL PROTECTED] wrote:

I just had a buddy call me to have me test something on my system that he got 
bitten with.  Anyone else ever been bitten by this?

TEXT = '2E-29';* Expected to be TEXT
IF NUMERIC(TEXT) THEN
PRINT 'IS NUMERIC'
END ELSE
PRINT 'NOT NUMERIC'
END


Scientific Notation...

Off the cuff, (no Universe machine handy):
NUMERICS = 0123456789
TEXT = '2E-29'
CHECK.TEXT = TEXT
CONVERT NUMERICS TO  IN CHECK.TEXT
IF (CHECK.TEXT) THEN
CRT NOT STRICTLY NUMERIC
END

And as I typed this, I noticed that you'd also have to trim any leading 
- sign, and account for any decimal point, but hopefully this will 
give your friend something to work from.



--
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] RE: spaces in file names

2008-10-03 Thread Allen Egerton

jpb-u2ug wrote:

Do you wake up on the wrong side of the bed every morning?


snip

Um, I'm not sure why you found what Tony wrote offensive.  I thought it 
was a reasonable presentation of his point of view.


--
Allen Egerton  [EMAIL PROTECTED]  860-912-8067
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Universe Lock Error

2008-09-18 Thread Allen Egerton

Bjorn Behr wrote:

Morning All

We are running on UV 10.2.11 and have encountered an error.

Scenario:

 PROGRAM MAIN_PROG
 OPEN FILE TO FILE ELSE STOP 201,FILE
 CALL READ_PROG
 CRT YOU SHOULD BE HERE...:
 INPUT X
 RELEASE FILE, TESTER

 PROGRAM READ_PROG (A)
 OPEN FILE TO FILE ELSE STOP 201,FILE
 READU REC FROM FILE, TESTER ELSE REC = 
 REC1 = 1
 WRITEU REC ON FILE, TESTER
 RETURN

 PROGRAM READ_PROG (B)
 OPEN FILE TO FILE ELSE STOP 201,FILE
 READU REC FROM FILE, TESTER ELSE REC = 
 RETURN

 With both Program (A) and (B) when READ_PROG returns to MAIN_PROG it releases
the Record Lock before the release.

 Has anybody else encountered this, is there a way to fix it (Work Around /
Setting etc...)


I don't know if I'd call that an error.

You're calling programs and not passing them open file pointers.  So, 
you open the file within the called routine, readu the record, and 
return.  When you return, you're EXITING the called routine and it has 
nothing to keep the file open, so it releases the lock when it closes 
the file.


If you want the lock to persist, you need to open the file within the 
main routine, pass the pointer, (either in subroutine list or in 
common), and use the pointer within the called routine.


Sample code follows (just typed, not tested):

PROGRAM MAIN
OPEN , XYZ TO XYZ.FILE ELSE STOP
CRT XYZ OPENED, IN MAIN NOW, CALLING SUBR ABC
CALL ABC(XYZ.FILE)
CRT BACK IN MAIN; CHECK THE LOCKS AND ENTER SOMETHING: :
INPUT DUMMY
STOP


ABC (XYZ.FILE)
CRT IN SUBROUTINE 'ABC'
READU XYZ.REC FROM XYZ.FILE, XYZ THEN
CRT GOT LOCK IN SUBR
END ELSE
CRT NO SUCH RECORD
END
CRT READY TO RETURN, CHECK LOCK, THEN PRESS RETURN: :
INPUT DUMMY
RETURN



--
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] call mysub vs. call @mysub

2008-08-26 Thread Allen Egerton

Ross Ferris wrote:

Just a quick (dumb?) question that will save me spending 5 minutes
writing a little test program (instead I'll spending 15 mins reading
responses  BARGAIN!!) - and may also be useful for other listeners
...

In D3 for subroutines that are called often (either within a program,
or a system if you use common) then a construct like


snip

This *was* true for Prime Information.  Plus had the additional benefit 
of being able to specify routines at run time.


Example:
BEGIN CASE
  CASE COMPANY EQ ALPHA
PAYROLL = PAYROLL.ALPHA
  CASE COMPANY EQ BETA
PAYROLL - PAYROLL.BETA
END CASE
CALL @PAYROLL (A, B, C, D)


I don't think it's applicable for Universe, at least in terms of speed 
but the choice of routines is still useful.


--
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] TCL literal select

2008-08-13 Thread Allen Egerton

Bill Haskett wrote:

Allen:

I use UD in PICK mode and the query processor has the same problem as the OP 
noted.
UD doesn't like single quotes in PICK mode.  In fact, numerous things don't 
work in
AQL when in PICK mode.

I wasn't able to get any of the suggestions to work in UD.

Bill


I just created a temporary account on a Universe machine, in PICK 
flavor.  And ran right into the same problem.  Which suggests to me that 
I test my answers before I present them.


--
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] TCL literal select

2008-08-12 Thread Allen Egerton

Bruce Ordway wrote:

Hi,

I work with a Unidata/Dataflo system on HPUX.
I am having trouble selecting records in my PARTS file.

I want to select all parts that have a  in the description field (F1).
People have been using  instead of INCH.
This causes problems for me during processing some reports and exports.



To include double-quote within field to be searched, use single quote as 
delimiter.


SELECT PARTS WITH F1 = '['
-or-
SELECT PARTS WITH F1 LIKE '..'


--
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] CAPTURING TOXML

2008-07-25 Thread Allen Egerton

[EMAIL PROTECTED] wrote:
Hello.  I've been building and returning some simple pages from Unidata to 
PHP, but I now have a big complex report to adapt.  Is there someway that 
I can take advantage of the TOXML verb by CAPTURING the XML and returning 
it to the calling PHP?


I tried something like this.

ECMD = SELECT   TOXML
EXECUTE ECMD CAPTURING RESULT  (where RESULT is returned to the calling 
PHP program.but got the error message:
protocol error: , Invalid document end at col 32. Check the back end log 
for details.


I suspect this is due to the marks separating the dynamic array elements. 
Will something like this work, or am I barking up the wrong tree?


And where is the backend log?


Perhaps a different approach?

Assuming that you're calling/executing a Universe/Unidata program from 
within PHP.


1)  Issue a SEPTR command with mode = 3 to send output to the HOLD 
directory.


2)  LIST somefile field1 field2 field3 TOXML LPTR to send the output you 
want to the HOLD directory in XML format.


3)  Use code within your program to READ the record (aka file), within 
the HOLD directory into variable RESULT.


4)  Pass the RESULT back to PHP


I played with the TOXML keyword briefly this morning on a Universe 
system, bringing the result back to a MS desktop and importing into 
Excell.  When I did so, I found that I had to strip extraneous cr/lf 
sequences from the beginning of the XML file I'd created.


Rgds.

--
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] English phrases

2008-07-24 Thread Allen Egerton

Boyd Parks wrote:

I am trying to use the same phrase in Universe as I use in jBASE, but it is
not working properly on our Universe systems.

The beginning of my definitions on both jBASE and Universe look like this:


ED DICT DH CA.ATTRS

DICT DH CA.ATTRS (BACS)
Top
.P

001 PH
002 PHONE-CHECK
003 COLL.SCORE
004 CA.AVAILCR
005 SSN.DECEASED
006 SSN.DOD
007 292
008 CA.BK7
009 CA.BK11
010 CA.BK13

The problem with the phrase is that it only lists the first definition in the
phrase.  I just tested by
removing PHONE-CHECK (it is a Basic subroutine call, whereas all the others
are normal, local
definitions), but that is not the issue.  Here is the output:

LIST DH 6793700 CA.ATTRS 10:36:09am  18 Jul 2008  PAGE1
DEBHIST... COLLECTABILITY

6793700   592

1 records listed.
Many more attributes should have been listed.

Any ideas?


Sure.  Replace your FieldMarks with Spaces.

So, your dict item would look like:
1 PH
2 PHONE-CHECK COLL.SCORE CA.AVAILCR SSN.DECEASED SSN.DOD 292 CA.BK7 
CA.BK11 CA.BK13



--
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] Uni Kernel

2008-06-16 Thread Allen Egerton

Brutzman, Bill wrote:
I was recently asked about the kernel of UniVerse.  


A quick look on Google, IBM's website, and the UV manuals that I have did
not lead to much. 


kernel typically refers to the very low level core files of a *nix 
system.  Universe is not an operating system, it's a complex application 
that runs on top of the operating system.  As such, it has no kernel.


--
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] Redback/SB+ Interface Failing

2008-05-29 Thread Allen Egerton

[EMAIL PROTECTED] wrote:
snip the useful response about licensing after refreshing



As always YMMV.

snip

I *know* this acronym means Your Mileage May Vary, but a friend once 
re-defined it for me, and I'll share his interpretation with the list, 
because it never fails to make me laugh when I see it used, particularly 
when the poster is being polite and helpful as Robert was...


You
Make
Me
Vomit



Is it five o'clock yet?

--
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] Printer errors in the error log

2008-05-24 Thread Allen Egerton

[EMAIL PROTECTED] wrote:

We're logging many errors in the UV error log that say Too many PRINTER
channels open.

I know the channel numbers themselves are limited to 0-255, but I didn't know
there was a limit on how many could be open at one time.  What is the limit?
Is there a configuration parameter somewhere that I'm missing?


You can specify channel 0 thru 254 as the output channel, (SETPTR x, 
PRINT ON x, PRINTER CLOSE x); but there's a limit on how many you can 
have open at a single time.


Prime Information would allow you to have 255 open, but I remember when 
converting to Universe that there was a limit of either 15 or 16 and it 
was unchangeable.  I had to do some creative coding to convert a couple 
apps.


--
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] [UV] Error log

2008-05-20 Thread Allen Egerton

[EMAIL PROTECTED] wrote:

Hello all!

I'm hoping someone can point me in the right direction.  We're getting a
number of errors in our errlog file that I'm trying to track down.  It gives
the program name and line number, but then says 'Message[##]' - and there
are about 4 or 5 different 6-digit numbers (040058, 040024, etc.).  Can you
tell me which of the manuals has the message numbers in it so I can look them
up and see what's going on?



01 CT SYS.MESSAGE 040058 040024 




 040058 

0001 

0002 Available memory exceeded. Unable to continue processing record. 

0003 




 040024 

0001 Variable previously undefined.  Zero length string used. 


0002



--
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] Guaranteed unique sequential keys

2008-04-24 Thread Allen Egerton

Marco Manyevere wrote:

What is the most reliable way to generate unique sequential keys without
having to resort to a record on disk updated through readu/write? The keys
don't have to be contiguous but only be sortable in the order in which they
were generated by several phantom processes running concurrently. I'm
currently approximating this using a concatenation of date and time with
millisecondsB but I'm worried about the possibility of two phantoms generating
exactly the same key.
B 
Although no collision has been detected so far, I

have added an extra check where after generating the key I first test if a
record with that key exists. If so IB increment and append aB serial number
and repeat the test until aB unique key is found. ItB seems to be working well
but I still think there is a better way to do this.
B 
Thanks for any help.


Assuming unix, add the process id to your key.  So if you're currently 
using internal_date*internal*time, add *pid.


There's a GCI interlude to get the process id, I *think* it's GETPID, 
but you'll have to look that up.


If you're on windows, this won't help you 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] Maximum size of the record lock table

2008-04-15 Thread Allen Egerton

Steve Ferries wrote:

Hi All,

We had some excitement today when we ran a program with READU, with the
associated WRITE commented out. In no time at all (these RS6000s are
fast!), the system froze.  I had a login and some UniVerse commands
worked, but others did not. LIST.READU showed one user with thousands of
locks and that is how we identified the program.


snip

Directly underneath the commented out WRITE, add a RELEASE statement.

In such circumstances, I typically code something like:
*DBG   WRITE PEOPLE.REC ON PEOPLE.FILE, PEOPLE.ID
   RELEASE PEOPLE.FILE, PEOPLE.ID;*  DBG

And when I'm finished debugging, I just uncomment the write, and comment 
the release.





--
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] Maximum size of the record lock table

2008-04-15 Thread Allen Egerton

Tom Dodds wrote:

Everyone seems to have missed the question.  Steve knew the problem and what
was required to fix it.  What he wanted was

Can someone tell me what the maximum of locks allowed is, or what the size
of the lock table is?


I understood the question.

I scripted a response based upon my evaluation of the scenario as 
described by the original poster.


And said response is based upon my belief that anyone who intentionally 
creates locks and wants to try to limit them based upon the size of the 
lock table is probably approaching the problem incorrectly.


Let's just suppose, for grins, that TWO people are running similar 
programs, knowing the size of the lock table isn't going to help you 
very much in that scenario, is it?   Knowing how to release your locks 
so that you don't fill the lock table is going to help 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/


Re: [U2] COMMON

2008-04-04 Thread Allen Egerton

Dennis Bartlett wrote:
Following up on the common thread, can one OPENSEQ to a COMMON variable? 


Absolutely.

COMMON is merely a method of sharing data between programs without 
argument passing as is commonly done with subroutines.  Note that common 
in this fashion is accessible among programs for the individual user, 
not to be confused with shared common, (such as the catalog uses, 
which allows users to access the same info).


So, any variable can be stuffed into a common block, and it's best to 
use what's called NAMED COMMON so that you don't collide with anyone 
else's definitions, (particularly if you're running vendor code which 
you can't read the source code to).


And then any program or routine that has that COMMON block defined 
within it has acccess to the variables within it.


With file pointers, the trick is to set flags so that you know that 
they're open or closed.   Which can be followed through to other 
variables, set flags to show that they've been initialized or not. 
Always set them to show non-initialized first, set them, set the flags, 
then in any routine that uses them, check the flags before you use them, 
and if the flags aren't set, you can't use the values.


One very common way of dealing with this is to call a program from the 
VOC LOGIN PA which sets common.


As has been mentioned previously, watch out for accounts, as showing 
that your PAYMASTER file is open, and having your user log from TEST to 
LIVE will give you some very real problems...


 --
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] UV: LOOP;EXECUTE cmd CAPTURING X; REPEAT fatal memory fault.

2008-03-17 Thread Allen Egerton

Stevenson, Charles wrote:

IBM can't reproduce this.  I'm hoping someone else can.
That didn't come out right.  I don't really want to you have this
problem.  That would be mean.  I just hope this august body can help.

Simplest case:

   CDS.BP M
   01 LOOP
   02   EXECUTE '* anything' CAPTURING X
   03 REPEAT

   RUN CDS.BP M
   Memory fault(coredump)
   3046$ls -l core
   -rw---   1 cds33896   tech   279499648 Mar 17 17:11 core


snip

Capturing writes to uvtemp.  Are you running out of disk space or 
perhaps inodes?


--
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] Web Developer Needed Full Time ***REVISED***

2008-02-07 Thread Allen Egerton

Glen Batchelor wrote:

Can you at least put the state in which the position is in?
Country/state/city would be ideal.


snip

School Name
University of Pennsylvania School of Veterinary Medicine (58)

---


If I had to guess, I'd guess Pennsylvania...  But that's just a SWAG :)

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


Re: [U2] UV phantoms

2008-02-01 Thread Allen Egerton

[EMAIL PROTECTED] wrote:

Universe 10.0.8, Solaris 9.

We are currently suffering with phantoms taking a while to complete.
For example PHANTOM LISTU took 9 minutes to respond as Done.
I also believe we have a related problem when terminating a session with OFF 
which can take minutes to give the unix prompt back.
I recall from the University sessions last year that changing the UVSYNC 
parameter in uvconfig to zero will cure this.
Has anyone any experience with this?


I'd look at the PH directory, if it's loaded, it'll take unix and 
universe a bit of time to work through it.  And if your system is like 
many I've seen, both the PH and the SAVEDLISTS directories are often 
not maintained.  On the same note, uvtemp is often cluttered with the 
temp files from selects, captures and executes...


--
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] date on a pick item

2008-01-03 Thread Allen Egerton

Doug Chanco wrote:

Is there a way in universe (10.1) to see the date a pick item was
created/last modified?


Short answer - No.

Long(er) answer - not on a stock system unless the item in question is a 
record within a type1 or type19 file, (in which case it's actually a 
file within a directory).


Many application systems have their own embedded auditing systems to 
address just this.  More recently, the use of triggers on specific 
files within Universe allow you to more easily trap and subsequently 
record such modifications.


Either way, you're going to have to do some admin/coding work, it's not 
built in.


--
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] date on a pick item

2008-01-03 Thread Allen Egerton

Brian Leach wrote:

Doug

Since it's only a single file you're looking at (VOC), here's a low impact
way you could timestamp. This will log all changes to an index file, which
you will need to clear down periodically grin:

1. Create a subroutine that will return a timestamp AND a checksum when
listed, e.g.


snip

That's sweet.  I'm adding that to my bag of other people's tricks.

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/


Re: [U2] sigh phantom ?

2007-12-13 Thread Allen Egerton

Doug Chanco wrote:

Thanks, I don't suppose there are any books/documents/etc that
anyone is aware of?  I will talk to my boss about the internals class (I
think it will help me with getting up to speed on universe to the same
level I was with jBASE)

While I miss jBASE, I feel like the races the Borg conquered 


Resistance is futile, you will be assimilated 


snip

Your futility is resistant,
Your a$$ will be laminated.

HTH, NC, HAND.

--
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] LIST.READU

2007-12-09 Thread Allen Egerton

Doug Chanco wrote:

Hello all,

 I am back in the universe world after working in jBASE for many
years now, is there a better tool than LIST.READU to show the locking
table? (similar to jBASE SHOW-ITEM-LOCKS which is pretty awesome)



It shows record locks BUT not what file the lock is on ... I am
still learning our system and seeing a lock like 123456789 does not
tell me anything about what file the lock is on, I suppose I might be
able to figure out something with the inode but still ..



I wrote some code today in Universe on an AIX system; basic code locks a 
record, executes a LIST.READU to show user the locks, prompts user for 
Inode of the locked record and returns ls data for the pathname.


Quick and dirty, but it could be cleaned up and expanded to work for you...




RUN ADE.BP FIND.LOCKED.FILE 

NEW - LOCKED 




Active Record Locks: 

Device Inode  Netnode Userno  Lmode   Pid Login Id 
Item-ID.
6553935734550 12  71 RU 53522 conv1234 ALLEN 




INODE: 573455 

12/09/07 04:59:17pm 

EXECUTING SH 'find / -inum 573455 -ls' 

12/09/07 05:00:20pm 

573455  276 -rw-rw  1 conv1234 conv1234   280576 Dec  7 12:34 
/CONV1234/UV.E

XTRA.CONV/VOC 



CT ADE.BP FIND.LOCKED.FILE 




 FIND.LOCKED.FILE 

0001 *  UV.EXTRA.CONV; ADE.BP; FIND.LOCKED.FILE 

0002 

0003 *  Quick  dirty - given inode of locked record from LIST.READU, 

0004 *  find the filepath. 

0005 * 

0006 *  Code for demo purposes, sets own lock. 

0007 * 

0008 *  ADE 12/09/07 - original design/coding 

0009 

0010 

0011 * UniVerse Compiler Directives 

0012 $OPTIONS EXEC.EQ.PERF   ;*Compile EXECUTE as a PERFORM which reuses 
worksp
 ace 

0013 $OPTIONS PIOPEN.EXECUTE ;*EXECUTE can use CAPTURING  RETURNING but 
reuse
 wrkspace 

0014 $OPTIONS TIME.MILLISECOND ;* Return time in whole seconds 

0015 

0016 *  Constants 

0017   PROMPT  

0018 

0019 *  Open the file, set the lock. 

0020   OPEN , VOC TO F.VOC ELSE 

0021  CRT YEAH RIGHT 

0022  STOP 

0023   END 

0024   D.VOC =  

0025 * 

0026   READU D.VOC FROM F.VOC, ALLEN THEN 

0027  CRT EXISTING - LOCKED 

0028   END ELSE 

0029  CRT NEW - LOCKED 

0030   END 

0031 

0032 *  Show the lock(s). 

0033   EXECUTE LIST.READU ALL 

0034 

0035 * Prompt user for INODE of locked record. 

0036   CRT INODE: : 

0037   INPUT INODE 

0038   LEN.INODE = LEN(INODE) 

0039 

0040   CMD = find / -inum : INODE:  -ls 

0041   CMD = SH ': CMD: ' 

0042 * 

0043   CRT OCONV(DATE(), D2/):  : OCONV(TIME(), MTHS) 

0044   CRT EXECUTING : CMD 

0045   EXECUTE CMD CAPTURING CMD.CAP RETURNING CMD.RET 

0046   CRT OCONV(DATE(), D2/):  : OCONV(TIME(), MTHS) 

0047 * 

0048   REM1 = 999 

0049   LOOP WHILE REM1 NE 0 

0050  REMOVE LINE FROM CMD.CAP SETTING REM1 

0051  IF LINE[1, LEN.INODE] EQ INODE THEN 

0052 CRT LINE 

0053  END 

0054   REPEAT 

0055 

0056 *  Done. 

0057   STOP 




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


  1   2   >