Aumentando o seu vocabulário

Uma das maneiras de facilitar a vida do desenvolvedor que utiliza o Dialog System para criar as interfaces dos aplicativos é a utilização de vocabulários. Alguns comandos que são utilizados pelo Dialog System podem ser utilizados no próprio fonte cobol. Aqui na empresa utilizamos os vocabulários em larga escala, pois evitamos ao máximo colocar comandos dentro das GS´s que criamos. Para utilizar alguns comandos do Dialog System no fonte cobol, insira a seguinte linha logo no início do programa, antes da Identification Division:

copy dslang.cpy.

Depois de compilado o programa, você vai poder utilizar alguns comandos do Dialog System direto no seu fonte cobol. Veja a seguir, a lista de comandos:

MOVE-WINDOW window direction distance
CREATE-WINDOW window
SHOW-WINDOW window
SET-FOCUS object
UNSHOW-WINDOW window focus-target-object
DELETE-WINDOW window focus-target-object
REFRESH-OBJECT object

CLEAR-OBJECT object
VALIDATE object
GET-BUTTON-STATE button state
SET-BUTTON-STATE button state
TOGGLE-BUTTON-STATE button
DISABLE-OBJECT object
ENABLE-OBJECT object
DELETE-LIST-ITEM list-or-selection-box position count
SET-SLIDER-RANGE scroll-bar min max
SET-PAGE-VALUE scroll-bar page-size
SET-LINE-VALUE scroll-bar line-size
SET-SLIDER-POSITION scroll-bar position
SET-SLIDER-SIZE scroll-bar size
REPEAT-EVENT
SET-TOP-LIST-ITEM list-box position
SET-LIST-ITEM-STATE list-box state position
SET-AUTOSWIPE-STATE entry-field state
SET-FIELD-LIMIT entry-field len
SET-PRIVILEGE privilege-level
SET-OCCURRENCE object occurrence
COPY-PAGE page position occurence
DELETE-PAGE page
HIDE-OBJECT object
SHOW-OBJECT object
REFRESH-MENU window
SET-FIRST-WINDOW window
MAXIMIZE-WINDOW window
MINIMIZE-WINDOW window
RESTORE-WINDOW window
GET-LIST-ITEM-STATE listbox state position
GET-OCCURRENCE page occurence
GET-DESKTOP-WINDOW object-id
GET-SELECTED-LIST-ITEM listbox-id found-position start-position
GET-TOP-LIST-ITEM listbox position
INSERT-LIST-ITEM listbox text position
INVOKE-MESAGE-BOX message-box text return-value
MOVE-OBJECT-HANDLE object returned-handle
SET-COLOR object foreground-color background-color
SET-MOUSE-SHAPE object mouse-shape
SET-OBJECT-LABEL object label-text
UPDATE-LIST-ITEM listbox item-text position

Por exemplo, no seu fonte cobol você pode mudar o título de uma window ou setar o foco em um determinado objeto. Veja o exemplo:

SET-OBJECT-LABEL WIN-PRINCIPAL "Cadastro de Empresas"
SET-FOCUS PB-GRAVAR

Note que os comandos acima são realmente colocados no fonte cobol, e não no Dialog System.

Vale lembrar que para utilizar os vocabulários corretamente, a geração do "vocabulary copybook" deve sempre ser feita, quando um objeto novo é colocado na GS. Para fazer a geração do "vocabulary copybook", vá no menu File /Generate / Vocabulary copybook.