Re: [U2] [UV] Do you avoid TRIGGERS because of the difficulty using DEBUG or RAID with them? Was: Universe Triggers

2013-08-02 Thread Jacques G.
Trigger are useful to find programs that update files incorrectly.   When this 
happens,  I create a trigger that will create a sequential file with the 
content of SYSTEM(9001) on Universe in order to identify the chain of calling 
programs.





 From: Hona, David david.h...@cba.com.au
To: U2 Users List u2-users@listserver.u2ug.org 
Sent: Thursday, August 1, 2013 5:32 AM
Subject: Re: [U2] [UV] Do you avoid TRIGGERS because of the difficulty using 
DEBUG or RAID with them? Was: Universe Triggers
 

Now that (from UV10.1) Index-based triggers are officially supported, can these 
replace your SQL-based triggers? These have less functionality and less 
overhead, but that's the price you have to pay

Can't say I had a chance to try it for myself...yet...!



-Original Message-
From: u2-users-boun...@listserver.u2ug.org 
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Charles Stevenson
Sent: Saturday, 27 July 2013 5:32 AM
To: U2 Users List
Subject: [U2] [UV] Do you avoid TRIGGERS because of the difficulty using DEBUG 
or RAID with them? Was: Universe Triggers

How many people avoid using triggers BECAUSE of the virtual impossibility of 
using RAID with Triggers?

On 7/26/2013 12:33 PM, Phil Walker wrote:
 I won't be holding my breath Charles ;-)

 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Charles 
 Stevenson
 Sent: Friday, 26 July 2013 9:22 p.m.
 To: U2 Users List
 Subject: Re: [U2] Universe Triggers

 re. triggers  Raid,  I could not agree with Phil more.  Well said.
 Come on, Rocket!

 On 7/19/2013 1:32 AM, Phil Walker wrote:
 Ken,

 I am glad you raised the issue about debugging a program with a file which 
 has a trigger attached. I have been on to UV (Vmark/Ardent/IBM/Rocket for 
 ages about fixing this pushing for the ability to be able to step into the 
 trigger code, but at a VERY MINIMUM being able to debug the program and 
 perform the write on the file, and in effect step over the trigger 
 subroutine and carry on debugging. The issue is the trigger subroutine 
 cannot support input, so what UV have done is basically say you are using 
 the debugger so you are inputting debug commands so you will abort. They 
 need to turn this restriction off for debugging so that either of the above 
 two scenarios is supported.

 In a Microsoft world I can debug anything through the connected world of 
 web/databases etc..

 Have had no feedback from UV

 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org 
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Ken Ford
 Sent: Friday, 19 July 2013 9:48 a.m.
 To: u2-users@listserver.u2ug.org
 Subject: Re: [U2] Universe Triggers

 Dan,
 In addition to the other responses you have received, I suggest the 
 following:
 1. Have one master file trigger subroutine (globally catalogued) that calls 
 subroutines (locally catalogued) tailored to individual files.  This means 
 you don't have to stop and restart Universe when a new trigger is required 
 or a change to an existing one.  If the master subroutine changes, you do 
 have to restart Universe.
 2. Use a control record that records the subroutine name and state of the 
 trigger for each file having a trigger.
 3. Use a program to change the state of a trigger, using the control records 
 in 2 above.
 4. Make sure all background processes that have a file with a trigger open 
 are logged out when recompiling the subroutine for that file trigger.
 5. Remember that you can't do anything to a file with an active trigger 
 whilst in the RAID debugger (it will crash).  Rather, if you are testing a 
 file trigger subroutine, drop the trigger and use a trigger testing program 
 that calls the subroutine after taking a copy of the record being changed, 
 pausing whilst you change it in another session, and then resuming, calling 
 the subroutine.

 If you would like samples of any of the software mentioned above, let me 
 know, and I can send them to you.

 Regards,
 Ken Ford
 Universe Software Developer
 t 07 3013 8605 | f 07 3002 8400
 e ken.f...@firstmac.com.au | w firstmac.com.au


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

** IMPORTANT MESSAGE *      
This e-mail message is intended only for the addressee(s) and contains 
information which may be
confidential. 
If you are not the intended recipient please advise the sender by return email, 
do not use or
disclose the contents, and delete the message and any attachments from your 
system. Unless
specifically indicated, this email does not constitute formal advice or 
commitment by the sender
or the Commonwealth Bank of Australia (ABN 48 123 123 124) or its subsidiaries. 
We can be contacted through our web site: commbank.com.au. 
If you no longer wish 

[U2] [UV] and the Hebrew character set

2013-07-20 Thread Jacques G.
Hello,

Has anyone here ever used Universe with a Hebrew character set ?  Is it 
neccessary to to with a full 16-bit Unicode character set or are there older 
8-bit character sets that are useable ?  Also since text is apparently read 
from right to left (like in arabic) how are sorts affected ?  (Must dictionnary 
elements be changed from left justified to right justified ?)





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


Re: [U2] [UV] XDOMOpen returning -1

2013-03-20 Thread Jacques G.
Hello,

On a new installation of UV I'm the following command returns a -1:

XDOMOpen( xmlData, XML.FROM.STRING, hDOM )

Any idea what causes this ?  I encountered the same error 5-6 years ago but 
forgot how it was originally solved.  Can it be due to insufficient memory ?

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


Re: [U2] [U2[UV] @TIME and TIME() not reliable

2012-09-10 Thread Jacques G.

Hello,

Has anyone else here observed this behavior for Universe 11.1.3 on a OS other 
than HP-UX ?

Sometimes, @TIME will report an incorrect internal time.  When I first observed 
this behavior, I changed my use of @TIME for a call to TIME().  It fixed the 
problem on one HP-UX server I was working on, but when I installed the program 
on a different HP-UX server, TIME() now sometimes reported an incorrect 
internal time.  For example, it was around 6:00 am but the time reported was 
for about 4:00 am.

I fixed the problem on that server by replacing TIME() by 
ICONVS(TIMEDATE()[1,8],MTS)

We have a setup for temporary locks that expire after a given time these 
temporary locks were being created as already expired.  It's a problem when a 
server can't determine the correct internal time.

Thanks 

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


[U2] [UV] Using Global sign certificates in UV

2012-06-04 Thread Jacques G.



Hello,

The URL of a webservice I need to use has a port number in it ei:

Acceptance = 
https://Leonardo.Rafael.be:9101/CustomerOrder/OrderManagementService/01/;

The libraries U2 libraries I'm using are somehow interpreting: 
Leonardo.Rafael.be:9101 as the complete hostname (which it doesn't find in the 
host file. 

05/29/2012 16:07:02 [ 26930 26925 ] new host 221010:Leonardo.Rafael.be:9101 
allocated (proxy:no)
05/29/2012 16:07:02 [ 26930 26925 ] host Leonardo.Rafael.be:9101 not found in 
hostList
05/29/2012 16:07:09 [ 26930 26925 ] Unknown socket error : 1000

The code below is from the pick wiki article.   Any ideas on now to get 
CreateSecureRequest() to interpret the host + port correctly ?

Thanks.


*** ### Code ***
*For getting onto webservices we use this sort of code:


  * Read an xml request to send to the webservice *
  OPEN , WORK.OUT TO WORK.OUT ELSE STOP 201, WORK.OUT
  READ XML.REQUEST FROM WORK.OUT, TURTLE.XML ELSE STOP
  XML.REQUEST = CONVERT(@AM,,XML.REQUEST) 

  PROMPT ''  ;* 212.65.63.70 
  Acceptance = 
https://Leonardo.Rafael.be:9101/CustomerOrder/OrderManagementService/01/;
**  Acceptance = 
https://212.65.63.70:9101/CustomerOrder/OrderManagementService/01/;
  Production = 
https://Leonardo.Rafael.be/CustomerOrder/OrderManagementService/01/;


  X.LOG.FILE   = /trace_pc/work.out/CERT.LOG
  X.LOG.ACTION = 'ON'
  X.LOG.LEVEL = '10'
  WRITE  ON WORK.OUT, CERT.LOG ;* Overwrite existing log file

  X.RTN.CODE = protocolLogging(X.LOG.FILE, X.LOG.ACTION,X.LOG.LEVEL)

  
  URL = Acceptance ;* Setting URL to the acceptance site

  L.ERR = 
  sec_context=''
  L.ERR =createSecurityContext(sec_context,'')
  usedAs=2 ;* 2 = Issuer Certificate CA
  format = 2 ; algorithm = 1 ;

* Uncomment to next 4 lines to create a new certificate

* they only last for 365 days

* action = 1

*    req = '/PROD/certificates'

  CACert = '/trace_pc/work.out/CERT/REPTILE_SERVERS_CA.CRT' ; extensions = 
'' ; CertOut = '/trace_pc/work.out/CERT/ACTUAL'
*    ret = 
createCertificate(action,req,priveKey,explore,CACert,365,extensions,CertOut)
  ret = addCertificate(CertOut, usedAs, format, algorithm,sec_context)
    
  CRT The Return code is :ret



  depth=1    ; * 0 = self signed, 1 = Signed by a CA
  serverOrClient=2   ; * 1 = Server, 2 = client
  
  L.ERR+=setAuthenticationDepth(sec_context, depth, serverOrClient)




  CRT L.ERR After setAuthenticationDepth : :L.ERR
  CRT Hit a key to continue :;XX = KEYIN()


  ret = 
addAuthenticationRule(sec_context,serverOrClient,VerificationStrength,Generous)

  L.ERR+=setHTTPDefault(HEADERS,)

  CRT L.ERR after addAuthenticationRule : :L.ERR
  CRT Hit a key to continue :;XX = KEYIN()


  L.ERR+=setHTTPDefault(VERSION,1.1)

  CRT L.ERR after setHTTPDefault : :L.ERR
  CRT Hit a key to continue :;XX = KEYIN()


  request_handle=''
  L.ERR+=createSecureRequest(URL, POST, request_handle,sec_context) ;* 
Using the url

  CRT L.ERR after createSecureRequest : :L.ERR
  CRT Hit a key to continue :;XX = KEYIN()


  XML = XML.REQUEST
  MAX.RETRIES = 10
  SERVER.IP.ADDRESS = Leonardo.Rafael.be

  TIMEOUT    = 9

  L.ERR+=addRequestParameter(request_handle, xmlStream, XML, )
  CRT L.ERR after addRequestParameter : :L.ERR
  CRT Hit a key to continue :;XX = KEYIN()


  L.STATUS = 0 ; L.OUTPUT =  ; L.TIMEOUT =  ; L.POST.DATA = ;
  L.HEADER = 
  L.ERR+=submitRequest(request_handle, TIMEOUT, L.POST.DATA, L.HEADER, 
L.OUTPUT, L.STATUS)

  CRT L.ERR : :L.ERR
  CRT L.HEADER:L.HEADER
  CRT
  CRT L.OUTPUT:L.OUTPUT
  CRT L.POST.DATA:L.POST.DATA

  SOCKET.PORT    = 9101
  BLOCKING.MODE  = 1 ;* 1 = Blocking Mode,  2 = Non-Blocking Mode


  X.LOG.ACTION = 'OFF'
  X.RTN.CODE = protocolLogging(X.LOG.FILE, X.LOG.ACTION,X.LOG.LEVEL)
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] [UV] Connecting to a WebService with UV using Authentication Certificate

2012-05-15 Thread Jacques G.


Hello,

A need has come up where I work to connect to a web service using Universe 
however the Webservice needs a Authentification Certificate.  Is there any way 
to do this all with Universe or does one need to make use of Java on the UV 
server ?   (Are there any examples available that do something like this ?)

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


Re: [U2] Unusual code

2012-03-16 Thread Jacques G.


It isn't unusual for a multi-lingual system where the Y/N flags would be stored 
as boolean values and the text corresponding to the letters Y/N would be stored 
in a file somewhere.  Many languages have 'N' for no but have a different 
letter for Yes.  (Si, Oui, Ja for example).




 From: Wjhonson wjhon...@aol.com
To: u2-users@listserver.u2ug.org 
Sent: Thursday, March 15, 2012 1:23 PM
Subject: Re: [U2] Unusual code
 

I don't know why someone would have thought that Y equals 1 and N equals 2 
that's just odd to me.
The code is confusing enough to make me just want to say, if they entered a Y 
exit, if they entered a N continue or whatever.
That's job security right there!



-Original Message-
From: Symeon Breen syme...@gmail.com
To: 'U2 Users List' u2-users@listserver.u2ug.org
Sent: Thu, Mar 15, 2012 2:42 am
Subject: Re: [U2] Unusual code


So you can answer y or n or 1 or 2 to this pompt, and if it is n or 2 you are 
aken to ENTER.PROBLEM.CODES


Original Message-
rom: u2-users-boun...@listserver.u2ug.org 
[mailto:u2-users-boun...@listserver.u2ug.org] 
n Behalf Of Wjhonson
ent: 15 March 2012 00:21
o: u2-users@listserver.u2ug.org
ubject: [U2] Unusual code

n my 25 years in Pick I have never seen a construction like this to test for Y 
r N or whatever it's doing.
hat is this doing?  What is this 1]2 and 1,1 doing ?  Why do I need this?

297: CHECK:   PRINT @(0,17): Are the problem codes correct (Y/N)?  :
298:          INPUT ANSWER
299:          LOCATE ANSWER IN '�Y�N�1�2'1,1 SETTING TEST ELSE PRINT BELL
300:          LOCATE ANSWER IN '�Y�1'1,1 SETTING TEST ELSE
301:             PRINT @(0,13):CLEAR.REST.SCREEN ; GOTO ENTER.PROBLEM.CODES
___
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
-
o virus found in this message.
hecked by AVG - www.avg.com
ersion: 10.0.1424 / Virus Database: 2113/4870 - Release Date: 03/14/12
___
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://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] [UV] Strange mask behavior

2012-01-25 Thread Jacques G.
Hello,


I had this small test program on UV 11.1.3:

 A = 5143546011
 CRT A (###) ###-
 CRT FMT(A,(###) ###-)

I was expecting to have:  (514) 654-6011   (North American formatted phone)

However I am getting:

514) 354-6011
514) 354-6011

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


Re: [U2] [UV] uvcs Memory leak problems on 11.1.3

2011-11-16 Thread Jacques G.
Quite possibly, but I'm not going to re-write 5 years worth of API's to 
accomodate a bug in Universe 11.1.3.   :-)




From: Symeon Breen syme...@gmail.com
To: 'U2 Users List' u2-users@listserver.u2ug.org
Sent: Monday, November 14, 2011 4:26 AM
Subject: Re: [U2] [UV] uvcs Memory leak problems on 11.1.3

On unidata I have had to process many an xml file outside of the DB as the
memory just shoots right up

If you are using uniobjects then I presume you have .net or java at the
front end and it is likely that these environments are better suited to
'handling' the xml and simply passing data arrays to the universe layer to
work on.



-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jacques G.
Sent: 11 November 2011 20:05
To: U2 Users List
Subject: Re: [U2] [UV] uvcs Memory leak problems on 11.1.3


Hello,

In order to save connection time on Uniobjects API requests, I came up with
an Api which could contain several XML requests into one,  Process each one
in the requested order and return the answer of each request in the
resulting XML request.

On Universe 10.2.11,  the API runs anywhere from 10 to 50 requests in a
batch like this taking no more than between 45 and 59 megs of ram on a HP-UX
server.


Starting with Universe 11.1.3, doing far fewer requests  (ei from 5 to 9)
the memory requirements go up as high as 100 to 122 megs of Ram on a HP-UX. 
Somewhere it looks like Universe's XML generation routines are gobbling up
memory and this memory is not getting freed. It seems that many memory
leaks were fixed from 10.2.1 to 11.1.3 according to the release notes but a
huge new one was introduced.  

I know of the memory used by the process because I have a job which produce
the output of the top command once a minute,  so the memory used by a
process extracted from the output of the top command and logged.

Has anyone else experienced anything like this ?

Jacques G.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1411 / Virus Database: 2092/4010 - Release Date: 11/11/11

___
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] uvcs Memory leak problems on 11.1.3

