RE: [U2] Need help - UV intermittent roving file open error

2006-08-25 Thread Stuart . Boydell
   Really? It's redimensioning in common here on UV10, aix, PICK flavour,
   no  question  about  it.  Exactly  for  the  purpose  of  a  file open
   subroutine  used  in hundreds of programs with hundreds of users... No
   complaints.  I  have  even  just written a test program which redims a
   vector  in  common and works. Although it seems logical not to be able
   to change a dimension in common, if common variables are just pointers
   to  a memory slot then extending an array probably just means pointing
   to  some  non-sequential memory for the new dimensions (just a guess).
   Maybe there is some other flavour/uvconfig flag which affects this?

   Stuart

   __

   Dimensioned  arrays  can  be  resized - BUT arrays defined in common
   can't.

   **

   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  email  in  error please notify the Spotless IS Support
   Centre  (+61 3 9269 7555) immediately, who will advise further action.
   This  footnote  also confirms that this email message has been scanned
   for the presence of computer related viruses.

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


Re: [U2] Need help - UV intermittent roving file open error

2006-08-25 Thread Mats Carlid
In infomation flavour (and probably in ideal flavour)  you can resize 
dimensioned arrays.


-- mats


Womack, Adrian wrote:


Dimensioned arrays can be resized - BUT arrays defined in common
can't.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Friday, 25 August 2006 9:28 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Need help - UV intermittent  roving file open error

Do you check/change accounts when you open files? Changing accts will
probably cause issues. Check FILEINFO(). Also, dimensioned arrays can be
dynamically resized b might also be helpful?


DISCLAIMER:
Disclaimer.  This e-mail is private and confidential. If you are not the 
intended recipient, please advise us by return e-mail immediately, and delete 
the e-mail and any attachments without using or disclosing the contents in any 
way. The views expressed in this e-mail are those of the author, and do not 
represent those of this company unless this is clearly indicated. You should 
scan this e-mail and any attachments for viruses. This company accepts no 
liability for any direct or indirect damage or loss resulting from the use of 
any attachments to this e-mail.
---
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] Need help - UV intermittent roving file open error

2006-08-25 Thread Womack, Adrian
I don't believe it - you're right!

I could have sworn that using a DIM on a previously defined common array
would do nothing, well I stand corrected.

Maybe I'm remembering what happened under PI/Open, but it certainly does
work under Universe.

Sorry for the misinformation. :(

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Friday, 25 August 2006 2:29 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Need help - UV intermittent  roving file open error

   Really? It's redimensioning in common here on UV10, aix, PICK
flavour,
   no  question  about  it.  Exactly  for  the  purpose  of  a  file
open
   subroutine  used  in hundreds of programs with hundreds of users...
No
   complaints.  I  have  even  just written a test program which redims
a
   vector  in  common and works. Although it seems logical not to be
able
   to change a dimension in common, if common variables are just
pointers
   to  a memory slot then extending an array probably just means
pointing
   to  some  non-sequential memory for the new dimensions (just a
guess).
   Maybe there is some other flavour/uvconfig flag which affects this?

   Stuart

 
__

   Dimensioned  arrays  can  be  resized - BUT arrays defined in
common
   can't.


DISCLAIMER:
Disclaimer.  This e-mail is private and confidential. If you are not the 
intended recipient, please advise us by return e-mail immediately, and delete 
the e-mail and any attachments without using or disclosing the contents in any 
way. The views expressed in this e-mail are those of the author, and do not 
represent those of this company unless this is clearly indicated. You should 
scan this e-mail and any attachments for viruses. This company accepts no 
liability for any direct or indirect damage or loss resulting from the use of 
any attachments to this e-mail.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Encrypt issue 8088

2006-08-25 Thread Symeon Breen
Here is my standard crypt sub


   FUNCTION AD.CRYPT(Word,key,iv)
* Function to crypt something i.e. a password
* a2c limited, Oct2005

   Crypt=Word

   Err='';result='';resLoc=1;salt=''

   algorithm=rc2-cbc

   Err=ENCRYPT(algorithm,2,Word,1,key,1,1,salt,iv,result,resLoc)

   IF NOT(Err) THEN
  IF result[LEN(result),1]=CHAR(10) THEN result=result[1,LEN(result)-1]
;* IBM ISSUE 8088
  Crypt=result
   END

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


RE: [U2] Encrypt issue 8088

2006-08-25 Thread David A. Green
Why do programmers use result[LEN(result),1]? Doesn't result[1] do the same
thing but easier, quicker, and more readable?

Thanks,
David A. Green
DAG Consulting
www.dagconsulting.com

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Symeon Breen
Sent: Friday, August 25, 2006 1:06 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Encrypt issue 8088

Here is my standard crypt sub


   FUNCTION AD.CRYPT(Word,key,iv)
* Function to crypt something i.e. a password
* a2c limited, Oct2005

   Crypt=Word

   Err='';result='';resLoc=1;salt=''

   algorithm=rc2-cbc

   Err=ENCRYPT(algorithm,2,Word,1,key,1,1,salt,iv,result,resLoc)

   IF NOT(Err) THEN
  IF result[LEN(result),1]=CHAR(10) THEN result=result[1,LEN(result)-1]
;* IBM ISSUE 8088
  Crypt=result
   END

   RETURN Crypt
---
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] Continuing Long Lines

