[U2] Unidata sessions stop at any time

2011-03-19 Thread Marco Antonio Rojas Castro

Hello

Unidata 7.1.0 on Windows 2008
installed 2 weeks ago. 80 users logged on
Unidata sessions stop at any time

Event viewer show these messages

Error19/03/2011 11:42:17Application Error1000(100)
Aplicación con errores udt.exe, versión 7.1.0.3146, marca de hora 0x42c2d61b, 
módulo con errores unknown, versión 0.0.0.0, marca de tiempo 0x, código 
de excepción 0x8026, desplazamiento con errores 0x7549a57d, Id. de proceso 
0x38bc, hora de inicio de la aplicación 0x01cbe65488e6d5b1.
(1100 occurs)
Error19/03/2011 12:05:21UniData Telnet1004NingunoTelnet set 
client binary mode failed..
(13 occurs)
Error19/03/2011 11:41:47UniData Telnet1004NingunoTelnet 
Client/Site licensing inquiry failed..
(42 occurs)

How can I fix this ???

Regards, Marco Rojas

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


Re: [U2] Simple SB screen display question

2011-11-30 Thread Marco Antonio Rojas Castro

Hi
 
Try this
 
REFRESH = -2
 
Regards, Marco
 

> Date: Wed, 30 Nov 2011 12:30:31 -0800
> From: bob_woodw...@k2sports.com
> To: u2-users@listserver.u2ug.org
> Subject: [U2] Simple SB screen display question
> 
> Hi folks,
> 
> 
> 
> I sent this to the SB-Solutions list first but I think something is
> messed up with my registration there.
> 
> 
> 
> Anyway, I have a simple need, I think. I have a screen that has a MV
> field that I want to display the first two values when I leave the
> field. The user may enter a number of values and in the process after
> I'm going to a basic program where I'm doing some data manipulation.
> When I'm done, I have everything in RECORD<14,1> and <14,2> with the
> rest of the values cleared. On the screen, the last two values, which
> are now empty, is what's displayed. How can I re-display the now
> updated contents of RECORD<14> (and VALUE)? I thought REFRESH = 2 would
> do it but no joy.
> 
> 
> 
> Thanks.
> 
> BobW
> 
> 
> 
> ___
> 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] End of Month date routine

2011-12-05 Thread Marco Antonio Rojas Castro

TODAY = DATE()
EOM = TODAY - TODAY"DD" + 32
EOM = EOM - EOM"DD"

 

> To: u2-users@listserver.u2ug.org
> From: wjhon...@aol.com
> Date: Mon, 5 Dec 2011 15:16:02 -0500
> Subject: Re: [U2] End of Month date routine
> 
> 
> Doesn't work on my system Anthony.
> The This month o gives the month and year ok
> but the attempt to iconv that sets it to zero, it doesn't pad the "01" into 
> it or something
> so i just get 31 at that point.
> 
> I think you were expecting that it would take "12 2011" and make it into "12 
> 01 2011" or whatever
> but it's not working
> 
> 
> 
> 
> -Original Message-
> From: George Gallen 
> To: U2 Users List 
> Sent: Mon, Dec 5, 2011 12:10 pm
> Subject: Re: [U2] End of Month date routine
> 
> 
> Haven't checked it, but what happens on 01/31 by adding 31, it should take 
> you 
> arch, backing up
> Will give you 02/xx (28 or 29)?
> George
> -Original Message-
> rom: u2-users-boun...@listserver.u2ug.org 
> [mailto:u2-users-boun...@listserver.u2ug.org] 
> n Behalf Of Wols Lists
> ent: Monday, December 05, 2011 3:05 PM
> o: u2-users@listserver.u2ug.org
> ubject: Re: [U2] End of Month date routine
> On 05/12/11 19:03, Wjhonson wrote:
> 
> Does someone have a routine that, no matter what day you run it, returns the 
> nd of Month Date ?
> (Assume the end of month date, is the calendar end of month date not some 
> crewy business date)
> Hmmm... no-one seems to have done my approach ...
> TODAY = @DATE
> HIS.MONTH.O = OCONV (TODAY, "DMY") ;* strip day off
> EXT.MONTH.I = ICONV( THIS.MONTH.O, "D") + 31 ;* random day next month
> EXT.MONTH.O = OCONV( NEXT.MONTH.I, "DMY") ;* strip day off
> AST.DAY.I = ICONV( NEXT.MONTH.O, "D") - 1 ;* subract one day
> If you don't have a day in your i/oconv it defaults to 1, so the logic 
> orks. Unfortunately you can't combine the first three lines because 
> here's no number you can pick that will guarantee to land you in next 
> onth whatever today's date :-(
> Cheers,
> ol
> __
> 2-Users mailing list
> 2-us...@listserver.u2ug.org
> ttp://listserver.u2ug.org/mailman/listinfo/u2-users
> __
> 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


