+------------------------+---------------------+-{31-ιΰμ-91}-+
| 4GL   άλςαξξωε ζοςνω   | 1 στςαξιγα  64 στςολ| ζακμ   h4per|
+------------------------+---------------------+-------------+
DDATABASEE  { db-name | FORMONLY } [WITHOUT NULL INPUT]

DSCREENE   [ SIZE lines [BY columns] ]
D{E

. . . Τελστ     . . .  D[Efieldtag  D]E
fieldtag (νετλα πομρ) - σμοχο ιϊ βυλχ ι γιζς,ξαώιξαΰύεεσρ σ βυλχω
                .  .  .
 Ηςαζιώεσλιε σινχομω δμρ ςισοχαξιρ ςανολ:
   \gp-------q\g
   \g|\g       \g|\g
   \gb-------d\g
D}E

DTABLESE        # Οτλςωχατψ ξε βομεε 12 ταβμιγ !
        [tab-alias=[owner.]] table   ...

DATTRIBUTESE

fieldtag = { table.column | FORMONLY.field-name
 [TYPE [datatype [NOT NULL] | LIKE [table.]column]]}
            [attrbute-list] [=...][;][=...];
 .  .  .

      # datatype μΰβοκ λςονε SERIAL

   DΧοϊνοφξωε αττςιβυτω:E

        AUTONEXT
        COMMENTS = "Στςολα λοννεξταςιρ"
        NOENTRY
        REQUIRED
        VERIFY          τςεβοχατψ ποδτχεςφδεξιρ
        DEFAULT = "CA"
        INCLUDE = ("CA","OR","NV","WA")
        INCLUDE = (1 to 50,87,90)
            DISPLAY LIKE table.column
        FORMAT = "mm/dd/yyyy"     δμρ δατ
        FORMAT = "####.#####"     δμρ ώισεμ
        PICTURE = "τεμ.A##-#-###(XX)"  A-βυλχα,#-γιζςα,X-σινχομ
        WORDWRAP [COMPRESS] πομε ςασπομοφεξο χ ξεσλομψλιθ στςολαθ
            VALIDATE LIKE tbl.col
        UPSHIFT
        DOWNSHIFT
        REVERSE                   ξεηατιχ
        COLOR=[γχετ] [ιξτεξσ] ... [WHERE υσμοχιρ1 ξα fieldtag]
      [,COLOR=[γχετ2] [ιξτεξσ2] ... WHERE υσμοχιρ2 ξα fieldtag]
               γχετ:         ιξτεξσιχξοστψ:
             WHITE CYAN         DreverseE
         YELLOW MAGENTA RED      blink
          GREEN BLUE BLACK     underline
                                  left
[DINSTRUCTIONSE

[DDELIMITERSE "ab"]                  # πο υνομώαξιΰ "ab"="[]"

[DSCREEN RECORDE record-name [ D[n]E ]
    ( { table.* | table.col1 THRU table.col2 |
          table.column } [,...])
 .  .  . ]
[DENDE]