2006-08-25 Thread BNeylon
I know you are UV, but sometimes UD and UV have commonalities.
Anyway, on UD we can use a pipe | as a line continuation.

   IF (TV AND TV2)  OR |
   (TV3  AND TV4) THEN
 CRT 'MATCH'
   END
Doubt if it will work on UV, but worth a try.

Bruce

Bruce M Neylon
Health Care Management Group 




Norman, David \(SAAS\) [EMAIL PROTECTED] 
Sent by: [EMAIL PROTECTED]
08/24/2006 10:11 PM
Please respond to
u2-users@listserver.u2ug.org


To
u2-users@listserver.u2ug.org
cc

Subject
[U2] [UV] Continuing Long Lines






I have a complex IF command where the expression being evaluated is
rather long - IF (THIS AND THAT) OR (THIS AND THAT) OR ...
Can I break the expression onto several lines for readability ? I can't
find any reference to a continuation character in the manuals, and just
breaking the expression doesn't compile. I know I can put the THEN
clause on a separate line, but it's the bit between IF and THEN that I
want to split.


David Norman
Senior Software Engineer
SA Ambulance Service
Box 3, GPO
Adelaide, South Australia 5001
*+61 8 8274 0384
fax +61 8 8271 0758
* [EMAIL PROTECTED]
---
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] LPTR Trouble

2006-08-25 Thread Brutzman, Bill
UniVerse On HP-Ux

With the commands...

   ASSIGN GREENBAR TO LPTR 0
   ASSIGN PR0  TO LPTR 0

Using retrieve reports with LPTR in the script yields the print job
getting into WAIT mode in the spooler.

0015: SORT POD _
0016: BY SELECT.RM.BASE BY.EXP INVOICES _

0018: WHEN RECD.DATE GE Enter Beginning receipt Date - or QUIT AND _
0019: WHEN RECD.DATE LE Enter Endingreceipt Date - or QUIT _

0026: TOTAL RECD.QTY TOTAL EXT.RCVD.PRICE _
0027: UM VENDOR.NAME.SHORT _
0028: ID.SUP LPTR 

Suggestions would be appreciated.

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


RE: [U2] Need help - UV intermittent roving file open error

2006-08-25 Thread Scott Ballinger
Thanks for the suggestions.

This problem happens after initial login without any logtos.
I will take a look at MFILES.

/Scott Ballinger
Pareto Corporation
Edmonds WA USA
206 713 6006

[demime 1.01d removed an attachment of type application/ms-tnef which had a 
name of winmail.dat]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Encrypt issue 8088

2006-08-25 Thread Allen Egerton

David A. Green wrote:

Why do programmers use result[LEN(result),1]? Doesn't result[1] do the same
thing but easier, quicker, and more readable?

snip

variable[1] to reference the last byte of variable is a relatively 
recent addition to Universe.  Where relatively refers to the lifeline 
of the Pick/PI/U2 product family.


So you'll typically see it either in older code, or in code written by 
guys who've been programming a while and haven't picked up on all of the 
newer facilities.


I vaguely remember it being introduced and enjoying the fact that I 
could write less code and have it more readable.  So it became one of 
the things I tended to retrofit as I was working on existing code, not 
worth looking for, but worth cleaning up while I was in the neighborhood.


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


RE: [U2] Encrypt issue 8088

2006-08-25 Thread Baker Hughes
RESULT[1] does work the same, at least on UV10.0 - maybe some have
concern on cross-platform portability.

And Symeon - thanks for your code fragment.  That, and a nights rest
helped me to get things going.  I'll post the encryption code that's now
working if anyone is interested.  It may be of use to anyone who later
faces the same unresolved issue 8088.

Many thanks. 

R. Baker Hughes
UniVerse Programming
Mouser Electronics, Inc.
(817) 804-3598 *
[EMAIL PROTECTED] *

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of David A. Green
Sent: Friday, August 25, 2006 10:07 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Encrypt issue 8088

