Category : Paradox DBMS
Archive   : PRTSTR.ZIP
Filename : PRTSTRU.SC

 
Output of file : PRTSTRU.SC contained in archive : PRTSTR.ZIP

;PRTSTRU.SC: to print a table's structure
; clear the space
CLEARALL
CLEAR
; ACCEPT the name of the table
msay = "Print Table Structure"
msaycol =INT((80-LEN(msay))/2)
@ 10, msaycol ?? msay
SHOWTABLES
DIRECTORY()
"Highlight the table to Print, then press Enter Ù"
TO mtablename
msay = UPPER(mtablename)+".DB"
msaycol =INT((80-LEN(msay))/2)
@ 11, msaycol ?? msay
IF mtablename = "Esc"
THEN MENU RETURN
ENDIF
; tools/info/structure/enter table name
MENU {Tools} {Info} {Structure}
TYPEIN mtablename
ENTER
; modify the report title to be the tables name and the word "Structure"
Menu {Report} {Change} {Struct} {R}
CTRLBACKSPACE
TYPEIN UPPER(mtablename)
TYPEIN ".DB - STRUCTURE"
ENTER
Do_It!
; output the report
REPORT "STRUCT" "R"
; clear the workspace
CLEARALL
; release variables