Descrição do exemplo:
Cadastra a marca e cor de 3 carros e salva em uma tabela interna.
Exemplo utiliza:
Exemplo:
(Comentado)
**---------------------------------------------------------**
** DECLARANDO 2 TYPES(MARCA E COR) DO TYPE C(CHARACTER) **
** COM 10 CARACTERES CADA PARA A TYPES TY_CARROS. **
**---------------------------------------------------------**
TYPES: BEGIN OF TY_CARROS,
MARCA(10) TYPE C,
COR(10) TYPE C,
END OF TY_CARROS.
**---------------------------------------------------------**
** DECLARANDO A WORK AREA(WA_CARROS) DO TYPE TY_CARROS. **
** DECLARANDO A TABELA INTERNA DO TYPE TY_CARROS. **
**---------------------------------------------------------**
DATA: WA_CARROS TYPE TY_CARROS,
TI_CARROS TYPE TABLE OF TY_CARROS.
**---------------------------------------------------------**
** SELECTION-SCREEN PARA CRIAR UMA BOX(BLOCK B1) NA JANELA **
** A BOX B1 USA O TEXTO 001 COMO TITULO(TITLE TEXT-001). **
** **
** DECLARANDO OS PARÂMETROS(PARAMETERS) P_MARCA1 E P_COR1 **
** DO TYPE C(CHARACTER) COM 30 CARACTERES CADA. **
**---------------------------------------------------------**
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_MARCA1(30) TYPE C,
P_COR1(30) TYPE C.
SELECTION-SCREEN END OF BLOCK B1.
**---------------------------------------------------------**
** SELECTION-SCREEN PARA CRIAR UMA BOX(BLOCK B2) NA JANELA **
** A BOX B2 USA O TEXTO 002 COMO TITULO(TITLE TEXT-002). **
** **
** DECLARANDO OS PARÂMETROS(PARAMETERS) P_MARCA2 E P_COR2 **
** DO TYPE C(CHARACTER) COM 30 CARACTERES CADA. **
**---------------------------------------------------------**
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_MARCA2(30) TYPE C,
P_COR2(30) TYPE C.
SELECTION-SCREEN END OF BLOCK B2.
**---------------------------------------------------------**
** SELECTION-SCREEN PARA CRIAR UMA BOX(BLOCK B3) NA JANELA **
** A BOX B3 USA O TEXTO 003 COMO TITULO(TITLE TEXT-003). **
** **
** DECLARANDO OS PARÂMETROS(PARAMETERS) P_MARCA3 E P_COR3 **
** DO TYPE C(CHARACTER) COM 30 CARACTERES CADA. **
**---------------------------------------------------------**
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS: P_MARCA3(30) TYPE C,
P_COR3(30) TYPE C.
SELECTION-SCREEN END OF BLOCK B3.
START-OF-SELECTION.
**---------------------------------------------------------**
** CHAMANDO O FORM DE NOME F_INSERMC E USANDO **
** OS PARÂMETROS(PARAMETERS) P_MARCA1 E P_COR1. **
** **
** QUANDO O PERFORM FOR EXECUTADO ELE IRA SELECIONAR **
** O I_MARCA E O I_COR DO FORM E SUBSTITUIR PELOS **
** PARÂMETROS P_MARCA1 E P_COR1 **
**---------------------------------------------------------**
PERFORM F_INSERMC USING P_MARCA1
P_COR1.
**---------------------------------------------------------**
** CHAMANDO O FORM DE NOME F_INSERMC E USANDO **
** OS PARÂMETROS(PARAMETERS) P_MARCA2 E P_COR2. **
** **
** QUANDO O PERFORM FOR EXECUTADO ELE IRA SELECIONAR **
** O I_MARCA E O I_COR DO FORM E SUBSTITUIR PELOS **
** PARÂMETROS P_MARCA2 E P_COR2. **
**---------------------------------------------------------**
PERFORM F_INSERMC USING P_MARCA2
P_COR2.
**---------------------------------------------------------**
** CHAMANDO O FORM DE NOME F_INSERMC E USANDO **
** OS PARÂMETROS(PARAMETERS) P_MARCA3 E P_COR3. **
** **
** QUANDO O PERFORM FOR EXECUTADO ELE IRA SELECIONAR **
** O I_MARCA E O I_COR DO FORM E SUBSTITUIR PELOS **
** PARÂMETROS P_MARCA3 E P_COR3 **
**---------------------------------------------------------**
PERFORM F_INSERMC USING P_MARCA3
P_COR3.
END-OF-SELECTION.
**---------------------------------------------------------**
** NO FORM DE NOME F_INSERMC FORAM DECLARADOS 2 **
** USING DE NOME I_MARCA E I_COR DO TYPE C(CHARACTER). **
**---------------------------------------------------------**
FORM F_INSERMC USING I_MARCA TYPE C
I_COR TYPE C.
**---------------------------------------------------------**
** ATRIBUINDO O DADOS DO USING I_MARCA NO CAMPO COR **
** DA WORK AREA DE NOME WA_CARROS. **
** **
** WA_TABELA-CAMPO **
**---------------------------------------------------------**
WA_CARROS-MARCA = I_MARCA.
**---------------------------------------------------------**
** ATRIBUINDO O DADOS DO USING I_COR NO CAMPO COR **
** DA WORK AREA DE NOME WA_CARROS. **
** **
** WA_TABELA-CAMPO **
**---------------------------------------------------------**
WA_CARROS-COR = I_COR.
**---------------------------------------------------------**
** ATRIBUINDO O DADOS OS DADOS DA WORK AREA DE **
** NOME WA_CARROSPARA A TABELA INTERNA DE NOME TI_CARROS. **
**---------------------------------------------------------**
APPEND WA_CARROS TO TI_CARROS.
**---------------------------------------------------------**
** LIMPA A WORK AREA DE NOME WA_CARRO. **
**---------------------------------------------------------**
CLEAR WA_CARROS.
ENDFORM.
Postagens
0 comentários:
Postar um comentário