COBOL - Básico Verbos
EM COBOL verbos são usados no procedimento divisão de processamento de dados. A declaração começa sempre com um verbo EM COBOL. Há diversos verbos COBOL com diferentes tipos de ações.
Entrada / Saída verbos
Input/Output os verbos são usados para obter dados do usuário e exibir a produção de programas EM COBOL. Os seguintes dois verbos são utilizados para este processo.
Aceitar Verbo
Aceitar verbo é utilizado para obter dados como data, hora e dia do sistema operacional ou diretamente do usuário. Se um programa está aceitando os dados do usuário e, em seguida, ele tem que ser aprovado pelo JCL. Embora a obtenção de dados do sistema operacional a partir da opção é incluída como mostrado no seguinte exemplo exemplo:
ACCEPT WS-STUDENT-NAME. ACCEPT WS-DATE FROM SYSTEM-DATE.
Exibir Verbo
Exibir verbo é utilizado para exibir a saída de um programa em COBOL.
DISPLAY WS-STUDENT-NAME. DISPLAY "System date is : " WS-DATE.
PROGRAMA EM COBOL
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-STUDENT-NAME PIC X(25). 01 WS-DATE PIC X(10). PROCEDURE DIVISION. ACCEPT WS-STUDENT_NAME. ACCEPT WS-DATE FROM DATE. DISPLAY "Name : " WS-STUDENT_NAME. DISPLAY "Date : " WS-DATE. STOP RUN.
JCL para executar o programa em COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO //INPUT DD DSN=PROGRAM.DIRECTORY,DISP=SHR //SYSIN DD * TutorialsPoint /*
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
Name : TutorialsPoint Date : 2014-08-30
Inicializar Verbo
Inicializar verbo é usado para inicializar um item de grupo ou um item elementar. Nomes de dados com RENOMEAR cláusula não pode ser inicializado. Os itens de dados numéricos são substituídos por zeros. Alfabética Alfabética ou itens de dados são substituídos por espaços. Se se incluem a substituição, em seguida, itens de dados podem ser inicializados com o valor dado a substituição como mostrado no exemplo a seguir:
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NAME PIC A(30) VALUE 'ABCDEF'. 01 WS-ID PIC 9(5). 01 WS-ADDRESS. 05 WS-HOUSE-NUMBER PIC 9(3). 05 WS-COUNTRY PIC X(15). 05 WS-PINCODE PIC 9(6) VALUE 123456. PROCEDURE DIVISION. A000-FIRST-PARA. INITIALIZE WS-NAME, WS-ADDRESS. INITIALIZE WS-ID REPLACING NUMERIC DATA BY 12345. DISPLAY "My name is : "WS-NAME. DISPLAY "My ID is : "WS-ID. DISPLAY "Address : "WS-ADDRESS. DISPLAY "House Number : "WS-HOUSE-NUMBER. DISPLAY "Country : "WS-COUNTRY. DISPLAY "Pincode : "WS-PINCODE. STOP RUN.
JCL para executar o programa em COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
My name is : My ID is : 12345 Address : 000 000000 House Number : 000 Country : Pincode : 000000
Mova Verbo
Mova verbo é utilizado para copiar os dados da fonte de dados para dados de destino. Ele pode ser usado tanto no ensino fundamental e o grupo os itens de dados. Dados do grupo de itens, MOVER CORRESPONDENTE/CORR é usado. No tente a opção, MOVER CORR não está funcionando; mas em um mainframe server ele vai trabalhar.
Para mover dados de uma cadeia de caracteres, SE MOVER(x:l) é usado onde x é a posição inicial e l é o comprimento. Os dados serão truncadas se dados de destino item PIC cláusula é menor do que os dados de origem item PIC cláusula. Se os dados de destino item PIC cláusula é mais do que a fonte de dados cláusula item PIC, em seguida, ZEROS À ESQUERDA ou OS ESPAÇOS serão adicionados no bytes extras. O exemplo a seguir torna-lo claro:
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9). 01 WS-NUM2 PIC 9(9). 01 WS-NUM3 PIC 9(5). 01 WS-NUM4 PIC 9(6). 01 WS-ADDRESS. 05 WS-HOUSE-NUMBER PIC 9(3). 05 WS-COUNTRY PIC X(5). 05 WS-PINCODE PIC 9(6). 01 WS-ADDRESS1. 05 WS-HOUSE-NUMBER1 PIC 9(3). 05 WS-COUNTRY1 PIC X(5). 05 WS-PINCODE1 PIC 9(6). PROCEDURE DIVISION. A000-FIRST-PARA. MOVE 123456789 TO WS-NUM1. MOVE WS-NUM1 TO WS-NUM2 WS-NUM3. MOVE WS-NUM1(3:6) TO WS-NUM4. MOVE 123 TO WS-HOUSE-NUMBER. MOVE 'INDIA' TO WS-COUNTRY. MOVE 112233 TO WS-PINCODE. MOVE WS-ADDRESS TO WS-ADDRESS1. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUM3 : " WS-NUM3 DISPLAY "WS-NUM4 : " WS-NUM4 DISPLAY "WS-ADDRESS : " WS-ADDRESS DISPLAY "WS-ADDRESS1 : " WS-ADDRESS1 STOP RUN.
JCL para executar o programa em COBOL.
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido que produz o seguinte resultado:
WS-NUM1 : 123456789 WS-NUM2 : 123456789 WS-NUM3 : 56789 WS-NUM4 : 345678 WS-ADDRESS : 123INDIA112233 WS-ADDRESS1 : 123INDIA112233
Movimentos Legais
A tabela a seguir fornece informações acerca da legislação se move:
| Ordem Alfabética | Caracteres alfanuméricos | Os valores numéricos | |
|---|---|---|---|
| Ordem Alfabética | Possível | Possível | Não é possível |
| Caracteres alfanuméricos | Possível | Possível | Possível |
| Os valores numéricos | Não é possível | Possível | Possível |
Adicionar Verbo
Adicionar verbo é utilizado para adicionar dois ou mais números e armazena o resultado no destino operando.
Sintaxe
Abaixo é a sintaxe para adicionar dois ou mais números.
ADD A B TO C D ADD A B C TO D GIVING E ADD CORR WS-GROUP1 TO WS-GROUP2
Na sintaxe-1, A, B e C são adicionados e o resultado é armazenado em C (C=A+B+C). A, B e D são adicionados e o resultado é armazenado em D (D=A+B+D).
Na sintaxe-2, A, B, C E D são adicionados e o resultado é armazenado em E (E=A+B+C+D).
Na sintaxe-3, sub-itens de grupo com a WS-GRUPO1 GRUPO2 e RD são os adicionados e o resultado é armazenado no WS-GROUP2.
Exemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9) VALUE 10 . 01 WS-NUM2 PIC 9(9) VALUE 10. 01 WS-NUM3 PIC 9(9) VALUE 10. 01 WS-NUM4 PIC 9(9) VALUE 10. 01 WS-NUMA PIC 9(9) VALUE 10. 01 WS-NUMB PIC 9(9) VALUE 10. 01 WS-NUMC PIC 9(9) VALUE 10. 01 WS-NUMD PIC 9(9) VALUE 10. 01 WS-NUME PIC 9(9) VALUE 10. PROCEDURE DIVISION. ADD WS-NUM1 WS-NUM2 TO WS-NUM3 WS-NUM4. ADD WS-NUMA WS-NUMB WS-NUMC TO WS-NUMD GIVING WS-NUME. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUM3 : " WS-NUM3 DISPLAY "WS-NUM4 : " WS-NUM4 DISPLAY "WS-NUMA : " WS-NUMA DISPLAY "WS-NUMB : " WS-NUMB DISPLAY "WS-NUMC : " WS-NUMC DISPLAY "WS-NUMD : " WS-NUMD DISPLAY "WS-NUME : " WS-NUME STOP RUN.
JCL para executar o programa em COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
WS-NUM1 : 000000010 WS-NUM2 : 000000010 WS-NUM3 : 000000030 WS-NUM4 : 000000030 WS-NUMA : 000000010 WS-NUMB : 000000010 WS-NUMC : 000000010 WS-NUMD : 000000010 WS-NUME : 000000040
Subtraia Verbo
Subtraia verbo é utilizado para subtracção operações.
Sintaxe
Abaixo está a sintaxe para subtrair as operações:
SUBTRACT A B FROM C D SUBTRACT A B C FROM D GIVING E SUBTRACT CORR WS-GROUP1 TO WS-GROUP2
Na sintaxe-1, A e B são adicionadas e subtraídas da C. o resultado é armazenado em C (C=C-(A+B)]. A e B são adicionadas e subtraídas da D. o resultado é armazenado em D (D=D-(A+B)].
No âmbito da sintaxe-2, A, B e C são adicionadas e subtraídas da D. Resultado é armazenado em E (E=D-(A+B+C))
Na sintaxe-3, sub-grupo os itens contidos no WS-GRUPO1 e WS-GRUPO2 são subtraídas e o resultado é armazenado no WS-GROUP2.
Exemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9) VALUE 10 . 01 WS-NUM2 PIC 9(9) VALUE 10. 01 WS-NUM3 PIC 9(9) VALUE 100. 01 WS-NUM4 PIC 9(9) VALUE 100. 01 WS-NUMA PIC 9(9) VALUE 10. 01 WS-NUMB PIC 9(9) VALUE 10. 01 WS-NUMC PIC 9(9) VALUE 10. 01 WS-NUMD PIC 9(9) VALUE 100. 01 WS-NUME PIC 9(9) VALUE 10. PROCEDURE DIVISION. SUBTRACT WS-NUM1 WS-NUM2 FROM WS-NUM3 WS-NUM4. SUBTRACT WS-NUMA WS-NUMB WS-NUMC FROM WS-NUMD GIVING WS-NUME. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUM3 : " WS-NUM3 DISPLAY "WS-NUM4 : " WS-NUM4 DISPLAY "WS-NUMA : " WS-NUMA DISPLAY "WS-NUMB : " WS-NUMB DISPLAY "WS-NUMC : " WS-NUMC DISPLAY "WS-NUMD : " WS-NUMD DISPLAY "WS-NUME : " WS-NUME STOP RUN.
JCL para executar o programa em COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
WS-NUM1 : 000000010 WS-NUM2 : 000000010 WS-NUM3 : 000000080 WS-NUM4 : 000000080 WS-NUMA : 000000010 WS-NUMB : 000000010 WS-NUMC : 000000010 WS-NUMD : 000000100 WS-NUME : 000000070
Multiplique Verbo
Multiplique verbo é utilizado para operações de multiplicação.
Sintaxe
Abaixo está a sintaxe para multiplicar dois ou mais números.
MULTIPLY A BY B C MULTIPLY A BY B GIVING E
Na sintaxe-1, A e B são excedente e o resultado é armazenado no B (B=A*B). A e C são excedente e o resultado é armazenado em C (C=A*C).
Na sintaxe-2, A e B são excedente e o resultado é armazenado em (E=A*B).
Exemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9) VALUE 10 . 01 WS-NUM2 PIC 9(9) VALUE 10. 01 WS-NUM3 PIC 9(9) VALUE 10. 01 WS-NUMA PIC 9(9) VALUE 10. 01 WS-NUMB PIC 9(9) VALUE 10. 01 WS-NUMC PIC 9(9) VALUE 10. PROCEDURE DIVISION. MULTIPLY WS-NUM1 BY WS-NUM2 WS-NUM3. MULTIPLY WS-NUMA BY WS-NUMB GIVING WS-NUMC. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUM3 : " WS-NUM3 DISPLAY "WS-NUMA : " WS-NUMA DISPLAY "WS-NUMB : " WS-NUMB DISPLAY "WS-NUMC : " WS-NUMC STOP RUN.
JCL para executar o programa em COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
WS-NUM1 : 000000010 WS-NUM2 : 000000100 WS-NUM3 : 000000100 WS-NUMA : 000000010 WS-NUMB : 000000010 WS-NUMC : 000000100
Divida Verbo
Divida verbo é usado para as operações de divisão.
Sintaxe
Abaixo sintaxe é a seguinte para as operações de divisão:
DIVIDE A INTO B DIVIDE A BY B GIVING C REMAINDER R
Na sintaxe-1, B é dividida por um e o resultado é armazenado no B (B=B/A).
Na sintaxe-2, UM é dividido por B e o resultado é armazenado em C (C=A/B) e o restante é armazenado em R.
Exemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9) VALUE 5. 01 WS-NUM2 PIC 9(9) VALUE 250. 01 WS-NUMA PIC 9(9) VALUE 100. 01 WS-NUMB PIC 9(9) VALUE 15. 01 WS-NUMC PIC 9(9). 01 WS-REM PIC 9(9). PROCEDURE DIVISION. DIVIDE WS-NUM1 INTO WS-NUM2. DIVIDE WS-NUMA BY WS-NUMB GIVING WS-NUMC REMAINDER WS-REM. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUMA : " WS-NUMA DISPLAY "WS-NUMB : " WS-NUMB DISPLAY "WS-NUMC : " WS-NUMC DISPLAY "WS-REM : " WS-REM STOP RUN.
JCL para executar o programa em COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
WS-NUM1 : 000000005 WS-NUM2 : 000000050 WS-NUMA : 000000100 WS-NUMB : 000000015 WS-NUMC : 000000006 WS-REM : 000000010
Declaração Computação
Calcular comando é usado para escrever expressões aritméticas em COBOL. Esta é uma substituição para adicionar, subtrair, multiplicar e dividir.
Exemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9) VALUE 10 . 01 WS-NUM2 PIC 9(9) VALUE 10. 01 WS-NUM3 PIC 9(9) VALUE 10. 01 WS-NUMA PIC 9(9) VALUE 50. 01 WS-NUMB PIC 9(9) VALUE 10. 01 WS-NUMC PIC 9(9). PROCEDURE DIVISION. COMPUTE WS-NUMC= (WS-NUM1 * WS-NUM2) - (WS-NUMA / WS-NUMB) + WS-NUM3. DISPLAY "WS-NUM1 : " WS-NUM1 DISPLAY "WS-NUM2 : " WS-NUM2 DISPLAY "WS-NUM3 : " WS-NUM3 DISPLAY "WS-NUMA : " WS-NUMA DISPLAY "WS-NUMB : " WS-NUMB DISPLAY "WS-NUMC : " WS-NUMC STOP RUN.
JCL para executar o programa em COBOL.
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Quando você compilar e executar o programa acima referido, que produz o seguinte resultado:
WS-NUM1 : 000000010 WS-NUM2 : 000000010 WS-NUM3 : 000000010 WS-NUMA : 000000050 WS-NUMB : 000000010 WS-NUMC : 000000105
