"Displaying Structure to Printer" 2

SMCmtg · Jun 16, 2000

DISPLAY STRUCTURE TO PRINTER prints out in field # sequence. What I would like to do is print out in field name sequence.  Is there any way to accomplish this? Appreciate any direction. THX

CDavis · Jun 16, 2000

I haven't gone to the books, but off the top of my head, you could modify the structure of the table so that the names are in the order you want -- Short of that you might do an ordered query and display the structure of the resulting dbf or cursor. --cd.

SMCmtg · Jun 16, 2000

CDavis: Thanks for your comments. . .my problem is that I have over 30 tables of 254 fields each(the limit)7000+ fields. . .mostly 1n1, As I was building the data environment I never thought I might want alpha, My reason now is to audit fields names. . .makes me wonder if I didn't build it fundamentally wrong! How would I "display the structure of the dbf or cursor"? or maybe a  "View" ? Feedback requested THX

edrest · Jun 17, 2000

You might want to check out the afields() and asort() functions. You could write some code with these to accomplish what you want. You might also play around with the copy structure extended command. create a table with to hold the info with something like... fieldname   c  25 whatever else call it tableorder or some clever name... then... use yourfirsttable copy stru extended to temp use tableorder in 2 append from temp Loop through however you need too then.... use tableorder index on fieldname tag whatever report form xxx to prin Well I think you probably get the idea. Hope this helps Tom Gahagan REST

dgrewe · Jun 19, 2000

