COBOL-Beispielprogramm

Das nachfolgende Programm employee.cbl wird als Beispiel verwendet.

IDENTIFICATION DIVISION.
   PROGRAM-ID. EMPLOYEE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
   01 EMPLOYEE-RECORD
     05 EMPLOYEE-NUMBERPIC X(08).
     05 FIRST-NAMEPIC X(20).
     05 LAST-NAMEPIC X(20).
     05 PAY-METHODPIC X.
     05 SALARY-INFO.
        10 ANNUAL-SALARYPIC 9(5).
LINKAGE SECTION.
     COPY KCKBC.
     ...
     COPY KCPAC. 
PROCEDURE DIVISION
...