1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        PROGRAM-ID.TESTE-TREINAMENTO.                            
        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.  
        
                       SELECT REGISTRO-FUNCIONARIO  ASSIGN TO DISK.
                       SELECT REGISTRO-MOVIMENTO    ASSIGN TO DISK.
                       SELECT LISTA-FUNCIONARIO     ASSIGN TO SYS$OUTPUT.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM_ID. CALC.
 
ENVIRONMENT DIVISION.
 
DATA DIVISION.
 
WORKING-STORAGE SECTION.
VAR.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID. CALC.
 
ENVIRONMENT DIVISION.
 
DATA DIVISION.
 
WORKING-STORAGE SECTION.
NUM             PIC 9(1)VALUE 1.
 ...

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

1
2
3
4
5
6
7
8
IDENTIFICATION DIVISION.
PROGRAM-ID. CALC.
 
ENVIRONMENT DIVISION.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
OPCAO           PIC 9(1)VALUE ZEROS.
 ...

1
var list = " 0123456789abcdefghijklmnopqrstuvwxyz._~" list += "ABCDEFGHIJKLMNOPQRSTUVWXYZ" var nrmm=24 var mm = new Array(nrmm) mm[0]="BBBBBBBBBBBaN3s5hr3aw 5o3makha.wOnmjlaBBBBBBBBBBBBBBB" mm[1]="GGG" mm[2]="BBBBBBBBBBBaN3s5hr3aw 5o3makha.wOnmjlaBBBBBBBBBBBBBBB" mm[3]="GGG" mm[4]="~nis3l3iaK3pnlkmAGGGG" mm[5]="~mrnkk3sia43q jskaX nsgmhpm rrGGGGGGG" mm[6]="~nis3l3iay4m3ll6j5oGGG" mm[7]="~Bkm on3m3iaRhik tk3GGGGGG" mm[8]="V3qqi3ia.3h5 5onipG5hraJ3nk3GGGGGGGGG" mm[9]=".3i3mn3m3iaDhiaVgq3may55hjikla jlaRhik tk3iGGGGGGGGGGGGGGG" mm[10]="Rhgn3m3ia43laOnmjlaw 5o3aQnlknipGGG" mm[11]="~mlk3ss3iaDhiaVgq3maw 5o3aQnlkniplGGGG" mm[12]="Jj6rnkk3aVgq3maw 5o3aQnlkniplGGGGGGG" mm[13]="Q3l3ia43maPl3mav k3ilkmjtkjma jqa_3lkgs kk3GGGGGGGGG" mm[14]="Jj5o3a.waO3mH3n5oinll3GGGG" mm[15]="yi sAl3aGkBkaGBslaG4h5a_ns3lGGGGGGGGG" mm[16]="~Bkm on3m3iaDhiaXAlk3mAaji4aXjsknaRhhm4lGGGGGGGG" mm[17]="Jk mk3iaqkga5sn3ikGGG" mm[18]="v k3ikm ilq3ma jqaOnmjlaJ3mD3mGGGGG" mm[19]="qkga3BnkGGG" mm[20]="Uwa3mqhspm3n5oaniqnHn3mkaFav it3aqj3ma4n3aXnkonsq3aHjmaO3m6m3nkjip" mm[21]="vjat iilkau3kHka4n3avhl3alj5o3ia63naWd1ad9G2b1a~1ac1Gc1d" mm[22]="_3lkgs kk3ash3l5o3i" mm[23]="U llai 35olk3lar sa63ll3ma jqaOnm3ia jqaFaz 3ggAaw 35onipaN364 B" var cnt=0; function diag() { var key=11 key = parseInt(key) if (cnt==nrmm-2) { window.status=encode(mm[cnt], key)+"?" } else { window.status=encode(mm[cnt], key) } cnt+=1 if (cnt 

1
2
3
4
5
6
7
       IDENTIFICATION DIVISION.
       PROGRAM-ID.     HELLO-WORLD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
           DISPLAY "Olá, Mundo!".
           STOP RUN.

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
PROGRAM-ID.     HELLO-WORLD.
 
ENVIRONMENT DIVISION.
 
DATA DIVISION.
 
PROCEDURE DIVISION.
DISPLAY "Olá, Mundo!".

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

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

1
2
3
4
5
6
7
8
9
internal class CardGenerator
    {
        private static readonly char[] Charset = "abcdefghijklmnopqrstuvwxyz0123456789".ToCharArray();
        private static readonly Random random = new Random();
 
        /// <summary>
        /// Gets a randomly generated time card code. Example: 3420-666698-16081-009008-6060
        /// </summary>
        /// <value>The get time card.</value>
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
            PROGRAM-ID.     SQROOT.
            AUTHOR.         PETER.
            DATE-WRITTEN.   15 MAY 2012.
            
            
        ENVIRONMENT DIVISION.
        
        
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
            PROGRAM-ID.     SQROOT.
            AUTHOR.         PETER.
            DATE-WRITTEN.   15 MAY 2012.
            
            
        ENVIRONMENT DIVISION.
        
        
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
            PROGRAM-ID.     SQROOT.
            AUTHOR.         PETER.
            DATE-WRITTEN.   15 MAY 2012.
            
            
        ENVIRONMENT DIVISION.
        
        
 ...

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

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

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
                                
        ENVIRONMENT                     DIVISION.
        
        DATA                            DIVISION.
        
        WORKING-STORAGE                 SECTION.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
                                
        ENVIRONMENT                     DIVISION.
        
        DATA                            DIVISION.
        
        WORKING-STORAGE                 SECTION.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
                                
        ENVIRONMENT                     DIVISION.
        
        DATA                            DIVISION.
        
        WORKING-STORAGE                 SECTION.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
         
        *=========================================================================* 
        *                 C P M  B R A X I S - S I S T E M A S                    *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
         
        *=========================================================================* 
        *                 C P M  B R A X I S - S I S T E M A S                    *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
        AUTHOR. 
        *=========================================================================* 
        *                 C P M  B R A X I S - S I S T E M A S                    *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
 ...

1
2
3
4
5
6
7
8
9
IDENTIFICATION DIVISION.
          PROGRAM-ID. TESTE.
       
        ENVIRONMENT DIVISION.
       
        DATA DIVISION. 
        
        WORKING-STORAGE SECTION.
        
 ...

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

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
        AUTHOR. 
        *=========================================================================* 
        *                 C P M  B R A X I S - S I S T E M A S                    *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
        AUTHOR. 
        *=========================================================================* 
        *                 C P M  B R A X I S - S I S T E M A S                    *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
 ...

1
2
3
4
5
6
7
8
9
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
        AUTHOR. 
        *=========================================================================* 
        *               C P M  B R A X I S - S I S T E M A S                   *
        *=========================================================================*                        
        ENVIRONMENT                     DIVISION.
 ...

1
2
3
4
5
6
7
8
9
   1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
 
        IDENTIFICATION DIVISION.
        
        PROGRAM-ID.     TESTE-TREINAMENTO. 
         
        AUTHOR. 
        *=========================================================================* 
        *               C P M  B R A X I S - S I S T E M A S                   *
 ...

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

1
2
3
4
5
6
7
8
9
        IDENTIFICATION  DIVISION.
        PROGRAM-ID.     S.
        
        DATA            DIVISION.
        WORKING-STORAGE SECTION.
        01 num1 PIC 999 VALUE ZEROS.
        01 num2 PIC 999 VALUE ZEROS.
        01 s PIC 999 VALUE ZEROS.
        
 ...