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/