2011-11-16 Thread Jacques G.



The xml files are processed with the  XMAPReadNext command using a mapping file 
that is defined in XML.  Basically the Batch API does:

FOR X.JOB = 1 TO NB.JOB
   XML.PARAM = JOBX.JOB
   Parse XML.PARAM in a DYN.ARRAY (using map in XML)

   CALL @JOB.NAME(DYN.ARRAY,OUT.ARRAY)
   Build XML.OUT string from OUT.ARRAY
  Store XML.OUT in JOB.OUTX.JOB
NEXT X.JOB
Return JOB.OUT to the calling web service

  

I will try upgrading the Uniobjects dll to see what it does.

Thanks





From: Symeon Breen syme...@gmail.com
To: 'U2 Users List' u2-users@listserver.u2ug.org
Sent: Monday, November 14, 2011 11:58 AM
Subject: Re: [U2] [UV] uvcs Memory leak problems on 11.1.3

Another thing to try is process the xml files outside of uniobjects but
still in databasic and see how it goes. If it uses large amounts of memory
then it is not a uniobjects issue . You could then try using those xml files
from a *nix shell program like xmlwf / xml_pp or xsltproc. These use the
standard xmllib library that uv may be using so if those give high memory
usage it may not even be a uv issue but a *nix library issue.



-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David Jordan
Sent: 14 November 2011 10:23
To: U2 Users List
Subject: Re: [U2] [UV] uvcs Memory leak problems on 11.1.3

That triggered a memory.  If you are using an older version of uniobjects in
the .Net you can get memory issues when you upgrade the database.   Have a
look at upgrading the uniobject .Net to the lastest release.

Regards
David Jordan

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Symeon Breen
Sent: Monday, 14 November 2011 8:27 PM
To: 'U2 Users List'
Subject: Re: [U2] [UV] uvcs Memory leak problems on 11.1.3

On unidata I have had to process many an xml file outside of the DB as the
memory just shoots right up

If you are using uniobjects then I presume you have .net or java at the
front end and it is likely that these environments are better suited to
'handling' the xml and simply passing data arrays to the universe layer to
work on.



-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jacques G.
Sent: 11 November 2011 20:05
To: U2 Users List
Subject: Re: [U2] [UV] uvcs Memory leak problems on 11.1.3


Hello,

In order to save connection time on Uniobjects API requests, I came up with
an Api which could contain several XML requests into one,  Process each one
in the requested order and return the answer of each request in the
resulting XML request.

On Universe 10.2.11,  the API runs anywhere from 10 to 50 requests in a
batch like this taking no more than between 45 and 59 megs of ram on a HP-UX
server.


Starting with Universe 11.1.3, doing far fewer requests  (ei from 5 to 9)
the memory requirements go up as high as 100 to 122 megs of Ram on a HP-UX.
Somewhere it looks like Universe's XML generation routines are gobbling up
memory and this memory is not getting freed. It seems that many memory
leaks were fixed from 10.2.1 to 11.1.3 according to the release notes but a
huge new one was introduced.  

I know of the memory used by the process because I have a job which produce
the output of the top command once a minute,  so the memory used by a
process extracted from the output of the top command and logged.

Has anyone else experienced anything like this ?

Jacques G.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1411 / Virus Database: 2092/4010 - Release Date: 11/11/11

___
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
-
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1411 / Virus Database: 2092/4015 - Release Date: 11/13/11

___
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] uvcs Memory leak problems on 11.1.3

2011-11-11 Thread Jacques G.

Hello,

In order to save connection time on Uniobjects API requests, I came up with an 
Api which could contain several XML requests into one,  Process each one in the 
requested order and return the answer of each request in the resulting XML 
request.

On Universe 10.2.11,  the API runs anywhere from 10 to 50 requests in a batch 
like this taking no more than between 45 and 59 megs of ram on a HP-UX server.


Starting with Universe 11.1.3, doing far fewer requests  (ei from 5 to 9) the 
memory requirements go up as high as 100 to 122 megs of Ram on a HP-UX.  
Somewhere it looks like Universe's XML generation routines are gobbling up 
memory and this memory is not getting freed. It seems that many memory 
leaks were fixed from 10.2.1 to 11.1.3 according to the release notes but a 
huge new one was introduced.  

I know of the memory used by the process because I have a job which produce the 
output of the top command once a minute,  so the memory used by a process 
extracted from the output of the top command and logged.

Has anyone else experienced anything like this ?

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


[U2] [UV] Obtaining a file creation date and time without locking it

2011-06-02 Thread Jacques G.

Hello,

Currently I have code that does something like this:

EQU TM.LIMIT TO 3 ;* File useable if created less than TM.LIMIT seconds ago.


OPENSEQ PATH.HOUSE:ipcs.txt TO F.IPCS ELSE RETURN
STATUS STAT FROM F.IPCS THEN
   CLOSESEQ F.IPCS
   IPCS.TM = STAT15
   IPCS.DT = STAT16
   SEC.PASSED = (DATE() - IPCS.DT) * 86400
   SEC.PASSED += (TIME() - IPCS.TM)
   IF SEC.PASSED  TM.LIMIT THEN RETURN ;* Too old can't use it
END

The problem with this approach, is that in order to query the file's internal 
date and time, I have to do an OPENSEQ which locks the file.   This means that 
another process that may need to perform the same check has to wait for the 
lock 
to be released.

Any way to open the file in a ReadOnly mode in UV so that It won't get locked ?

Jacques

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


Re: [U2] UniObjects.Net error message

2011-06-02 Thread Jacques G.
You could check if the files it tries to open exists.

If using Universe, verify your uverrlog in the uv account. It may have 
additionnal information.



- Original Message 
From: Holt, Jake jh...@samsill.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Wed, June 1, 2011 10:53:51 AM
Subject: Re: [U2] UniObjects.Net error message

Is the subroutine actually running successfully and you are just getting
an error message or is it failing?  I have had this message show up
occasionally on subroutines that worked when I used END instead of
RETURN at the end of the subroutine.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Hona, David
Sent: Wednesday, June 01, 2011 1:39 AM
To: 'U2 Users List'
Subject: Re: [U2] UniObjects.Net error message

Is this a new program/process? Do it is just stop working?

Does it rely upon label common variables, file hands/variables, etc
which perhaps aren't defined when calling it via your call?


-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Ken Ford
Sent: Wednesday, 1 June 2011 8:50 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] UniObjects.Net error message

I wonder if anyone can assist with this problem:
We are using UniObjects.Net with Universe 10.3 on under AIX 5.3.
A web request is returning an error about a subroutine failing to
complete:

[IBM U2][UODOTNET - UNICLIENT][ErrorCode=30107] The subroutine failed to
complete successfully

It works successfully with other web requests, and the format of the
request is correct.
The apiserver log file reveals that the request was received, but has
this line after the request details:

ICSubCall UVSETJMP returncode=30107.

When I run the request using a Universe request emulation program that
calls the same subroutine, it works correctly and the output is
correctly formatted.

Thanks for any help or suggestions you may have.

Ken Ford
Software Engineer (Universe, etc.)

** IMPORTANT MESSAGE *  
This e-mail message is intended only for the addressee(s) and contains
information which may be confidential. 
If you are not the intended recipient please advise the sender by return
email, do not use or disclose the contents, and delete the message and
any attachments from your system. Unless specifically indicated, this
email does not constitute formal advice or commitment by the sender or
the Commonwealth Bank of Australia (ABN 48 123 123 124) or its
subsidiaries. 
We can be contacted through our web site: commbank.com.au. 
If you no longer wish to receive commercial electronic messages from us,
please reply to this e-mail by typing Unsubscribe in the subject line. 
**



___
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] Mailing List Hacked

2011-04-19 Thread Jacques G.

It could be useful if the listserver had an option to surpress the email 
addresses of the sender.  This way, a poster's email couldn't be harvested.  
Mailing lists managed by Yahoogroups do this.






- Original Message 
From: u2list0...@curt.com u2list0...@curt.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Tue, April 19, 2011 3:34:44 PM
Subject: Re: [U2] Mailing List Hacked

Having read and seen what people have said I understand now.
My apologies to the group.
I had no idea our actual email addresses showed up on Google 
searches. No wonder this happened.


At 4/19/2011 01:11 PM, you wrote:
To my knowledge, the list hasn't been hacked, nor has anyone subscribed and
sent phishing attempts through the list.  It is being mirrored/archived via
Nabble and a couple of others, I believe, which may be the source of the
email harvesting.

Larry Hiscock
Moderator


-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Robert Porter
Sent: Tuesday, April 19, 2011 5:28 AM
To: U2 Users List
Subject: Re: [U2] Mailing List Hacked

I was about to mention that...  his email address appears in 3+ dozen pages
in google. So unless there's some other evidence, I'm not worrying about the
list being hacked.

Robert


  George Gallen ggal...@wyanokegroup.com 4/19/2011 7:26 AM 
not to mention that the list is on search engines as well

  -Original Message-
  From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-
  boun...@listserver.u2ug.org] On Behalf Of Jeffrey Butera
  Sent: Tuesday, April 19, 2011 7:27 AM
  To: u2-users@listserver.u2ug.org
  Subject: Re: [U2] Mailing List Hacked
 
  On 04/19/2011 07:22 AM, u2list0...@curt.com wrote:
   I just received a phishing attack addressed to my U2 Mailing list
   email address.
 
  That doesn't mean the list was hacked (eg: found a way to scrape
  addresses from the outside).  Anyone can join the list, harvest email
  from it and then use it for bad things.  I've seen this before on other
  high-traffic lists I'm on.
 
 
  --
  Jeffrey Butera
  Manager of ERP Systems
  Hampshire College
  413-559-5556
 
  ___
  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

Curt Lashley
2803 North Boulevard
Tampa, FL 33602
Cell: (813) 293-2878 or (800) 886-2878
Home: (813) 226-2878 or (800) 524-2878
Fax: (813) 229-2878
___
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] UODOTNET.DLL and 64bit windows.

2011-02-17 Thread Jacques G.
Hello,

I wanted to know if anyone here uses the Uodotnet.dll with 64bit versions of 
Windows.  Particularly windows 2003.  If so, which version of the uodotnet.dll 
do you use ?

I am getting an Uodotnet error 81011  saying that the host is unknown.   I am 
able do open a telnet session to the host and I specified the host with the ip 
address.

I am getting 



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


Re: [U2] [UV] UniVerse Uptime

2011-02-17 Thread Jacques G.

On Unix, there is an uptime command.that will tell you how long the server has 
been running.


If you don't always restart Universe when the server reboots, you can modify 
the 
uv.rc script:

/u1/uv/bin/sample/uv.rc

This script is executed when Universe starts.   You could execute the Unix date 
command and save the output somewhere.  This would give you the date and time 
that Universe started.







- Original Message 
From: Perry Taylor perry.tay...@zirmed.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Thu, February 17, 2011 9:10:27 AM
Subject: [U2] [UV] UniVerse Uptime

Does anyone have a good method for determining how long UniVerse has
been running?

Thanks.

Perry Taylor
Zirmed, Inc.


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] Does UV have a BLOCK command

2011-02-11 Thread Jacques G.
It sounds like you're used to using a GOTO and aren't allowed to do so anymore 
because of company standards

Gosub Block_code1
Gosub Block_code2
IF condition else
   GOSUB BlockCode3
END.


You can put your blocks in a subroutine





- Original Message 
From: George Gallen ggal...@wyanokegroup.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Mon, February 7, 2011 3:25:59 PM
Subject: [U2] Does UV have a BLOCK command

I want to setup a block of commands,  and be able to exit out of the block if 
needed.
Right now I use a LOOP/REPEAT with an EXIT statement before the REPEAT.
I'd rather not use labels  (or subroutines).
The Loop/Repeat works, it just looks weird since it isn't really a loop...
I tried using an IF block, but I couldn't use the EXIT within that block  IF 
(1=1) THEN..END

LOOP
   block code
   block code
   if condition then EXIT
   block code
   EXIT
REPEAT

Would be nice if

BEGIN BLOCK
   block code
   block code
   if condition then EXIT
   block code
END BLOCK


George Gallen
Senior Programmer/Analyst
Accounting/Data Division, EDI Administrator
ggal...@wyanokegroup.com
ph:856.848.9005 Ext 220
The Wyanoke Group
http://www.wyanokegroup.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] [UV] Invalid SELECT list specification keyword ignored.

2011-01-06 Thread Jacques G.
I found that the error message appeared only if list # 9 was empty.  Which 
makes 
this error message the equivalent of a red light light on a car's dash which 
tells you that something is wrong but with no further information.




- Original Message 
From: Symeon Breen syme...@gmail.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Thu, January 6, 2011 5:33:46 AM
Subject: Re: [U2] [UV] Invalid SELECT list specification keyword ignored.

Is this unidata - it will be to do with ECLTYPE, BASICTYPE - you may want to
use UDTEXECUTE.











From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jacques G.
Sent: 05 January 2011 20:58
To: U2 Users List
Subject: [U2] [UV] Invalid SELECT list specification keyword ignored.





Hello,

I have the following command:

SSELECTY VOC FROM 9 TO 10 (10

It works fine from the TCL level but when used in a PERFORM statement in a
program I get the:

Invalid SELECT list specification keyword ignored.

Error message:

Any ideas ?




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

  _  

No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1191 / Virus Database: 1435/3359 - Release Date: 01/04/11

___
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] Invalid SELECT list specification keyword ignored.

2011-01-05 Thread Jacques G.

Hello,

I have the following command:

SSELECTY VOC FROM 9 TO 10 (10

It works fine from the TCL level but when used in a PERFORM statement in a 
program I get the:

Invalid SELECT list specification keyword ignored.

Error message:

Any ideas ?



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


Re: [U2] too many values in sort

2010-10-26 Thread Jacques G.
You can try saving your list of keys you want to sort and use Unix's sort 
program on that savedlist.  Use the port number on your saved list to make sure 
it is unique.



- Original Message 
From: Kevin King precisonl...@gmail.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Mon, October 25, 2010 11:54:25 AM
Subject: [U2] too many values in sort

Unidata 6.1.15 on AIX.  The following command:

SSELECT SHOPPING.LIST BY.EXP PROD.NUM

Yields the message too many values in sort.  There is one record in this
file with 36,457 product numbers but would that break the BY.EXP?  If so,
is there a config parameter somewhere that could be tweaked to make this
work?

-Kevin
http://www.PrecisOnline.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] adding UO.NET section to web.config

2010-08-24 Thread Jacques G.
Hello,

I use:

configSections
sectionGroup name=UO.NET
section name=General 
type=System.Configuration.DictionarySectionHandler/
section name=ConnectionPooling 
type=System.Configuration.DictionarySectionHandler/
/sectionGroup
/configSections
UO.NET
General
add key=SocketTimeOut value=3/
/General
ConnectionPooling
add key=ConnectionPoolingOn value=0/
add key=MinimumPoolSize value=10/
add key=MaximumPoolSize value=10/
add key=IdleRemoveThreshold value=30/
add key=IdleRemoveExecInterval value=30/
add key=OpenSessionTimeOut value=3/
/ConnectionPooling
/UO.NET




- Original Message 
From: Symeon Breen syme...@gmail.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Tue, August 24, 2010 10:32:41 AM
Subject: [U2] adding UO.NET section to web.config

Hi – there are many examples of setting up uniobjects.net params within the
config file, however in asp.net simply putting the UO.NET section in
web.config does not compile as it is not a defined section. So I have also
added the following

configSections
section name=UO.NET
type=IBMU2.UODOTNET.Uniobjects,IBMU2.UODOTNET/
/configSections

This compiles, but it pays no attention to the UO.NET section.  

Does anyone know what else i need to ad to my web.config to get it to use
the UO.NET section ?



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] @LOGNAME on Unidata

2010-06-17 Thread Jacques G.

On Universe you can use SYSTEM(19) instead of @LOGNAME.  It might exist on 
Unidata too.

I don't know if @LOGNAME gets it from the Unix environment LOGNAME variable.  
If so, there may be a Unix script that is changing the environment variable.   
You can try:





