Adicionar campo novo em uma TABELA

segue... campo a ser incluido OBSERVACAO:


ADD TABLE "embarque_rc"
AREA "dados"
DUMP-NAME "embarque_rc"

ADD FIELD "nr-embarque" OF "embarque_rc" AS integer
FORMAT "->,>>>,>>9"
INITIAL "0"
POSITION 2
MAX-WIDTH 4
ORDER 10

ADD FIELD "cod-emitente" OF "embarque_rc" AS integer
FORMAT "->,>>>,>>9"
INITIAL "0"
POSITION 3
MAX-WIDTH 4
ORDER 20

ADD FIELD "documento" OF "embarque_rc" AS character
FORMAT "x(20)"
INITIAL ""
POSITION 4
MAX-WIDTH 40
ORDER 30

ADD FIELD "it-codigo" OF "embarque_rc" AS character
FORMAT "x(20)"
INITIAL ""
POSITION 5
MAX-WIDTH 40
ORDER 40

ADD FIELD "quantidade" OF "embarque_rc" AS decimal
FORMAT "->>,>>9.99"
INITIAL "0"
POSITION 6
MAX-WIDTH 17
DECIMALS 2
ORDER 50

ADD FIELD "cubagem" OF "embarque_rc" AS decimal
FORMAT "->>,>>9.99"
INITIAL "0"
POSITION 7
MAX-WIDTH 17
DECIMALS 2
ORDER 60

ADD FIELD "serie" OF "embarque_rc" AS character
FORMAT "x(8)"
INITIAL ""
POSITION 8
MAX-WIDTH 16
ORDER 70

ADD FIELD "nr-pedcli" OF "embarque_rc" AS character
FORMAT "x(20)"
INITIAL ""
POSITION 9
MAX-WIDTH 40
ORDER 80

ADD FIELD "RC" OF "embarque_rc" AS logical
FORMAT "yes/no"
INITIAL "no"
POSITION 10
MAX-WIDTH 1
ORDER 90

ADD FIELD "des-emitente" OF "embarque_rc" AS character
FORMAT "x(60)"
INITIAL ""
POSITION 11
MAX-WIDTH 120
ORDER 100

ADD FIELD "desc-item" OF "embarque_rc" AS character
FORMAT "x(80)"
INITIAL ""
POSITION 12
MAX-WIDTH 160
ORDER 110

ADD FIELD "volume" OF "embarque_rc" AS decimal
FORMAT "->>,>>9.99"
INITIAL "0"
POSITION 15
MAX-WIDTH 17
DECIMALS 2
ORDER 130

ADD FIELD "encerrado" OF "embarque_rc" AS datetime
FORMAT "99/99/9999 HH:MM:SS.SSS"
INITIAL ?
POSITION 16
MAX-WIDTH 8
ORDER 140

ADD FIELD "observacao" OF "embarque_rc" AS character
FORMAT "x(1000)"
INITIAL ""
POSITION 17
MAX-WIDTH 2000
ORDER 150

.
PSC
cpstream=ibm850
.
0000001978

Valeu amigo.... deu certo.