Ocenite etot tekst:

+------------------------+---------------------+-{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
Ocenite etot tekst: