Linguagem de Programação Estruturada
No processamento interativo a entrada de dados é
realizada pelo teclado e a saída é exibida na tela.
Pode-se omitir a Environment Division.
Técnico em Desenvolvimento de Software
Linguagem de Programação Estruturada
Tanto a entrada como a saída podem ser posicionadas na tela
Instrução:
DISPLAY
ACCEPT
Técnico em Desenvolvimento de Software
Linguagem de Programação Estruturada
WITH AUTO – o cursor salta automaticamente para próxima posição
quando a entrada está completa.
BACKGROUND COLOR – cor de fundo
FORE-GROUND COLOR – cor da letra
HIGHLIGHT – brilho/negrito
SECURE – protege a entrada de dados de modo que não aparece na
tela
REVERSE-VIDEO – cores invertidas para destacar o contraste
LEFT-JUSTIFY – alinha dados pela esquerda.
RIGHT-JUSTIFY – alinha dados pela direita.
SPACE-FILL – colocará espaços em branco para completar o campo.
ZERO-FILL – colocará zeros para completar o campo.
UNDERLINE – sublinha o campo
Técnico em Desenvolvimento de Software
Linguagem de Programação Estruturada
SCREEN SECTION.
•
Vem logo após a Working-Storage Section na Data
Division.
Técnico em Desenvolvimento de Software
Linguagem de Programação Estruturada
DATA DIVISION.
WORKING-STORAGE SECTION.
...
SCREEN SECTION.
...
CORES:
BACKGROUND COLOR / FOREGROUND COLOR
0 – PRETO
1 – AZUL
2 – VERDE
3 – CIANO
4 – VERMELHO
5 – MAGENTA
6 – MARROM
Técnico em Desenvolvimento de Software
7 – BRANCO
DATA DIVISION.
WORKING-STORAGE SECTION.
...
SCREEN SECTION.
...
Linguagem de Programação Estruturada
RECURSOS:
•BLANK SCREEN
/ BLANK LINE (LIMPA TELA / LIMPA LINHA )
•BELL
(SINO)
•BLINK
(PISCA)
•HIGHLIGHT (NEGRITO)
•UNDERLINE
(SUBLINHADO)
•REVERSE-VIDEO (REVERSO)
Técnico em Desenvolvimento de Software
Linguagem de Programação Estruturada
DATA DIVISION.
WORKING-STORAGE SECTION.
...
SCREEN SECTION.
01 TELA-1 [AUTO] [SECURE] [REQUIRED]
05
BLANK SCREEN.
05
LINE 1 COLUMN 1 VALUE ‘PAG: ‘.
05
COLUMN 8 PIC X(5) FROM PAG.
05
LINE 3 COLUMN 1 VALUE ‘NOME: ‘.
05
COLUMN 8 PIC X(20) TO NOME-ENT.
PROCEDURE DIVISION.
...
DISPLAY TELA-1
ACCEPT TELA-1
Técnico em Desenvolvimento de Software
...
Linguagem de Programação Estruturada
SCREEN SECTION.
01 Tela-1.
05 BLANK SCREEN.
05 LINE 1 COLUMN 1
VALUE ‘DATA: ‘.
05 COLUMN 8 PIC X(10) FROM DATA-WS.
05 LINE 3 COLUMN 1
VALUE ‘NOME: ‘.
05 COLUMN 8 PIC X(20) TO NOME-TL.
05 COLUMN 40 VALUE ‘TELA INICIAL’.
01 Tela-2.
05 BLANK SCREEN.
05 LINE 1 COLUMN 1
VALUE ‘BOM DIA! ‘.
05 COLUMN 8 PIC X(20) FROM NOME-IN.
Técnico em Desenvolvimento de Software
Linguagem de Programação Estruturada
SCREEN SECTION.
000-PRINCIPAL.
PERFORM 100-MOSTRA-TELA UNTIL FIM = "1"
EXIT PROGRAM.
100-MOSTRA-TELA.
ACCEPT DATA-WS FROM DATE.
DISPLAY TELA1.
ACCEPT TELA1.
PERFORM 200-TELA-2.
200-TELA-2.
DISPLAY TELA2.
ACCEPT TELA2.
IF SAIR = "N"
MOVE "1" TO FIM.
Técnico em Desenvolvimento de Software