- Original Message 
From: Jeffrey Butera jbut...@hampshire.edu
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Thu, June 17, 2010 2:04:08 PM
Subject: [U2] @LOGNAME on Unidata

We recently migrated from Unidata 7.1.8 on Solaris to Unidata 7.2.5 on RedHat.

We make use of @LOGNAME quite a bit to determine a person's username.  Since 
our migration, however, we've documented some cases where @LOGNAME is not 
returning the proper username - it returns someone else's.What's bizarre is 
that most of the time it's right, but occasionally it's not.

Has anyone seen or heard of this?

When we had a report of this (with documentation) I thought it was weird.  
Today we just got a call about a different problem which I'm 99% sure is tied 
to this since it makes use of @LOGNAME.  Like the above, sometimes it's 
correct, sometime it's wrong.

-- Jeff Butera, Ph.D.
Manager of ERP Systems
Hampshire College
jbut...@hampshire.edu
413-559-5556

___
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] QSORT (Or something like that)

2010-05-25 Thread Jacques G.
Hello,

I adapted a Heapsort algorithm a while back that I had obtained from a book 
(Turbo Algorithms circa 1989).  The original had been written in Turbo Basic or 
Turbo Pascal, I forget which.   I adapted it so that I could use work dimmed 
arrays (even if they were smaller than the dynamic arrays I was sorting).  This 
was to take advantage of the faster access time to access a dimmentionned 
array.  The dynamic array was basically folded on the dimmentionned array.
For example, if I wanted to sort 100,000 items I could use a dimmed matrix of 
10,000 items.

It is fairly fast however I've only used in one shot data migration project so 
use at your own risk. 

SUBROUTINE HDSORT(MAT MAR1, MAT MAR2, MAR.SIZE, LIST.ARRAY.1, LIST.ARRAY.2, 
NUMDATA,ASCENDING,MASK,DELIM)
*
*
*-- Heapsort Program for dynamic arrays -*
* MAR1:  Large Work Matrix provided for by calling pgm must be same size as 
MAR2: Used for LIST.ARRAY.1
* MAR2:  Large Work Matrix provided for by calling pgm must be same size as 
MAR1: Used for LIST.ARRAY.2
* MAR.SIZE: Size of MAR1  MAR2
* LIST.ARRAY.1:  Dynamic list of elements (keys) to be sorted
* LIST.ARRAY.2:  Dynamic list of tag-along elements
* NUMDATA :  Number of attributes in the list arrays (Can be bigger than 
MAR.SIZE)
* ASCENDING   :  Ex: AR, AL, DL, DR
* DELIM   :  Delimiter used for LIST.ARRAY.1 and LIST.ARRAY.2.  Must be one 
of @AM, @VM, @SVM
* :  Only the specified delimiter is allowed in the LIST.ARRAY.1 
and LIST.ARRAY.2 as
*the remove command is used to extract the elements quickly in 
the parse subroutine
*
MAT MAR1 = '' ; MAT MAR2 = ''

IF NUMDATA = 1 THEN RETURN
GOSUB parse ;*  Parse the contents into the DIMMED arrays

LEFT.OR.RIGHT = UPCASE(ASCENDING[1])
ORDER = UPCASE(ASCENDING[1,1])

I = 0
TEMPO = 
HALF.NUM.DATA = DIV(NUMDATA,2)
FOR I = HALF.NUM.DATA -1 TO 1 STEP -1
  ROOT.ARG = I
  NODE.ARG = NUMDATA -1
  GOSUB sift
NEXT I

FOR I = NUMDATA -1 TO 1 STEP -1
  EL = I+1
  LN = 1 + MOD(EL-1,MAR.SIZE)
  CL = 1 + DIV(EL-1,MAR.SIZE)
*
  TEMPO   = MAR1(LN)CL
  TEMPO.2 = MAR2(LN)CL
*
  MAR1(LN)CL = MAR1(1)1
  MAR1(1)1   = TEMPO
*
  MAR2(LN)CL = MAR2(1)1
  MAR2(1)1   = TEMPO.2
*
  ROOT.ARG = 1 ; NODE.ARG = I ; GOSUB sift
NEXT I
GOSUB matbuild
RETURN

sift: 
RESUME.LOOP = 1
LN = 1 + MOD(ROOT.ARG-1,MAR.SIZE)
CL = 1 + DIV(ROOT.ARG-1,MAR.SIZE)
PIVOT   = MAR1(LN)CL
PIVOT.2 = MAR2(LN)CL
J = 2 * ROOT.ARG
FOR SL = 1 TO (SL+1) WHILE (J= NODE.ARG) AND RESUME.LOOP
  IF J  NODE.ARG THEN
 LN = 1 + MOD(J-1,MAR.SIZE)
 CL = 1 + DIV(J-1,MAR.SIZE)
 V1 = MAR1(LN)CL
 
 LN = 1 + MOD(J,MAR.SIZE)
 CL = 1 + DIV(J,MAR.SIZE)
 V2 = MAR1(LN)CL

 IF MASK NE '' THEN
V1 = V1 MASK
V2 = V2 MASK
 END

 IF ORDER = 'A' THEN
VAL.CMP = COMPARE(V1,V2,LEFT.OR.RIGHT)
 END ELSE
VAL.CMP = 0 - COMPARE(V1,V2,LEFT.OR.RIGHT)
 END
 IF VAL.CMP  0 THEN J+= 1
  END
  W1 = PIVOT
  LN = 1 + MOD(J-1,MAR.SIZE)
  CL = 1 + DIV(J-1,MAR.SIZE)
  W2 = MAR1(LN)CL
  IF MASK NE '' THEN
 W1 = W1 MASK
 W2 = W2 MASK
  END
  IF ORDER = 'A' THEN
 VAL.CMP = COMPARE(W1,W2,LEFT.OR.RIGHT)
  END ELSE
 VAL.CMP = 0 - COMPARE(W1,W2,LEFT.OR.RIGHT)
  END
  IF VAL.CMP  0 THEN
 MID.LN = 1 + MOD(DIV(J,2)-1,MAR.SIZE)
 MID.CL = 1 + DIV(DIV(J,2)-1,MAR.SIZE)
 LN = 1 + MOD(J-1,MAR.SIZE)
 CL = 1 + DIV(J-1,MAR.SIZE)
 MAR1(MID.LN)MID.CL = MAR1(LN)CL
 MAR2(MID.LN)MID.CL = MAR2(LN)CL
 J = J * 2
  END ELSE RESUME.LOOP = 0
NEXT SL
LN = 1 + MOD(DIV(J,2)-1,MAR.SIZE)
CL = 1 + DIV(DIV(J,2)-1,MAR.SIZE)
MAR1(LN)CL = PIVOT
MAR2(LN)CL = PIVOT.2
RETURN

*---*
* Parse the elements into the dimmed arrays
*---*
parse:
FOR EL = 1 TO NUMDATA
   REMOVE ELEMENT FROM LIST.ARRAY.1 SETTING TYPE
   LN = 1 + MOD(EL-1,MAR.SIZE)
   CL = 1 + DIV(EL-1,MAR.SIZE)
   MAR1(LN)CL = ELEMENT
NEXT EL
FOR EL = 1 TO NUMDATA
   REMOVE TAG FROM LIST.ARRAY.2 SETTING TYPE
   LN = 1 + MOD(EL-1,MAR.SIZE)
   CL = 1 + DIV(EL-1,MAR.SIZE)
   MAR2(LN)CL = TAG  ;* Tag along
NEXT EL
RETURN

*---*
* Rebuild the element from the matrice
*---*
matbuild:
FOR EL = 1 TO NUMDATA
   LN = 1 + MOD(EL-1,MAR.SIZE)
   CL = 1 + DIV(EL-1,MAR.SIZE)
   BEGIN CASE
 CASE DELIM = @AM 
LIST.ARRAY.1EL = MAR1(LN)CL
LIST.ARRAY.2EL = MAR2(LN)CL
 CASE DELIM = @VM
   LIST.ARRAY.11,EL = MAR1(LN)CL
   LIST.ARRAY.21,EL = MAR2(LN)CL
 CASE DELIM = @SVM
   LIST.ARRAY.11,1,EL = MAR1(LN)CL
   LIST.ARRAY.21,1,EL = MAR2(LN)CL
   END CASE
NEXT EL
RETURN


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


Re: [U2] OPENSEQ and Abnormal termination of UV

2010-05-21 Thread Jacques G.
If your file is opened, then comparing it to an empty string is what will 
cause an invalid data type error.


WHY!!!

If the datatypes don't match, then the result of the comparison is 
FALSE, not INVALID.

It is logically correct to do such a comparison. The result I am looking 
for is the logically correct response. It SHOULD NOT crash the program!

And it worked fine on INFORMATION, why not UV?

It is a bad idea to allow it, it encourages bad programming practices and it 
can hide a bug in your program for example if you do:

READ CAR FROM CARS ELSE CAR = ''
IF CARS #  ''  THEN

Here what was intended was to compare CAR to ''  not CARS but having the S 
there is a typo.
If we don't allow datatypes of different types being compared this bug has a 
greater chance of getting caught during development because the program will 
fail on comparing the file to a null string.

If you use FILEINFO it shows that you know that the variable you are testing is 
a file.

I've seen a similar case where a subroutine was expecting:

SUBROUTINE  ABC (MAT A, MAT B, MAT C)

A programmer only needed the contents of the matrix B and C to call it and did:

CALL ABC(,MAT B, MAT C)

Only thing Matrix ABC puts something in MAT A and since the programmer passed 
an empty string what happens is that the content of Matrix B is over-written 
causing data corruption.

It would probably have been a good idea to detect that since a Matrix was 
expected, it shouldn't be legal to pass a dynamic array to the subroutine.  

Most modern OOP programming languages don't allow for types of different kinds 
to be compared to one another without some way of casting them.  


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


Re: [U2] OPENSEQ and Abnormal termination of UV

2010-05-20 Thread Jacques G.
Oh - that reminds me of something else I'd call a bug. It might well have been 
fixed by now (I met it in 9.6) but you couldn't safely use a file variable in 
an IF statement. Can't remember the details, but it was something like


FVAR = 
some conditional code
OPEN FILE TO FVAR
more code
IF FVAR EQ  THEN
oh the file isn't open, so do whatever

If your file is opened, then comparing it to an empty string is what will cause 
an invalid data type error.   You want to do instead:

IF FILEINFO(FVAR,0) = 0 THEN

Or:

OPEN FILE TO FVAR THEN FLAG.OPEN = 1 ELSE FLAG.OPEN = 0
IF FLAG.OPEN THEN

One error I've seen:

READ CUSTOMER FROM CUSTOMER THEN...

The record item that is being read is the same name as the opened file 
variable... ouch !


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


Re: [U2] OPENSEQ and Abnormal termination of UV

2010-05-20 Thread Jacques G.

Using dimmed matrixes is still a lot faster.  

If you have a dynamic array of 10,000 items and you wantA9995 when you 
extract it, it will parse the whole until it passes 9994 @AM then it will 
extract whatever is between the 9994 and 9995.
Having it in a dynamic array is like having a pointer to each @AM position.

This is why the REMOVE command was added for when a dynamic array is processed 
within a for loop.  The REMOVE command keeps track of the position of the last 
AM, VM, SVM used.

One exemple:   
DIM B(10)
A = CONVERT(],@AM,AA]BB]])
MATPARSE B FROM A USING @AM

B now has a pointer to each of the 4 elements of 4:
B(1) -  AA
B(2) - B
B(3) - 
B(4) - 

When you want the third row, you don't have to pass through the contents of 
B(1) and B(2) you have a pointer to the start of the string that contains 
.


I've used dimmed matrixes to speed sorts and binary search algorithms.

One other advantage of a dimmed matrix is that you can use it to pass several 
files as arguments to a subroutine.  With a dynamic array it can only be a file 
or a string.  You don't change a subroutine's signature if you pass  

call MYSUB(MAT FILES,MAT ARGV_IN, MAT ARGV_OUT)

This way you can add to the number of files and arguments of a subroutine 
without changing the number of arguments.  With dynamic arrays you would have 
to add more arguments to add more files. Ei from:

CALL MYSUB(FILE1, ARGV_IN, ARGV_OUT)

to 

CALL MYSUB(FILE1, FILE2, ARGV_IN, ARGV_OUT)

This means each program calling MYSUB has to be modified.



- Original Message 
From: John Hester jhes...@momtex.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Tue, May 18, 2010 3:31:25 PM
Subject: Re: [U2] OPENSEQ and Abnormal termination of UV

Reading my own response just made me realize what's going on.  I think
Jerry's response was right.  I remember many years ago (I won't say how
many) when we were on much slower hardware, explaining to a coworker
that it was better to use dimensioned arrays when possible because they
were faster to populate than dynamic arrays.  The reason they're faster
is because the necessary space for them is already reserved in memory.
A dynamic array has to go out and find add'l memory each time you add to
it.  Looks like putting a sequential file in a dimensioned array makes
it go out and reserve a block of memory the size of the entire file.  If
that's the case then making FILEVARS a dynamic array *should* work.

-John


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


Re: [U2] import data to excel sheet...

2010-04-12 Thread Jacques G.
Hi Jaweed,

If you already produced a number of files with the CHAR(13) as the end of line 
separator, you probably still handle them with excel, if you change the file 
extension from .csv to .txt and when you are in Excel import wizard, specify 
that the origin of the file is Macintosh.Since the Mac uses CHAR(13) as 
an EOL separator, the import should work.





- Original Message 
From: Robert Houben robert.hou...@fwic.net
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Mon, April 12, 2010 12:01:03 PM
Subject: Re: [U2] import data to excel sheet...

Hi Jaweed,

I haven't looked too closely at your code, but I did notice on thing that I 
would consider the most likely candidate:

CHAR(13) is a carriage return, not a line feed.  Try using CHAR(10) instead for 
your LINE.FEED variable. You might have to use CHAR(13):CHAR(10), but I think 
CHAR(10) should do it.

Good luck!

-Original Message-
From: u2-users-boun...@listserver.u2ug.org 
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jaweed
Sent: Monday, April 12, 2010 7:53 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] import data to excel sheet...

Can anyone tell me what is wrong with the following code for importing data
from txt file to an excel sheet, when its launch

Excel it giving some error message, but when I open the downloaded file from
my disc, all the data is in one line with some especial

Chars. Any help will be appreciated.



034: **

035: * OPEN FILES *

036: **

037:   ERRMSG = ''

038:   OPEN TEXT.FILE.NAME TO TEXT.FILE ELSE

039: ERRMSG = 'CANNOT OPEN THE ' : TEXT.FILE.NAME : ' FILE!'

040:   END

041:   IF ERRMSG THEN

042: GOSUB 91000

043: RETURN

044:   END

*--: P

045: **

046: * INITIALIZE *

047: **

048:   PAGE.FEED = CHAR(12)

049:   LINE.FEED = CHAR(13)

050:   ;*

051:   ;* Read the text file to convert

052:   ;*

053:   READ TEXT.REC FROM TEXT.FILE, TEXT.REC.NAME ELSE

054: ERRMSG = ITEM  : TEXT.REC.NAME :  DOES NOT EXIST IN  :
TEXT.FILE.NA

ME

055: GOSUB 91000

056: RETURN

057:   END

058:   ;*

059:   ;* Set default values (none are used now)

060:   ;*

061:   VALUE = DEFAULT

062:   LOCATE PROPERTY IN FORMATSTR1 SETTING PTR THEN

063: VALUE = FORMATSTR2,PTR

064:   END

065:   ;*

066:   ;* Remove the first line if it contains a PAGE.FEED

*--: P

067:   ;*

068:   LOOP WHILE TEXT.REC1 = PAGE.FEED DO

069:  TEXT.REC = DELETE(TEXT.REC,1)

070:   REPEAT

071:   IF TEXT.REC1[1,1] = PAGE.FEED THEN

072:  TEXT.REC1 = TEXT.REC1[2,LEN(TEXT.REC)]

073:   END

074:   ;*

075:   ;* Find the header for each page