Re: [U2] End of Month date routine

2011-12-05 Thread Marco Antonio Rojas Castro

TODAY = ICONV("31 JAN 2011", "D")   ;* 15737
EOM = TODAY - TODAY"DD" + 32;* 15737 - 31 + 32 = 15738
EOM = EOM - EOM"DD"  ;* 15738 - 15738"DD"
PRINT EOM   ;* 15738 - 1 = 15737
* OCONV(15737, "D") = "31 JAN 2011"
* WORKS FINE - UDT 7.1.7 (AIX)

 

> Date: Mon, 5 Dec 2011 15:52:40 -0500
> From: dlaan...@hubbardsupply.com
> To: u2-users@listserver.u2ug.org
> Subject: Re: [U2] End of Month date routine
> 
> No, this will fail on January 31st, every year.
> 
> 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"
> 
> 
> -----Original Message-----
> From: u2-users-boun...@listserver.u2ug.org
> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Marco Antonio
> Rojas Castro
> Sent: Monday, December 05, 2011 3:49 PM
> To: u2-users@listserver.u2ug.org
> Subject: Re: [U2] End of Month date routine
> 
> 
> TODAY = DATE()
> EOM = TODAY - TODAY"DD" + 32
> EOM = EOM - EOM"DD"
> 
> 
> 
> > To: u2-users@listserver.u2ug.org
> > From: wjhon...@aol.com
> > Date: Mon, 5 Dec 2011 15:16:02 -0500
> > Subject: Re: [U2] End of Month date routine
> > 
> > 
> > Doesn't work on my system Anthony.
> > The This month o gives the month and year ok but the attempt to iconv 
> > that sets it to zero, it doesn't pad the "01" into it or something so 
> > i just get 31 at that point.
> > 
> > I think you were expecting that it would take "12 2011" and make it 
> > into "12 01 2011" or whatever but it's not working
> > 
> > 
> > 
> > 
> > -Original Message-
> > From: George Gallen 
> > To: U2 Users List 
> > Sent: Mon, Dec 5, 2011 12:10 pm
> > Subject: Re: [U2] End of Month date routine
> > 
> > 
> > Haven't checked it, but what happens on 01/31 by adding 31, it should 
> > take you arch, backing up Will give you 02/xx (28 or 29)?
> > George
> > -Original Message-
> > rom: u2-users-boun...@listserver.u2ug.org 
> > [mailto:u2-users-boun...@listserver.u2ug.org]
> > n Behalf Of Wols Lists
> > ent: Monday, December 05, 2011 3:05 PM
> > o: u2-users@listserver.u2ug.org
> > ubject: Re: [U2] End of Month date routine On 05/12/11 19:03, Wjhonson
> 
> > wrote:
> > 
> > Does someone have a routine that, no matter what day you run it, 
> > returns the nd of Month Date ?
> > (Assume the end of month date, is the calendar end of month date not 
> > some crewy business date) Hmmm... no-one seems to have done my 
> > approach ...
> > TODAY = @DATE
> > HIS.MONTH.O = OCONV (TODAY, "DMY") ;* strip day off EXT.MONTH.I = 
> > ICONV( THIS.MONTH.O, "D") + 31 ;* random day next month EXT.MONTH.O = 
> > OCONV( NEXT.MONTH.I, "DMY") ;* strip day off AST.DAY.I = ICONV( 
> > NEXT.MONTH.O, "D") - 1 ;* subract one day If you don't have a day in 
> > your i/oconv it defaults to 1, so the logic orks. Unfortunately you 
> > can't combine the first three lines because here's no number you can 
> > pick that will guarantee to land you in next onth whatever today's 
> > date :-( Cheers, ol __
> > 2-Users mailing list
> > 2-us...@listserver.u2ug.org
> > ttp://listserver.u2ug.org/mailman/listinfo/u2-users
> > __
> > 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-Users mailing list
> U2-Users@listserver.u2ug.org
> http://listserver.u2ug.org/mailman/listinfo/u2-users
  
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] UD Directory File Pointer

