Harbour Reference Guide - Command

// Create a new file that contains the same structure
USE TEST
COPY STRUCTURE TO MyCopy
// Create a new file that contains part of the original structure
USE TEST
COPY STRUCTURE TO SomePart FIELDS name, address

// Open a database, then copy its structure to a new file,
// Open the new file and list all its records
USE Test
COPY STRUCTURE EXTENDED TO TestStru
USE TestStru
LIST

// CREATE a new structure extended file, append some records and
// then CREATE FROM this file a new database file
CREATE template
APPEND BLANK
FIELD->FIELD_NAME := "CHANNEL"
FIELD->FIELD_TYPE := "N"
FIELD->FIELD_LEN  := 2
FIELD->FIELD_DEC  := 0
APPEND BLANK
FIELD->FIELD_NAME := "PROGRAM"
FIELD->FIELD_TYPE := "C"
FIELD->FIELD_LEN  := 20
FIELD->FIELD_DEC  := 0
APPEND BLANK
FIELD->FIELD_NAME := "REVIEW"
FIELD->FIELD_TYPE := "C"      // this field is 1000 char long
FIELD->FIELD_LEN  := 232      // 1000 % 256 = 232
FIELD->FIELD_DEC  := 3        // 1000 / 256 = 3
CLOSE
CREATE TV_Guide FROM template

See example in the CREATE command

USE Tests NEW index Tests
DBGOTO(10)
DELETE NEXT 10
PACK
USE

USE Tests NEW index Tests
ZAP
USE

SET ALTERNATE TO test.txt
SET ALTERNATE ON
? 'Harbour'
? "is"
? "Power"
SET ALTERNATE TO
SET ALTERNATE OFF

SET BELL ON
cDummy:=space(20)
@ 3,2 get cDummy
Read
SET bell off

SET CENTURY ON
? DATE()
SET CENTURY OFF

SET console on
? DATE()
SET console off
? date()

SET DATE JAPAN
? DATE()
SET DATE GERMAN
? Date()

See tests/dates.prg

SET FIXED ON
? 25141251/362
SET DECIMALS TO 10
? 214514.214/6325

SET DEFAULT to C:\temp

SET DEVICE TO SCREEN
? 25141251/362
SET DEVICE TO PRINTER
SET PRINTER TO LPT1
? 214514.214/6325
SET PRINTER OFF
SET DEVICE TO SCREEN

SET EPOCH TO 2000

SET FIXED ON
? 25141251/362
SET FIXED OFF

// Set F1 with a string
CLS
Set Function  1 to  "I Am Lazy" + CHR( 13 )
cTest := SPACE( 20 )
@ 10, 0 SAY "type something or F1 for lazy mode " GET cTest
READ
? cTest

SET INTENSITY ON

local bOldF10 := setKey( K_F10, {|| Yahoo() } )
... // some other processing
Set Key  K_F10 to  bOldF10)
... // some other processing
bBlock := SetKey( K_SPACE )
if bBlock != NIL ...
// make F10 exit current get, but only if in a get - ignores other
// wait-states such as menus, achoices, etc...
SetKey( K_F10, {|| GetActive():State := GE_WRITE },;
{|| GetActive() != NIL } )

None definable

See Tests/menutest.prg

SET PATH TO C:\harbour\test

SET PRINTER ON
SET PRINTER TO LPT1
? 25141251/362
SET PRINTER .F.

See Tests/menutest.prg

COPY FILE C:\harbour\tests\adirtest.prg TO C:\temp\adirtest.prg
COPY FILE C:\harbour\utils\hbdoc\gennf.prg TO LPT1

ERASE C:\autoexec.bat
ERASE C:/temp/read.txt

DIR          // information for all DBF files in current directory
dir   "*.dbf"          // list all DBF file in current directory
// list all PRG files in Harbour Run-Time library
// for DOS compatible operating systems
Dir  "C:\harbour\source\rtl\*.prg"
// list all files in the public section on a Unix like machine
Dir  "/pub"

ERASE C:\autoexec.bat
ERASE C:/temp/read.txt

RENAME C:\autoexec.bat TO C:\autoexec.old

The following examples assume a file name mytext.dat exist in all
specified paths, a run-time error would displayed if it does not
// display mytext.dat file on screen
TYPE mytext.dat
// display mytext.dat file on screen and printer
TYPE mytext.dat TO PRINTER
// display mytext.dat file on printer only
SET CONSOLE OFF
TYPE mytext.dat TO PRINTER
SET CONSOLE ON
// display mytext.dat file on screen and into a file myreport.txt
TYPE mytext.dat TO FILE MyReport

FUNCTION MAIN()
USE Test New
LABEL FORM EE
USE
RETURN NIL

FUNCTION() MAIN
USE Test New
Report FORM EE
USE
RETURN NIL

Use Clientes New
Set Device to Printer
CurPos:=0
While !Eof()
? Clientes->nome,Clientes->endereco
Curpos++
if Curpos >59
Curpos:=0
Eject
Endif
Enddo
Set Device to Screen
Use

See examples

Func main
FIELD iD
FIELD Name
USE TESTS NEW
name:="Sales"
Id:=5
USE
Return Nil

See tests/testwarn.prg

Function Main()
Local cVar:=Space(50)
Local nId:=0
cls
@ 3,1 SAY "Name" GET cVar PICTURE "@!S 30"
@ 4,1 SAY "Id"   GET nId  PICTURE "999.999"
READ
? "The name you entered is",cVar
? "The id you entered is",nId
RETURN NIL

See Examples

// display a two line menu with status line at the bottom
// let the user select favorite day
SET MESSAGE TO 24 CENTER
@ 10, 2 PROMPT "Sunday" MESSAGE "This is the 1st item"
@ 11, 2 PROMPT "Monday" MESSAGE "Now we're on the 2nd item"
MENU TO nChoice
DO CASE
CASE nChoice == 0           // user press Esc key
QUIT
CASE nChoice == 1           // user select 1st menu item
? "Guess you don't like Mondays"
CASE nChoice == 2           // user select 2nd menu item
? "Just another day for some"
ENDCASE

Function Main
Cls
@ 2,1 SAY "Harbour"
@ 3,1 SAY "is" COLOR "b/r+"
@ 4,1 SAY "Power" PICTURE "@!"
Return NIL

See Examples

// Stuff an Enter key into the keyboard buffer
KEYBOARD CHR(13)
// Clear the keyboard buffer
CLEAR TYPEAHEAD

KEYBOARD CHR(13); ? INKEY() ==> 13
KEYBOARD "HELLO"; CLEAR TYPEAHEAD; ? INKEY() ==> 0

Function Main2()
Local n, lVar
n := IIF( lVar, 'A', 3 )
n := 2
n := 'a'
n := seconds() + 2
n := int( seconds() + 2 )
Return NIL

See tests/testwarn.prg for more examples

MEMVAR y As Numeric
Function Main2()
Local n , lVar
n := IIF( lVar, 'A', 3 )
n := 2
n := 'a'
n := seconds() + 2
n := int( seconds() + 2 )
y := n
? y
Return NIL

See tests/testwarn.prg for more examples