Why do programmers use result[LEN(result),1]? Doesn't result[1] do the
same thing but easier, quicker, and more readable?

Thanks,
David A. Green
DAG Consulting
www.dagconsulting.com

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Symeon Breen
Sent: Friday, August 25, 2006 1:06 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Encrypt issue 8088

Here is my standard crypt sub


   FUNCTION AD.CRYPT(Word,key,iv)
* Function to crypt something i.e. a password
* a2c limited, Oct2005

   Crypt=Word

   Err='';result='';resLoc=1;salt=''

   algorithm=rc2-cbc

   Err=ENCRYPT(algorithm,2,Word,1,key,1,1,salt,iv,result,resLoc)

   IF NOT(Err) THEN
  IF result[LEN(result),1]=CHAR(10) THEN
result=result[1,LEN(result)-1]
;* IBM ISSUE 8088
  Crypt=result
   END

   RETURN Crypt
---
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] LPTR Trouble

2006-08-25 Thread Brutzman, Bill
In HP-Ux (via SAM) the GreenBar printer is specified as the default
destination.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Need help - UV intermittent roving file open error

2006-08-25 Thread John Jenkins
Watch T30FILES as well (just in case) as you are going there...

Regards

JayJay

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Scott Ballinger
Sent: 25 August 2006 18:04
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Need help - UV intermittent  roving file open error

Thanks for the suggestions.

This problem happens after initial login without any logtos.
I will take a look at MFILES.

/Scott Ballinger
Pareto Corporation
Edmonds WA USA
206 713 6006

[demime 1.01d removed an attachment of type application/ms-tnef which had a
name of winmail.dat]
---
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] Monitoring UniData services and deamons

2006-08-25 Thread John Jenkins
If you start to use RFS or UniData Replication then there are some other
daemons you could monitor. Are you using or planning to use these? The
number of daemons varies depending on your configuration.

Regards

JayJay

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Angelo Collazo
Sent: 24 August 2006 16:51
To: u2-users@listserver.u2ug.org
Subject: [U2] Monitoring UniData services and deamons

Im in the processes of installing a Resource Management Engine (application
manager) and I needed to know if anyone could add additional information
that I should be also monitoring other than the ones below.

SMM is started. root 131248  1   0 11:39:40  pts/0  0:00 /ud/bin/smm -t
60
Unirpcd is started  root 221254  1   0 11:39:43  pts/0  0:00
/ud/unishared/unirpc/unirpcd
SBCS is started. root 184674  1   0 11:39:44  pts/0  0:00
/ud/bin/sbcs -r
CLEANUPD is started. root 274780  1   0 11:39:47  pts/0  0:00
/ud/bin/cleanupd -m 10 -t 20

Environment: UniData 6.1.17-64 under AIX 5.3

Cheers and TIA,

Angelo
---
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] Encrypt issue 8088

2006-08-25 Thread Baker Hughes
Symeon, others,

I tested every 128+ bit cipher available with Encrypt and here are the
results:
All the ciphers work with encoding but require the workaround (remove
extra LF).
None work without encoding - the decrypt side either adds a random
character, or craters altogether, and Decrypted string never matches raw
string.

If anyone wants a copy of my test program 'ENCRYPT.THIS' write me
off-line.
I also have spreadsheet of the testing results, comparing the
accuracy/functionality of the ciphers.



Encryption Testing program :ENCRYPT.THIS
Choose from one of the available Ciphers
1) rc4  2) des-ede3-cbc 3) des-ede3-cfb 4)
des-ede3-ofb
5) rc2-cbc  6) rc2-ecb  7) rc2-cfb  8) rc2-ofb
9) rc5-cbc  10) rc5-cfb 11) rc5-ecb 12) rc5-ofb

Enter Cipher choice 1 - 12 :1
Enter Action - 1=Encrypt only, 2=Encrypt  Decode :2
Data String :40550111
___Encrypting___
___
There was an extra line feed, now removed from result.
Encrypted Successfully !
The Encrypt result is fdYWmfhZkszPfLGo+XsPQA==
___Decrypting___
___
Decrypted Successfully !
Decrypted result is 40550111
Original data and decrypted data match, hooray!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Symeon Breen
Sent: Friday, August 25, 2006 1:06 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Encrypt issue 8088

Here is my standard crypt sub


   FUNCTION AD.CRYPT(Word,key,iv)
* Function to crypt something i.e. a password
* a2c limited, Oct2005

   Crypt=Word

   Err='';result='';resLoc=1;salt=''

   algorithm=rc2-cbc

   Err=ENCRYPT(algorithm,2,Word,1,key,1,1,salt,iv,result,resLoc)

   IF NOT(Err) THEN
  IF result[LEN(result),1]=CHAR(10) THEN
