1
2
3
4
5
6
7
8
9
       IDENTIFICATION                      DIVISION.
      *-----------------------------------------------------------------
       PROGRAM-ID.                         EX1.
       AUTHOR.                             SIVAN BARAK.
       DATE-WRITTEN.                       24/5/2012.
      *REMARKS.                            CALCULATIONS IN A RECTANGLE.
      *-----------------------------------------------------------------
       ENVIRONMENT                         DIVISION.
      *-----------------------------------------------------------------
 ...

1
2
3
4
5
6
7
8
 IDENTIFICATION DIVISION.
          PROGRAM_ID. HELLO_WORLD.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
        PARA-1.
            DISPLAY "Hello, World!!".
            STOP RUN.

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
IDENTIFICATION DIVISION.
PROGRAM-ID. 1212.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A PIC X(2) VALUE 'HE'.
PROCEDURE DIVISION.
DISPLAY WS-A.
GOBACK.

1
        01 Duredon picX(10).

1
01 Duredon picX(10).

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <string.h>
int main()
{
        char str[105];
        char conj[6][5]={"the","a","an","of","for","and"};
        char word[30];
        char c;
    char acronym[30];
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <string.h>
int main()
{
        char str[105];
        char conj[6][5]={"the","a","an","of","for","and"};
        char word[30];
        char c;
    char acronym[30];
 ...

1
2
3
4
5
6
7
8
9
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. NUMBERS.
000300 AUTHOR.ANON.
000400****************************************************************
000500*    Simply transfer the present program to your favorite      *
000600*    mainframe computer, compile it, link it and submit some   *
000700*    appropriate JCL to run it. Its output tells the answer.   *
000800****************************************************************
000900 ENVIRONMENT DIVISION.
 ...

1
 

1
2
3
4
5
6
7
8
9
      ******************************************************************
      * DCLGEN TABLE(DBMAIL.ATENDIMENTO)                               *
      *        LIBRARY(ANPR.DCLGEN(MAIL3501))                          *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE DBMAIL.ATENDIMENTO TABLE
 ...

1
2
3
4
5
6
7
8
9
      ******************************************************************
      * DCLGEN TABLE(DBMAIL.ATENDIMENTO)                               *
      *        LIBRARY(ANPR.DCLGEN(MAIL3501))                          *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE DBMAIL.ATENDIMENTO TABLE
 ...

1
2
3
4
5
6
7
8
9
      *-----------------------------------------------------------------
       IDENTIFICATION DIVISION.
      *-----------------------------------------------------------------
       PROGRAM-ID.       CADDIGIT.
       AUTHOR.           CARLOS ALBERTO DORNELLES.
      *-----------------------------------------------------------------
      *  PROGRAMA      : CADDIGIT
      *  OBJETIVO      : VERIFICA O DIGITO DO CPF CNPJ OU PIS/PSASEP
      *  ANALISTA      : CARLOS ALBERTO DORNELLES
 ...

1
2
3
4
5
6
7
8
9
      *-----------------------------------------------------------------
       IDENTIFICATION DIVISION.
      *-----------------------------------------------------------------
       PROGRAM-ID.       CADDIGIT.
       AUTHOR.           CARLOS ALBERTO DORNELLES.
      *-----------------------------------------------------------------
      *  PROGRAMA      : CADDIGIT
      *  OBJETIVO      : VERIFICA O DIGITO DO CPF CNPJ OU PIS/PSASEP
      *  ANALISTA      : CARLOS ALBERTO DORNELLES
 ...

1
2
3
4
5
6
7
8
9
      *-----------------------------------------------------------------
       IDENTIFICATION DIVISION.
      *-----------------------------------------------------------------
       PROGRAM-ID.       CADDIGIT.
       AUTHOR.           CARLOS ALBERTO DORNELLES.
      *-----------------------------------------------------------------
      *  PROGRAMA      : CADDIGIT
      *  OBJETIVO      : VERIFICA O DIGITO DO CPF CNPJ OU PIS/PSASEP
      *  ANALISTA      : CARLOS ALBERTO DORNELLES
 ...

1
2
3
4
5
6
7
8
9
         1         2         3         4         5         6         7   
123456789012345678901234567890123456789012345678901234567890123456789012
 
      *-----------------------------------------------------------------
       IDENTIFICATION DIVISION.
      *-----------------------------------------------------------------
       PROGRAM-ID.       CADDIGIT.
       AUTHOR.           CARLOS ALBERTO DORNELLES.
      *-----------------------------------------------------------------
 ...

1
2
3
4
5
6
7
8
9
Id DIVISION.
Program id. SS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Z PIC X(02).
PROCEDURE DIVISION.
PARA2.
        DISPLAY 'ZZ'.

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TES.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN.
           MOVE 00001 TO aaa.
           DISPLAY aaa.

1
2
3
4
5
6
7
8
9
       DATA DIVISION.
       PROGRAM-ID. TES.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN.
           MOVE 00001 TO aaa.
           DISPLAY aaa.
           STOP RUN.

1
2
3
4
5
6
7
8
9
       DATA DIVISION.
       PROGRAM-ID. TES.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN.
           MOVE 00001 TO aaa.
           DISPLAY aaa.
           STOP RUN.

1
2
3
4
5
6
7
8
9
       DATA DIVISION.
       PROGRAM-ID. TES.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN
           MOVE 00001 TO aaa.
           DISPLAY aaa.
           STOP RUN.

1
2
3
4
5
6
7
8
9
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN
           MOVE 00001 TO aaa.
           DISPLAY aaa.
           STOP RUN.

1
2
3
4
5
6
7
8
9
       IDENTIFICATION DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN
           MOVE 00001 TO aaa.
           DISPLAY aaa.
           STOP RUN.

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  aaa PIC 9(5).
       PROCEDURE DIVISION.
       A0-MAIN
           MOVE 00001 TO aaa.
           DISPLAY aaa.
           STOP RUN.

1
2
3
4
5
6
7
8
9
*****************************
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MAIN SECTION.
DISPLAY "Hello World!"
STOP RUN.

1
move 1 to ws-zone

1
2
3
4
5
6
7
8
9
#include<iostream.h>
 #include<conio.h>
 char *months[]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
 void cal(int yr,int mo,int fd,int da);
 void main(){
 int days[12]={31,28,31,30,31,30,31,31,30,31,30,31};
 long int ndays,ldays,tdays,tydays;
 int i,y,m,fday,d;
 clrscr();
 ...

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. EXEMPLO2.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

1
2
3
4
5
6
7
8
9
.data
x:
        .long   0
s:
        .string "%d\n\0"
 
.text
.global main
main:                           # int main()
 ...

1
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...