076:   ;*

077:   SLK.REC = ''

078:   SLK.ROWS = 0

079:   SLK.HEADER.LINES = 0

080:   IF TEXT.REC1[1,10] = RUN D - T: THEN

081: SLK.REC-1 = F;SD;R3

082: SLK.REC-1 = F;SD;R4

083: SLK.REC-1 = C;Y1;X1;K :
QUOTE(TRIM(CHANGE(TEXT.REC1[1,30],';',';;

')))

084: SLK.REC-1 = C;Y2;X1;K :
QUOTE(TRIM(CHANGE(TEXT.REC2[1,30],';',';;

')))

085: SLK.REC-1 = C;Y3;X1;K :
QUOTE(TRIM(CHANGE(TEXT.REC1[31,90],';',';

;')))

086: SLK.REC-1 = C;Y4;X1;K :
QUOTE(TRIM(CHANGE(TEXT.REC2[31,90],';',';

;')))

087: SLK.ROWS = 4

088: SLK.HEADER.LINES = 2

*--: P

089:   END

090:   ;*

091:   ;* Find the number of lines in the header

092:   ;*

093:   LINES = DCOUNT(TEXT.REC,@AM)

094:   SLK.HEADER.CNT = 0

095:   FOR IDX = SLK.HEADER.LINES+1 TO LINES

096: IF INDEX(TEXT.RECIDX,---,1) THEN

097:   SLK.HEADER.CNT = IDX

098:   EXIT

099: END

100:   NEXT IDX

101:   ;*

102:   ;* Find the column locations

103:   ;*

104:   COL.LIST  = ''

105:   IF SLK.HEADER.CNT THEN

106: DASHES.LINE =   : TEXT.RECSLK.HEADER.CNT :  

107: DASHES.LINE = TRIM(DASHES.LINE,'-')

108: DASHES.CNT  = COUNT(DASHES.LINE,'-')

109: DASHES.LINE = TEXT.RECSLK.HEADER.CNT

110: FOR DASHES.IDX = 1 TO DASHES.CNT

*--: P

111:   COL.START = INDEX(DASHES.LINE,'-',1)

112:   DASHES.REMAIN = LEN(DASHES.LINE) - COL.START + 1

113:   COL.LEN   = INDEX(DASHES.LINE[DASHES.REMAIN],' ',1)-1

114:   IF COL.LEN  1 THEN COL.LEN = LEN(DASHES.LINE)

115:   COL.LISTDASHES.IDX,1 = COL.START

116:   COL.LISTDASHES.IDX,2 = COL.LEN

117:   DASHES.LINE[COL.START,COL.LEN] = SPACE(COL.LEN)

118: NEXT DASHES.IDX

119:   END

120:   ;*

121:   ;* Extract the column titles

122:   ;*

123:   COL.CNT = DCOUNT(COL.LIST,@AM)

124:   FOR HDR.IDX = SLK.HEADER.LINES+1 TO SLK.HEADER.CNT-1

125: SLK.ROWS = SLK.ROWS + 1

126: SLK.Y = Y : SLK.ROWS : ;

127: ;*

128: ;* Make sure the header properly fits into the column

129: ;* If it does not, then add it to the spreadsheet's first column

130: ;*

131: CHECK.LINE = TEXT.RECHDR.IDX

132: GOSUB CHECK.COLUMNS

*--: P

133: IF NOT(CHECK.LINE) THEN

134:   SLK.TEXT = TRIM(CHANGE(TEXT.RECHDR.IDX,';',';;'))

135:   SLK.REC-1 = C; : SLK.Y : X1;K : QUOTE(SLK.TEXT)

136:   CONTINUE

137: END

Re: [U2] Regex searching UD files

2010-03-30 Thread Jacques G.
I found a way to do it with compiled dictionary elements (on UV).

1- I create a dictionnary element called EGREP.ARGS that always returns X:
0001: I
0002: X[1,1]
0003:
0004: EGREP.ARGS
0005: 1L
0006: M

2- I create a dictionnary element called EGREP which is defined like this:
0001: I
0002: SUBR(DICT.EGREP,@RECORD,@ID,@SENTENCE)
0003:
0004: EGREP
0005: 40L
0006: M

DICT.EGREP is defined like this:
SUBROUTINE DICT.EGREP(OUT,RECORD,ID,SENTENCE)
COM /WORKF/WORKF
IF FILEINFO(WORKF,0) = 0 THEN
   OPEN , WORK.FILE TO WORKF ELSE STOP 201, WORK.FILE ;* A type 19 file 
on Universe (pointer to a directory)
END
STATUS STAT FROM WORKF ELSE STOP
PATH = STAT27

*--- Extract the arguments for egrep from cmd line ---*
ARG.PFX   = EGREP.ARGS NE 
POS.EGREP = INDEX(SENTENCE,ARG.PFX,1) + LEN(ARG.PFX) + 1
EGREP.ARG = SENTENCE[POS.EGREP,LEN(SENTENCE)-POS.EGREP+1]
EGREP.ARG = EGREP.ARG[1,INDEX(EGREP.ARG,EGREP,1)-1]
EGREP.ARG = CONVERT('','',EGREP.ARG)

TMP.KEY = egrep.tmp ;* Using temporary key not ID to avoid problems (ei: 
spaces, parentheses etc)
WRITE RECORD ON WORKF, TMP.KEY   ;* Write rec to temp. file

CMD = cd :PATH: ; egrep :EGREP.ARG: :TMP.KEY
EXECUTE SH -c :QUOTE(CMD) CAPTURING OUT
DELETE WORKF, TMP.KEY;* Remove record
RETURN

This is how I do my search:

LIST MYFILE WITH EGREP.ARGS NE -in blahblah EGREP


(This will do the equivalent of   egrep -in blahblahblah MYFILE if MYFILE was a 
type 19 file)

This method writes only one record at a time and deletes it so while it is slow 
(1 write + a sh executed per record), it will work with limited space available 
and it uses the Unix egrep command.  The arguments to the egrep command are 
parsed from the sentence between  EGREP.ARGS NE and EGREP.   






- Original Message 
From: Dan McGrath dmc...@imb.com.au
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Mon, March 29, 2010 5:13:00 PM
Subject: Re: [U2] Regex searching UD files

Not even close... We run in ECLTYPE P and don't have access to EVAL and
the like.

^[Cc][Hh][Qq].*[5-8][0-9][0-9][0-9]x

Unless you can explain how to duplicate the above search with ESEARCH?

@Stuart, that would be ideal, but unfortunately I can't go dumping out
multi-gigabyte files. :(



-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wally Terhune
Sent: Tuesday, 30 March 2010 5:22 AM
To: U2 Users List
Subject: Re: [U2] Regex searching UD files

Does UniData ECL ESEARCH command not fill the bill already?

Wally Terhune
U2 Support Architect
Rocket Software
4700 S. Syracuse Street, Suite 400 **Denver, CO 80237 **USA
Tel: +1.720.475.8055
Email: wterh...@rs.com
Web: www.rocketsoftware.com/u2

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Boydell,
Stuart
Sent: Monday, March 29, 2010 12:22 AM
To: U2 Users List
Subject: Re: [U2] Regex searching UD files

I think this should be one for Rocket to implement a RegexSearch in U2. 
However, if it's size non-impactive, what I would normally do is copy
the file to a temporary directory then run grep across that.

Stuart Boydell 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath
Sent: Monday, 29 March 2010 17:08
To: U2 Users List
Subject: [U2] Regex searching UD files

I've written a small utility to be able to run egrep on a UD file (not
UD directory), however its implementation is not ideal.



Essentially, I select the file I'm searching, writing each record one at
a time to a temp UNIX file and running egrep on it as follows



!egrep -q -f MyTempRegexFile MyTempRecordFile ; echo $?



Where MyTempRegexFile is a file containing the desired regex pattern
stored earlier and MyTempRecordFile is a file name unique to each user.



My problem with it is that I have to do a READ on each record, followed
by a WRITE then have egrep read it in as well. That's a lot of seemingly
unneeded disk IO if I could only stream the record to egrep without have
to do a WRITE after the READ.



Any ideas? I feel I'm missing something quite obvious.



Regards,

Dan



###
The information transmitted in this message and attachments (if any) is
intended only
for the person or entity to which it is addressed. The message may
contain confidential
and/or privileged material.  Any review, retransmission, dissemination
or other use of
or taking of any action in reliance upon this information by persons or
entities other
than the intended recipient is prohibited.  If you received this in
error, please
contact the sender and delete the material from any computer.

The intended recipient of this e-mail may only use, reproduce, disclose
or distribute
the information contained in this e-mail and any attached files with the
permission of IMB.

Re: [U2] ECLTYPE U mode [was RE: Regex searching UD files]

2010-03-29 Thread Jacques G.

You can write the equivalent of the egrep command in Pick basic that you could 
call from the TCL.  If you need a working example to write (to see what command 
line options are normally supported), it there are a number of versions of 
grep/cgrep/egrep/fgrep on freshmeat.net.  Most likely written in C or C++.   





-Original Message-

From: u2-users-boun...@listserver.u2ug.org 
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath
Sent: Monday, March 29, 2010 3:13 PM
To: U2 Users List
Subject: Re: [U2] Regex searching UD files

Not even close... We run in ECLTYPE P and don't have access to EVAL and
the like.

^[Cc][Hh][Qq].*[5-8][0-9][0-9][0-9]x

Unless you can explain how to duplicate the above search with ESEARCH?

@Stuart, that would be ideal, but unfortunately I can't go dumping out
multi-gigabyte files. :(


___
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] USERS vs Analyze.shm -x

2010-03-16 Thread Jacques G.

Hello,

When logging into the uv account, if I run this paragraph:

PA
USERS
ANALYZE.SHM -X


The number of users logged on as reported by USERS is often different than that 
which is reported by ANALYZE.SHM -x.Anyone know if there is a version where 
this has been fixed ?This was apparently reported in 10.0.17  ( 
http://osdir.com/ml/db.u2.general/2004-05/msg00148.html ) .

We have one client using 10.2.11 on HP-UX and his UODOT.NET web services is at 
times getting the 39134 errors (The user limit has been reached on the server 
Source)  when not all of his licences have been taken yet.  As reported by 
SYSTEM(35).

Just running it a few times I am getting the numbers:

There are currently 1098 users logged on the system.
General System Information:
Login count: 1109


There are currently 1095 users logged on the system.
General System Information:
Login count: 1106


There are currently 1089 users logged on the system.
General System Information:
Login count: 1101

There are currently 1087 users logged on the system.
General System Information:
Login count: 1099


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


[U2] [UV] On Linux

2010-03-05 Thread Jacques G.
Hello,

I've it mentioned a few times that Universe is available on Linux.   On what 
flavor of Linux is it available ?   Has anyone here been using it and are there 
any issues versus how it works on UNIX ?

Jacques



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


Re: [U2] windows/dos my documents environment variable

2010-03-05 Thread Jacques G.
Hi,

This works for Windows in the English language.  In French, it would be:   
%userprofile\Mes documents.   The directory name changes depending on the 
language windows is in.



- Original Message 
From: Holt, Jake jh...@samsill.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Thu, March 4, 2010 10:10:19 AM
Subject: Re: [U2] windows/dos my documents environment variable

%userprofile%\My Documents

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dave Laansma
Sent: Thursday, March 04, 2010 9:11 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] windows/dos my documents environment variable

I know this is not a U2 question, but I am trying to push a file from
Unidata to the PC User's 'my documents' directory, using the Accuterm
escape sequences for transferring a file.



For those of you who are Dos savvy, what is the Dos environment variable
that returns the full path of the users 'my documents' directory?



Sincerely,

David Laansma

IT Manager

Hubbard Supply Co.

Direct: 810-342-7143

Office: 810-234-8681

Fax: 810-234-6142

www.hubbardsupply.com

Delivering Products, Services and Innovative Solutions



___
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] AccuTerm File Transfer

2010-02-15 Thread Jacques G.
A possitility is to mount a remote disk from a Windows system into a partition 
on the Universe server.  The Universe program can create its files there.  The 
Windows clients can also mount this file system.



- Original Message 
From: Tony Gravagno 3xk547...@sneakemail.com
To: u2-users@listserver.u2ug.org
Sent: Mon, February 15, 2010 6:31:13 PM
Subject: Re: [U2] AccuTerm File Transfer

 From: Kevin King
 Tony, I found the escape sequences but the amount of
information for
 downloading an item was woefully insufficient.

Agreed.  Try this, bud:
http://www.pickwiki.com/cgi-bin/wiki.pl?AccuTermFileTransfer

That demonstrates the DOSSVC utility for moving data to and from
MV.  If you look at that program in FTBP you'll see it calls
subroutine FTS, which you can also use as desired.  From there
you're down to ESCape sequences, which really aren't bad after
you've spent a few minutes and get to that oh I get it point.

Best,
T


___
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] UODOT.NET and performance counter errors on Windows 2003

2010-01-31 Thread Jacques G.
Hello,

When deploying web services which use UODOTNET.DLL on a Windows 2003 
environment, I frequently encounter security errors pertaining to performance 
counters.  I never have these errors when deploying on XP machines.  Anyone 
here have a procedure that gets rid of that error every time ?

So far I've added the ASPNET user to the administrator list so that he can 
create the performance counters.  I've also increased the trust level of the 
UODOTNET.DLL assembly.  Any ideas of what else I can change ?

I'm using Framework 2.0.[something]


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


Re: [U2] [UV] Where is the COMMON block reserved ?

2009-11-19 Thread Jacques G.
Hello,

I have a question pertaining to how the shell used by the connection pooling 
works as it relates to memory allocation.

In the following cases:

Case 1:  Program 1 has a number of variables and matrixes declared in a common 
section  it calls  Program 2 which has the same common matrixes and variables 
declared.

Ex: Program 1:

COM ABC(100), D,E,F
ARG = BLAH
CALL PGM2(ARG)

Program 2:
SUBROUTINE PGM2(ARG)
COM ABC(100), D, E,F
CRT ARG
RETURN

 

Case 2: Program1 doesn't have any common variables declared it calls Program2 
which does have common matrixes and variables declared:

Program 1:  

ARG = BLAH
CALL PGM2(ARG)

Program 2:
SUBROUTINE PGM2(ARG)
COM ABC(100), D, E,F
CRT ARG
RETURN


In Case 2, is the common block declared in the stack segment or will the common 
be declared in the same place in both cases ?   


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


[U2] [UV] Storing / Displaying the Euro symbol

2009-10-07 Thread Jacques G.

Hello,

Anyone here had to display the Unicode Euro symbol  on the terminal ?  I'd like 
to store it in a data item and be able to display it.  I've looked at the 
UNICHARS command without luck.

Jacques G.



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


Re: [U2] U2 is now Rocket U2

2009-10-07 Thread Jacques G.
I wonder what is the marketing idea behind the name Rocket ?   To me it 
invokes late 1950 - 1960's Sputnik/Apollo technology to an epoch when cars 
designs were made to look like rockets, when there was a hockey player 
nicknamed Maurice The Rocket Richard and people watched Flash Gordon on a 
black and white television.

When I hear Rocket I think retro like a  LP Player, a typewriter, a PDP-1.  

Wouldn't one want a software product to sound more state of the art ?

Sci-fi hasn't used the term Rocketship in decades.


Jacques


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


Re: [U2] [UV] Storing / Displaying the Euro symbol

2009-10-07 Thread Jacques G.
We are using terminal emulators.  Putty and HostAccess are the most frequently 
used.



- Original Message 
From: Bob Rasmussen r...@anzio.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Wed, October 7, 2009 4:06:48 PM
Subject: Re: [U2] [UV] Storing / Displaying the Euro symbol

On Wed, 7 Oct 2009, Jacques G. wrote:

 
 Hello,
 
 Anyone here had to display the Unicode Euro symbol on the terminal ?  
 I'd like to store it in a data item and be able to display it.  I've 
 looked at the UNICHARS command without luck.

If you're talking about an actual (dumb) terminal, good luck with that. If 
you're talking about a terminal emulator, you will surely be dependent on 
the capabilities of the emulator. Our emulators, Anzio Lite and AnzioWin, 
can display the full range of Unicode characters. There are some 
configuration settings that must be correct; we could help you with that.

Regards,
Bob Rasmussen,   President,   Rasmussen Software, Inc.

personal e-mail: r...@anzio.com
company e-mail: r...@anzio.com
  voice: (US) 503-624-0360 (9:00-6:00 Pacific Time)
fax: (US) 503-624-0760
web: http://www.anzio.com
street address: Rasmussen Software, Inc.
 10240 SW Nimbus, Suite L9
 Portland, OR  97223  USA
___
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] Looking for an OCONV/ICONV

2009-09-04 Thread Jacques G.
Thanks, 

I hadn't thought of using CONVERT, it's a nice way to do what I need with just 
one line of code.



- Original Message 
From: Henry Unger hun...@hitech.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Thursday, September 3, 2009 3:19:31 PM
Subject: Re: [U2] Looking for an OCONV/ICONV

I don't recall anything built-in, but...

Here is an I-type expression that will strip everything except hexadecimal 
notation characters from @RECORD:

@RECORD; CONVERT('0123456789ABCDEF', '', @1); CONVERT(@2, '', @1)

Change @RECORD to some other field as desired.

If you really want to create an ICONV/OCONV function, you can do that too if 
you are using UniVerse.

Something like this:

FUNCTION U( STATUS, VALUE, TYPE )

IF TYPE THEN
* ICONV()
   TEMP = CONVERT('0123456789ABCDEF', '', VALUE)
   RESULT = CONVERT(TEMP, '', VALUE)
END ELSE
* OCONV()
   RESULT = VALUE
END

STATUS = 0

RETURN (RESULT)

END

Catalog as $ and use as the conversion in the dictionary as U.

Best regards,

Henry Unger
Hitech Systems, Inc.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org 
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jacques G.
Sent: Thursday, September 03, 2009 11:43 AM
To: U2 Users List
Subject: [U2] Looking for an OCONV/ICONV

Is there an OCONV/ICONV I could use to filter out characters invalid for an 
hexadecimal notation ?  Ei anything other than 01234567890ABCDEF  ?  I had a 
cheat sheet for special ICONV/OCONV statements but I've seemed to have 
misplaced it.
  
___
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] Looking for an OCONV/ICONV

2009-09-03 Thread Jacques G.
Is there an OCONV/ICONV I could use to filter out characters invalid for an 
hexadecimal notation ?  Ei anything other than 01234567890ABCDEF  ?  I had a 
cheat sheet for special ICONV/OCONV statements but I've seemed to have 
misplaced it.


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


Re: [U2] COMMON misMatch

2009-07-15 Thread Jacques G.

Someone probably compiled the program you were in  while you were in it.   
When you went back, you got the new version when you executed it again.



- Original Message 
From: Brutzman, Bill bi...@hkmetalcraft.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Wednesday, July 15, 2009 7:54:47 PM
Subject: Re: [U2] COMMON misMatch


A user here obtained an error message...

    COMMON size mismatch in subroutine HOP.R87.

Upon logging out and then logging back in again... The HOP program was
able to launch without this error.

Help with a diagnosis and more reliable cure would be appreciated.

This user is WinXP / Dynamic Connect / UniVerse 10.1 / HP-Ux 11i v2.

--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] Using the fixtool utility.

2009-07-07 Thread Jacques G.

Hello,

I am trying the following command:

/u1/uv/bin/fixtool -file /resize/FOOBAR -logging -logpath /resize/loggin

The directory:  /resize/FOOBAR
contains:

-rwxrwxrwx   1 root   sys    1256974336 Jul  3 07:33 DATA.30
-rwxrwxrwx   1 root   sys    7190597632 Jul  3 07:33 OVER.30

The directory

/resize/loggin

Already exists however when I use the command:
/u1/uv/bin/fixtool -file /resize/FOOBAR -logging -logpath /resize/loggin

I get the message:

An error has occurred when running.
Error:  Unable to create the logging directory

I get the same error if I delete the directory /resize/loggin

It would be nice if the error message would print out the the name of the 
directory it is unable to create.  Any ideas of how I should change the command 
?  I'd like to run a diagnostics before I use the fix command.  (The file I 
want to fix is 64 bits).  This is on a HP-UX machine.


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


Re: [U2] [UV] Using the fixtool utility.

2009-07-07 Thread Jacques G.
It is not the case, I used the uv user which has root permissions and my 
directories have 777 permissions.





From: IT-Laure Hansen lhan...@redwoodcity.org
To: Jacques G. jacque...@yahoo.com
Sent: Tuesday, July 7, 2009 2:23:54 PM
Subject: RE: [U2] [UV] Using the fixtool utility.

My (wild) guess is this has to do with permissions in your /resize/loggin 
directory.

Laure Hansen,
City of Redwood City - Information Technology
1017 Middlefield Road - Redwood City, CA 94063
Office 650-780-7087 - Cell 650-207-3235 - Fax 650-556-9204
lhan...@redwoodcity.org

 Please think green before printing this e-mail

Subscribe to receive Redwood City E-News, news releases, 
or other documents via email: Click here to register/subscribe


-Original Message-
From: u2-users-boun...@listserver.u2ug.org 
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Jacques G.
Sent: Tuesday, July 07, 2009 11:21 AM
To: U2-Users@listserver.u2ug.org
Subject: [U2] [UV] Using the fixtool utility.


Hello,

I am trying the following command:

/u1/uv/bin/fixtool -file /resize/FOOBAR -logging -logpath /resize/loggin

The directory:  /resize/FOOBAR
contains:

-rwxrwxrwx   1 root   sys    1256974336 Jul  3 07:33 DATA.30
-rwxrwxrwx   1 root   sys    7190597632 Jul  3 07:33 OVER.30

The directory

/resize/loggin

Already exists however when I use the command:
/u1/uv/bin/fixtool -file /resize/FOOBAR -logging -logpath /resize/loggin

I get the message:

An error has occurred when running.
Error:  Unable to create the logging directory

I get the same error if I delete the directory /resize/loggin

It would be nice if the error message would print out the the name of the 
directory it is unable to create.  Any ideas of how I should change the command 
?  I'd like to run a diagnostics before I use the fix command.  (The file I 
want to fix is 64 bits).  This is on a HP-UX machine.


  
___
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] Paragraphs and procwrite

2009-05-24 Thread Jacques G.
You can have the basic program generate the paragraph dynamically, and save it 
in the Voc under a temporary name.  You can even have that paragraph delete 
itself when it is done.



- Original Message 
From: Brian Leach br...@brianleach.co.uk
To: u2-users@listserver.u2ug.org
Sent: Saturday, May 23, 2009 7:45:04 AM
Subject: RE: [U2] Paragraphs and procwrite

Hi

You could use one of the user-defined system variables: e.g. @USER0

E.g.
PA
CallMyProgram
IF @USER0 = SomeFlag GO DoSomething

PROGRAM CallMyProgram
  @USER0 = SomeOtherFlagActually
END


 -Original Message-
 From: owner-u2-us...@listserver.u2ug.org 
 [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of roy
 Sent: 22 May 2009 23:15
 To: u2-users@listserver.u2ug.org
 Subject: [U2] Paragraphs and procwrite
 
 Hi all,
 
  
 
 Is there a way to accomplish passing an argument from a basic 
 program to a paragraph?
 
  
 
 Something like what procwrite does with a Proc?
 
  
 
 Thanks
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] UV to SAP migration disaster

2009-04-20 Thread Jacques G.
An IBM vendor went to a company I used to work for to try to get them to dump 
their current Unidata database and switch to DB2, how much new and better it 
was.  One of the advantages he listed was IBM support.

So one guy in our IT department told him:  You really don't know anything 
about Unidata do you ?
So the vendor asked him what he meant by that.

So he told him: Unidata's an IBM product currently supported by IBM.  You 
didn't even know that.  What kind of credibility can you expect to have in 
listing DB2's advantages Unidata if you didn't even know that ?


It's not a good thing when a guy in a company bashes his own company's product. 
  At least the guy had the sense to look embarassed.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Re: [UV] Passing a string when a Matrix is expected

2009-04-16 Thread Jacques G.
I came accross a case in legacy code where a subroutine is defined to accept 
some matrixes as parameter ei:

SUBROUTINE FOOBAR(TXT, MAT A, MAT B, MAT C, MAT D, OPTION)

One of the calling programs that makes use of this subroutine does this:

CALL FOOBAR(HELLO, , , , , WORLD)

Instead of passing a matrix, it is passing an empty string.  

The result is that in FOOBAR, matrixes  A, B, C and D are of size zero.   In 
FOOBAR there is code that does:

MATBUILD REC.A FROM A USING CHAR(1)

Now the MATBUILD command on a matrix of size zero is giving me an undefined 
variable in a test program I wrote but in the program in production, it is 
giving me the content of a variable in the program.

I was wondering if there is a way to detect if a matrix is of size zero in 
Unibasic.   
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] Config parameter for the READU

2009-03-21 Thread Jacques G.
Hi,

There is a note from IBM on this:  119628. It mentions that we can't inquire as 
to the value of SYSTEM(1999) to know if it has been turned off or not as it 
will always report zero.  So it looks like we will have to turn it off to make 
sure.  It may explain some anomalies.

I previously thought it was turned off because I had done a small program that 
would do this:
CRT SYSTEM(1999) 

and it would print zero.



- Original Message 
From: Martin Phillips martinphill...@ladybridge.com
To: u2-users@listserver.u2ug.org
Sent: Friday, March 20, 2009 6:09:46 PM
Subject: Re: [U2] [UV] Config parameter for the READU

Hi Jacques,

 If the value of SYSTEM(1999) is set to zero does that mean
 that this featured is turned off and that the READU will wait
 however long it takes to get the lock or does it mean it is set
 to the default 3600 waiting value ?

Setting it to zero disables it completely. To my mind, this is the only 
sensible way to run but I'm open to arguments.


Martin Phillips
Ladybridge Systems Ltd
17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
+44-(0)1604-709200 ---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Config parameter for the READU

2009-03-20 Thread Jacques G.
Hello,

I recall reading here a while back that there is a parameter in the (possibly 
in the uvconfig file) that determines how long READU will wait for a lock when 
it is taken by someone else.  Someone on the list said something to the effect 
that he set it to wait for one month.

What is this parameter and what happens with the READU when the time set by 
that parameter is up ?

I thought I had saved that email in my UV.KEEP folder but I can't seem to find 
it now.

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


Re: [U2] [UV] Config parameter for the READU

2009-03-20 Thread Jacques G.
If the value of SYSTEM(1999) is set to zero does that mean that this featured 
is turned off and that the READU will wait however long it takes to get the 
lock or does it mean it is set to the default 3600 waiting value ?





- Original Message 
From: Martin Phillips martinphill...@ladybridge.com
To: u2-users@listserver.u2ug.org
Sent: Friday, March 20, 2009 1:01:07 PM
Subject: Re: [U2] [UV] Config parameter for the READU

Hi Jacques,

 I recall reading here a while back that there is a parameter
 in the (possibly in the uvconfig file) that determines how long
 READU will wait for a lock when it is taken by someone else.

There is but it is horrendous because, when it times out, the program takes the 
ELSE clause so that it thinks it owns the lock. I have appended a copy of a 
posting from Charles Stephenson on this topic back in 2002 below.

If you are looking for a simple timeout that effectively gives a delayed entry 
to the LOCKED clause, there is no such feature though you can manufacture it 
from other components.

Martin Phillips
Ladybridge Systems Ltd
17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
+44-(0)1604-709200

=

Cause: LOCK.WAIT param set to 0
   instead of default 3600 (seconds) during UV.LOGIN
Workaround: Set LOCK.WAIT to very large number.  E.g.:
 ASSIGN 86400 TO SYSTEM(1999)  (basic statement)
 SET.SQL LOCK.WAIT 86400   (tcl command)
Summary:
In Rev 8.3.3 UV introduced the LOCK.WAIT feature and set the default to 3600 
(seconds).  This parameter says that if a LOCKED clause is missing, after 
[LOCK.WAIT] seconds, then ignore the lock and proceed with the ELSE clause ! ? 
! ? !

Until now, the workaround for this feature has been to turn off by setting 
the parameter to 0, typically via
   ASSIGN 0 TO SYSTEM(1999)
typically from a program executed from UV.LOGIN, the routine in uv/VOC that 
everyone hits when they enter the universe shell.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] IDE

2009-03-19 Thread Jacques G.
Delphi is still here, VB isn't. 
(No VB.Net is not VB, it's a completely different technology with the some of 
the same keywords. Most of .Net was modelled on Delphi anyway grin)

VB.NET was for people familiar with VB or Basic,   C#, J# for people familiar 
with Java.  There is a Cobol .NET.   

For people familiar with Delphi, Pascal, Modula2,  Oberon, Ada and there are 
versions of those for .NET also:

http://www.dotnetpowered.com/languages.aspx

Having these languages available helps lessen the learning curve.  

The .NET framework is also being cloned for Linux as a open-source project so 
the platform may be less important in the future.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] IDE

2009-03-17 Thread Jacques G.
Using .NET doesn't mean you're stuck with IE.  The webpages which make use of 
dot.net services can be any webserver.  You'd just have to develop with your 
customer's browser to make sure it displays correctly.



- Original Message 
From: Brutzman, Bill bi...@hkmetalcraft.com
To: u2-users@listserver.u2ug.org
Sent: Tuesday, March 17, 2009 2:35:04 PM
Subject: RE: [U2] IDE

Here is another design angle...

Although we use MS Exchange and Outlook, Excel, and Word, my boss
eschews Microsoft IE.  As I am not looking to talk myself out of my job,
I am not looking to force .net on him.

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


Re: [U2] UV Timed INPUT

2009-03-11 Thread Jacques G.
 I'm typing this from memory:

TM.LIMIT   = 5 ;* 5 second time limit
DT.START = DATE()
TM.START = TIME()
LOOP
IF INPUT XX,-1 THEN INPUT VAR ELSE 
   TM.PASSED  = (DATE() - DT.START) * 86400  
   TM.PASSED  += (TIME() - TM.START)
   IF TM.PASSED  TM.LIMIT THEN EXIT
END
REPEAT




- Original Message 
From: Norman, David (Health) norman.da...@saambulance.com.au
To: u2-users@listserver.u2ug.org
Sent: Wednesday, March 11, 2009 11:26:56 PM
Subject: [U2] UV Timed INPUT

I'm sure I've seen something about this recently, but I've searched the
past 2 years with no luck. I want to do a timed INPUT in UV - if after n
seconds the Enter key hasn't been pressed, do something.
Anyone got any clever ways of doing this ?

Thanks,

David Norman
Senior Software Engineer - SA Ambulance Service

ICT Services
SA Health
Government of South Australia

Box 3, GPO
Adelaide, South Australia 5001
* +61 8 8274 0384 
* fax +61 8 8271 4844
* norman.da...@saambulance.com.au

This e-mail may contain confidential information, which also may be
legally privileged. Only the intended recipient(s) may access, use,
distribute or copy this e-mail. If this e-mail is received in error,
please inform the sender by return e-mail and delete the original. If
there are doubts about the validity of this message, please contact the
sender by telephone. It is the recipient's responsibility to check the
e-mail and any attached files for viruses.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Multiple email copies

2009-03-04 Thread Jacques G.
Is anyone else receiving 5 copies of each mail sent to the u2-users list ?  
Last week I was only receiving 3 copies of each mail.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] AUTOLOGOUT and ON.ABORT

