From 91965d28a6cebd6ed7aebc27f7c5b3d0b73d9261 Mon Sep 17 00:00:00 2001
From: Alex Dukhan <agdukhan@gmail.com>
Date: Wed, 11 Mar 2026 14:36:20 +0000
Subject: [PATCH] Add COBOL sans CPY ext

---
 assets/syntaxes/02_Extra/COBOL                |  2 +-
 .../highlighted/COBOL/payroll.cbl             | 61 +++++++++++++++++++
 tests/syntax-tests/source/COBOL/payroll.cbl   | 61 +++++++++++++++++++
 3 files changed, 123 insertions(+), 1 deletion(-)
 create mode 100644 tests/syntax-tests/highlighted/COBOL/payroll.cbl
 create mode 100644 tests/syntax-tests/source/COBOL/payroll.cbl

diff --git a/assets/syntaxes/02_Extra/COBOL b/assets/syntaxes/02_Extra/COBOL
index 90f88bf6..00a12937 160000
--- a/assets/syntaxes/02_Extra/COBOL
+++ b/assets/syntaxes/02_Extra/COBOL
@@ -1 +1 @@
-Subproject commit 90f88bf65f339be3b42d6c490bca0a4a85cefad0
+Subproject commit 00a12937cfff328f24db55ce7955682542cc872d
diff --git a/tests/syntax-tests/highlighted/COBOL/payroll.cbl b/tests/syntax-tests/highlighted/COBOL/payroll.cbl
new file mode 100644
index 00000000..11e19fe9
--- /dev/null
+++ b/tests/syntax-tests/highlighted/COBOL/payroll.cbl
@@ -0,0 +1,61 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. PAYROLL-CALC.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+    01 EMPLOYEE-DETAILS.
+        05 EMPLOYEE-NAME      PIC X(30).
+        05 HOURS-WORKED       PIC 99V9.
+        05 HOURLY-RATE        PIC 99V99.
+    01 PAY-CALCULATIONS.
+        05 GROSS-PAY          PIC 9(5)V99.
+        05 OVERTIME-HOURS     PIC 99V9.
+        05 OVERTIME-PAY       PIC 9(5)V99.
+        05 TAX-RATE           PIC V99 VALUE 0.10.
+        05 TAX-AMOUNT         PIC 9(5)V99.
+        05 NET-PAY            PIC 9(5)V99.
+
+PROCEDURE DIVISION.
+MAIN-LOGIC.
+    DISPLAY "--- COBOL Payroll Calculator ---".
+
+    DISPLAY "Enter Employee Name: ".
+    ACCEPT EMPLOYEE-NAME.
+
+    DISPLAY "Enter Hours Worked (e.g., 40.5): ".
+    ACCEPT HOURS-WORKED.
+
+    DISPLAY "Enter Hourly Rate (e.g., 15.75): ".
+    ACCEPT HOURLY-RATE.
+
+    PERFORM CALCULATE-GROSS-PAY.
+    PERFORM CALCULATE-TAX.
+    PERFORM CALCULATE-NET-PAY.
+    PERFORM DISPLAY-RESULTS.
+
+    STOP RUN.
+
+CALCULATE-GROSS-PAY.
+    IF HOURS-WORKED > 40 THEN
+        COMPUTE OVERTIME-HOURS = HOURS-WORKED - 40
+        COMPUTE OVERTIME-PAY = OVERTIME-HOURS * HOURLY-RATE * 1.5
+        COMPUTE GROSS-PAY = (40 * HOURLY-RATE) + OVERTIME-PAY
+    ELSE
+        COMPUTE GROSS-PAY = HOURS-WORKED * HOURLY-RATE
+    END-IF.
+
+CALCULATE-TAX.
+    COMPUTE TAX-AMOUNT = GROSS-PAY * TAX-RATE.
+
+CALCULATE-NET-PAY.
+    COMPUTE NET-PAY = GROSS-PAY - TAX-AMOUNT.
+
+DISPLAY-RESULTS.
+    DISPLAY "----------------------------------".
+    DISPLAY "Employee Name: " EMPLOYEE-NAME.
+    DISPLAY "Hours Worked:  " HOURS-WORKED.
+    DISPLAY "Hourly Rate:   " HOURLY-RATE.
+    DISPLAY "Gross Pay:     " GROSS-PAY.
+    DISPLAY "Tax (10%):     " TAX-AMOUNT.
+    DISPLAY "Net Pay:       " NET-PAY.
+    DISPLAY "----------------------------------".
\ No newline at end of file
diff --git a/tests/syntax-tests/source/COBOL/payroll.cbl b/tests/syntax-tests/source/COBOL/payroll.cbl
new file mode 100644
index 00000000..ab552167
--- /dev/null
+++ b/tests/syntax-tests/source/COBOL/payroll.cbl
@@ -0,0 +1,61 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. PAYROLL-CALC.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+    01 EMPLOYEE-DETAILS.
+        05 EMPLOYEE-NAME      PIC X(30).
+        05 HOURS-WORKED       PIC 99V9.
+        05 HOURLY-RATE        PIC 99V99.
+    01 PAY-CALCULATIONS.
+        05 GROSS-PAY          PIC 9(5)V99.
+        05 OVERTIME-HOURS     PIC 99V9.
+        05 OVERTIME-PAY       PIC 9(5)V99.
+        05 TAX-RATE           PIC V99 VALUE 0.10.
+        05 TAX-AMOUNT         PIC 9(5)V99.
+        05 NET-PAY            PIC 9(5)V99.
+
+PROCEDURE DIVISION.
+MAIN-LOGIC.
+    DISPLAY "--- COBOL Payroll Calculator ---".
+
+    DISPLAY "Enter Employee Name: ".
+    ACCEPT EMPLOYEE-NAME.
+
+    DISPLAY "Enter Hours Worked (e.g., 40.5): ".
+    ACCEPT HOURS-WORKED.
+
+    DISPLAY "Enter Hourly Rate (e.g., 15.75): ".
+    ACCEPT HOURLY-RATE.
+
+    PERFORM CALCULATE-GROSS-PAY.
+    PERFORM CALCULATE-TAX.
+    PERFORM CALCULATE-NET-PAY.
+    PERFORM DISPLAY-RESULTS.
+
+    STOP RUN.
+
+CALCULATE-GROSS-PAY.
+    IF HOURS-WORKED > 40 THEN
+        COMPUTE OVERTIME-HOURS = HOURS-WORKED - 40
+        COMPUTE OVERTIME-PAY = OVERTIME-HOURS * HOURLY-RATE * 1.5
+        COMPUTE GROSS-PAY = (40 * HOURLY-RATE) + OVERTIME-PAY
+    ELSE
+        COMPUTE GROSS-PAY = HOURS-WORKED * HOURLY-RATE
+    END-IF.
+
+CALCULATE-TAX.
+    COMPUTE TAX-AMOUNT = GROSS-PAY * TAX-RATE.
+
+CALCULATE-NET-PAY.
+    COMPUTE NET-PAY = GROSS-PAY - TAX-AMOUNT.
+
+DISPLAY-RESULTS.
+    DISPLAY "----------------------------------".
+    DISPLAY "Employee Name: " EMPLOYEE-NAME.
+    DISPLAY "Hours Worked:  " HOURS-WORKED.
+    DISPLAY "Hourly Rate:   " HOURLY-RATE.
+    DISPLAY "Gross Pay:     " GROSS-PAY.
+    DISPLAY "Tax (10%):     " TAX-AMOUNT.
+    DISPLAY "Net Pay:       " NET-PAY.
+    DISPLAY "----------------------------------".
\ No newline at end of file