2012-02-29 Thread Marco Antonio Rojas Castro

try this
 
001: DIR
002: \\MYSERVER\HELP\
003: D_VOC

Regards, Marco
 

> Date: Wed, 29 Feb 2012 15:02:10 -0800
> From: wphask...@advantos.net
> To: U2-users@listserver.u2ug.org
> Subject: [U2] UD Directory File Pointer
> 
> I trip over this every time I try it. Can someone clue me in whether 
> this actually works?
> 
> 7 Dev (0)-> AE VOC QFILE
> Top of "QFILE" in "VOC", 3 lines, 52 characters.
> *--: P
> 001: DIR
> 002: \\MYSERVER\HELP
> 003: D_VOC
> Bottom.
> *--: EX
> Quit "QFILE" in file "VOC" unchanged.
> 
> 7 Dev (0)-> LIST QFILE
> errno=2: No such file or directory
> can not stat() in U_get_fileid(),fname=\\MYSERVER\HELP.
> Open file error.
> 
> 7 Dev (0)-> !dir \\myserver\help
> Volume in drive \\myserver\help is E-Data
> Volume Serial Number is 6635-B087
> 
> Directory of \\myserver\help
> 
> 10/21/2011 10:50 PM  .
> 10/21/2011 10:50 PM  ..
> 08/07/2011 01:52 PM 8,967 1_1.html
> 08/07/2011 01:52 PM 13,112 1_2.html
> 08/07/2011 01:52 PM 16,672 1_3.html
> 08/07/2011 01:52 PM 4,906 1_4.html
> 08/07/2011 01:52 PM 7,387 1_4_1.html
> .
> .
> 
> The directory is "shared" with everyone on a Windows 2008 R2 server. UD 
> and the directory are on different machines. I'm logged in as the 
> administrator. Thanks,
> 
> 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


Re: [U2] SB+ screen question

2012-03-12 Thread Marco Antonio Rojas Castro

Try using the process like default expression (mandatory).

┌Enter Field─┐
│ Field NamePAID.DATE│
│ Disp Prpt (N/S{nn}/A) N│
│ Input Field (Y/N) N│
│ Mandatory (Y/N)   N│
│ Control/Dep/Read  D│
│ Window Size│
│ Prompt Col  29  Row4   │
│ Input Col   29  Row4   │
│ Process Before  D:P("PROCCESS")[M] │
│ Process After  │
│ Intuitive Help │
└┘

 

