Menu principal
[Fechar]
Introdução
Divisões
Identification Division
Environment Division
Data Division
Procedure Division
Comandos CICS
VSAM - File Status
Quadros importantes
SQL - Structured Query Language
Outros programas
Rotinas prontas
Palavras reservadas
Introdução ao Oracle
Sites de busca
Sites interessantes
Meu e-mail
Linguagem de programação COBOL - MOVE
Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF.
MOVE
Esta declaração permite a movimentação de campos remetentes (identificador-1) para campos receptores (identificador-2).
quem define a forma como será o preenchimento é o campo receptor.
se o receptor for um campo numérico, o preenchimento se dará da direita para a esquerda e, se o campo receptor for maior que o emissor, haverá o preenchimento com zeros à esquerda, se o campo receptor for menor que o emissor, haverá a perda (truncamento) dos dígitos excedentes à esquerda.
se o receptor for um campo alfabético ou alfanumérico, o preenchimento se dará da esquerda para a direita e, se o campo receptor for maior que o emissor, haverá o preenchimento com brancos à direita, se o campo receptor for menor que o emissor, haverá a perda (truncamento) dos caracteres excedentes à direita.
um item de grupo é considerado como alfanumérico pelo compilador.
Pode-se mover itens elementares como itens de grupo.
Pode-se mover um item de grupo para outro item de grupo, mesmo que ambos (ou apenas um deles) possuam sub-níveis.
O seu formato geral é:
Formato 1:
Formato 2:
Constantes:
Constantes (literais) numéricas
1. 1 a 18 dígitos
2. Ponto decimal (opcional, mas não pode ser o último caracter à direita
3. Sinal (opcional, mas, se incluído, deve ser o primeiro caracter à esquerda)
Constantes (literais) Não-numéricas ou alfanuméricas
1. 1 a 160 caracteres para o COBOL 85 (120 é o limite máximo para o COBOL 74)
2. Quaisquer caracteres podem ser usados (exceto aspas ou apóstrofo)
3. Neste texto, a constante é colocada entre aspas simples ou apóstrofos.
Formato:
MOVE CORRESPONDIG | CORR item-1 TO item-2.
Observações:
item-1 representa o conteúdo a ser transferido. É o emissor.
item-2 representa a área receptora.
item-1 e item-2 devem itens de grupos.
Os itens elementares do item-1 serão movidos para os itens elementares correspondentes do item-2.
CORRESPONDING e CORR são sinônimos.
Exemplo:
WORKING-STORAGE SECTION.
01 ITEM-1.
05 WS-CODIGO PIC 9(002) VALUE 06.
05 WS-NOME PIC X(006) VALUE 'CARLOS'.
01 ITEM-2.
05 WS-CODIGO PIC 9(002).
05 WS-NOME PIC X(006).
PROCEDURE DIVISION.
MOVE CORR ITEM-1 TO ITEM-2.
Resultado:
O ITEM-2 ficará com o mesmo conteúdo do ITEM-1, ou seja, 06CARLOS.