Would This Help, The structure of Sys_Dict.Dbf is easy, It is the same as Copy Stru Extended. */*************************************************************************** */Program   : SYS_DICT.PRG */System    : */Purpose   : Create a generic data dictionary program */Syntax    : =SYS_DICT() or =SYS_DICT("c:\xxx\xxx&quot

*/Returns   : nothing */Parameter : DIR - string - Directory to build the data dictionary in */Defaults  : dir = sys(5)+sys(2003) */Requires  : nothing */Changes   : SYS_DICT.DBF */Version   : 1.0 */Dated     : 23 May 1993 */Written By: David W. Grewe */*************************************************************************** *& Utility - Programing */*************************************************************************** */ Record Of Change */ */*************************************************************************** */ Program standards: */   FoxPro Command Words - lower case */   Memory Variables & UDFs - UPPER CASE */   Memory variable naming method: */   F_ (Global - File) Holds Info About The User. */   C_ (Global - Constant) once defined they are never changed. */   G_ (Global - Public &nbsp

may be accessed/changed by any file or procedure. */   P_ (Private - used to pass values as parameters to and from procedures. */   L_ (Private - used only inside a file or procedure. */*************************************************************************** parameter pcSearchPath if parameters() < 1 or type("pcSearchPath&quot

# "C"   pcSearchPath = sys(5)+sys(2003) endif * set default to (pcSearchPath) && Shift default to work area set step on if sys(5)+sys(2003) != pcSearchPath   wait window proper(pcSearchPath) + chr(13) + "is not a valid path !!"   on error   set defa to &lcStartDir   return endif * if right(pcSearchPath,1) != "\"   pcSearchPath = pcSearchPath + "\" endif * if upper(pcSearchPath) = sys(2004)   set defa to &lcStartDir   wait window "FoxPro launch directory " + chr(13) + ;     proper(sys(2004)) + " is not available !!"   on error   return endif * * set enviroment * close all clear set sysmenu on set sysmenu to default set exclu off set exact on set talk off set exclusive off set safety off on error ** * * declare memvars * lnDbfs=0 lnFields=0 lcStartDir = sys(5)+sys(2003) lcDataDbf=pcSearchPath + "SYS_DICT.DBF" lcDataCdx=pcSearchPath + "SYS_DICT.CDX" lcDataFpt=pcSearchPath + "SYS_DICT.FPT" * * Open/Create Databases * if file(lcDataDbf)   use (lcDataDbf) order table alias SYS_DICT exclu   copy stru to C:\TEMP   select 0   use C:\TEMP exclu else   return endif set order to table * * Test for dbf files in specified path * lnDbfs=adir(laDbfs,"*.DBF&quot

if lnDbfs < 1   wait window proper(pcSearchPath) + chr(13) + "does not contain databases !!" else * * ran out of reasons not to do it so here goes *   =asort(laDbfs)   @ 1,1 say "Databases To Place In Dictionary"   @ 2,12 say lnDbfs   @ 3,1 say "Completed"   for I = 1 to lnDbfs     @ 3,12 say I     @ 4,12 say padr(laDbfs(I,1),15)     do case     case upper(laDbfs(I,1))="SYS_DICT.DBF"       loop     case upper(laDbfs(I,1))="FOXUSER.DBF"       loop     case substr(upper(laDbfs(I,1)),1,4)="TEMP"       loop     case substr(upper(laDbfs(I,1)),1,3)="DWG"       loop     endcase * *   put field structure into to an array *     lnError=0     on error lnError=ERRORTRAP()     select 0     use laDbfs(I,1) alias IMPORT shared     if lnError < 0       on error       loop     endif     on error     copy stru extended to c:\stru     use     select temp     zap     append from c:\stru     replace all table with strtran(laDbfs(I,1),".DBF","&quot

goto top * *   populate the data database *     scan all       scatter memvar memo       if !seek(M.TABLE+M.FIELD,"SYS_DICT&quot

insert into SYS_DICT from memvar       endif     endscan *     select TEMP     zap   endfor * endif close databases delete file ("C:\TEMP.DBF&quot

delete file ("C:\TEMP.CDX&quot

delete file ("C:\TEMP.FPT&quot

delete file ("C:\STRU.DBF&quot

delete file ("C:\STRU.CDX&quot

delete file ("C:\STRU.FPT&quot

set defa to &lcStartDir && Restore user default release array laFields,laDbfs release all set sysmenu to default on error clear return *!***************************************************************************** *! *!      Procedure: ERRORTRAP *! *!      Called by: DICTDATA.PRG *! *!***************************************************************************** procedure ERRORTRAP ******************* return -1 *: EOF: DICTDATA.PRG David W. Grewe <a href=mailto

ave@internationalbid.net>Dave@internationalbid.net</a> <a href= > </a>

CDavis · Jun 19, 2000

If what you want is to print a list of field names sorted by fieldname you could try the following -- SELECT myTable SCATTER MEMVAR MEMO BLANK DISPLAY MEMORY TO myTable You could then open myTable.txt in Word Your field names will be listed at the top of the file along with all the system variable names following. Delete the system variables section Change the page layout to landscape Sort the list This won't give you all the information you would get in display structure.  (you can also display structure to myFile but I couldn't figure out a way to easily sort the results. Another way would be to write a .prg which sends the structure to a file (Display Structure to myFile) then in your .prg use low-level file functions to grab the information you want from myFile and insert it into a table which you could then sort and print etc.  I didn't spend the time to write the code but it could be done.  You could select each of your tables in turn -- you'd end up with one table that you could sort and set indexes on etc. It might be useful code that you could post for use by others. --cd.

SMCmtg · Jun 19, 2000

Thanks to CDavis/DGrewe/Tom Gahagan for hints"Asort()" That was the brain cell that got lost. . . I set up a table called FIELDORDER with 17 fields.   ("fieldname" C25 and 15 others for field characteristics, and field 17 called "tablename" C25. I indexed the table to STR(fieldname+tablename)ascending. I set up the data environment of the form to all the tables in the project and set up a grid etc... The sample code follows: Select table1            &&first table to sort by fieldname    Afields(tableorder)         &&array setup    Asort(tableorder,1)         &&sort array Select fieldorder              &&table to append array Append from Array tableorder Go Top Do While .t.   &&loop to fill field 17 with table name   If eof()     exit   else   If empty(tablename)=.t.     Replace tablename with 'table1'   Endif Endif Skip Loop Enddo Select table2  &&&&&&&To add  all or other tables of project . . Select fieldorder   Set order to fieldname  &&&set order to field name plus table name alpha...use in form, browse, print, whatever THX, appreciate all your help!

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

"Displaying Structure to Printer" 2

SMCmtg

Programmer

CDavis

Programmer

SMCmtg

Programmer

edrest

Programmer

dgrewe

MIS

CDavis

Programmer

SMCmtg

Programmer

Similar threads

Part and Inventory Search

Sponsor