+------------------------+---------------------+-{31-iyul-91}-+
| 4GL |krannye formy | 1 stranica 64 strok| fajl h4per|
+------------------------+---------------------+-------------+
DDATABASEE { db-name | FORMONLY } [WITHOUT NULL INPUT]
DSCREENE [ SIZE lines [BY columns] ]
D{E
. . . Tekst . . . D[Efieldtag D]E
fieldtag (metka polya) - slovo iz bukv i cifr,nachinayushcheesya s bukvy
. . .
Graficheskie simvoly dlya risovaniya ramok:
\gp-------q\g
\g|\g \g|\g
\gb-------d\g
D}E
DTABLESE # Otkryvat' ne bolee 12 tablic !
[tab-alias=[owner.]] table ...
DATTRIBUTESE
fieldtag = { table.column | FORMONLY.field-name
[TYPE [datatype [NOT NULL] | LIKE [table.]column]]}
[attrbute-list] [=...][;][=...];
. . .
# datatype lyuboj krome SERIAL
DVozmozhnye attributy:E
AUTONEXT
COMMENTS = "Stroka kommentariya"
NOENTRY
REQUIRED
VERIFY trebovat' podtverzhdeniya
DEFAULT = "CA"
INCLUDE = ("CA","OR","NV","WA")
INCLUDE = (1 to 50,87,90)
DISPLAY LIKE table.column
FORMAT = "mm/dd/yyyy" dlya dat
FORMAT = "####.#####" dlya chisel
PICTURE = "tel.A##-#-###(XX)" A-bukva,#-cifra,X-simvol
WORDWRAP [COMPRESS] pole raspolozheno v neskol'kih strokah
VALIDATE LIKE tbl.col
UPSHIFT
DOWNSHIFT
REVERSE negativ
COLOR=[cvet] [intens] ... [WHERE usloviya1 na fieldtag]
[,COLOR=[cvet2] [intens2] ... WHERE usloviya2 na fieldtag]
cvet: intensivnost':
WHITE CYAN DreverseE
YELLOW MAGENTA RED blink
GREEN BLUE BLACK underline
left
[DINSTRUCTIONSE
[DDELIMITERSE "ab"] # po umolchaniyu "ab"="[]"
[DSCREEN RECORDE record-name [ D[n]E ]
( { table.* | table.col1 THRU table.col2 |
table.column } [,...])
. . . ]
[DENDE]
Last-modified: Thu, 12 Feb 1998 08:47:28 GMT