2009-03-02 Thread Jacques G.
You should read your uvconfig file (and Manual) to see if you have a flag for 
it in the Windows version of Universe.  On the Unix version, the only thing I 
need to do in order to turn on the loggin is to create the errlog file.

Your admin menu may have an option for it somewhere.



- Original Message 
From: Mike Roosa mike.ro...@gmail.com
To: u2-users@listserver.u2ug.org
Sent: Monday, March 2, 2009 9:35:11 AM
Subject: Re: [U2] AUTOLOGOUT and ON.ABORT

I created the errlog file and it does appear to be logging some messages.
Do I have to do anything in uniadmin as I see a couple of error messages
when universe first starts up.
Sun Mar 01 01:00:11  -4701 NT AUTHORITY\system uniVerse Log Daemon started
Sun Mar 01 01:00:11  -4701 NT AUTHORITY\system Unable to read LOGS.DIR entry
from D_UV_LOGS.
Sun Mar 01 01:00:11  -4701 NT AUTHORITY\system Can't start logging, logging
inactivated in uvconfig


On Fri, Feb 27, 2009 at 5:21 PM, Jacques G. jacque...@yahoo.com wrote:

 On unix it's an empty file (size zero) we create:
 EI:

 touch errlog

 On a windows the equivalent would probably be (from dos prompt when in the
 uv account):
 copy con errlog
 ^Z

  1 file(s) copied.

 (After typing CTRL-Z you press[RETURN])  I haven't used the errlog in
 Universe for Windows though.



 - Original Message 
 From: Mike Roosa mike.ro...@gmail.com
 To: u2-users@listserver.u2ug.org
 Sent: Friday, February 27, 2009 3:55:22 PM
 Subject: Re: [U2] AUTOLOGOUT and ON.ABORT

 Ok, so I just create a type 18 file called ERRLOG in the UV account and
 restart universe?

 On Fri, Feb 27, 2009 at 11:59 AM, Martin Phillips 
 martinphill...@ladybridge.com wrote:

  Hi Mike,
 
   I was under the impression that the errlog only existed on
  unix systems. Maybe I'm wrong on this but I can't find it
  anywhere on our system.
 
 
  The errlog file is on Windows too but, just as on Unix, you need to
 create
  an empty errlog file in the UV account directory to enable the system. UV
  looks for this on entry and enables logging.
 
 
  Martin Phillips
  Ladybridge Systems Ltd
  17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
  +44-(0)1604-709200 ---
 
  u2-users mailing list
  u2-users@listserver.u2ug.org
  To unsubscribe please visit http://listserver.u2ug.org/
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Strange happening...

