1
2
3
4
5
IDENTIFICATION DIVISION.
PROGRAM-ID.FIRST.
PROCEDURE DIVISION.
DISPLAY 'HELLO'.
STOP RUN.

1
2
3
4
5
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;
 

1
2
3
identification division
program-id. dineshpgm.
environment divison

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.                                        
       PROGRAM-ID. SAMPLE.                                             
       * ***************************************************************
        ENVIRONMENT DIVISION.                                           
       DATA DIVISION. 
       ******************************************************************
       * INPUT  -                                                       *
       * -------------                                                  *
       * DFHAID           : COPYBOOK USED FOR VALIDATING FUNCTION KEYS  *
 ...

1
2
3
4
5
6
7
8
       identification division.
       program-id. cob001.
 
       environment division.
 
       data division.
       working-storage section.
       01 contador pic 9(2) value 0.
 ...

1
2
3
4
5
6
7
8
       identification division.
       program-id. cob001.
 
       environment division.
 
       data division.
       working-storage section.
       01 contador pic 9(2) value 0.
 ...

1
2
3
4
5
6
7
8
       identification division.
       program-id. cob001.
 
       environment division.
 
       data division.
       working-storage section.
       01 contador pic 9(2) value 0.
 ...

1
2
3
4
5
6
7
8
       identification division.
       program-id. cob001.
 
       environment division.
 
       data division.
       working-storage section.
       01 contador pic 9(2) value 0.
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
01 contador pic 9(2).
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
 
data division.
 
procedure division.
 ...

1
2
3
4
5
6
7
8
9
identification division.
program-id. cob001.
 
environment division.
 
data division.
 
procedure division.
stop run.

1
2
3
4
5
6
7
8
9
identification division.
program-id. cob001.
 
environment division.
 
data division.
working-storage section.
 
procedure division.
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
input-output section.
 
data division.
working-storage section.
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
        environment division.
        input-output section.
 
        data division.
        working-storage section.
 ...

1
2
3
4
5
6
7
8
        identification division.
        program-id. cob001.
 
        environment division.
        input-output section.
 
        data division.
        working-storage section.
 ...

1
2
3
4
5
6
7
8
        identification division.
        program-id. cob001.
 
        environment division.
        input-output section.
 
        data division.
        working-storage division.
 ...

1
2
3
4
5
6
7
8
identification division.
program-id. cob001.
 
environment division.
input-output section.
 
data division.
working-storage division.
 ...

1
2
3
4
5
6
7
8
9
***************************** Top of Data ****************************
 IDENTIFICATION DIVISION.                                             
*-------------------------------------------------------------        
 PROGRAM-ID. SLSRPT02.                                                
 AUTHOR. SHANTONOB.                                                   
 DATE-WRITTEN.  13-01-2012.                                           
*                                                                     
*                                                                     
******************************************************************    
 ...

1
2
3
4
5
6
7
8
9
***************************** Top of Data ****************************
 IDENTIFICATION DIVISION.                                             
*-------------------------------------------------------------        
 PROGRAM-ID. SLSRPT02.                                                
 AUTHOR. SHANTONOB.                                                   
 DATE-WRITTEN.  13-01-2012.                                           
*                                                                     
*                                                                     
******************************************************************    
 ...

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