:

+------------------------+---------------------+-{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]

Last-modified: Thu, 12 Feb 1998 08:47:28 GMT

  :