2009-03-02 Thread Jacques G.
As a rule of thumb, one shouldn't use a string as a boolean unless it's 
intended to be a boolean like a 0 or a 1.  I've encountered many bugs because a 
test would do:

IF VARIABLE THEN

Instead of:

IF VARIABLE NETHEN ...

or IF LEN(VARIABLE)  0



- Original Message 
From: Timothy Snyder tsnyd...@us.ibm.com
To: u2-users@listserver.u2ug.org
Sent: Monday, March 2, 2009 2:38:33 PM
Subject: Re: [U2] Strange happening...

 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

Be careful with that!  If there's a valid ID of 0 or 000 or 
0 it would hit the error-handling code.  I suggest 
checking ID against an empty string, since that's the actual error 
condition..

Tim Snyder
Consulting I/T Specialist
U2 Lab Services
Information Management, IBM Software Group
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] DO/WHILE vs IF THEN

2009-03-02 Thread Jacques G.
The case can be tested also if n/y are acceptable:

LOOP PRINT ENTER 'Y' OR 'N' :;INPUT ANS,1
UNTIL INDEX('NY',UPCASE(ANS),1) REPEAT

*-- P.AM will contain a boolean value  0 for N, 1 for Y --*
FOR X = 1 TO (X+1)
  PRINT ENTER 'Y' OR 'N' :;INPUT ANS,1
  FIND UPCASE(ANS) IN N:@AM:Y SETTING P.AM THEN P.AM -= 1 ; EXIT
NEXT X



- Original Message 
From: Keith Johnson [DATACOM] kei...@datacom.co.nz
To: u2-users@listserver.u2ug.org
Sent: Monday, March 2, 2009 7:38:16 PM
Subject: Re: [U2] DO/WHILE vs IF THEN

Mark Johnson suggested the following change

Before
GOOD.ANS=FALSE
LOOP UNTIL GOOD.ANS DO
   PRINT ENTER 'Y' OR 'N' :;INPUT ANS
   IF ANS=Y OR ANS=N THEN GOOD.ANS=TRUE REPEAT

after
LOOP WHILE TRUE DO
   PRINT ENTER 'Y' OR 'N' :;INPUT ANS
   IF ANS=Y OR ANS=N THEN EXIT
REPEAT

These forms all work (Universe 10.2.0)  and are progressively shorter
than the above

LOOP
   PRINT ENTER 'Y' OR 'N' :;INPUT ANS
   IF ANS=Y OR ANS=N THEN EXIT
REPEAT


LOOP
   PRINT ENTER 'Y' OR 'N' :;INPUT ANS
UNTIL ANS=Y OR ANS=N DO
REPEAT


LOOP
   PRINT ENTER 'Y' OR 'N' :;INPUT ANS
UNTIL ANS=Y OR ANS=N REPEAT


LOOP PRINT ENTER 'Y' OR 'N' :;INPUT ANS
UNTIL ANS=Y OR ANS=N REPEAT


Ray Wurlod was a great proponent of the LOOP WHILE READNEXT ID format.
I believe it may not compile on some MV systems.


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


Re: [U2] DO/WHILE vs IF THEN

2009-02-27 Thread Jacques G.
CTR =0
LOOP WHILE CTR  4
  CTR+=1
  PRINT CTR
REPEAT

FOR CTR = 0 TO 4
   PRINT CTR
NEXT CTR

CTR = 0
LOOP
  CTR += 1
  PRINT CTR
  IF CTR  4 THEN EXIT
REPEAT


If you're going to use a counter, might as well use a for loop.  Your test 
didn't work because you didn't test the limit after each increment.  Repeating 
the increment and print statement like your example does defeats the purpose of 
the loop.

- Original Message 
From: George Gallen ggal...@wyanokegroup.com
To: Ardent u2-users@listserver.u2ug.org
Sent: Friday, February 27, 2009 11:20:15 AM
Subject: [U2] DO/WHILE vs IF THEN

OK Aside from programming styles

Is there any functional difference between

WHILE expression DOand IF NOT(expression) THEN EXIT
and
UNTIL expression DOand IF expression THEN EXIT


First I thought that the DO/WHILE would activate as soon as
the condition occurred and drop out of a loop, but that is not
the case, the condition has to be active AND control has to be
back at the WHILE statement.


Example:

0001: CTR=0
0002: LOOP
0003:   CTR=CTR+1
0004:   WHILE CTR4 DO
0005:   PRINT CTR
0006:   CTR=CTR+1
0007:   PRINT CTR
0008:   CTR=CTR+1
0009:   PRINT CTR
0010:   CTR=CTR+1
0011:   PRINT CTR
0012:   CTR=CTR+1
0013:   PRINT CTR
0014:   CTR=CTR+1
0015:   PRINT CTR
0016:   CTR=CTR+1
0017:   PRINT CTR
0018: REPEAT
0019: STOP
0020: END

My first thought was that once CTR = 5, the loop would end (at LINE 12) but it
didn't
until control was passed back to LINE 4, then it ended.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Strange happening...

2009-02-27 Thread Jacques G.
In the example of code you have, the loop will exit if your key (variable ID) 
is equal to an empty string or a string that can be evaluated to zero for 
example values like these:
0E1,0E10, 0E100  (on Universe)
 (empty string)


Will make the loop end:

 SELECT FILENAME
 LOOP
READNEXT ID ELSE EXIT
 WHILE ID DO   
CODE
CODE with GOSUB
CODE
CODE
 REPEAT

Try:

SELECT FILENAME
LOOP WHILE READNEXT ID
  CODE...
REPEAT




- Original Message 
From: George Gallen ggal...@wyanokegroup.com
To: u2-users@listserver.u2ug.org u2-users@listserver.u2ug.org
Sent: Friday, February 27, 2009 10:21:19 AM
Subject: RE: [U2] Strange happening...

that wasn't the case. The id was combination of 13 letters and numbers.
The strange part was where the while/do seemed to kick in.
   The item was read from the file without a problem
   3-4 lines of code execute as expected
   it then executed a gosub, but when it returned, it dropped out of the loop
  the id variable was never modified.

Strange.

George

 -Original Message-
 From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-
 us...@listserver.u2ug.org] On Behalf Of Edward Brown
 Sent: Friday, February 27, 2009 9:39 AM
 To: u2-users@listserver.u2ug.org
 Subject: RE: [U2] Strange happening...

 If the ID equates to false it will exit - i.e. a record with ID 00

 Edward

 -Original Message-
 From: owner-u2-us...@listserver.u2ug.org
 [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of George Gallen
 Sent: 27 February 2009 14:26
 To: Ardent
 Subject: [U2] Strange happening...

 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).

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

 ---
 
 Please remember to recycle wherever possible.
 Reduce, reuse, recycle, think do you need to print this e-mail?
 ---
 
 This e-mail and any attachment(s), is confidential and may be legally
 privileged. It is intended solely for the addressee. If you are not the
 addressee, dissemination, copying or use of this e-mail or any of its
 content is prohibited and may be unlawful. If you are not the intended
 recipient please inform the sender immediately and destroy the e-mail,
 any attachment(s) and any copies. All liability for viruses is excluded
 to the fullest extent permitted by law. It is your responsibility to
 scan or otherwise check this email and any attachment(s). Unless
 otherwise stated (i) views expressed in this message are those of the
 individual sender (ii) no contract may be construed by this e-mail.
 Emails may be monitored and you are taken to consent to this
 monitoring.

 Civica Services Limited, Company No. 02374268; Civica UK Limited,
 Company No. 01628868
 Both companies are registered in England and Wales and each has its
 registered office at 2 Burston Road, Putney, London, SW15 6AR.
 ---
 
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] AUTOLOGOUT and ON.ABORT

2009-02-27 Thread Jacques G.
On unix it's an empty file (size zero) we create:
EI:

touch errlog

On a windows the equivalent would probably be (from dos prompt when in the uv 
account):
copy con errlog
^Z

  1 file(s) copied.

(After typing CTRL-Z you press[RETURN])  I haven't used the errlog in Universe 
for Windows though.



- Original Message 
From: Mike Roosa mike.ro...@gmail.com
To: u2-users@listserver.u2ug.org
Sent: Friday, February 27, 2009 3:55:22 PM
Subject: Re: [U2] AUTOLOGOUT and ON.ABORT

Ok, so I just create a type 18 file called ERRLOG in the UV account and
restart universe?

On Fri, Feb 27, 2009 at 11:59 AM, Martin Phillips 
martinphill...@ladybridge.com wrote:

 Hi Mike,

  I was under the impression that the errlog only existed on
 unix systems. Maybe I'm wrong on this but I can't find it
 anywhere on our system.


 The errlog file is on Windows too but, just as on Unix, you need to create
 an empty errlog file in the UV account directory to enable the system. UV
 looks for this on entry and enables logging.


 Martin Phillips
 Ladybridge Systems Ltd
 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
 +44-(0)1604-709200 ---

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


Re: [U2] AUTOLOGOUT and ON.ABORT

2009-02-26 Thread Jacques G.
If you turn on the errlog file in /u1/uv you may get a message in there for an 
AUTOLOGOUT.  I'm pretty sure I've seen such messages in the past.  You will 
have the user name, the PID and some text describing the error.

The errlog file only keeps the last 1001 error messages so you might want to 
have a cron job back them up with a date time stamp periodically during the day.



- Original Message 
 Our users have their AUTOLOGOUT set to 30 minutes and it looks like the
 AUTOLOGOUT process causes the ON.ABORT clause to execute.  Is there an
 easy  way using a SYSTEM() or @variable to determine that this ON.ABORT is the
 result of an AUTOLOGOUT?
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] HP, Cron, Como, Execute, Capturing . Not

2009-02-24 Thread Jacques G.
If it's just to get the file names and not the other information like the group 
owners, permission bits why not simply do a pointer to the directory then 
select the directory ?
EI:

IF @USERNO  0 THEN 
TMP.NAME = (65536 + @USERNO):.TMPTR 
END ELSE TMP.NAME = @USERNO:.TMPTR

OPEN , VOC TO VOC ELSE STOP 201, VOC

TMPTR = F]/tmp/]D_PH
CONVERT ] TO @AM IN TMPTR
WRITE TMPTR ON VOC, TMPNAME

OPEN , TMPNAME TO F.TMPTR ELSE STOP 201, TMPNAME
FILELIST = '
SELECT F.TMPTR
LOOP WHILE READNEXT FILENAME
FILELIST-1 = FILENAME
REPEAT

You can get a lot of the other information on a file with the STAT command and 
the FILEINFO function.




- Original Message 
From: Ross Ferris ro...@stamina.com.au
To: u2-users@listserver.u2ug.org
Sent: Tuesday, February 24, 2009 7:04:16 AM
Subject: RE: [U2] [UV] HP, Cron, Como, Execute, Capturing . Not

Have you changed the code yet to avoid problem? You haven't mentioned
version of UV -- if not current, check later GTARs to see if issue
identified/resolved.

Get the customer going with a redirection/read ... obviously (?) new
code, but an 

ls -l  /tmp/unique_filename

will work across ANY *nix platform -- assume cron is running as same
user/permissions as when you fire from TCL

Ross Ferris
Stamina Software
Visage  Better by Design!

-Original Message-
From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-
us...@listserver.u2ug.org] On Behalf Of Tony G
Sent: Tuesday, 24 February 2009 8:45 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV] HP, Cron, Como, Execute, Capturing . Not

Thanks for responses so far.

Scott -  this code is also doing 'ls', and the output gets
captured in COMO as you have seen, but it doesn't continue into
the Capturing var.  At least we can confirm COMO is supposed to
see the output (for better or worse) but not at the expense of
BASIC not seeing it.

I'm wondering if this is an OS-specific issue where UV/HP is
capturing in COMO but not in Capturing, or maybe this is only
occurring when run through Cron.  They could be doing something
like this too:
  echo PHANTOM RUNREPORT | uv
...with the phantom being the platform-specific culprit.

I'll get the details and report back, then maybe someone with the
same platform here can check this before we file a bug report.

Tony Gravagno
Nebula Research and Development
TG@ remove.pleaseNebula-RnD.com
Email now working properly

Don't forget Pickwiki.com!

 From: Scott Ballinger
  I do this all the time on UV 10.1.4 on RH AS 3. I have
  not seen a conflict with COMO and EXECUTE CAPTURING,
  except that the COMO records the results of the
  execute as well as the CAPTURING variable. E.g.
  EXECUTE SH -c 'ls' CAPTURING DIR.LIST
 
  Not only does DIR.LIST contain all the files in the
  directory, but the COMO records them as well, making
  for very verbose COMO files!
 
  Note that I have not tried the combination of cron +
  COMO + EXECUTE CAPTURING {+ PHANTOM?} so perhaps there
  is something going on there, but I do use cron +
  EXECUTE CAPTURING in many places without problems.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] Deadlock report ?

2009-02-23 Thread Jacques G.
I'm already familiar with the -r option of analyse.shm but it is the equivalent 
to: LIST.READU EVERY.  I only need this part:


Active Read Waiters:  Owner   Waiter
Device  Inode Userno  Userno
  107400397041292 671 547

I an extract this part from the output of analyse.shm but this report takes a 
lot of time producing all of the grouplock and record lock information.  
Ideally, i'd need a switch to give me only this part + the key or group where 
the problem is occuring.



- Original Message 
From: David Scoggins dscogg...@gmail.com
To: u2-users@listserver.u2ug.org
Sent: Monday, February 23, 2009 9:59:29 AM
Subject: Re: [U2] [UV] Deadlock report ?