> From: bl...@shaklee.com
> To: u2-users@listserver.u2ug.org
> Date: Mon, 12 Mar 2012 15:20:26 -0700
> Subject: Re: [U2] SB+ screen question
> 
> Yes they are MV fields. There is nothing on the LI# or Award fields. The
> sequencing is left to right with no extra processing and they are just @WORK
> variables.
> 
> I tried to move the process from Process After entrty slot to the Validation
> slot and it behaves a little better but it still skips from line 1 to 2 and
> so on without stopping at the Earned Date field.
> 
> -Original Message-
> From: u2-users-boun...@listserver.u2ug.org
> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Woodward, Bob
> Sent: Monday, March 12, 2012 2:15 PM
> To: U2 Users List
> Subject: Re: [U2] SB+ screen question
> 
> 
> So are these MV fields or SV fields? Also, you only have a process-after on
> the Earned Date? Nothing on the LI# or Award fields? I'm also assuming your
> sequence of prompting in the screen is straight forward, left to right for
> these 4 prompts, and you have no extra processes on the DICT entries for
> these. You said they are just @WORK variables, right?
> 
> 
> -Original Message-
> From: u2-users-boun...@listserver.u2ug.org
> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Lunt, Bruce
> Sent: Monday, March 12, 2012 1:53 PM
> To: 'U2 Users List'
> Subject: Re: [U2] SB+ screen question
> 
> Hi Bob,
> 
> Thanks for the reply. I agree with you - Kevin's book is fantastic! I have
> been using it for many years and still refer to it when I need guidance. As
> for the problem: Maybe I am using the wrong processing slot. What I have is
> something like this:
> 
> LI# Award Earned Date Paid Date
> --- - --- ---
> 999 x DD MMM  DD MMM 
> 
> I have the LI# field as input but do nothing else with it. I have the Award
> field as no input; display only. I have the Earned Date field as input with
> a Process After process to determine what to do with the Paid Date. In the
> process I will populate the Paid Date if it is not already there. I will
> change the Paid Date to be the same as the Earned Date if the Earned Date
> was changed and the Paid date was the same as the original Earned Date. If
> the Paid Date is not the same as the original Earned Date I will leave the
> Paid Date alone. And lastly, the Paid Date field is diplay only.
> 
> To me, this means that I have to prompt the user for the Earned Date - I
> cannot skip the field until I know if they are wanting to change the field
> so I then will know what to do with the Paid Date. If they do not change the
> Earned Date then I will leave the Paid Date as it is.
> 
> I also put a DISP line showing the value of the original Earned Date and the
> current one in the Process After for the Earned Date and it will show
> correctly the first time I enter the screen (after I hit enter in the the
> Earned Date field.) but it will show after I enter the LI# field, the next
> time I open the screen and skip the Earned Date field. 
> 
> Thanks again,
> Bruce
> 
> 
> 
> -Original Message-
> From: u2-users-boun...@listserver.u2ug.org
> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Woodward, Bob
> Sent: Monday, March 12, 2012 12:09 PM
> To: U2 Users List
> Subject: Re: [U2] SB+ screen question
> 
> 
> Hi Bruce,
> 
> It may have to do with your concept of how the work flow is going in screen
> and the way your process is working to control your entry. If you have
> access to a copy of Kevin King's green System Builder book "SB+ Solutions",
> check the sections in "Special Processing for Multivalued Fields" starting
> on page 3-145. Specifically where it talks about the fact that in an
> Multivalue field, the Process Before the Prompt is only executed one time
> for the first value, not before each value of the field. This might be
> where you're having the problem.
> 
> I love this book, by the way!!! Thanks Kevin!
> 
> BobW
> 
> -Original Message-
> From: u2-users-boun...@listserver.u2ug.org
> [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Lunt, Bruce
> Sent: Monday, March 12, 2012 10:40 AM
> To: u2-users@listserver.u2ug.org
> Subject: [U2] SB+ screen question
> 
> Hi All,
> 
> I have created a new screen in SB+. The data is built into the work record
> and then I want to have the user be able to go through the lines one at a
> time in order to change a 

RE: [U2] UniData equivalent of GETBASIC

2004-05-13 Thread Marco Antonio Rojas Castro
Hi David

in unidata 6.0 try this

RUNTHISPROG = SYSTEM(40)

regards, Marco

From: "David Wolverton" <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: <[EMAIL PROTECTED]>
Subject: [U2] UniData equivalent of GETBASIC
Date: Thu, 13 May 2004 12:51:55 -0500
In UniVerse, they have GETBASIC which pulls in command line information 
from
executing a Basic program 

What is the equivalent process in UniData, for example, if I have

RUNTHISPROG opta optb

Where RUNTHISPROG is a cataloged program, what would I do to 'see' opta and
optb?
DW
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users
_
MSN Amor: busca tu = naranja http://latam.msn.com/amor/
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users


Re: [U2] Is it possible to nest 'LOOP / WHILE READNEXT / REPEAT' loops?

2004-06-22 Thread Marco Antonio Rojas Castro
In that case, use the remove command
here's an example
SUBROUTINE PROGRAMA.PRG
*--
$INCLUDE DMSKELCODE COMMON
$INCLUDE DMSKELCODE SBPLUS.EQU
*--- CONFIDENCIAL 
-
* Escrito por  .- Marco Rojas
* Fecha Creada .- 06/22/2004  6:12 pm
* Descripcion  .-
*--
CALL SB.OPEN.FILE('SO',  F.SO,  RTN.FLAG) ;  IF RTN.FLAG THEN RETURN
CALL SB.OPEN.FILE('PMT', F.PMT, RTN.FLAG) ;  IF RTN.FLAG THEN RETURN

EXECUTE 'SELECT SO WITH INV.IDS = "1020"' CAPTURING OUT
READSELECT A.SO.ID ELSE A.SO.ID = ''
LOOP
  REMOVE SO.ID FROM A.SO.ID SETTING DM1
  READ R.SO FROM F.SO, SO.ID THEN
 EXECUTE 'SELECT PMT WITH SO.ID = "':SO.ID:'"' CAPTURING OUT
 READSELECT A.PMT.ID ELSE A.PMT.ID = ''
 LOOP
REMOVE PMT.ID FROM A.PMT.ID SETTING DM2
READV PMT.AMT FROM F.PMT, PMT.ID, 5 ELSE PMT.AMT = 0
TOT.PMT.AMT += PMT.AMT
 UNTIL DM2 = 0 DO REPEAT
  END
UNTIL DM1 = 0 DO REPEAT
RETURN

From: Robert Stearns <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Subject: Re: [U2] Is it possible to nest  'LOOP / WHILE READNEXT /  REPEAT' 
loops?
Date: Tue, 22 Jun 2004 15:56:56 -0400

Use the FROM option.
Amy Cook wrote:
UniData, BASICTYPE P

While debugging something I'm working on, I figured out I couldn't use
the LOOP / WHILE READNEXT / REPEAT as I had originally planned...seems
if you nest one inside the other, it loses track of which 'next' you're
asking for (I'm sure this is by design, I just either haven't run across
it yet, or am not using an option that is available to me...)

For instance, in the code below, if my first active select list at line
003 contained 2 record ID's (1 & 2), and my second active select list at
line 011 also contained 2 record ID's, (A & B), then by the time I read
in my first SOD.ID at line 013, it was reading the 2nd record of my
first active select list  (i.e. '2' instead of 'A')

001:  CMD = 'SELECT SOHDR WITH DATE GE "':BEG.DT:'" AND WITH DATE LE
"':END.DT:'"'
002:  CMD = CMD:' AND WITH STATUS NE "C" AND WITH PROD_LINE = "':ITP:'"'
003:  EXECUTE CMD CAPTURING JUNK;*need error trap
004:  LOOP
005:  WHILE READNEXT ITEM.ID DO
006:READ SOH.REC FROM SOH,ITEM.ID ELSE SOH.REC=''
007:BILL2 = SOH.REC<2> ;*bill-to
cust
008:SLSPROG.ID = SOH.REC<15>
009:READV SLSPROG FROM SYST,"OSC*":SLSPROG.ID,4 ELSE SLSPROG=''
;*SlsProg Desc
010:CMD1 = 'SELECT SODET = "':ITEM.ID:']"'
011:EXECUTE CMD1 CAPTURING SOD.JUNK
012:LOOP
013:WHILE READNEXT SOD.ID DO
014:  READ SOD.REC FROM SOD,SOD.ID ELSE SOD.REC='' ;*line
record



Anyway...does anyone have either
(a) a way to nest READNEXT's, or
(b) another suggestion? ...I was thinking maybe a count on the records
of the 2nd file that meet my criteria, then a FOR/NEXT...?
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
_
Charla con tus amigos en lmnea mediante MSN Messenger: 
http://messenger.latam.msn.com/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Terminate user process

2004-09-08 Thread Marco Antonio Rojas Castro
I installed unidata 6.0.12 on a windows 2000 server
all works ok, but we can't end user process
UDTNO USRNBR  UID   USRNAME  USRTYPE  TTY IP-ADDRESSTIME DATE
  11568  263565  lasimbaya udt pts/1   147.135.150.44 06:27:28 
Sep 08 2004
  2 956  263642  nsolorzan udt pts/2   147.135.150.53 06:30:05 
Sep 08 2004
  31228  263418  destrella udt pts/3   147.135.151.101 06:30:24 
Sep 08 2004
  4 712  263955  adurango  udt pts/4   147.135.150.32 06:30:41 
Sep 08 2004

!STOPUDT 1568
You don't have access to stop process 1568
all the users are domain user,
even with domain administrator can't do this
neither using the task manager
pls, tell  me what can i do
thanks
_
MSN Amor: busca tu = naranja http://latam.msn.com/amor/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Unidata error

2005-03-07 Thread Marco Antonio Rojas Castro
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UniData Indexes

2005-05-09 Thread Marco Antonio Rojas Castro
450 Lynx formatting failed: open3: exec of lynx --stdin --dump --force_html 
--hiddenlinks=ignore --localhost --image_links --nolist --noredir --noreferer 
--realm failed at /etc/smrsh/demime line 1519
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] UniData Indexes

