Screen Description Entry

Format 1

level-number  [ screen-name ]
              [ FILLER      ]

Remaining phrases are optional, can appear in any order.

GRAPHICAL
CHARACTER

{PICTURE} IS picture-string
{PIC    }

[ [FROM from-item] [TO to-item] ]
[       USING update-item      ]

[USAGE IS] DISPLAY

[SIGN IS] {LEADING } SEPARATE CHARACTER
          {TRAILING}

OCCURS table-size TIMES

{JUSTIFIED} RIGHT
{JUST     }

BLANK WHEN ZERO

VALUE IS value-lit

{BLANK} {SCREEN}
{ERASE} {LINE  }
        {EOS   }
        {EOL   }

LINE [ NUMBER IS [PLUS] line-no ]
                 [ +  ]
                 [ -  ]

{COLUMN  } [ NUMBER IS [PLUS] col-no ]
{COL     }             [ +  ]
{POSITION}             [ -  ]
{POS     }

SIZE IS length

{COLOR } IS color-val
{COLOUR}

{FOREGROUND-COLOR } IS fg-color
{FOREGROUND-COLOUR}

{BACKGROUND-COLOR } IS bg-color
{BACKGROUND-COLOUR}

{BACKGROUND-HIGH     }
{BACKGROUND-LOW      }
{BACKGROUND-STANDARD }

{BELL}
{BEEP}

{UNDERLINED}
{UNDERLINE }

{HIGHLIGHT}
{HIGH     }
{BOLD     }
{LOWLIGHT }
{LOW      }
{STANDARD }

{BLINKING}
{BLINK   }

{REVERSE-VIDEO}
{REVERSED     }
{REVERSE      }

SAME

OUTPUT  {LEFT    }
        {RIGHT   }
        {CENTERED}

{NO-ECHO}
{NO ECHO}
{SECURE }
{OFF    }

PROMPT [ CHARACTER IS prompt-lit ]

{UPPER}
{LOWER}

{AUTO         }
{AUTO-SKIP    }
{AUTOTERMINATE}
{TAB          }

{REQUIRED   }
{EMPTY-CHECK}

{FULL        }
{LENGTH-CHECK}

{ZERO-FILL   }
{NUMERIC-FILL}

HELP-ID {IS} help-id
        {= }

ENABLED {IS} enabled-state
        {= }

VISIBLE {IS} visible-state
        {= }

{BEFORE   } PROCEDURE IS { proc-1 [{THROUGH} proc-2] }
{AFTER    }                        {THRU   }
{EXCEPTION}              {NULL                       }

Format 2

level-number [screen-name]
             [FILLER     ]

{control-type-name}
{OBJECT control-type}

[ title ]

Remaining phrases are optional, can appear in any order.

GRAPHICAL
CHARACTER

{IDENTIFICATION} {IS} control-id
{ID            } {= }

{PICTURE } IS picture-string
{PIC}

{FROM } [MULTIPLE] from-item
{VALUE} [TABLE   ]

TO [MULTIPLE] to-item

{USING} [MULTIPLE] using-item
{VALUE} [TABLE   ]

OCCURS table-size TIMES

LINE [ NUMBER IS  [PLUS] line-no ]  [CELL  ]
                  [ +  ]            [CELLS ]
                  [ -  ]            [PIXEL ]
                                    [PIXELS]

{COLUMN  } [ NUMBER IS [PLUS] col-no ]   [CELL  ]
{COL     }             [ +  ]            [CELLS ]
{POSITION}             [ -  ]            [PIXEL ]
{POS     }                               [PIXELS]

CLINE NUMBER cline-num

CCOL NUMBER ccol-num

SIZE  {IS} length    [CELL  ]
      {= }           [CELLS ]
                     [PIXEL ]
                     [PIXELS]

LINES  {IS} height   [CELL  ]
       {= }          [CELLS ]
                     [PIXEL ]
                     [PIXELS]


CSIZE  {IS} clength  [CELL  ]
       {= }          [CELLS ]

CLINES {IS} cheight  [CELL  ]
       {= }          [CELLS ]

TITLE  {IS} title
       {= }

KEY    {IS} key-letter
       {= }

STYLE  {IS} style
       {= }

{style-name} ...

FONT   {IS} font-handle
       {= }

{COLOR } IS color-val
{COLOUR}

{FOREGROUND-COLOR } IS fg-color
{FOREGROUND-COLOUR}

{BACKGROUND-COLOR } IS bg-color
{BACKGROUND-COLOUR}

{BACKGROUND-HIGH     }
{BACKGROUND-LOW      }
{BACKGROUND-STANDARD }

{BELL}
{BEEP}

{HIGHLIGHT}
{HIGH     }
{BOLD     }
{LOWLIGHT }
{LOW      }
{STANDARD }

{REVERSE-VIDEO}
{REVERSED     }
{REVERSE      }

{REQUIRED   }
{EMPTY-CHECK}

ENABLED  {IS} {enabled-state}
         {= }

VISIBLE  {IS} {visible-state}
         {= }

HELP-ID  {IS} help-id
         {= }

{ property-name          } {IS } { prop-option [GIVING result-1] }...
{ PROPERTY property-type } {ARE}
{ method-name            } {=  }
{ object-expression      }

where prop-option is one of the following:

{ property-value [ LENGTH {IS} length-1 ] }
{                         {= }            }
{                                         )
{ ( {property-value} ... )                }
{                                         }
{ { MULTIPLE } property-table             }
{ { TABLE    }                            }
{                                         }
{ parameter                               }
{                                         }
{ ( { parameter } ... )                   }
{BEFORE   } PROCEDURE IS { proc-1 [ {THROUGH} proc-2 ] }
{AFTER    }                         {THRU   }
{EXCEPTION}              {NULL                         }
{EVENT    }