600 characters wide is a lot to display at the same time I'm pretty sure it
would be illegible at that size - can't you just code your program to scroll
the data sideways?
-
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
I realise you already have an answer - but here's a one liner that would do the
same thing, without writing any code:
UPDATE.RECORD DICT filename F4,@ID ALL
-
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
intended recipient,
Test reply
-
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
I saw those two test messages, so I thought I'd test posting as well.
I haven't been able to post or reply to any messages on this list for well over
a year (IRC) - so, somebody seems to have fixed something somewhere.
-
DISCLAIMER:
Disclaimer. This
try it without the spam filter string nospam_please!
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Shawn Hayes
Sent: Friday, 6 August 2010 10:09 AM
To: U2 Users List
Subject: Re: [U2] Another NEW cutting-edge
Thankyou, thankyou! Phil.
H didn't work - but it made me go and look up what other options are
available for field 4 in the VOC.
I needed to add a G - Allowed in an SQL CALL statement.
So, no coding changes required at all - fantastic, just the way I like it.
Thanks again.
Adrian
to perform the MESSAGE commands in a
different process - maybe that would work.
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Womack, Adrian
Sent: Wednesday, 30 June 2010 9:18 AM
To: 'U2 Users List'
Subject: [U2
Oh, great - now I'm getting the same error for PHANTOM - so I can't use that
workaround.
VOC entry PHANTOM illegal as or in a procedure.
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Womack, Adrian
Sent
and obviously having it work natively from your UV sub would be
better, but if it isn't possible...
Regards,
Dan
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Womack, Adrian
Sent: Wednesday, June 30, 2010 1:39 PM
To: 'U2
This should do the trick - Create a multi-valued i-descriptor with this code:
CATS(REUSE(DATE:*),CATS(CATS(PART,REUSE(*)),QTY)
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Shawn Hayes
Sent: Friday, 21 May
] On Behalf Of Womack, Adrian
Sent: Friday, 21 May 2010 9:53 AM
To: 'U2 Users List'
Subject: Re: [U2] Creating an index
This should do the trick - Create a multi-valued i-descriptor with this code:
CATS(REUSE(DATE:*),CATS(CATS(PART,REUSE(*)),QTY)
DISCLAIMER:
Disclaimer. This e-mail is private
Here's another variation on a theme:
CATS(REUSE(DATE:*),SPLICE(QTY,*,PART))
I was totally unaware of the useful SPLICE function until reading David's post.
Thanks David.
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
intended recipient, please
On Universe the help for conversion code DI only specifies using DI on it's
own without any trailing options (the help for the usual D however shows all
the various additional options).
I've tried your example and it didn't work at all - nothing was displayed. I
tried changing DIMDY to just DI
Here's another simple option:
Use REVISE (or ENTRO, MODIFY, etc) on the file - this will automatically
create an @REVISE phrase in the file's dictionary.
You could then use LIST filname @REVISE to see all the fields.
(Note: REVISE will only create the @REVISE phrase if you don't already
have
You may be better off using something like this instead:
DIM F.FILETOUSE(2)
OPEN FILE1 TO F.FILETOUSE(1) ELSE STOP NO FILE1
OPEN FILE2 TO F.FILETOUSE(2) ELSE STOP NO FILE2
then use F.FILETOUSE(X) - without the need for any conditional
statements, just ensure X is assigned properly.
I have a routine that gets variable length keyboard input without using
any naps/sleeps etc - BUT we don't have any keyboard sequences that are
subsets of other sequences. eg. we don't use a single ESC character to
mean anything.
So I basically just keep getting characters whilst the sequence
Have you tried setting MINIMUM.MODULUS to a high value on your dynamic
file. This prevents the file from merging below the size you've set.
Although it can still split to larger than that size.
You can use the CONFIGURE.FILE command to set MINIMUM.MODULUS - but it
won't take effect until the
The common blocks you've shown are not named - maybe that's your
problem.
Try naming them (i.e. adding a unique slash-delimited name between the
word COMMON and the variable name(s).
eg.
COMMON /AHC1/ AHCOMMON1
COMMON /AHC2/ AHCOMMON2
That way there won't be any conflict between the two
Have you tried CONVERT @NULL.STR TO IN STATE
(for info on @NULL.STR see @variables in the BASIC help file)
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of IT-Laure
Hansen
Sent: Thursday, 17 September 2009 8:58 AM
It may also be worth playing with the RAW.INPUT and/or RAW.OUTPUT
compiler directives:
eg. BASIC BP progname RAW.INPUT RAW.OUTPUT
These directives alter how system delimiters are mapped (I'm not sure
whether null counts as a system delimiter)
DISCLAIMER:
Disclaimer. This e-mail is private
The code looks fine to me.
I added crt len(s) to the end of the program and it printed 10009
(that's what I'd have expected).
I'm running on an HP-UX ia64 box - maybe you're on Windows?
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
I just tried this example on Universe 10.2.6 - it took 0.0665 seconds -
basically instant, can't complain about that.
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Martin
Phillips
Sent: Thursday, 9 July 2009
If you're talking about LIST DICT filename and getting the dictionary
items listed by @ID (instead of the default field number order) then you
need to edit the @-phrase in DICT.DICT - see the long LIST DICT.DICT
thread from a couple of days ago for more details.
You'll find that an @ phrase
Use LIST.INDEX filename and check under the Build column, indexes
usually say Not Reqd if they are updated automatically.
The DISABLE.INDEX ENABLE.INDEX commands can be used to turn off/on
automatic updating of the indexes.
But, as Henry mentioned, if the subroutines are accessing data in
Change the field length in the dictionary to 9. The field length of all
fields in dictionaries defines their external (output) length - eg a
date using conversion code D needs a length of 11 even though it only
takes up 5 characters in internal format.
-Original Message-
From:
Here's my hastily hacked together solution, it allows 5 seconds for the
user to enter a string. It grabs a single character at a time and builds
up a string - you need to cater for special characters manually, I've
coded for enter and backspace, you could just discard any others that
are below
Here's the code I use (similar to everyone else's) - but I've catalogued
it globally as a user conversion subroutine - this allows it to be used
with ICONV OCONV:
Eg. CONV.XML = OCONV(ORIG.XML,U2XML)
Note: I've included conversion for three mark characters, just in case
they manage to sneak
Try putting parentheses around the expression:
eg. EQU MX TO ('ABCD':@AM:'EFGH')
That will cause each of the functions to operate on the whole string
rather than on a single element of the string.
Although something strange is obviously going wrong. I would have
expected the operations to
I dealt with this problem by writing a new subroutine that initializes
the required common variables.
I then created our own session class that opens a UniObjects session and
calls the initialization subroutine.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
If you're only looking through a few files, wouldn't it be easier to
write a short basic program to read every record use INDEX() on each
looking for the string?
eg.
STRING = 12:@VM:26
SELECT filevar
LOOP
WHILE READNEXT ID
READ REC FROM filevar,ID
THEN
IF INDEX(REC,STRING,1)
Check the content of the @AUTHORIZATION system variable.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Doug Farmer
Sent: Thursday, 26 June 2008 2:57 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] How to tell if running a subroutine though RedBack
I
While INPUT ANS,1 will work most of the time, if the user decides to
press the backspace key or even the ESC key, nothing will happen.
An alternative is:
ANS = KEYIN()
CLEARINPUT
Which will grab a single character (including a backspace, etc). Note:
if the keystroke sends two characters (eg.
PORT.STATUS doesn't need to be run from the uv account, just copy the
command in to the local VOC.
You can then EXECUTE the command from a program supplying your own PID,
and then strip out the required file names from the displayed data.
You could wrap this all up in a function and call it from
Does anyone else think it's bad practice to have code in INCLUDES?
Surely it would be much better to have the INITIATE.FEEDBACK
GIVE.FEEDBACK routines written as subroutines, and then simply call them
from the appropriate spots.
If the code in either of those routines needs to be changed, you'll
Not sure if this solution will work in UniData (but it does in
Universe):
Try writing an iType using this code: @2;Qty+@
eg: SORT FLAT.SHD BY Frame_Color BREAK.ON Frame_Color TOTAL Qty EVAL
@2;Qty+@
The @2 means use the 2nd value defined in the iType, but because the
2nd value hasn't been
If you use @SYS.BELL instead of CHAR(7), the bell can be turned on or
off using BELL ON or BELL OFF.
BELL ON/OFF - toggles the value of @SYS.BELL between CHAR(7) and .
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill
Sent: Friday, 15
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
But this is so much easier to read (note the liberal use of blank lines
making the conditions easy to spot):
LOOP
WHILE READNEXT ID
GOSUB PROCESS.REC
REPEAT
RETURN
PROCESS.REC:
READ RECORD FROM FILE,ID
ELSE RETURN
IF RECORDFLD.1 NE COND1
THEN
I much prefer the multiple exit point method, it makes the code a lot
easier to read.
Prime examples are when you are looping through a file but only want to
process certain records that pass a lot of conditions, it so much easier
to test each condition individually and then RETURN immediately.
Keith said:
Then, to avoid the long setup string, one has to use CONVERT (or SWAP
or CHANGE).
You can always hard-code value-marks:
TEST = AF1}CK1}CK2}H}LHC}MP}NU1}NU2}TK1}TK2
Adrian
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
intended
The original new INDEX code (as posted by Keith) was...
IF INDEX(TEST,'\':F200.SCHEME.CODE:'\',1) THEN THAT =
Including the delimiters at the front back of the string, which
prevents any false positives (like finding CK in CK1).
Personally, I like the LOCATE solution as it makes for much more
Using FMT forces correct syntax use. Having the trailing formatting
characters, can cause all kinds of issues with small typos in the code
(especially when the compiler just takes it all in it's stride).
Look at these two examples:
* Accidentally inserting a space into a numeric constant
A = 123
IMO, the only thing wrong with your example is the use of the trailing
format strings - everyone (and I mean everyone) should be using the FMT
function, making your example:
CRT FMT(OCONV(VAR1,MD0),R#6 ):FMT(OCONV(VAR2,MD2),R#10
):FMT(OCONV(VAR3,MD4),R#14)
The old method is a disaster waiting to
Take a look at the ED code - it's in the BP of the uvhome account, named
ED.B
There's a bunch of code relating to CASE, and there's this mod line at
the top of the program:
06/01/03 E2835 LFD For 10.1 TCL Case Insensitivity project
So, I guess you can blame someone with the initials LFD ;)
Checkout SYSTEM(9001) - this should return what you're after.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bernard Lubin
Sent: Monday, 3 September 2007 3:47 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] [UV] - Getting the call stack trace within a
Just one thing to be aware of: SSELECT implies BY @ID so the BY @ID
in your statement is redundant.
To prevent sorting by @ID just use SELECT not SSELECT.
So, if you are using SSELECT then you're already sorting by @ID, so I
doubt you are going to make it any quicker by modifying your SELECT
Try SYSTEM(1302) - each attribute holds details about one user (no,
username, pid, type) eg:
USERS = SYSTEM(1302)
CRT USERS1
CRT USERS2
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of chuchi
Sent: Tuesday, 10 July 2007 5:34 PM
To:
Does anyone know of a conversion code that returns the week number of
the year?
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
Thanks for that Mike. I'd forgotten about pickwiki.
I found this function which should do the trick:
http://www.pickwiki.com/cgi-bin/wiki.pl?IsoWeekNum
Thanks,
Adrian
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of HENDERSON MIKE,
MR
Sent: Wednesday,
Warning: This message has had one or more attachments removed
Warning: (not named).
Warning: Please read the AngelicHost-Attachment-Warning.txt attachment(s)
for more information.
Karl,
You're right about these messages being annoying - but you're wrong about 5
months. It's actually 5 days. You
Warning: This message has had one or more attachments removed
Warning: (not named).
Warning: Please read the AngelicHost-Attachment-Warning.txt attachment(s)
for more information.
If the includes only contain EQUATES then there is no point in using GOSUB, as
EQUATES are resolved at compile time.
Are you guys aware of the universe supplied include:
ATFUNCTIONS.INS.IBAS (or ATFUNCTIONS.H) which resides in .../uv/INCLUDE
Here's an extract:
EQUATE IT$CSTO -1 ;* clear screen (ANSI)
EQUATE IT$CAH TO -2 ;* cursor absolute home (ANSI)
EQUATE IT$CLEOS TO -3 ;*
for consistency.
My 2 cents
Mark JOhnson
- Original Message -
From: Womack, Adrian [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Thursday, March 22, 2007 7:29 PM
Subject: RE: [U2] @VARIABLES
Are you guys aware of the universe supplied include:
ATFUNCTIONS.INS.IBAS (or ATFUNCTIONS.H
FILEINFO always returns the correct fully resolved path (without any
double dots) under Universe on Unix. Maybe this problem only affects
Windows.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn
Sent: Tuesday, 13 March 2007 6:40 AM
To:
This is more of an old trick.
The reason that -1 is so much faster is because using -1 just
appends to an already existing string in memory. Where using n will
cause an entirely new string to be created and the old one thrown away
(to be eventually garbage collected). The process gets slower
I just tried this out - and it does let you use multiple CONVS one after
the other. BUT, I would normally use FMT L#100 rather than CONV
T100.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Boydell, Stuart
Sent: Thursday, 22 February 2007 10:56 AM
To:
We're on UV 10.1.20 (in PI/Open flavour).
The L#100 is a format not a conversion, so should be used with FMT
not CONV.
Eg. LIST TEMP ID.SUP F1 AS Description FMT L#100 CONV MCP TOXML
Or using two CONVs:
LIST TEMP ID.SUP F1 AS Description CONV T100 CONV MCP TOXML
I even tried three CONVs and
We had a specific problem with Redback - when the OS went to daylight
savings time, Universe also went to daylight savings time - BUT Redback
did not.
This was because the Redback ini file (rgwresp.ini) has it's own TZ
parameter, which in our case was wrong. I should think you'll be OK as
long as
I'd really appreciate a way to write an internal function which can have
parameters and can contain it's own local variables (although global
variables would be OK). Often it's just not worth the effort to write a
full blown external function that's only called a few times by one
program.
Perhaps
I'm in Perth WA, and we're on Daylight Saving for the fist time in years
(as of 2am Dec 2nd). This has caused all kinds of problems, as it was a
last minute decision by the government and we had hardly any time to get
the various config files setup correctly.
We're running UniVerse 10.0.19
A couple of points:
Gordon's example: DATE()[EMAIL PROTECTED]6 should really be using a D-type
named field instead of using @RECORDnn
Jeff's example: DATE() - ICONV(*YOUR.DATE.FIELD.HERE*,D4/) - the date
field should already be in internal format, so what's the point of the
ICONV ?
AdrianW
Well, I do think there should be a documented method of finding out
whether a file is 32 or 64bit. Surely that should be added to
ANALYZE.FILE.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ray Wurlod
Sent: Thursday, 19 October 2006 1:28 PM
To:
Something interesting I just noticed:
If I create a file and resize it to 64bit and then create alternate keys
(with CREATE.INDEX) the alternate key file (I_filename/INDEX.000) is
also created as 64bit.
BUT, if I add the alternate keys BEFORE resizing to 64bit, the AK file
is left as a 32bit
Is there a UV tool that shows whether a file is 64bit or 32bit? I've
tried the obvious ANALYZE.FILE with no success.
I ended up using the unix xd command to see the file's header, but I
expected there to be UV command to provide this function.
First bytes of a 32 bit file: 0xACEF010C
First bytes
That works well, thanks.
For some reason our BASIC help file only has attributes 1-30 defined for
the result of the STATUS statement. I just checked the BASIC pdf manual
and that documents from right up to attribute 33.
I never think of using the STATUS statement - but it certainly returns a
lot
Karl,
Is that a UniData thing? Because with UniVerse exactly the reverse would
be true - writing to a sequential file (via CRT statements to a COMO or
with WRITESEQ to a record in a directory) would be much more efficient
and use less memory than performing a WRITEV (which has to read the
entire
I wanted to do something similar (allowing a user to edit their .profile
record from within UV). What I ended up doing was using a file name
without a dot and then using SH to execute a unix cp to change the
file's name.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL
The OP never made it clear what he was trying to do.
He may in fact be trying to select randomly numbered ID's and if that is
the case, he doesn't actually need a select statement at all.
Perhaps we should wait until he gives us a little more info.
DISCLAIMER:
Disclaimer. This e-mail is
Assuming you're dictionary items are D-types, just read the dict item
then use field 2 as a field number to extract the data from your record.
Use field 3 with OCONV and use field 5 with FMT.
If you want to use I-types, simply set @RECORD to the contents of your
data record, and @ID to the record
Rather than writing a program and using SYSTEM(4001) SYSTEM(4002), a
slightly easier way is to use:
COMMAND.EDITOR ON ALL acct name
PI/Open had the COMMAND.EDITOR command years ago, and it was documented.
The version in Universe is not documented and is most likely not
supported. When we
I wonder if this problem is flavour dependent. I'm using PI/Open flavour
UV 10.0.19 and ALL fields show up when listing vertically whether they
are blank or not.
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
intended recipient, please advise us by return
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
The original poster was asking about a single IF statement and how to
split it into several lines, I don't think using a CASE structure would
solve this particular problem.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bruce Nichol
Sent: Friday, 25
There should be a file pointer to SYSCOM in your VOC. Ours contains:
1: F
2: /opt/universe/uv/INCLUDE
3: /opt/universe/uv/D_INCLUDE
Here's the bit that's relevant to SELECTINFO...
* Keys for SELECTINFO function
EQUATE IK$SLACTIVE TO 1
EQUATE IK$SLCOUNTTO 3
AdrianW
-Original
It's Universe Basic. It works on UV 10.0.19 on HPUX.
From: [EMAIL PROTECTED] on behalf of Tom Dodds
Sent: Thu 10/08/2006 8:28 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Change command prompt character
What language is this for and upon which machine
Huh? That makes no sense.
The ASSIGN is only done once per session, i.e. at login time. I think
having your prompt showing whether there was an active select list
active when you logged in, isn't really that useful ;)
FWIW
We have our own command editor, which shows which selectlists are active
If you don't care about the resulting position - i.e. you just want to
know if the list contains the item, then the absolute quickest method is
to use INDEX().
Eg looking for JKL in ABC}DEF}GHI}JKL}MNO}PQR
THE.LIST = @VM:ABC}DEF}GHI}JKL}MNO}PQR:@VM
IF INDEX(THE.LIST,@VM:JKL:@VM,1) THEN found
We do exactly the same thing but with READU locks instead. The locks can
be on non-existent records and the record names can be meaningful (eg.
processname.running) - so a LIST.READU will show which phantoms are
running.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL
Sounds like you've got INTEGER specified in field 8 (SQL Data) and
MD1 specified in field 3 (Conversion) of the dictionary for the
problematic field.
Just removing INTEGER will fix the problem - but if you're using SQL
on the file/table maybe you should replace INTEGER with the correct
field
U035A exists in the file APP.PROGS (.../universe/uv/APP.PROGS) as 035A
without the A.
You could modify that to do what you want, or just write your own
subroutine to do the same thing.
IMO, you'd be better off writing your own, as the source code for that
routine is atrocious (and commented in
All the months order (full names):
CRT OCONVS(ICONVS(1}2}3}4}5}6}7}8}9}10}11}12,DM),DMAL)
Abbreviations:
CRT OCONVS(ICONVS(1}2}3}4}5}6}7}8}9}10}11}12,DM),DMAL[3])
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Tuesday, 9 May
PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stevenson,
Charles
Sent: 22 March 2006 03:35
To: u2-users@listserver.u2ug.org
Cc: Womack, Adrian
Subject: [U2] RE:[UV:Redback] Automatic Garbage Collection not running
We recently ran into a problem where the garbage collection
(GC) process would
We recently ran into a problem where the garbage collection (GC) process
would no longer run (our WWSTATE file contained over a million records!,
and the application response time was abysmal).
There is a control record VERSION in the file WWCONTROL which contains a
date time that GC is next due
Wide0 should have no bearing on numbers in that range. The Wide0
problem that I've encountered is when values do look (and print) the
same and an equality comparison fails (not the other way around).
Are you sure COST.VISIBLE is true?
-Original Message-
From: [EMAIL PROTECTED]
The arguments are passed by reference - so both RtnValue and InValue are
pointing to the SAME variable in the calling routine.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bill Haskett
Sent: Tuesday, 7 February 2006 7:14 AM
To:
Use the attribute names everywhere - the only place attribute numbers belong
is in D-type entries in the dictionary and in an equate table in a single
basic include file.
From: [EMAIL PROTECTED] on behalf of Bill Haskett
Sent: Sat 28/01/2006 4:24 AM
To:
Don't know about checking before the open - but look at the FILEINFO()
function (see SYSCOM FILEINFO.INS.IBAS).
FILEINFO(filevar, FINFO$NODENAME) should return for local files and
the machine name for remote files, but this assumes the OPEN statement
worked.
-Original Message-
From:
I haven't been following this thread - but, why don't you just LIST into
the HOLD file and then get your program to read the results and delete
the HOLD record?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bill Haskett
Sent: Friday, 20 January 2006
If you don't want to use the HOLD file (which IMO is the easiest thing
to do), how about executing TERM to change the terminal width (and
height) to something really large (eg 2000), execute your list
statement, and then use TERM to set the width height back to normal.
-Original
We use READU locks - they're much more friendly than semaphores as they can be
given meaningful names that show up with a LIST.READU.
Also they are very quick and easy to test with the RECORDLOCKED() function -
eg.
IF NOT(RECORDLOCKED(filevar, recordname)) THEN ...
AdrianW
DISCLAIMER:
I'm pretty sure everyone is talking about the named common name not the
variable names (i.e. the name between the slashes in COMMON /ABC$123/
LONG.VARIABLE.NAME1, ETC
The variables names defined within your common block should be able to be any
length you like (perhaps restricted to 32
An alternative to using Larry's suggestion of writing a program to
create a phrase of all the D types, you can use REVISE filename which
will automatically create an @REVISE phrase in the dictionary containing
all the D-types. You can then just rename @REVISE to ALL.
-Original Message-
@listserver.u2ug.org
Subject: RE: [U2] Sort help needed
Your logic is wrong here; you are inserting whether PART.NBR is found or
not. The INS should be inside the ELSE clause.
-Keith
Original Message
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Womack, Adrian
Sent
LOCATE PART.NBR IN RECORD14,1 BY AL SETTING POS
ELSE NULL
INS PART.NBR BEFORE RECORD14,POS
INS related.data BEFORE related.field14,POS
No need to do the second locate.
Note: I've used the PI/Open syntax for the LOCATE statement (that's the
only one I relate to), you may have to alter the
We use +$NO.RETURN.WARN (along with a bunch of other options) on the
BASIC command line for ALL programs, subroutines and functions (we've
actually wrapped BASIC - so no one actually types in the options).
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
We also use xnn.meaningful.name type labels. One advantage is that our
editor can recognise a label and putting the cursor on a line that
includes a GOSUB and pressing one function key will move the cursor
directly to the correct paragraph.
One thing I've never agreed with (except in COBOL) is
I hope you're joking - talk about making code unreadable, comments that
look like code are (IMO) a very BAD idea. The indentation level makes it
perfectly clear what goes with what, and if it doesn't then change the
structure of the code.
IMO
IF XOOS.ALL.COURSES='Y' THEN
some
Also consider using FMTS on the entire string, eg. STRING =
FMTS(STRING,55T)
This will perform the 55T formatting on each element of the string (in
this case: each sub-value).
DISCLAIMER:
Disclaimer. This e-mail is private and confidential. If you are not the
intended recipient, please
How about using the COUNT.SUP keyword?
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Barry Brevik
Sent: Thursday, 11 August 2005 7:11 AM
To: U2-users (E-mail)
Subject: [U2] [UV] SELECT without n records selected...
When executing SELECT from a PA, is
Very strange that it doesn't work...
I wrote a quick paragraph...
1: PA
2: SELECT VOC SAMPLE 5 COUNT.SUP
and I receive no message regarding number of records selected.
Is it a GET.LIST rather than a SELECT that's producing the message?
COUNT.SUP doesn't seem to work with GET.LIST.
1 - 100 of 133 matches
Mail list logo