2005-05-09 Thread Marco Antonio Rojas Castro
Try this
SUBROUTINE VER.INDICES.PRG
*--
$INCLUDE DMSKELCODE COMMON
$INCLUDE DMSKELCODE SBPLUS.EQU
*--
* Escrito por  .- Marco Rojas
* Fecha Creada .- 13/06/02 12:15:50
* Descripcion  .- MUESTRA LOS INDICES DEL ARCHIVO
*--
ARCHIVO = PARAM
CALL SB.OPEN.FILE(ARCHIVO, F.ARCH, FLAG) ; IF FLAG THEN RETURN
A.IDX = INDICES(F.ARCH)
N.IDX = DCOUNT(A.IDX,@AM)
RES = 'Archivo ': ARCHIVO :' - ': N.IDX :' INDICES'
FOR I = 1 TO N.IDX
  R.IDX = INDICES(F.ARCH, A.IDX)
  RES := @VM: A.IDX :' ': R.IDX<1,1> :' ': R.IDX<6> :' / Regenerar 
':R.IDX<1,4>
  LIN = CHANGE(R.IDX<2>, ';', @AM)
  N.LIN = DCOUNT(LIN, @AM)
  FOR J = 1 TO N.LIN
 RES := @VM: ' ': TRIM(LIN)
  NEXT I