result=result[1,LEN(result)-1]
;* IBM ISSUE 8088
  Crypt=result
   END

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


[U2] VAR[1] was Encrypt...

2006-08-25 Thread Don Verhagen
I don't agree that RESULT[1] is any clearer/cleaner than
RESULT[LEN(RESULT),1].

Does the [1] represent the FIRST character or the LAST character?

I will agree that it's shorter to write. =)


-- 

Donald Verhagen 
Application Development Manager
[EMAIL PROTECTED]
Tandem Staffing Solutions, Inc.
5901 Broken Sound Parkway NW, Suite 450
Boca Raton, FL 33487 USA
Voice Phone: 561.226.8261 Fax Phone: 561.226.8115


 On 8/25/2006 at 1:26 pm, in message [EMAIL PROTECTED],
[EMAIL PROTECTED] wrote:
 David A. Green wrote:
 Why do programmers use result[LEN(result),1]? Doesn't result[1] do
the same
 thing but easier, quicker, and more readable?
 snip
 
 variable[1] to reference the last byte of variable is a relatively 
 recent addition to Universe.  Where relatively refers to the
lifeline 
 of the Pick/PI/U2 product family.
 
 So you'll typically see it either in older code, or in code written
by 
 guys who've been programming a while and haven't picked up on all of
the 
 newer facilities.
 
 I vaguely remember it being introduced and enjoying the fact that I 
 could write less code and have it more readable.  So it became one of

 the things I tended to retrofit as I was working on existing code,
not 
 worth looking for, but worth cleaning up while I was in the
neighborhood.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Encrypt Algorithms

2006-08-25 Thread Baker Hughes
Does anyone have an opinion about which are the best encryption
algorithms to use?
If you have any technical doc citations this is very useful.

Would you NOT use the U2 Encrypt function simply because it doesn't
offer the algorithm you need (or one mandated by your client/employer)?

Would you NOT use the U2 Encrypt function simply because it doesn't
offer 256 or 512 bit encryption?  (Only goes to 168.)

Do you think a certain algorithm should be AVOIDed because it's been
cracked?
I've heard des3 has been cracked, but not sure which mode (cbc, cfb, or
ofb) was cracked, or whether it matters.

The discussion can take in other encryption methods, openssl, gpg, etc.
U2 offers rc4, des3, rc2, rc5 - I'm not listing anything  128 bit.

TIAA,


R. Baker Hughes
UniVerse Programming
Mouser Electronics, Inc.
(817) 804-3598 *
[EMAIL PROTECTED] *
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Free Editor

2006-08-25 Thread D Averch
For those of you that have not taken the opportunity to use our Free Full
screen editor that uses state of the art technology from Eclipse.org, this
announcement may fall on deaf ears.  We at U2logic have been real busy
adding this and that to our free products.

Today we are announcing an outline feature for your basic code.  What is an
outline feature?  Java programmers know this but U2 programmers do not.  All
of your labels in your basic code show up in the outline form.  So if you
are looking for a label called 375 you just click on it in the outline
window and the editor takes you to the code.  What a handy feature to
traverse your basic code.

Try it out and let us know at www.u2logic.com.  Pick the downloads options
on our menu for 

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


RE: [U2] Encrypt Algorithms

2006-08-25 Thread John Hester
 -Original Message-
 From: [EMAIL PROTECTED] 
 [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes
 Sent: Friday, August 25, 2006 1:35 PM
 To: u2-users@listserver.u2ug.org
 Subject: [U2] Encrypt Algorithms
 
 Do you think a certain algorithm should be AVOIDed because it's been
 cracked?
 I've heard des3 has been cracked, but not sure which mode 
 (cbc, cfb, or
 ofb) was cracked, or whether it matters.
 
 The discussion can take in other encryption methods, openssl, 
 gpg, etc.
 U2 offers rc4, des3, rc2, rc5 - I'm not listing anything  128 bit.

I believe DES was cracked in a day using massively parallel computing.
I don't know about DES3.  We're using the DES3 capability built into UV.
I think any encryption is going to be crackable given enough time and
money on the part of the cracker.  You have to ask yourself how valuable
is the data I'm encrypting, and who is it valuable to.  If you want to
keep your data hidden from the intelligence services of a major
government (eg. you work for a DOD sub-contractor), then you've got your
work cut out for you.  If you want to keep some credit card numbers
hidden from Joe Hacker, probably any 128-bit encryption method is enough
to send him looking for easier prey.  This is all just my opinion of
course.

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