Take a look at analyze.shm (see the 'Administering Universe manual),
IIRC the -r option in particular should give you just the record
locks.

On Sun, Feb 22, 2009 at 2:00 PM, Jacques G. jacque...@yahoo.com wrote:
 Hello,

 I was wondering if there is a deadlock report feature in Universe.   We have 
 web services that need to call legacy subroutines and these sometimes make 
 use of READU clauses without the locked statements.

 Since our pooled webservices have to run between 14 and 92 transactions a 
 minute these READU statements can cause timeouts for transactions waiting in 
 line.

 The transactions causing the blockage do not necessarely remain blocked for 
 very long.  It can be anywhere from 30 seconds to half an hour however 
 between the time the problem occurs and is detected and reported by our 
 clients.  It has usually passed before we can do a LIST.READU EVERY to detect 
 which file is the one being blocked.

 I am only interested in the list of deadlocks that show blocked users at 
 the end of the LIST.READU command (the list of users running a READU and 
 waiting to obtain the lock) and not the huge GROUP locks report which 
 preceeds it and which takes time to produce.  There does not appear to be a 
 switch to LIST.READU to only show the deadlock section.

 I've thought of running periodic LIST.READU EVERY every 2 minutes but with 
 over 800 users online + the numerous webservices transactions, it just takes 
 to long (over 4 minutes) to produce the list.

 So I've wondered if there isn't a reporting feature I could turn on so that I 
 could see the deadlocks that occured during the day.  This way, I could 
 cross-reference the timeout problems with the deadlock list and see which 
 file being accessed is behind the blockage.

 The info I'd need is:
 Time, blocked User, File, Key, Id of blocking user
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Deadlock report ?

2009-02-22 Thread Jacques G.
Hello,

I was wondering if there is a deadlock report feature in Universe.   We have 
web services that need to call legacy subroutines and these sometimes make use 
of READU clauses without the locked statements. 

Since our pooled webservices have to run between 14 and 92 transactions a 
minute these READU statements can cause timeouts for transactions waiting in 
line.

The transactions causing the blockage do not necessarely remain blocked for 
very long.  It can be anywhere from 30 seconds to half an hour however between 
the time the problem occurs and is detected and reported by our clients.  It 
has usually passed before we can do a LIST.READU EVERY to detect which file is 
the one being blocked.

I am only interested in the list of deadlocks that show blocked users at the 
end of the LIST.READU command (the list of users running a READU and waiting to 
obtain the lock) and not the huge GROUP locks report which preceeds it and 
which takes time to produce.  There does not appear to be a switch to 
LIST.READU to only show the deadlock section.

I've thought of running periodic LIST.READU EVERY every 2 minutes but with over 
800 users online + the numerous webservices transactions, it just takes to long 
(over 4 minutes) to produce the list.  

So I've wondered if there isn't a reporting feature I could turn on so that I 
could see the deadlocks that occured during the day.  This way, I could 
cross-reference the timeout problems with the deadlock list and see which file 
being accessed is behind the blockage.

The info I'd need is:
Time, blocked User, File, Key, Id of blocking user
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] How to suppress not found message.

2009-02-06 Thread Jacques G.
You can put the commands in a Paragraph:

PA
HUSH ON
SELECT FILEA
SELECT list #0
SELECT FILEB
HUSH OFF

You would save these lines as one item in the VOC choosing a name for it.  



- Original Message 
From: Boydell, Stuart stuart.boyd...@spotless.com.au
To: u2-users@listserver.u2ug.org
Sent: Thursday, February 5, 2009 10:07:24 PM
Subject: [U2] [UV] How to suppress not found message.

I thought I knew how to do this  

SELECT FILEA
9 record(s) selected to
SELECT list #0
SELECT FILEB
7 record(s) selected to SELECT list #0
ITEM3
not found.
ITEM7 not found.

Is there a modifier to suppress the not
found messages?

TIA,
Stuart Boydell
**
This
email message and any files transmitted with it are confidential and intended
solely for the use of addressed recipient(s). If you have received this
communication in error, please reply to this e-mail to notify the sender of
its incorrect delivery and then delete it and your reply.  It is your
responsibility to check this email and any attachments for viruses and defects
before opening or sending them on. Spotless collects information about you to
provide and market our services. For information about use, disclosure and
access, see our privacy policy at http://www.spotless.com.au 
Please consider
our environment before printing this email.
**
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Testing for TRANSACTION block

2008-03-04 Thread Jacques G.
If there a way for a subroutine to know that it has been called from within a 

BEGIN TRANSACTION
END TRANSACTION

I've got a subroutine somewhere that is calling an illegal command for a 
transaction block and having hard time finding where the call is coming from.


  

Be a better friend, newshound, and 
know-it-all with Yahoo! Mobile.  Try it now.  
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] Named commons

2008-02-12 Thread Jacques G.
These are 2 other possibilities we are looking at.  The GCI has the drawback 
that it requires C code and we may encounter a customer that doesn't have the C 
compiler on their server.

We may end up doing something like this:
UUID = DTX(CHECKSUM(@LOGNAME)):-:DTX(ABS(@USERNO)):-:DTX(CHECKSUM(SYSTEM 
(1302))):-:DTX(DATE()):-:DTX(INT(1*TIME())):-:DTX(RND(1000))

Someone at IBM suggested having Universe call an external Webservice to 
generate a UUID but that would be even slower than having a shell call the 
uuidgen program.


- Original Message 
From: Rex Gozar [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Tuesday, February 12, 2008 1:22:57 PM
Subject: Re: [U2] [UV] Named commons

Jacques,

How unique do your UUID's need to be?  Do you need them to conform to 
the 32 hex digit format?  If not, you could generate unique identifiers 
based on the port number (@userno) and current date/time.

Alternatively, you could use GCI to integrate the uuidgen function into 
the Universe shell.

rex

Jacques G. wrote:
 I need to generate UUID's Universe doesn't have a function that does this...
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


  

Be a better friend, newshound, and 
know-it-all with Yahoo! Mobile.  Try it now.  
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] Named commons

2008-02-12 Thread Jacques G.
Hi, thanks for the example.  What does DIGEST do ?  I did 

HELP BASIC DIGEST at the TCL and it isn't in the online docs.  Is it a Hash or 
encryption function that returns a 128 bit number ? 


- Original Message 
From: Rex Gozar [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Tuesday, February 12, 2008 1:48:40 PM
Subject: Re: [U2] [UV] Named commons

Jacques,

Here's an example of generating a uuid using the userno and time.  Note 
the line wrap on the RESULT = line:

EQU TD$UTCSECS LIT '(SYSTEM(99))'  ; * seconds since 1970-01-01
EQU TD$MILLIS LIT '((SYSTEM(12) * 1000) R%3)'
ERRCODE = DIGEST(MD5, @USERNO:TD$UTCSECS:TD$MILLIS, 1, RESULT)
RESULT = DOWNCASE(OCONV(RESULT, MX))----
DISPLAY RESULT
END


Jacques G. wrote:
 Hello,
 
 I wanted to know if a Named common is visible from every session on the 
 server ?  
 
 I need to generate UUID's Universe doesn't have a function that does this but 
 Unix has a : uuidgen program I can execute to capture UUID's.
 
 The problem is that some of our programs run within a TRANSACTION block and 
 cannot execute Unix shell commands within a TRANSACTION block.
 
 I though that I would have a phantom process that could run in background 
 reserving UUID's for the different users and store this in a named common.
 
 I need to avoid using a file for this as to avoid an I/O bottleneck for the 
 same record key.
 
 It has been years since I've used named commons.  I though that the 
 definition was something like this:
 
 COM /UUID/ UUID
 
 The compiler accepts this definition and I can feed the UUID variable within 
 my phantom process but the other process on a different port  user that 
 attempts to read it is unable to do so.  It has the value zero.
 
 If named commons don't do this, is there some kind of global variable I can 
 set to do this ?
 
 Any ideas ?
 
 
  
 
 Looking for last minute shopping deals?  
 Find them fast with Yahoo! Search.  
 http://tools.search.yahoo.com/newsearch/category.php?category=shopping
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


  

Never miss a thing.  Make Yahoo your home page. 
http://www.yahoo.com/r/hs
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Send regular Windows file with AccuTerm

2008-02-12 Thread Jacques G.
It's been a while since I used Accuterm but I think that it has the Kermit 
protocol that can be set to transfer binary files.

If you have only have ASCII transfer, you can first encode your binary files 
using either: Base64 or UUENCODE/UUDECODE.   Transfer the .b64 or .uue file 
then decode them on the other side.

Base64 is what is used to transfer binary files via email.  Uuencode is an 
older program that works the same way and is found on Unix.  (There are 
Uuencode/Uudecode programs available for dos).

For the source code of a Base64 program, you can search on  
http://www.freshmeat.net


- Original Message 
From: Gabe Green [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Tuesday, February 12, 2008 6:53:34 AM
Subject: [U2] Send regular Windows file with AccuTerm

Hi all,

Is there a way with AccuTerm's standard file transfer utilities to 
transfer a binary Windows file (say, an .exe or a .mp3 or whatnot) to 
the host?

I know you can transfer Universe files and Items, but it would be nice 
to be able to transfer regular Windows files as well.

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


  

Be a better friend, newshound, and 
know-it-all with Yahoo! Mobile.  Try it now.  
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Named commons

2008-02-12 Thread Jacques G.
Hello,

I wanted to know if a Named common is visible from every session on the server 
?  

I need to generate UUID's Universe doesn't have a function that does this but 
Unix has a : uuidgen program I can execute to capture UUID's.

The problem is that some of our programs run within a TRANSACTION block and 
cannot execute Unix shell commands within a TRANSACTION block.

I though that I would have a phantom process that could run in background 
reserving UUID's for the different users and store this in a named common.

I need to avoid using a file for this as to avoid an I/O bottleneck for the 
same record key.

It has been years since I've used named commons.  I though that the definition 
was something like this:

COM /UUID/ UUID

The compiler accepts this definition and I can feed the UUID variable within my 
phantom process but the other process on a different port  user that attempts 
to read it is unable to do so.  It has the value zero.

If named commons don't do this, is there some kind of global variable I can set 
to do this ?

Any ideas ?


  

Looking for last minute shopping deals?  
Find them fast with Yahoo! Search.  
http://tools.search.yahoo.com/newsearch/category.php?category=shopping
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Using connection pooling with Uniobjects

2007-10-16 Thread Jacques G.
Where I work, we have recently installed Universe 10.2.25 which is supposed to 
have the connection pooling functionnality for webservices.

Is the connection pooling option just something to turn on in Universe options 
or must a new version of Uniobjects dll be used ?  We use version 1.1.7073.0 
with dot net 2003.  If we need to use a new version of Uniobjects, will it work 
with the framework of dot net 2003 or is an upgrade to 2005 necessary ?


  

Tonight's top picks. What will you watch tonight? Preview the hottest shows on 
Yahoo! TV.
http://tv.yahoo.com/ 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Stacker commands

2007-07-16 Thread Jacques G.
Hello,

When the .L command is done at the TCL level, the last executed commands are 
shown.  Anyone here know where those commands are stored ?

Jacques G.


   

Pinpoint customers who are looking for what you sell. 
http://searchmarketing.yahoo.com/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] PORT.STATUS bug?

2006-10-05 Thread Jacques G.
 Whate else do people turn to?  
 SYSTEM(9001) is a little different tool,  but at
 least tangential to the
 current discussion.

There is GET.USERS which calls the SYSTEM(1302). 
SYSTEM(1302) isn't supported by IBM but GET.USERS is.

CALL
!GET.USERS(PI.USERS,MAX.PI.USERS,SYS.USERS,INFO,CODE)
SYS.NB = DCOUNT(INFO,@AM)
US = 0
LOOP WHILE US  SYS.NB
   US += 1
   SYS.NO.PORT1,US = INFOUS,1
   SYS.USERID1,US  = INFOUS,2
   SYS.PID1,US = INFOUS,3
   SYS.TYPE1,US= INFOUS,4
REPEAT



__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2][UV] Ever see this error ?

2006-08-30 Thread Jacques G.
Checking the universe errlog revealed the problem. 
The file system was full.  I wish they'd document
those strange status numbers on the help that is
available on the TCL.

--- Allen E. Elwood [EMAIL PROTECTED] wrote:

 I've seen an error like this on a WIN version of
 Unidata.  It was their
 customer file, and I had to move all the records out
 of it to another file,
 delete the original, recreate it and move the
 records back
 
 Not a clue what it was...but no matter what program
 tried to write to the CM
 file, it didn't work.  Permissions were fine. 
 Resize would also go boom.
 Guide showed nothing wrong.  (insert twilight zone
 theme song here)
 
 Fortunately it was an account that had been created
 for an upgrade, so no
 damage was done.
 


__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2][UV] Ever see this error ?

2006-08-29 Thread Jacques G.
Anyone here ever get this error ?

The following error appears using AE to try to save a
record:

[AE] UniBasic WRITE failed, STATUS=40019, --
unrecognized STATUS() after WRITEU.
Quit RECORD in file TESTBP unchanged.   

Trying to save the same program with ED gives an error
also but the STATUS value is 0.

I checked the Unix permissions and they are fine, the
record can be modified if I used vi under Unix.


__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] QSELECT in transaction

2006-07-26 Thread Jacques G.
 is there a way to allow an EXECUTE QSELECT... 
 inside a transaction in a basic program. The HELP
BASIC EXECUTE specifies a few verbs that are allowed
inside transaction :

Have you tried:  SELECT FILE SAVING FIELD.NAME ?

For example:  SELECT CUSTOMERS SAVING KEY.ADR ?

It should be the equivalent of:
QSELECT CUSTOMERS SAVING (field #)




__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Changed BASIC varname1,-1

2006-07-20 Thread Jacques G.
 I always use   A.VAR :=
 @AM[1,NOT(NOT(A.VAR))]:NEW.DATA
 It is much more reliable and much quicker than -1

This is probably for people who want the position of
the item in the list to be significant. (The empty
values being wanted)  I find the code is easier on the
eyes to do:

NB +=1
A.VARNB = NEW.DATA



__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Universe/NT Rel. 10.0.10: How to run a program written and compiled in one flavor in another flavor?

2006-07-14 Thread Jacques G.
 I have to get even trickier in SB+ -- which will not
 officially run in
 Prime and Reality flavored accounts.  I can't get to
 their source code to
 control the verb, so I continuously swap-out the
 verb in before-and-after
 routines.  And of course I avoid using SB+ for
 selections when I can. 

Is asking them to produce a version of their code that
uses another flavor of the select statement out of the
question ? It probably wouldn't be hard for them to
detect what kind of flavor is running and ajust their
selects accordingly. 

If the company that made the software no longer exist
(ei: Abandonware) there are de-compilers for various
flavors of Pick that can produce source code from the executable.

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] UODOTNET.DLL

2006-07-13 Thread Jacques G.
Hello,

Anyone here know what causes this error ?

System.IndexOutOfRangeException: Index was outside the
bounds of the array.
   at IBMU2.UODOTNET.UniRPCPMessage.ReadHeaderLength()
   at
IBMU2.UODOTNET.UniRPCPMessage.Receive(BinaryReader
aDataIn)
   at
IBMU2.UODOTNET.UniRPCConnection.ReadPacketInternal()
   at IBMU2.UODOTNET.UniRPCConnection.Call(Byte
anEncryptionType)
   at IBMU2.UODOTNET.UniSubroutine.Call()

The System.IndexOutOfRangeException: Index was
outside the bounds of the array error, when it
happens is difficult to get rid of.  We sometimes stop
and restart the unirpc daemon and it sometimes goes away.

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UODOTNET.DLL

2006-07-13 Thread Jacques G.
I'm using a program I used to test all of my web
services on a different server yesterday.  On this new
server all I changed was the server address, the login
password and UV account.

For passing the parameters, I use my test XML files
which contain the neccessary information.

On this particular server all of the web services are
giving me the same error message.