NEXT I
CALL SB.PROCESS('S:SELECT ':RES:' (B0,0')
RETURN


Original Message Follows
From: Andy Squires <[EMAIL PROTECTED]>
Reply-To: u2-users@listserver.u2ug.org
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] UniData Indexes
Date: Mon, 9 May 2005 12:42:42 -0400 (EDT)
Yes, that's correct.  I want to see each index, not just whether or not 
there is an index.

Thanks,
Andy
On Mon, 9 May 2005 [EMAIL PROTECTED] wrote:
That is only going to tell you which files are indexed and not show each 
index (which is probably what you were asking for).

-- Original message --
> In Universe I do...
>
> COMO ON SCOTT
> SELECTF
> SET.INDEX INFORM
> COMO OFF
>
> Not sure if this works in UD though.
>
> -- Original message --
>
> > Hi all,
> >
> > Is there a way to get a list of all indexes on all files in a 
particular
> > account? The only way I thought
> > to do this was to loop through a list of all the files and do a 
LIST.INDEX
> > command. Seems like there
> > should be a better way.
> >
> > This is on UniData 6.0.
> >
> > Thanks,
> >
> > Andy
> >
> >
> > | Andy Squires -- Systems Analyst |
> > | Office of Information Technology -- American University |
> > | (202) 885-2785 |
> > ---
> > 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/

|   Andy Squires -- Systems Analyst  
 |
|   Office of Information Technology -- American University  
 |
|   (202) 885-2785   
 |
---
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] UniData Indexes

