1
2
3
4
5
6
7
8
9
1f
8b08
08e79a
4f4e0203
230073f3f4
73f4b152f053
30b1d8a06068a2
67
6e
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
                PROGRAM-ID. HELLO-WORLD.
                
        ENVIRONMENT DIVISION.
        
        DATA DIVISION.
    
        PROCEDURE DIVISION.
                
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
                PROGRAM-ID. HELLO-WORLD.
                
        ENVIRONMENT DIVISION.
        
        DATA DIVISION.
    
        PROCEDURE DIVISION.
                
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
                PROGRAM-ID. HELLO-WORLD.
                
        ENVIRONMENT DIVISION.
        
        DATA DIVISION.
    
        PROCEDURE DIVISION.
                
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
                PROGRAM-ID. HELLO-WORLD.
                
        ENVIRONMENT DIVISION.
        
        DATA DIVISION.
    
        PROCEDURE DIVISION.
                
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
                PROGRAM-ID. HELLO-WORLD.
                
        ENVIRONMENT DIVISION.
        
        DATA DIVISION.
    
        PROCEDURE DIVISION.
                
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
                PROGRAM-ID. HELLO-WORLD.
                
    ENVIRONMENT DIVISION.
        
    DATA DIVISION.
    
    PROCEDURE DIVISION.
                
 ...

1
2
3
4
5
6
7
8
9
#include <iostream> 
#include <string>   
using namespace std;     
 
int main() 
 
{
 
int a, b;
 ...

1
2
3
4
5
6
7
8
9
#include <iostream> 
#include <string>   
using namespace std;     
 
int main() 
 
{
 
int a, b;
 ...

1
2
3
4
5
6
7
8
9
ROTINA_TABELA_MULTIPLICAR
        NUMERO-LINHA    =1
        LINHA-NUMERO(1) =1
        EXECUTAR PROC-LINHA ATE NUMERO-LINHA=10
        IMPRIMIR LINHA-NUMERO
 
PROC-LINHA
        NUMERO-LINHA    =NUMERO-LINHA+1
        NUMERO-COLUNA   =0
 ...

1
2
3
4
5
6
7
8
9
ROTINA_TABELA_MULTIPLICAR
        NUMERO-LINHA    =1
        LINHA-NUMERO(1) =1
        EXECUTAR PROC-LINHA ATE' NUMERO-LINHA=10
        IMPRIMIR LINHA-NUMERO
 
PROC-LINHA
        NUMERO-LINHA    =NUMERO-LINHA+1
        NUMERO-COLUNA   =0
 ...

1
-h

1
2
3
4
5
6
7
8
9
                                          : #define :
                                          ;
#define __MAX_COLOR__   6
                                          ; __MAX_COLOR__
 
#define color   __MAX_COLOR__
                                          ; ' max ' color = 5
 
#define cyan    48
 ...

1
2
3
4
5
6
7
8
9
                IDENTIFICATION DIVISION.
                PROGRAM-ID. SUB.
                ENVIRONMENT DIVISION.
 
 
                DATA DIVISION.
                WORKING-STORAGE SECTION.
                        77 A   PIC 9999.
                        77 B   PIC 9999.
 ...

1
2
3
4
5
6
7
8
9
                IDENTIFICATION DIVISION.
                PROGRAM-ID. ADD.
                ENVIRONMENT DIVISION.
 
 
                DATA DIVISION.
                WORKING-STORAGE SECTION.
                        77 A   PIC 9999.
                        77 B   PIC 9999.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID. ADD.
        ENVIRONMENT DIVISION.
 
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 A   PIC 9999.
        77 B   PIC 9999.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. ADD.
ENVIRONMENT DIVISION.
 
 
DATA DIVISION.
WORKING-STORAGE SECTION.
                        77 A   PIC 9999.
                        77 B   PIC 9999.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
 
        PROGRAM-ID.  HELLOWORLD.
 
        ENVIRONMENT DIVISION.
 
        CONFIGURATION SECTION.
 
        SOURCE-COMPUTER. IND-COBOL.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
 
PROGRAM-ID.  HELLOWORLD.
 
ENVIRONMENT DIVISION.
 
CONFIGURATION SECTION.
 
SOURCE-COMPUTER. IND-COBOL.
 ...

1
2
3
4
5
6
7
8
9
 IDENTIFICATION DIVISION.
          PROGRAM-ID. HELLO-WORLD.
       *
        ENVIRONMENT DIVISION.
       *
        DATA DIVISION.
       *
        PROCEDURE DIVISION.
        PARA-1.
 ...

1
2
3
4
5
6
7
8
9
*-----------------------------------------------------------------
       PROCEDURE DIVISION.                                              
      *-----------------------------------------------------------------
 
           MOVE FUNCTION CURRENT-DATE TO WS-DATA-CORRENTE               
           STRING                                                       
                 'IPIRANGA, '          DELIMITED BY SIZE                
                 WS-DIA                DELIMITED BY SIZE                
                 ' de '                DELIMITED BY SIZE                
 ...

1
identification division

1
        SUBTRACT MOM, DAD GIVING CAR.

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM_ID "XX".
       ENVIRONMENT DIVISION
       WORKING-STORAGE SECTION.
       01 A PIC X.
       01 B PIC X.
       PROCEDURE DIVISION.
       A05 SECTION
       A05-000.
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM_ID XX.
       ENVIRONMENT DIVISION
       WORKING-STORAGE SECTION.
       01 A PIC X.
       01 B PIC X.
       PROCEDURE DIVISION.
       A05 SECTION
       A05-000.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM_ID XX.
ENVIRONMENT DIVISION
WORKING-STORAGE SECTION.
01 A PIC X.
01 B PIC X.
PROCEDURE DIVISION.
A05 SECTION
A05-000.
 ...

1
2
3
4
5
6
7
8
9
IDENFIFICATION DIVISION.
PROGRAM-ID XX.
ENVIRONMENT DIVISION
WORKING-STORAGE SECTION.
01 A PIC X.
01 B PIC X.
PROCEDURE DIVISION.
A05 SECTION
A05-000.
 ...

1
2
3
4
5
6
7
8
9
IDENFIFICATION DIVISION.
PROGRAM-ID XX.
ENVIRONMENT DIVISION
WORKING STORAGE
01 A PIC X.
01 B PIC X.
PROCEDURE DIVISION.
A05 SECTION
A05-000.
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                         
      *-----------------------------------------------------------------
       PROGRAM-ID.      AULACOBOL.                                       
       AUTHOR.          GRUPO2.                                                                                               
      *-----------------------------------------------------------------
       ENVIRONMENT DIVISION.                                            
      *-----------------------------------------------------------------
                                                                        
      *-----------------------------------------------------------------
 ...

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.                                         
      *-----------------------------------------------------------------
       PROGRAM-ID.      AULACOBOL.                                       
       AUTHOR.          GRUPO2.                                                                                               
      *-----------------------------------------------------------------
       ENVIRONMENT DIVISION.                                            
      *-----------------------------------------------------------------
                                                                        
      *-----------------------------------------------------------------
 ...