--- Brian Leach [EMAIL PROTECTED] wrote:

 Jacques
 
 Is there any chance you are passing a null reference
 to/from the call?
 I've seen various errors if one of the subroutine
 arguments is never
 assigned.
 
 Brian 
 
  -Original Message-
  From: [EMAIL PROTECTED] 
  [mailto:[EMAIL PROTECTED] On
 Behalf Of Jacques G.
  Sent: 13 July 2006 16:53
  To: u2-users@listserver.u2ug.org
  Subject: Re: [U2] UODOTNET.DLL
  
  Hello,
  
  Anyone here know what causes this error ?
  
  System.IndexOutOfRangeException: Index was outside
 the bounds 
  of the array.
 at
 IBMU2.UODOTNET.UniRPCPMessage.ReadHeaderLength()
 at
  IBMU2.UODOTNET.UniRPCPMessage.Receive(BinaryReader
  aDataIn)
 at
 
 IBMU2.UODOTNET.UniRPCConnection.ReadPacketInternal()
 at IBMU2.UODOTNET.UniRPCConnection.Call(Byte
  anEncryptionType)
 at IBMU2.UODOTNET.UniSubroutine.Call()
  
  The System.IndexOutOfRangeException: Index was
 outside the 
  bounds of the array error, when it happens is
 difficult to 
  get rid of.  We sometimes stop and restart the
 unirpc daemon 
  and it sometimes goes away.
  
  __
  Do You Yahoo!?
  Tired of spam?  Yahoo! Mail has the best spam
 protection 
  around http://mail.yahoo.com
  ---
  u2-users mailing list
  u2-users@listserver.u2ug.org
  To unsubscribe please visit
 http://listserver.u2ug.org/
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit
 http://listserver.u2ug.org/
 


__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Re: [UV] Formating a XML string

2006-06-14 Thread Jacques G.
Does Universe have a software tool to format a XML
string so that is nicely indented ? Ei from:

?xml version=1.0 encoding=utf-8
?FooFoobarXXX/Foobar/Foo

To:

?xml version=1.0 encoding=utf-8 ? 
Foo
  FoobarXXX/Foobar
/Foo
   

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] unirpc daemon, stopping and re-starting it from cron

2006-05-10 Thread Jacques G.
 I guess a question is whether this has worked in the
 past or is something new that you are trying to do?

This is something new.  This client is our first
client to make use of web services for our application.

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] unirpc daemon, stopping and re-starting it from cron

2006-05-10 Thread Jacques G.
 As above, LANG=C (or similar) must be set for rpcd
 to work correctly. other
 uv services work fine with LANG set to anything, rpc
 needs it tho ...

How can I check for the setting of LANG both on my
current Universe setup and what its value is within
the cron job ?


__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] unirpc daemon, stopping and re-starting it from cron

2006-05-09 Thread Jacques G.
Hello,

We have a cron job which does the following:

1- Uses Universe's  uv.rc script to stop Universe and
unirpc daemon
2- Make a backup of the Production account into a
different filesystem on the production machine.
3- Restart Universe  unirps using the uv.rc script
4- Start the backup to tape of the copy of the
production environment.

When Universe is re-started along with the unirpc
daemon within the cron job, Universe works but the
unirpc daemon doesn't work correctly.  It must be
stopped manually from the uv menu and re-started.  Has
anyone here encountered a similar problem ?

I've tried to get support help from IBM but I get the
run-around.  I'm told that IBM won't debug my
companies script even though I've repeatedly told them
that the script we are using the uv.rc script that was
written by IBM.

We are running Universe 10.1.8 on a HP.UX 11i machine.








__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] RE: UniBasic code that should work

2006-03-29 Thread Jacques G.
This could be fixed by multiplying the number by 100
so that floating points aren't used at all. (If you
know for sure you will never have more than 2
decimals) I'm assuming these are money amounts.

I once saw a similar problem where a locate on a list
of appartements for 1 would find appartment 1E0 as a
match. (On Universe).


--- Raymond DeGennaro II
[EMAIL PROTECTED] wrote:

 At 07:35 -0700 2006/03/29, Kevin King wrote:
 Wow, Piers, absolutely true.  I just ran on UD6PE
 and it fails exactly
 as described.
 
 I sounds like UniBASIC is doing proper floating
 point math and the 
 example has hit one ore more values that are tough
 to represent 
 exactly.
 
 If you concatenate a null to the end, then it
 works,
 
 Because now they're strings.
 
 but adding a zero to each side of the IF A = B THEN
 does not change
 the outcome.
 
 Back to floating point in-exactness
 
 I have no explanation, and it does scare me just a
 bit.
 
 I think folks coming from a C/Pascal background
 aren't too suprised. 
 Back in those days, I regularly re-used a
 floatequal macro that 
 just made sure that (a-b) was less than a defined
 tolerance value.  I 
 think that's part of the reason for the popularity
 of fixed point 
 notation in the days before FPU's became ubiquitous.
 
 In Grad School, I had one project that suffered so
 much from floating 
 point round off, that I had to switch to an
 arbitrary precision math 
 library.  All the math was done in Base256, so it
 was easy to just 
 tack on an extra byte to get an extra digit of
 precision.  Think 
 School House Rock's Hey Little Twelve Toes times
 21-1/3.
 
 Ray
 -- 

.=.
 | =-=-=-=-=-=-= Eagle Rock Information Systems Corp
 =-=-=-=-=-=-= |
 | -=-=-=-=-=-=- web and database business solutions
 -=-=-=-=-=-=- |
 |   http://www.eriscorp.com   
 mailto:[EMAIL PROTECTED]   |
 |Midwest Regional Office: 815-547-0662 (voice) 
 815-547-0353 (Fax)|

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


__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Determining other user's PORT

2006-03-23 Thread Jacques G.
Is there another way besides
PORT.STATUS  and
!GET.USERS

To get the port of other users ?  We have a client
that has Universe running on a version of Unix that
isn't fully compatible.  The PORT.STATUS command gives
the following line:

Unable to locate uniVerse user data area in kernel.

The !GET.USERS function isn't an option since the
Universe version is too old.  Anyone here know where
the port number information is stored ?  

Is it an algorithm that determines a number based on
the PID or based on the TTY ?

Most of the information given by PORT.STATUS can be
reconstructed with the who -a command or the finger
command with the exception of the PORT.NUMBER and
which program is running.  The last program executed
info can probably be found using the user's stack
which is stored in the SAVEDLISTS file.




__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] To DIM a passed Matrix or not ?

2006-03-07 Thread Jacques G.
In Universe, it isn't necessary to DIM a matrix that
has been passed in a subroutine. 

Just to clarify what I meant here.  The DIM or COM is
still done but it is done in the calling program.  It
isn't neccessary to dim it in the SUBROUTINE in
Universe.




__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] To DIM a passed Matrix or not ?

2006-03-06 Thread Jacques G.
I've seen the following:

SUBROUTINE FOO(MAT FOOBAR)
   DIM FOOBAR(100)
   [... some code]
RETURN

In Universe, it isn't necessary to DIM a matrix that
has been passed in a subroutine.  So my question is,
are there MV flavors where it is neccessary to do so ?

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Universe: Version and serial number

2006-02-28 Thread Jacques G.
  How do I get version and serial number from a
 UniVerse AIX installation?

You can write a small basic program:
CRT  SYSTEM(31)



__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] GOSUB variable-name?

2006-02-10 Thread Jacques G.
 On a more serious note...If this is done correctly,
 I don't think it
 would be very difficult at all to support.

If someone who didn't design the system has to
maintain it, it is difficult to find out which
programs are impacted by a change into one of the
subroutines.

In normal calls, one can search for CALL ROUTINE.NAME
but when CALL @VARIABLE is used, it is difficult to
find out, short of creating a trace in the subroutine
that records SYSTEM(9001) over a period of time (even
then, its no garantee that the period of time will be
sufficient to identify all of the calling programs).

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Justification for removal of savedlists

2006-02-08 Thread Jacques G.
 If it is at its default of ON, you save a command
 stack every time you log
 out. These are saved with a name of
 S.username.userno. The theory is that
 when you log back in, the system can reload your
 stack and you carry on as

Isn't there a limit that can be set in Universe as to
how much of a stack history is kept ?  I just don't
see people doing .L 200 to re-run a command they
did 5 years ago.

One place I've worked at had this standard.  If a
program creates a SAVEDLISTS for a task, it or the
program the list is destined for must delete it when
it is done with it.  

Adherance to this rule would leave save lists made by
users by hand and the stack stuff mentionned above.



__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] RE: [UV] Universe on RedHat (which version to use ?)

2006-01-16 Thread Jacques G.
I've downloaded the evaluation version of Universe for
RedHat Linux.  It seems to be destined for RedHat
version 7.1.  Does this mean that it will not work
with more recent versions such as 8.0 or 9.0 ?

If it will work, I'd rather have a newer RedHat than
an older version.


__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Create hashed file in subdirectory?

2006-01-06 Thread Jacques G.
I've used Multi-files like this on Unidata, I tried
the following in Universe 10.1.8:

Notice that in the second part that I add, I specify
18 503 and 1 as parameters. For some reason,
CREATE-FILE uses the 18 as both the file type and
modulo.  The LISTFILES command confirms that the
second part was created with a modulo of 18.
 
CREATE.FILE TEMP.JAG,WORK.JJ 16 17 1 18 101 1
Creating a multilevel data file.  
 
Creating file TEMP.JAG/WORK.JJ as Type 18, Modulo
17, Separation 1.
Creating file D_TEMP.JAG as Type 18, Modulo 16,
Separation 1. 


CREATE.FILE DATA TEMP.JAG,WORK.KK 18 503 1   
   
Creating file TEMP.JAG/WORK.KK as Type 18, Modulo
18, Separation 1. 
FILES in your vocabulary 
08:45:12pm  06 Jan 2006 Page  1  
  

Filename...
Pathname.. Type Modulo 
  

 F 503 1  

DICT TEMP.JAG   D_TEMP.JAG
  18 16 
DATA TEMP.JAG,WORK.JJTEMP.JAG/WORK.JJ 
18 17 
DATA TEMP.JAG,WORK.KKTEMP.JAG/WORK.KK 
18 18 

ED MD RELLEVEL   
5 lines long. 
  
: P   
0001: X   
0002: 10.1.8  
0003: PICK
0004: PICK.FORMAT 
0005: 10.1.8  



__ 
Yahoo! DSL  Something to write home about. 
Just $16.99/mo. or less. 
dsl.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Create hashed file in subdirectory?

2006-01-06 Thread Jacques G.
I tried a few things to arrive at this syntax for Pick
flavor:

CREATE.FILE DATA TEMP.JAG,TRAVAIL.KK 503,1,16

(Modulo,Separation,Type)

The problem I had was when I do: HELP CREATE.FILE at
the TCL level I only get examples for a different
flavor.  Those examples had spaces instead of commas.
I have the PDF files, but tend to use the HELP command
instead. 

Still, it shouldn't have created files with a modulo
of 18.  

--- Brian Leach [EMAIL PROTECTED] wrote:

 Jacques,
 
 Does it work correctly if you specify commas between
 e.g.
 
 CREATE.FILE TEMP.JAG,WORK.JJ 16,17,1 18,101,1 ?
 
 It could be flavor dependent.
 
 Brian 




__ 
Yahoo! DSL  Something to write home about. 
Just $16.99/mo. or less. 
dsl.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UD] BASIC LOCKs

2005-12-29 Thread Jacques G.
 PORT.STATUS will let you know if a PHANTOM is
 running, but you either
 have to be root or you have to change the
 permissions to allow you to
 see this.

The Universe function GET.USERS will also let you know
if a phantom is running.  It also has the advantage
that it won't give you the message: Another
PORT.STATUS is running.  Some users can block
PORT.STATUS if they stay on the Hit a key to continue
message.




__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UD] BASIC LOCKs

2005-12-29 Thread Jacques G.
It is part of Universe.  The source for that function
is in:

APP.PROGS  under the name: GET.USERS.B

Its parameters are:

 SUBROUTINE
GET.USERS(PI.USERS,MAX.PI.USERS,SYS.USERS,USER.INFO,
CODE) 


The variable USER.INFO can be exploited thus:

NB.US = DCOUNT(USER.INFO,@AM) ;* Number of users
FOR US = 1 TO NB.US
  PORT   = USER.INFOUS,1
  USERID = USER.INFOUS,2
  PID= USER.INFOUS,3
  TERM.TYPE = USER.INFOUS,4  ;* Terminal or Phantom
NEXT US

We asked UV support whether we could use SYSTEM(1302)
directly and were told we shouldn't as it isn't
documented yet.  

The GET.USERS function though can be used and will be
supported, there is just no garantee that in future
versions it will still use SYSTEM(1302) to feed it
though.

--- Anthony Dzikiewicz [EMAIL PROTECTED] wrote:

 I didn't know about GET.USERS.  I did a HELP
 GET.USERS, HELP BASIC
 GET.USER and there was nothing.  Is this
 undocumented or is this a home
 grown utility ?
 
 Anthony





__ 
Yahoo! for Good - Make a difference this year. 
http://brand.yahoo.com/cybergivingweek2005/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UD] BASIC LOCKs

2005-12-29 Thread Jacques G.
The function is in APP.PROGS of 10.0.0 but we have a
client who has that version and it doesn't work on it.
 Our clients that have 10.1.xx versions have it and it
is functionnal there.

--- Dianne Ackerman [EMAIL PROTECTED] wrote:

 What version of Universe do you have that in?  I
 don't have it! (v9.6)
 Thanks,
 Dianne
 
 Jacques G. wrote:
 






__ 
Yahoo! for Good - Make a difference this year. 
http://brand.yahoo.com/cybergivingweek2005/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UD] BASIC LOCKs

2005-12-29 Thread Jacques G.
 However on that same machine that shows only 'me', a
 PORT.STATUS does
 show everything ?

For PORT.STATUS it must have certain permission bits
set.  (+s if I remember correctly) otherwise it only
shows the jobs of the user running PORT.STATUS.

It's quite possible that whatever program is feeding
the info into SYSTEM(1302) also needs similar
permissions to be set.  

It might be possible to determine what that program is
by comparing the permissions of the uv executables of
the Linux system that displays it all versus the one
that does not.





__ 
Yahoo! for Good - Make a difference this year. 
http://brand.yahoo.com/cybergivingweek2005/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Using Esc

2005-12-20 Thread Jacques G.
 We've had code in place for nearly 20 years to
 handle, at least a little 
 bit, this type of problem.  In fields with lots of
 text, we call a sub 
 for the input that permits most of the editing
 commands found in line 
 editors (e.g. c/x/a/, append, etc.)  Not a great
 solution, but better 
 than retyping all the text.

I've always coded in MV using input handling routines.
 The arrows are supported to move about in the input
field.  

I worked with a client a while back and their
application only used the BASIC INPUT statement.  This
caused some garbage data to occasionnally appear in
their files.  

I was quite surprised to see that not everyone uses
some kind of input handling routine. That client's
application wasn't particularly well written either. 
There were gosubs being exited with GOTO's. 
Occasionnally a stack overflow error would appear in
the Universe error log file.






__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Using Esc

2005-12-20 Thread Jacques G.
 I am sick of having to
 write filter routines for
 the control characters. It doesn't look good to the
 users either.

On the plus side, many terminal emulators can have
their keyboard re-programmed so that when you press a
key it sends the key that you want.  I've used this
feature to send the proper arrow escape sequences on
bad VT220 emulators.  Once the terminal emulator is
properly configured the setup file for it can become
part of the standard installation procedure for the
user. So if the escape key sends CHAR(251), it can be
changed on the emulator without writing new code.

I know that Hostaccess and Hummingbird allow for
keyboard re-programming.  I've used Accuterm before
but don't remember if you can re-program its keyboard
as well.

On my emulator, I've configured F12 to do:  S^M so
that when I step through the debugger I only need to
press one key.

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] RE: [UV] uvdlockd command

2005-12-14 Thread Jacques G.
When I do:  uvdlockd -?  I see the following options:

uvdlockd [options]
 
--
 
-t timerinterval timer to have daemon check
for deadlocks   
-r res  resolution to
use(0=Random;1=Youngest;2=Fewest Locks)   
-l log  location of the log file  
 
-query  requests a report of current status   
 
-victim sig identifies the signature of the victim
to be aborted
-p  performs a check on dead process
cleanup
-stop   shutdown the daemon   
 
NOTE:  The -query, -victim, and -stop options cannot
be used in conjunction with
 the other options
 
But when I check for processes using this program, I
see the -z switch being used.  For example:

uvdlockd -z -p -22781

Anyone know what the -z option does ?

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


  1   2   >