2005-05-09 Thread Marco Antonio Rojas Castro
You need this
SUBROUTINE ALL_INDICES.PRG
*--
$INCLUDE DMSKELCODE COMMON
$INCLUDE DMSKELCODE SBPLUS.EQU
*--
* Escrito por  .- Marco Rojas
* Descripcion  .- LIST ALL INDEX IN AN ACCONUT
*--
EXECUTE 'SETPTR ,3,BANNER INDICES,NFMT,BRIEF' CAPTURING OUT
PRINTER ON
EXECUTE 'SELECT VOC WITH F1 = "F"' CAPTURING OUT
READSELECT A.FILES ELSE A.FILES = ''
LOOP
  REMOVE FILE.NAME FROM A.FILES SETTING DM
  OPEN FILE.NAME TO F.HANDLE THEN
 A.IDX = INDICES(F.HANDLE)
 IF A.IDX<1> THEN
PRINT FILE.NAME
PRINT CHANGE(A.IDX, @AM, ', ')
 END
 PRINT
 CLOSE F.HANDLE
  END
UNTIL DM = 0 DO REPEAT
PRINTER OFF
PRINTER CLOSE
* THEN EDIT FILE _HOLD_ ITEM INDICES
RETURN
Original Message Follows
From: Andy Squires <[EMAIL PROTECTED]>
Reply-To: u2-users@listserver.u2ug.org
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] UniData Indexes
Date: Mon, 9 May 2005 12:42:42 -0400 (EDT)
Yes, that's correct.  I want to see each index, not just whether or not 
there is an index.

Thanks,
Andy
On Mon, 9 May 2005 [EMAIL PROTECTED] wrote:
> That is only going to tell you which files are indexed and not show each 
index (which is probably what you were asking for).
>
> -- Original message --
>
> > In Universe I do...
> >
> > COMO ON SCOTT
> > SELECTF
> > SET.INDEX INFORM
> > COMO OFF
> >
> > Not sure if this works in UD though.
> >
> > -- Original message --
> >
> > > Hi all,
> > >
> > > Is there a way to get a list of all indexes on all files in a 
particular
> > > account? The only way I thought
> > > to do this was to loop through a list of all the files and do a 
LIST.INDEX
> > > command. Seems like there
> > > should be a better way.
> > >
> > > This is on UniData 6.0.
> > >
> > > Thanks,
> > >
> > > Andy
> > >
> > >
> > > | Andy Squires -- Systems Analyst |
> > > | Office of Information Technology -- American University |
> > > | (202) 885-2785 |
> > > ---
> > > 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/
>

|   Andy Squires -- Systems Analyst  
 |
|   Office of Information Technology -- American University  
 |
|   (202) 885-2785   
 |
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [ud] Sub-second delay?

2012-08-27 Thread Marco Antonio Rojas Castro

H = SYSTEM(12) ;* TIME IN MILISECONDS
LOOP
   H2 = SYSTEM(12)
   IF H2 - H > 500 THEN EXIT ;* 500 MS ELAPSED
REPEAT

 

> Date: Mon, 27 Aug 2012 10:17:01 -0600
> From: ke...@precisonline.com
> To: u2-users@listserver.u2ug.org
> Subject: Re: [U2] [ud] Sub-second delay?
> 
> Ah crap, this client is Unidata 6.1 and NAP is not supported. I'm not
> seeing it in the 7.1 or 7.2 docs either. Looks to be a UV thing, right?
> 
> On Mon, Aug 27, 2012 at 9:41 AM, David L. Wasylenko  wrote:
> 
> > NAP 500
> >
> > ... david ...
> >
> > David L. Wasylenko
> > President, Pick Professionals, Inc
> > w) 314 558 1482
> > d...@pickpro.com
> >
> > -Original Message-
> > From: u2-users-boun...@listserver.u2ug.org [mailto:
> > u2-users-boun...@listserver.u2ug.org] On Behalf Of Kevin King
> > Sent: Monday, August 27, 2012 10:46 AM
> > To: U2 Users List
> > Subject: [U2] [ud] Sub-second delay?
> >
> > Is there anything in Unidata (7.1, in particular) that can do a sub-second
> > delay, like maybe a half second?
> > ___
> > 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