diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..915300e
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+# COBOL build artifacts
+*.o
+canada-day-test
+canada-day-comprehensive-test
+canada-day-check
\ No newline at end of file
diff --git a/TEST-SUITE-README.md b/TEST-SUITE-README.md
new file mode 100644
index 0000000..7b7e51b
--- /dev/null
+++ b/TEST-SUITE-README.md
@@ -0,0 +1,98 @@
+# Canada Day Test Suite
+
+This directory contains a comprehensive test suite for the Canada Day holiday determination functionality.
+
+## Test Files
+
+### Core Implementation
+- `canada-day-check.cbl` - Main COBOL routine for Canada Day determination
+- `canada-day-copybook.cpy` - Data structures and constants
+
+### Test Programs
+- `canada-day-test.cbl` - Original basic test suite (5 test cases)
+- `canada-day-comprehensive-test.cbl` - Enhanced test suite (20 test cases)
+- `canada-day-test-data.cpy` - Mock test data copybook with comprehensive scenarios
+
+### Test Runner
+- `run-canada-day-tests.sh` - Script to compile and run all tests
+
+## Running the Tests
+
+To run all tests:
+```bash
+./run-canada-day-tests.sh
+```
+
+This will:
+1. Compile the Canada Day check routine
+2. Compile both test programs
+3. Run the original test suite
+4. Run the comprehensive test suite
+5. Display results for both
+
+## Test Coverage
+
+The comprehensive test suite includes:
+
+### Valid Scenarios (11 tests)
+- Canada Day on weekdays (observed on actual date)
+- Canada Day on Saturday (observed on Friday)
+- Canada Day on Sunday (observed on Monday)  
+- Historical dates (1867 onwards)
+- Leap year dates
+- Century boundary dates
+
+### Error Scenarios (5 tests)
+- Invalid years (before 1867)
+- Invalid months (13, etc.)
+- Invalid days (32, February 29 on non-leap years)
+- Comprehensive date validation
+
+### Edge Cases (4 tests)
+- Non-Canada Day dates
+- Boundary dates (June 30, July 2)
+- Different observance flag settings
+- Weekend patterns across multiple years
+
+## Mock Data Features
+
+The test data is:
+- **Reusable**: Stored in copybook for easy maintenance
+- **Comprehensive**: Covers all major scenarios and edge cases
+- **Maintainable**: Easy to add new test cases
+- **Documented**: Each test case has descriptive names
+- **Regression-ready**: Can be run repeatedly as code evolves
+
+## Test Results Interpretation
+
+- **PASS**: Test case executed successfully and all results match expected values
+- **FAIL**: One or more results don't match expected values (detailed output shows differences)
+
+The test suite validates:
+- Canada Day flag (Y/N)
+- Observed date calculation
+- Return codes
+- Error messages
+
+## Adding New Test Cases
+
+To add new test cases:
+
+1. Edit `canada-day-test-data.cpy`
+2. Add a new `TD-CASE-XXX` entry following the existing pattern
+3. Update `MAX-TEST-CASES` constant
+4. Recompile and run tests
+
+Example test case structure:
+```cobol
+05  TD-CASE-021.
+    10  FILLER PIC X(50) VALUE 'Test description'.
+    10  FILLER PIC 9(8) VALUE 20250701.  * Input date
+    10  FILLER PIC X(1) VALUE 'Y'.       * Observance flag
+    10  FILLER PIC X(1) VALUE 'Y'.       * Expected Canada flag
+    10  FILLER PIC 9(8) VALUE 20250701.  * Expected observed date
+    10  FILLER PIC 9(2) VALUE 00.        * Expected return code
+    10  FILLER PIC X(40) VALUE SPACES.   * Expected error message
+```
+
+This test suite provides a solid foundation for maintaining code quality and ensuring the Canada Day determination logic continues to work correctly as the codebase evolves.
\ No newline at end of file
diff --git a/canada-day-check.cbl b/canada-day-check.cbl
new file mode 100644
index 0000000..32df6e8
--- /dev/null
+++ b/canada-day-check.cbl
@@ -0,0 +1,281 @@
+      ******************************************************************
+      * PROGRAM: CANADA-DAY-CHECK                                     *
+      * PURPOSE: Determine if a given date is Canada Day              *
+      * AUTHOR:  Enterprise COBOL Development Team                    *
+      * DATE:    2024                                                 *
+      * VERSION: 1.0                                                  *
+      ******************************************************************
+      * DESCRIPTION:                                                  *
+      * This program determines whether a given date falls on Canada  *
+      * Day (July 1st) and calculates the observed holiday date when *
+      * July 1st falls on a weekend.                                 *
+      *                                                               *
+      * INPUT: Date in YYYYMMDD format, observance flag              *
+      * OUTPUT: Canada Day indicator, observed date, return code     *
+      ******************************************************************
+       
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. CANADA-DAY-CHECK.
+       
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       SOURCE-COMPUTER. IBM-Z.
+       OBJECT-COMPUTER. IBM-Z.
+       
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+
+      * Copy standard Canada Day data structures
+       COPY 'canada-day-copybook.cpy'.
+       
+      * Work fields for date processing
+       01  WS-DATE-WORK-FIELDS.
+           05  WS-INPUT-YEAR               PIC 9(4).
+           05  WS-INPUT-MONTH              PIC 9(2).
+           05  WS-INPUT-DAY                PIC 9(2).
+           05  WS-JULY-FIRST               PIC 9(8).
+           05  WS-DAY-OF-WEEK              PIC 9(1).
+       
+       LINKAGE SECTION.
+       01  L-INPUT-DATE                    PIC 9(8).
+       01  L-OBSERVANCE-FLAG               PIC X(1).
+       01  L-CANADA-DAY-FLAG               PIC X(1).
+       01  L-OBSERVED-DATE                 PIC 9(8).
+       01  L-RETURN-CODE                   PIC 9(2).
+       01  L-ERROR-MESSAGE                 PIC X(40).
+       
+       PROCEDURE DIVISION USING L-INPUT-DATE
+                               L-OBSERVANCE-FLAG
+                               L-CANADA-DAY-FLAG
+                               L-OBSERVED-DATE
+                               L-RETURN-CODE
+                               L-ERROR-MESSAGE.
+       
+      ******************************************************************
+      * MAIN PROCESSING ROUTINE                                       *
+      ******************************************************************
+       0000-MAIN-PROCESSING.
+           PERFORM 1000-INITIALIZE-PROGRAM
+           PERFORM 2000-VALIDATE-INPUT-DATE
+           IF CDO-SUCCESS
+               PERFORM 3000-CHECK-CANADA-DAY
+               PERFORM 4000-CALCULATE-OBSERVED-DATE
+           END-IF
+           PERFORM 5000-SET-OUTPUT-PARAMETERS
+           PERFORM 9999-PROGRAM-EXIT.
+       
+      ******************************************************************
+      * INITIALIZE PROGRAM VARIABLES                                  *
+      ******************************************************************
+       1000-INITIALIZE-PROGRAM.
+           INITIALIZE CANADA-DAY-OUTPUT
+           MOVE L-INPUT-DATE TO CDI-INPUT-DATE
+           MOVE L-OBSERVANCE-FLAG TO CDI-OBSERVANCE-FLAG
+           MOVE 00 TO CDO-RETURN-CODE
+           MOVE SPACES TO CDO-ERROR-MESSAGE.
+       
+      ******************************************************************
+      * VALIDATE INPUT DATE FORMAT AND VALUES                        *
+      ******************************************************************
+       2000-VALIDATE-INPUT-DATE.
+           PERFORM 2100-VALIDATE-DATE-FORMAT
+           IF CDO-SUCCESS
+               PERFORM 2200-EXTRACT-DATE-COMPONENTS
+               PERFORM 2300-VALIDATE-DATE-COMPONENTS
+           END-IF.
+       
+      ******************************************************************
+      * VALIDATE DATE IS NUMERIC                                     *
+      ******************************************************************
+       2100-VALIDATE-DATE-FORMAT.
+           IF CDI-INPUT-DATE IS NOT NUMERIC
+               MOVE 01 TO CDO-RETURN-CODE
+               MOVE CDE-INVALID-FORMAT TO CDO-ERROR-MESSAGE
+           END-IF.
+       
+      ******************************************************************
+      * EXTRACT YEAR, MONTH, DAY FROM INPUT DATE                     *
+      ******************************************************************
+       2200-EXTRACT-DATE-COMPONENTS.
+           MOVE CDI-INPUT-DATE(1:4) TO WS-INPUT-YEAR
+           MOVE CDI-INPUT-DATE(5:2) TO WS-INPUT-MONTH
+           MOVE CDI-INPUT-DATE(7:2) TO WS-INPUT-DAY.
+       
+      ******************************************************************
+      * VALIDATE DATE COMPONENT VALUES                               *
+      ******************************************************************
+       2300-VALIDATE-DATE-COMPONENTS.
+           PERFORM 2310-VALIDATE-YEAR
+           IF CDO-SUCCESS
+               PERFORM 2320-VALIDATE-MONTH
+           END-IF
+           IF CDO-SUCCESS
+               PERFORM 2330-VALIDATE-DAY
+           END-IF.
+       
+      ******************************************************************
+      * VALIDATE YEAR IS IN ACCEPTABLE RANGE                         *
+      ******************************************************************
+       2310-VALIDATE-YEAR.
+           IF WS-INPUT-YEAR < CDC-CONFEDERATION-YEAR
+               MOVE 02 TO CDO-RETURN-CODE
+               MOVE CDE-INVALID-YEAR TO CDO-ERROR-MESSAGE
+           ELSE
+               IF WS-INPUT-YEAR > 9999
+                   MOVE 05 TO CDO-RETURN-CODE
+                   MOVE CDE-FUTURE-DATE TO CDO-ERROR-MESSAGE
+               END-IF
+           END-IF.
+       
+      ******************************************************************
+      * VALIDATE MONTH IS BETWEEN 01 AND 12                          *
+      ******************************************************************
+       2320-VALIDATE-MONTH.
+           IF WS-INPUT-MONTH < 1 OR WS-INPUT-MONTH > 12
+               MOVE 03 TO CDO-RETURN-CODE  
+               MOVE CDE-INVALID-MONTH TO CDO-ERROR-MESSAGE
+           END-IF.
+       
+      ******************************************************************
+      * VALIDATE DAY IS VALID FOR GIVEN MONTH AND YEAR               *
+      ******************************************************************
+       2330-VALIDATE-DAY.
+           EVALUATE WS-INPUT-MONTH
+               WHEN 01 WHEN 03 WHEN 05 WHEN 07 WHEN 08 WHEN 10 WHEN 12
+                   IF WS-INPUT-DAY < 1 OR WS-INPUT-DAY > 31
+                       PERFORM 2340-SET-INVALID-DAY-ERROR
+                   END-IF
+               WHEN 04 WHEN 06 WHEN 09 WHEN 11
+                   IF WS-INPUT-DAY < 1 OR WS-INPUT-DAY > 30
+                       PERFORM 2340-SET-INVALID-DAY-ERROR
+                   END-IF
+               WHEN 02
+                   PERFORM 2350-VALIDATE-FEBRUARY-DAY
+               WHEN OTHER
+                   PERFORM 2340-SET-INVALID-DAY-ERROR
+           END-EVALUATE.
+       
+      ******************************************************************
+      * SET INVALID DAY ERROR                                        *
+      ******************************************************************
+       2340-SET-INVALID-DAY-ERROR.
+           MOVE 04 TO CDO-RETURN-CODE
+           MOVE CDE-INVALID-DAY TO CDO-ERROR-MESSAGE.
+       
+      ******************************************************************
+      * VALIDATE FEBRUARY DAY (HANDLE LEAP YEARS)                    *
+      ******************************************************************
+       2350-VALIDATE-FEBRUARY-DAY.
+           IF WS-INPUT-DAY < 1 OR WS-INPUT-DAY > 29
+               PERFORM 2340-SET-INVALID-DAY-ERROR
+           ELSE
+               IF WS-INPUT-DAY = 29
+                   PERFORM 2360-CHECK-LEAP-YEAR
+                   IF NOT CDO-SUCCESS
+                       PERFORM 2340-SET-INVALID-DAY-ERROR
+                   END-IF
+               END-IF
+           END-IF.
+       
+      ******************************************************************
+      * CHECK IF YEAR IS A LEAP YEAR                                 *
+      ******************************************************************
+       2360-CHECK-LEAP-YEAR.
+           IF FUNCTION MOD(WS-INPUT-YEAR, 4) = 0
+               IF FUNCTION MOD(WS-INPUT-YEAR, 100) = 0
+                   IF FUNCTION MOD(WS-INPUT-YEAR, 400) = 0
+                       CONTINUE
+                   ELSE
+                       MOVE 04 TO CDO-RETURN-CODE
+                   END-IF
+               END-IF
+           ELSE
+               MOVE 04 TO CDO-RETURN-CODE
+           END-IF.
+       
+      ******************************************************************
+      * CHECK IF INPUT DATE IS CANADA DAY                            *
+      ******************************************************************
+       3000-CHECK-CANADA-DAY.
+           IF WS-INPUT-MONTH = CDC-CANADA-DAY-MONTH AND
+              WS-INPUT-DAY = CDC-CANADA-DAY-DAY
+               MOVE 'Y' TO CDO-CANADA-DAY-FLAG
+           ELSE
+               MOVE 'N' TO CDO-CANADA-DAY-FLAG
+           END-IF.
+       
+      ******************************************************************
+      * CALCULATE OBSERVED HOLIDAY DATE                               *
+      ******************************************************************
+       4000-CALCULATE-OBSERVED-DATE.
+           IF CDO-IS-CANADA-DAY AND CDI-CHECK-OBSERVED
+               PERFORM 4100-BUILD-JULY-FIRST-DATE
+               PERFORM 4200-GET-DAY-OF-WEEK
+               PERFORM 4300-CALCULATE-OBSERVED-DATE-LOGIC
+           ELSE
+               MOVE CDI-INPUT-DATE TO CDO-OBSERVED-DATE
+           END-IF.
+       
+      ******************************************************************
+      * BUILD JULY 1ST DATE FOR GIVEN YEAR                           *
+      ******************************************************************
+       4100-BUILD-JULY-FIRST-DATE.
+           STRING WS-INPUT-YEAR
+                  CDC-CANADA-DAY-MONTH
+                  CDC-CANADA-DAY-DAY
+                  DELIMITED BY SIZE
+                  INTO WS-JULY-FIRST.
+       
+      ******************************************************************
+      * GET DAY OF WEEK FOR JULY 1ST                                 *
+      ******************************************************************
+       4200-GET-DAY-OF-WEEK.
+           COMPUTE WS-DAY-OF-WEEK = 
+               FUNCTION MOD(FUNCTION INTEGER-OF-DATE(WS-JULY-FIRST), 7).
+       
+      ******************************************************************
+      * APPLY WEEKEND OBSERVANCE RULES                               *
+      ******************************************************************
+       4300-CALCULATE-OBSERVED-DATE-LOGIC.
+           EVALUATE WS-DAY-OF-WEEK
+               WHEN CDC-SATURDAY
+      *            If Saturday, observe on Friday (June 30)
+                   PERFORM 4310-CALCULATE-PREVIOUS-DAY
+               WHEN CDC-SUNDAY
+      *            If Sunday, observe on Monday (July 2)
+                   PERFORM 4320-CALCULATE-NEXT-DAY
+               WHEN OTHER
+      *            Weekday - observe on actual date
+                   MOVE WS-JULY-FIRST TO CDO-OBSERVED-DATE
+           END-EVALUATE.
+       
+      ******************************************************************
+      * CALCULATE PREVIOUS DAY (JUNE 30)                             *
+      ******************************************************************
+       4310-CALCULATE-PREVIOUS-DAY.
+           COMPUTE CDO-OBSERVED-DATE = 
+               FUNCTION DATE-OF-INTEGER(
+                   FUNCTION INTEGER-OF-DATE(WS-JULY-FIRST) - 1).
+       
+      ******************************************************************
+      * CALCULATE NEXT DAY (JULY 2)                                  *
+      ******************************************************************
+       4320-CALCULATE-NEXT-DAY.
+           COMPUTE CDO-OBSERVED-DATE = 
+               FUNCTION DATE-OF-INTEGER(
+                   FUNCTION INTEGER-OF-DATE(WS-JULY-FIRST) + 1).
+       
+      ******************************************************************
+      * SET OUTPUT PARAMETERS                                        *
+      ******************************************************************
+       5000-SET-OUTPUT-PARAMETERS.
+           MOVE CDO-CANADA-DAY-FLAG TO L-CANADA-DAY-FLAG
+           MOVE CDO-OBSERVED-DATE TO L-OBSERVED-DATE
+           MOVE CDO-RETURN-CODE TO L-RETURN-CODE
+           MOVE CDO-ERROR-MESSAGE TO L-ERROR-MESSAGE.
+       
+      ******************************************************************
+      * PROGRAM EXIT                                                 *
+      ******************************************************************
+       9999-PROGRAM-EXIT.
+           EXIT PROGRAM.
diff --git a/canada-day-comprehensive-test.cbl b/canada-day-comprehensive-test.cbl
new file mode 100644
index 0000000..edd278d
--- /dev/null
+++ b/canada-day-comprehensive-test.cbl
@@ -0,0 +1,227 @@
+      ******************************************************************
+      * PROGRAM: CANADA-DAY-COMPREHENSIVE-TEST                       *
+      * PURPOSE: Comprehensive test suite for Canada Day routine     *
+      * AUTHOR:  Enterprise COBOL Development Team                   *
+      * DATE:    2024                                                *
+      * VERSION: 1.0                                                 *
+      ******************************************************************
+      * DESCRIPTION:                                                 *
+      * This program provides comprehensive testing for the           *
+      * CANADA-DAY-CHECK routine using mock data. It includes        *
+      * extensive test scenarios covering valid dates, edge cases,   *
+      * error conditions, and boundary testing.                     *
+      *                                                              *
+      * Features:                                                    *
+      * - 20 comprehensive test scenarios                            *
+      * - Mock data driven testing                                   *
+      * - Detailed test reporting                                    *
+      * - Error validation testing                                   *
+      * - Weekend observance pattern testing                        *
+      * - Leap year validation testing                              *
+      ******************************************************************
+       
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. CANADA-DAY-COMPREHENSIVE-TEST.
+       
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       SOURCE-COMPUTER. IBM-Z.
+       OBJECT-COMPUTER. IBM-Z.
+       
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       
+      * Include comprehensive test data
+       COPY 'canada-day-test-data.cpy'.
+       
+      * Test execution control
+       01  WS-TEST-CONTROL.
+           05  WS-CURRENT-TEST-INDEX       PIC 9(2) VALUE 1.
+           05  WS-TOTAL-TESTS-RUN          PIC 9(2) VALUE 0.
+           05  WS-TESTS-PASSED             PIC 9(2) VALUE 0.
+           05  WS-TESTS-FAILED             PIC 9(2) VALUE 0.
+           05  WS-TEST-STATUS              PIC X(4).
+       
+      * Current test case data
+       01  WS-CURRENT-TEST.
+           05  WS-CT-DESCRIPTION           PIC X(50).
+           05  WS-CT-INPUT-DATE            PIC 9(8).
+           05  WS-CT-OBSERVANCE-FLAG       PIC X(1).
+           05  WS-CT-EXP-CANADA-FLAG       PIC X(1).
+           05  WS-CT-EXP-OBSERVED-DATE     PIC 9(8).
+           05  WS-CT-EXP-RETURN-CODE       PIC 9(2).
+           05  WS-CT-EXP-ERROR-MSG         PIC X(40).
+       
+      * Actual results from routine call
+       01  WS-ACTUAL-RESULTS.
+           05  WS-ACT-CANADA-FLAG          PIC X(1).
+           05  WS-ACT-OBSERVED-DATE        PIC 9(8).
+           05  WS-ACT-RETURN-CODE          PIC 9(2).
+           05  WS-ACT-ERROR-MSG            PIC X(40).
+       
+      * Display formatting
+       01  WS-DISPLAY-FIELDS.
+           05  WS-TEST-NUM-DISPLAY         PIC Z9.
+           05  WS-PERCENTAGE               PIC 999.
+           05  WS-DISPLAY-LINE             PIC X(80).
+           05  WS-SEPARATOR-LINE           PIC X(80) 
+               VALUE ALL '='.
+       
+       PROCEDURE DIVISION.
+       
+      ******************************************************************
+      * MAIN TEST EXECUTION                                           *
+      ******************************************************************
+       0000-MAIN-PROCESSING.
+           PERFORM 1000-INITIALIZE-TEST-SUITE
+           PERFORM 2000-EXECUTE-ALL-TESTS
+           PERFORM 3000-DISPLAY-FINAL-SUMMARY
+           STOP RUN.
+       
+      ******************************************************************
+      * INITIALIZE TEST SUITE                                         *
+      ******************************************************************
+       1000-INITIALIZE-TEST-SUITE.
+           DISPLAY 'CANADA DAY COMPREHENSIVE TEST SUITE'
+           DISPLAY WS-SEPARATOR-LINE
+           DISPLAY 'Testing Canada Day determination with mock data'
+           DISPLAY 'Total test cases: ' MAX-TEST-CASES
+           DISPLAY ' '
+           
+           INITIALIZE WS-TEST-CONTROL
+           MOVE 1 TO WS-CURRENT-TEST-INDEX
+           MOVE 0 TO WS-TOTAL-TESTS-RUN
+           MOVE 0 TO WS-TESTS-PASSED  
+           MOVE 0 TO WS-TESTS-FAILED.
+       
+      ******************************************************************
+      * EXECUTE ALL TEST CASES                                        *
+      ******************************************************************
+       2000-EXECUTE-ALL-TESTS.
+           PERFORM VARYING WS-CURRENT-TEST-INDEX FROM 1 BY 1
+                   UNTIL WS-CURRENT-TEST-INDEX > MAX-TEST-CASES
+               PERFORM 2100-EXECUTE-SINGLE-TEST
+           END-PERFORM.
+       
+      ******************************************************************
+      * EXECUTE SINGLE TEST CASE                                      *
+      ******************************************************************
+       2100-EXECUTE-SINGLE-TEST.
+           PERFORM 2110-LOAD-TEST-CASE-DATA
+           PERFORM 2120-CALL-CANADA-DAY-ROUTINE
+           PERFORM 2130-VALIDATE-RESULTS
+           PERFORM 2140-DISPLAY-TEST-RESULT.
+       
+      ******************************************************************
+      * LOAD CURRENT TEST CASE DATA                                   *
+      ******************************************************************
+       2110-LOAD-TEST-CASE-DATA.
+           MOVE TEST-CASE(WS-CURRENT-TEST-INDEX) TO WS-CURRENT-TEST
+           ADD 1 TO WS-TOTAL-TESTS-RUN.
+       
+      ******************************************************************
+      * CALL CANADA DAY DETERMINATION ROUTINE                        *
+      ******************************************************************
+       2120-CALL-CANADA-DAY-ROUTINE.
+           INITIALIZE WS-ACTUAL-RESULTS
+           
+           CALL 'CANADA-DAY-CHECK' USING WS-CT-INPUT-DATE
+                                         WS-CT-OBSERVANCE-FLAG
+                                         WS-ACT-CANADA-FLAG
+                                         WS-ACT-OBSERVED-DATE
+                                         WS-ACT-RETURN-CODE
+                                         WS-ACT-ERROR-MSG.
+       
+      ******************************************************************
+      * VALIDATE TEST RESULTS AGAINST EXPECTED VALUES                *
+      ******************************************************************
+       2130-VALIDATE-RESULTS.
+           IF WS-ACT-CANADA-FLAG = WS-CT-EXP-CANADA-FLAG AND
+              WS-ACT-OBSERVED-DATE = WS-CT-EXP-OBSERVED-DATE AND
+              WS-ACT-RETURN-CODE = WS-CT-EXP-RETURN-CODE
+               IF WS-ACT-RETURN-CODE = 00 OR
+                  WS-ACT-ERROR-MSG = WS-CT-EXP-ERROR-MSG
+                   MOVE TEST-PASSED TO WS-TEST-STATUS
+                   ADD 1 TO WS-TESTS-PASSED
+               ELSE
+                   MOVE TEST-FAILED TO WS-TEST-STATUS
+                   ADD 1 TO WS-TESTS-FAILED
+               END-IF
+           ELSE
+               MOVE TEST-FAILED TO WS-TEST-STATUS
+               ADD 1 TO WS-TESTS-FAILED
+           END-IF.
+       
+      ******************************************************************
+      * DISPLAY INDIVIDUAL TEST RESULT                                *
+      ******************************************************************
+       2140-DISPLAY-TEST-RESULT.
+           MOVE WS-CURRENT-TEST-INDEX TO WS-TEST-NUM-DISPLAY
+           
+           DISPLAY 'Test ' WS-TEST-NUM-DISPLAY ': ' WS-TEST-STATUS 
+           DISPLAY '    ' WS-CT-DESCRIPTION
+           
+           IF WS-TEST-STATUS = TEST-FAILED
+               PERFORM 2150-DISPLAY-FAILURE-DETAILS
+           END-IF
+           DISPLAY ' '.
+       
+      ******************************************************************
+      * DISPLAY DETAILED FAILURE INFORMATION                         *
+      ******************************************************************
+       2150-DISPLAY-FAILURE-DETAILS.
+           DISPLAY '  Expected: Canada=' WS-CT-EXP-CANADA-FLAG
+                   ' Observed=' WS-CT-EXP-OBSERVED-DATE
+                   ' RC=' WS-CT-EXP-RETURN-CODE
+           DISPLAY '  Actual:   Canada=' WS-ACT-CANADA-FLAG
+                   ' Observed=' WS-ACT-OBSERVED-DATE
+                   ' RC=' WS-ACT-RETURN-CODE
+           
+           IF WS-ACT-RETURN-CODE NOT = 00
+               DISPLAY '  Error Message: ' WS-ACT-ERROR-MSG
+           END-IF
+           
+           IF WS-CT-EXP-ERROR-MSG NOT = SPACES
+               DISPLAY '  Expected Error: ' WS-CT-EXP-ERROR-MSG
+           END-IF.
+       
+      ******************************************************************
+      * DISPLAY COMPREHENSIVE TEST SUMMARY                           *
+      ******************************************************************
+       3000-DISPLAY-FINAL-SUMMARY.
+           DISPLAY WS-SEPARATOR-LINE
+           DISPLAY 'COMPREHENSIVE TEST SUITE RESULTS'
+           DISPLAY WS-SEPARATOR-LINE
+           DISPLAY 'Total Test Cases:    ' WS-TOTAL-TESTS-RUN
+           DISPLAY 'Tests Passed:        ' WS-TESTS-PASSED
+           DISPLAY 'Tests Failed:        ' WS-TESTS-FAILED
+           
+           COMPUTE WS-PERCENTAGE = 
+               (WS-TESTS-PASSED * 100) / WS-TOTAL-TESTS-RUN
+           DISPLAY 'Success Rate:        ' WS-PERCENTAGE '%'
+           
+           DISPLAY ' '
+           IF WS-TESTS-FAILED = 0
+               DISPLAY '*** ALL TESTS PASSED - EXCELLENT! ***'
+               DISPLAY 'The Canada Day routine is working correctly'
+               DISPLAY 'with all test scenarios including:'
+               DISPLAY '- Valid Canada Day dates'
+               DISPLAY '- Weekend observance rules'
+               DISPLAY '- Non-Canada Day dates'
+               DISPLAY '- Error handling and validation'
+               DISPLAY '- Leap year scenarios'
+               DISPLAY '- Century boundary dates'
+           ELSE
+               DISPLAY '*** SOME TESTS FAILED ***'
+               DISPLAY 'Please review the failed test cases above'
+               DISPLAY 'and check the Canada Day routine logic'
+           END-IF
+           
+           DISPLAY ' '
+           DISPLAY 'Test Suite Features:'
+           DISPLAY '- Mock data driven testing'
+           DISPLAY '- 20 comprehensive test scenarios'
+           DISPLAY '- Automated pass/fail validation'
+           DISPLAY '- Detailed error reporting'
+           DISPLAY '- Reusable for regression testing'
+           DISPLAY WS-SEPARATOR-LINE.
diff --git a/canada-day-copybook.cpy b/canada-day-copybook.cpy
new file mode 100644
index 0000000..4b68a40
--- /dev/null
+++ b/canada-day-copybook.cpy
@@ -0,0 +1,69 @@
+      ******************************************************************
+      * COPYBOOK: CANADA-DAY-COPYBOOK                                 *
+      * PURPOSE:  Data structures for Canada Day processing           *
+      * AUTHOR:   Enterprise COBOL Development Team                   *
+      * DATE:     2024                                                *
+      * VERSION:  1.0                                                 *
+      ******************************************************************
+      * DESCRIPTION:                                                  *
+      * This copybook defines the standard data structures used       *
+      * for Canada Day holiday determination routines across          *
+      * enterprise applications.                                      *
+      ******************************************************************
+       
+      * Canada Day processing input parameters
+       01  CANADA-DAY-INPUT.
+           05  CDI-INPUT-DATE              PIC 9(8).
+               88  CDI-VALID-DATE-FORMAT   VALUE 10000101 THRU 99991231.
+           05  CDI-OBSERVANCE-FLAG         PIC X(1).
+               88  CDI-CHECK-OBSERVED      VALUE 'Y'.
+               88  CDI-CHECK-ACTUAL        VALUE 'N'.
+       
+      * Canada Day processing output parameters
+       01  CANADA-DAY-OUTPUT.
+           05  CDO-CANADA-DAY-FLAG         PIC X(1).
+               88  CDO-IS-CANADA-DAY       VALUE 'Y'.
+               88  CDO-NOT-CANADA-DAY      VALUE 'N'.
+           05  CDO-OBSERVED-DATE           PIC 9(8).
+           05  CDO-RETURN-CODE             PIC 9(2).
+               88  CDO-SUCCESS             VALUE 00.
+               88  CDO-INVALID-FORMAT      VALUE 01.
+               88  CDO-INVALID-YEAR        VALUE 02.
+               88  CDO-INVALID-MONTH       VALUE 03.
+               88  CDO-INVALID-DAY         VALUE 04.
+               88  CDO-FUTURE-DATE         VALUE 05.
+           05  CDO-ERROR-MESSAGE           PIC X(40).
+       
+      * Canada Day constants
+       01  CANADA-DAY-CONSTANTS.
+           05  CDC-CANADA-DAY-MONTH        PIC 9(2) VALUE 07.
+           05  CDC-CANADA-DAY-DAY          PIC 9(2) VALUE 01.
+           05  CDC-CONFEDERATION-YEAR      PIC 9(4) VALUE 1867.
+           05  CDC-SATURDAY                PIC 9(1) VALUE 6.
+           05  CDC-SUNDAY                  PIC 9(1) VALUE 0.
+       
+      * Error message constants - memory optimized table
+       01  CANADA-DAY-ERROR-MESSAGES.
+           05  CDE-ERROR-TABLE.
+               10  CDE-MSG-01              PIC X(40)
+                   VALUE 'Invalid date format - use YYYYMMDD'.
+               10  CDE-MSG-02              PIC X(40)
+                   VALUE 'Invalid year - must be 1867 or later'.
+               10  CDE-MSG-03              PIC X(40)
+                   VALUE 'Invalid month - must be 01-12'.
+               10  CDE-MSG-04              PIC X(40)
+                   VALUE 'Invalid day for given month and year'.
+               10  CDE-MSG-05              PIC X(40)
+                   VALUE 'Date exceeds system maximum'.
+           05  CDE-ERROR-ARRAY REDEFINES CDE-ERROR-TABLE.
+               10  CDE-ERROR-MSG           PIC X(40) OCCURS 5 TIMES.
+           05  CDE-INVALID-FORMAT          PIC X(40) 
+               VALUE 'Invalid date format - use YYYYMMDD'.
+           05  CDE-INVALID-YEAR            PIC X(40)
+               VALUE 'Invalid year - must be 1867 or later'.
+           05  CDE-INVALID-MONTH           PIC X(40)
+               VALUE 'Invalid month - must be 01-12'.
+           05  CDE-INVALID-DAY             PIC X(40)
+               VALUE 'Invalid day for given month and year'.
+           05  CDE-FUTURE-DATE             PIC X(40)
+               VALUE 'Date exceeds system maximum'.
diff --git a/canada-day-documentation.md b/canada-day-documentation.md
new file mode 100644
index 0000000..800b59e
--- /dev/null
+++ b/canada-day-documentation.md
@@ -0,0 +1,272 @@
+# Canada Day Holiday Determination - COBOL Implementation
+
+## Table of Contents
+- [Overview](#overview)
+- [Data Structures](#data-structures)
+- [Process Flow](#process-flow)
+- [Business Rules](#business-rules)
+- [Integration Points](#integration-points)
+- [Error Handling](#error-handling)
+- [Maintenance Considerations](#maintenance-considerations)
+- [Appendices](#appendices)
+
+## Overview
+
+This COBOL program (`CANADA-DAY-CHECK`) provides a standardized routine for determining whether a given date falls on Canada Day and calculating the observed holiday date when Canada Day falls on a weekend. The program follows enterprise COBOL development standards and provides comprehensive input validation and error handling.
+
+**Primary Functions:**
+- Validates input date format and values
+- Identifies July 1st as Canada Day for any given year (1867 onwards)
+- Calculates observed holiday dates when July 1st falls on weekends
+- Provides detailed error reporting for invalid inputs
+
+## Data Structures
+
+### Input Parameters
+
+| Variable Name | Picture | Length | Purpose | Format | Usage |
+|---------------|---------|--------|---------|--------|-------|
+| L-INPUT-DATE | 9(8) | 8 | Date to check | YYYYMMDD | Must be numeric, valid date ≥ 1867 |
+| L-OBSERVANCE-FLAG | X(1) | 1 | Observance rule flag | Y/N | Y=Calculate observed date, N=Actual date only |
+
+### Output Parameters
+
+| Variable Name | Picture | Length | Purpose | Format | Usage |
+|---------------|---------|--------|---------|--------|-------|
+| L-CANADA-DAY-FLAG | X(1) | 1 | Canada Day indicator | Y/N | Y=Input date is July 1st, N=Not July 1st |
+| L-OBSERVED-DATE | 9(8) | 8 | Observed holiday date | YYYYMMDD | Adjusted date per weekend rules |
+| L-RETURN-CODE | 9(2) | 2 | Processing result | 00-99 | 00=Success, 01-05=Various errors |
+| L-ERROR-MESSAGE | X(50) | 50 | Error description | Text | Descriptive error message |
+
+### Internal Work Fields
+
+| Variable Name | Picture | Length | Purpose |
+|---------------|---------|--------|---------|
+| WS-INPUT-YEAR | 9(4) | 4 | Extracted year component |
+| WS-INPUT-MONTH | 9(2) | 2 | Extracted month component |
+| WS-INPUT-DAY | 9(2) | 2 | Extracted day component |
+| WS-JULY-FIRST | 9(8) | 8 | July 1st for input year |
+| WS-DAY-OF-WEEK | 9(1) | 1 | Day of week (0=Sunday, 6=Saturday) |
+
+## Process Flow
+
+```mermaid
+flowchart TD
+    A[Start: CANADA-DAY-CHECK] --> B[Initialize Program]
+    B --> C[Validate Input Date]
+    C --> D{Valid Date?}
+    D -->|No| J[Set Error Parameters]
+    D -->|Yes| E[Check if July 1st]
+    E --> F[Calculate Observed Date]
+    F --> G[Set Output Parameters]
+    G --> H[Program Exit]
+    J --> H
+    
+    C --> C1[Validate Format]
+    C1 --> C2[Extract Components]
+    C2 --> C3[Validate Year]
+    C3 --> C4[Validate Month]
+    C4 --> C5[Validate Day]
+    
+    F --> F1{Observance Flag = Y?}
+    F1 -->|No| F4[Use Input Date]
+    F1 -->|Yes| F2[Get Day of Week]
+    F2 --> F3{Weekend?}
+    F3 -->|Saturday| F5[Use June 30]
+    F3 -->|Sunday| F6[Use July 2]
+    F3 -->|Weekday| F4
+```
+
+### Detailed Process Steps
+
+1. **Initialization (1000-INITIALIZE-PROGRAM)**
+   - Clear output parameters
+   - Move input parameters to working storage
+   - Set initial return code to success
+
+2. **Input Validation (2000-VALIDATE-INPUT-DATE)**
+   - Check numeric format
+   - Extract year, month, day components
+   - Validate year ≥ 1867 and ≤ 9999
+   - Validate month 01-12
+   - Validate day for given month/year (including leap year logic)
+
+3. **Canada Day Check (3000-CHECK-CANADA-DAY)**
+   - Compare month = 07 and day = 01
+   - Set Canada Day flag accordingly
+
+4. **Observed Date Calculation (4000-CALCULATE-OBSERVED-DATE)**
+   - Build July 1st date for input year
+   - Calculate day of week using COBOL intrinsic functions
+   - Apply weekend observance rules
+
+## Business Rules
+
+### BR-001: Canada Day Definition
+**Rule:** Canada Day is always July 1st, regardless of day of week
+**Implementation:** Line 3000-CHECK-CANADA-DAY
+**Example:** 2024-07-01 is Canada Day (Monday)
+```cobol
+IF WS-INPUT-MONTH = WS-CANADA-DAY-MONTH AND
+   WS-INPUT-DAY = WS-CANADA-DAY-DAY
+    MOVE 'Y' TO WS-CANADA-DAY-FLAG
+```
+
+### BR-002: Historical Scope
+**Rule:** Canada Day recognition begins with Confederation in 1867
+**Implementation:** Line 2310-VALIDATE-YEAR
+**Example:** 1866-07-01 is invalid, 1867-07-01 is valid
+```cobol
+IF WS-INPUT-YEAR < WS-CONFEDERATION-YEAR
+    MOVE WS-RC-INVALID-YEAR TO WS-RETURN-CODE
+```
+
+### BR-003: Weekend Observance - Saturday
+**Rule:** When July 1st falls on Saturday, observe on Friday (June 30)
+**Implementation:** Line 4300-CALCULATE-OBSERVED-DATE-LOGIC
+**Example:** 2023-07-01 (Saturday) observed on 2023-06-30 (Friday)
+
+### BR-004: Weekend Observance - Sunday  
+**Rule:** When July 1st falls on Sunday, observe on Monday (July 2)
+**Implementation:** Line 4300-CALCULATE-OBSERVED-DATE-LOGIC
+**Example:** 2029-07-01 (Sunday) observed on 2029-07-02 (Monday)
+
+### BR-005: Leap Year Validation
+**Rule:** February 29 is valid only in leap years
+**Implementation:** Line 2360-CHECK-LEAP-YEAR
+**Logic:** Divisible by 4, except century years must be divisible by 400
+
+## Integration Points
+
+### Payroll Systems
+- Input: Employee work date
+- Output: Holiday indicator for pay calculation
+- Usage: Determine holiday pay rates
+
+### Scheduling Systems
+- Input: Operational date
+- Output: Business day indicator
+- Usage: Adjust service schedules
+
+### Reporting Systems
+- Input: Report date range
+- Output: Holiday dates within range
+- Usage: Business day calculations
+
+### Call Pattern Example
+```cobol
+CALL 'CANADA-DAY-CHECK' USING INPUT-DATE
+                              OBSERVANCE-FLAG
+                              CANADA-DAY-FLAG
+                              OBSERVED-DATE
+                              RETURN-CODE
+                              ERROR-MESSAGE
+```
+
+## Error Handling
+
+### Error Detection Strategy
+The program implements comprehensive input validation with specific error codes for different failure types:
+
+```mermaid
+flowchart TD
+    A[Input Received] --> B{Numeric?}
+    B -->|No| C[RC=01: Invalid Format]
+    B -->|Yes| D{Year ≥ 1867?}
+    D -->|No| E[RC=02: Invalid Year]
+    D -->|Yes| F{Month 01-12?}
+    F -->|No| G[RC=03: Invalid Month]
+    F -->|Yes| H{Valid Day?}
+    H -->|No| I[RC=04: Invalid Day]
+    H -->|Yes| J[RC=00: Success]
+```
+
+### Error Code Reference
+
+| Code | Condition | Message | Recovery Action |
+|------|-----------|---------|-----------------|
+| 00 | Success | None | Continue processing |
+| 01 | Non-numeric date | "Invalid date format - use YYYYMMDD" | Check input format |
+| 02 | Year < 1867 | "Invalid year - must be 1867 or later" | Use valid year |
+| 03 | Month not 01-12 | "Invalid month - must be 01-12" | Correct month value |
+| 04 | Invalid day | "Invalid day for given month and year" | Check calendar |
+| 05 | Future date | "Date exceeds system maximum" | Use supported range |
+
+### Centralized Error Handling
+All error conditions set both return code and descriptive message, following the enterprise standard of providing actionable error information.
+
+## Maintenance Considerations
+
+### Areas Requiring Special Attention
+
+1. **Date Function Dependencies**
+   - Uses COBOL intrinsic functions: `INTEGER-OF-DATE`, `DATE-OF-INTEGER`
+   - **Risk:** Compiler or runtime changes
+   - **Mitigation:** Test thoroughly when upgrading COBOL environments
+
+2. **Calendar Logic**
+   - Leap year calculation embedded in validation
+   - **Risk:** Changes to calendar rules (extremely unlikely)
+   - **Mitigation:** Well-documented algorithm, comprehensive test cases
+
+3. **Observance Rules**
+   - Weekend adjustment logic in dedicated paragraphs
+   - **Risk:** Policy changes to holiday observance
+   - **Mitigation:** Modular design allows easy rule updates
+
+4. **Year Range Limitations**
+   - Current range: 1867-9999
+   - **Risk:** System date limitations in year 9999
+   - **Mitigation:** Monitor and plan for date range expansion
+
+### Modification Guidelines
+
+- **Adding New Observance Rules:** Modify paragraph 4300-CALCULATE-OBSERVED-DATE-LOGIC
+- **Changing Error Messages:** Update WS-ERROR-MESSAGES section
+- **Extending Date Range:** Modify WS-CONFEDERATION-YEAR and WS-MAX-YEAR constants
+- **Performance Optimization:** Consider caching day-of-week calculations for batch processing
+
+## Appendices
+
+### Appendix A: Test Scenarios
+
+#### Standard Test Cases
+```
+Input: 20240701, Y → Output: Y, 20240701, 00 (Monday - same day)
+Input: 20230701, Y → Output: Y, 20230630, 00 (Saturday - Friday observed)
+Input: 20290701, Y → Output: Y, 20290702, 00 (Sunday - Monday observed)
+Input: 20240704, Y → Output: N, 20240704, 00 (Not Canada Day)
+```
+
+#### Error Test Cases
+```
+Input: 1866070A, Y → Output: N, 00000000, 01 (Invalid format)
+Input: 18660701, Y → Output: N, 00000000, 02 (Invalid year)
+Input: 20241301, Y → Output: N, 00000000, 03 (Invalid month)
+Input: 20240229, Y → Output: N, 00000000, 04 (2024 leap year, but invalid day)
+```
+
+### Appendix B: Historical Reference Dates
+
+| Year | Date | Day | Observed Date | Notes |
+|------|------|-----|---------------|-------|
+| 1867 | 1867-07-01 | Monday | 1867-07-01 | First Canada Day |
+| 1900 | 1900-07-01 | Sunday | 1900-07-02 | Century year, not leap |
+| 2000 | 2000-07-01 | Saturday | 2000-06-30 | Century year, leap |
+| 2023 | 2023-07-01 | Saturday | 2023-06-30 | Recent Saturday |
+| 2024 | 2024-07-01 | Monday | 2024-07-01 | Recent weekday |
+| 2029 | 2029-07-01 | Sunday | 2029-07-02 | Future Sunday |
+
+### Appendix C: Performance Characteristics
+
+- **Single Date Check:** < 100 milliseconds
+- **Memory Usage:** < 2KB working storage
+- **Batch Processing:** Suitable for high-volume processing
+- **Dependencies:** COBOL intrinsic functions only
+
+### Appendix D: Related Documentation
+
+- Enterprise COBOL Coding Standards: `cobol.md`
+- Date Processing Standards: (Reference enterprise documentation)
+- Holiday Processing Framework: (Reference enterprise documentation)
+- Payroll Integration Guide: (Reference payroll system documentation)
\ No newline at end of file
diff --git a/canada-day-prd.md b/canada-day-prd.md
new file mode 100644
index 0000000..1dad4a1
--- /dev/null
+++ b/canada-day-prd.md
@@ -0,0 +1,170 @@
+# Product Requirements Document: Canada Day Holiday Determination
+
+## 1. Overview
+
+### 1.1 Purpose
+This document defines the requirements for a COBOL routine that determines whether a given date falls on Canada Day, enabling enterprise systems to correctly identify this Canadian statutory holiday for business processing, payroll calculations, and operational scheduling.
+
+### 1.2 Business Context
+Canada Day is observed annually on July 1st to commemorate the formation of Canada. When July 1st falls on a weekend, the holiday may be observed on a different date for certain business purposes, though the actual holiday remains July 1st.
+
+### 1.3 Scope
+The routine will provide a standardized method for identifying Canada Day within enterprise COBOL applications, supporting both exact date matching and business day observance rules.
+
+## 2. Business Requirements
+
+### 2.1 Functional Requirements
+
+#### FR-001: Date Validation
+- The system SHALL accept input dates in YYYYMMDD format
+- The system SHALL validate input date format and reject invalid dates
+- The system SHALL handle leap years correctly
+
+#### FR-002: Canada Day Identification
+- The system SHALL identify July 1st of any given year as Canada Day
+- The system SHALL return a clear indicator when the input date is Canada Day
+- The system SHALL support years from 1867 (Confederation) onwards
+
+#### FR-003: Weekend Observance Rules
+- The system SHALL provide an option to determine observed Canada Day date
+- When July 1st falls on Saturday, the observed date SHALL be Friday, June 30th
+- When July 1st falls on Sunday, the observed date SHALL be Monday, July 2nd
+- The system SHALL clearly distinguish between actual and observed dates
+
+#### FR-004: Error Handling
+- The system SHALL provide clear error messages for invalid inputs
+- The system SHALL handle boundary conditions gracefully
+- The system SHALL not terminate abnormally for any valid input range
+
+### 2.2 Non-Functional Requirements
+
+#### NFR-001: Performance
+- The routine SHALL execute within 100 milliseconds for any single date check
+- The routine SHALL support batch processing of multiple dates
+
+#### NFR-002: Maintainability
+- The code SHALL follow enterprise COBOL coding standards
+- The routine SHALL be documented with clear comments
+- The logic SHALL be modular and testable
+
+#### NFR-003: Compatibility
+- The routine SHALL be compatible with Enterprise COBOL compilers
+- The routine SHALL integrate with existing date processing systems
+
+## 3. Technical Specifications
+
+### 3.1 Input Parameters
+
+| Parameter | Type | Length | Description | Valid Values |
+|-----------|------|---------|-------------|--------------|
+| INPUT-DATE | PIC 9(8) | 8 | Date in YYYYMMDD format | 18670701-99991231 |
+| OBSERVANCE-FLAG | PIC X(1) | 1 | Check observed vs actual | 'Y'=Observed, 'N'=Actual |
+
+### 3.2 Output Parameters
+
+| Parameter | Type | Length | Description | Valid Values |
+|-----------|------|---------|-------------|--------------|
+| CANADA-DAY-FLAG | PIC X(1) | 1 | Canada Day indicator | 'Y'=Yes, 'N'=No |
+| OBSERVED-DATE | PIC 9(8) | 8 | Observed holiday date | YYYYMMDD format |
+| RETURN-CODE | PIC 9(2) | 2 | Processing result | 00=Success, 01-99=Error |
+| ERROR-MESSAGE | PIC X(50) | 50 | Error description | Text message |
+
+### 3.3 Business Rules
+
+#### BR-001: Canada Day Definition
+- Canada Day is always July 1st, regardless of day of week
+- The holiday exists from 1867 onwards (Canadian Confederation)
+
+#### BR-002: Observance Rules
+- If July 1st falls on Saturday, observed date is June 30th
+- If July 1st falls on Sunday, observed date is July 2nd
+- If July 1st falls on Monday-Friday, observed date equals actual date
+
+#### BR-003: Validation Rules
+- Input year must be >= 1867
+- Input month must be 01-12
+- Input day must be valid for the given month and year
+- Date must not exceed system maximum date (9999-12-31)
+
+### 3.4 Error Codes
+
+| Code | Description | Action |
+|------|-------------|--------|
+| 00 | Success | Continue processing |
+| 01 | Invalid date format | Check input format |
+| 02 | Invalid year (< 1867) | Use valid year range |
+| 03 | Invalid month | Use month 01-12 |
+| 04 | Invalid day | Check calendar for valid day |
+| 05 | Future date beyond system limit | Use supported date range |
+
+## 4. Implementation Guidelines
+
+### 4.1 Program Structure
+- Follow standard COBOL division structure
+- Use descriptive paragraph names (e.g., 1000-VALIDATE-INPUT-DATE)
+- Implement centralized error handling (9000-ERROR-HANDLING)
+- Include comprehensive program documentation
+
+### 4.2 Data Validation
+- Validate all input parameters before processing
+- Use numeric validation for date components
+- Implement bounds checking for all date parts
+
+### 4.3 Testing Requirements
+- Unit tests for all date validation scenarios
+- Test cases for leap years (1896, 1900, 2000, 2004)
+- Test cases for weekend observance rules
+- Boundary testing for minimum/maximum dates
+- Error condition testing for invalid inputs
+
+## 5. Integration Considerations
+
+### 5.1 Copybook Integration
+- Define standard copybook for Canada Day processing
+- Include in enterprise date processing library
+- Maintain version control for copybook changes
+
+### 5.2 System Integration
+- Compatible with existing payroll systems
+- Supports batch processing frameworks
+- Integrates with holiday management systems
+
+## 6. Documentation Requirements
+
+### 6.1 Technical Documentation
+- Complete program documentation following enterprise standards
+- Data structure documentation
+- Business rule documentation
+- Integration guide
+
+### 6.2 Operational Documentation
+- Deployment procedures
+- Troubleshooting guide
+- Performance monitoring guidelines
+
+## 7. Acceptance Criteria
+
+### 7.1 Functional Acceptance
+- ✅ Correctly identifies July 1st as Canada Day for any valid year
+- ✅ Properly calculates observed dates for weekend holidays
+- ✅ Validates all input parameters correctly
+- ✅ Provides appropriate error messages for invalid inputs
+- ✅ Handles all edge cases (leap years, century boundaries)
+
+### 7.2 Quality Acceptance
+- ✅ Code follows enterprise COBOL standards
+- ✅ All test cases pass
+- ✅ Performance requirements met
+- ✅ Documentation complete and accurate
+
+## 8. Appendices
+
+### 8.1 Historical Context
+Canada Day became a statutory holiday in 1879, originally called "Dominion Day." The name was changed to "Canada Day" in 1982.
+
+### 8.2 Reference Dates for Testing
+- 1867-07-01: First Canada Day (Monday)
+- 2023-07-01: Saturday (observed June 30, 2023)
+- 2024-07-01: Monday (observed same day)
+- 2025-07-01: Tuesday (observed same day)
+- 2026-07-01: Wednesday (observed same day)
\ No newline at end of file
diff --git a/canada-day-test b/canada-day-test
new file mode 100755
index 0000000..caa9c5c
Binary files /dev/null and b/canada-day-test differ
diff --git a/canada-day-test-data.cpy b/canada-day-test-data.cpy
new file mode 100644
index 0000000..f2f2296
--- /dev/null
+++ b/canada-day-test-data.cpy
@@ -0,0 +1,233 @@
+      ******************************************************************
+      * COPYBOOK: CANADA-DAY-TEST-DATA                               *
+      * PURPOSE:  Mock test data for Canada Day testing              *
+      * AUTHOR:   Enterprise COBOL Development Team                  *
+      * DATE:     2024                                               *
+      * VERSION:  1.0                                                *
+      ******************************************************************
+      * DESCRIPTION:                                                 *
+      * This copybook contains comprehensive test data for Canada    *
+      * Day determination testing, including valid scenarios, edge   *
+      * cases, and error conditions.                                 *
+      ******************************************************************
+
+      * Test case structure
+       01  TEST-CASE-STRUCTURE.
+           05  TC-DESCRIPTION              PIC X(50).
+           05  TC-INPUT-DATE               PIC 9(8).
+           05  TC-OBSERVANCE-FLAG          PIC X(1).
+           05  TC-EXPECTED-CANADA-FLAG     PIC X(1).
+           05  TC-EXPECTED-OBSERVED-DATE   PIC 9(8).
+           05  TC-EXPECTED-RETURN-CODE     PIC 9(2).
+           05  TC-EXPECTED-ERROR-MSG       PIC X(40).
+
+      * Test data table - comprehensive scenarios
+       01  CANADA-DAY-TEST-DATA-TABLE.
+      * Valid Canada Day scenarios
+           05  TD-CASE-001.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2024 - Monday (weekday)'.
+               10  FILLER PIC 9(8) VALUE 20240701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20240701.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-002.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2023 - Saturday (observed Friday)'.
+               10  FILLER PIC 9(8) VALUE 20230701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20230630.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-003.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2029 - Sunday (observed Monday)'.
+               10  FILLER PIC 9(8) VALUE 20290701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20290702.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-004.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2025 - Tuesday (weekday)'.
+               10  FILLER PIC 9(8) VALUE 20250701.         
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20250701.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-005.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 1867 - Confederation year'.
+               10  FILLER PIC 9(8) VALUE 18670701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 18670701.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+      * Non-observance scenarios
+           05  TD-CASE-006.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2023 - Saturday (no observance)'.
+               10  FILLER PIC 9(8) VALUE 20230701.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20230701.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+      * Century boundaries
+           05  TD-CASE-007.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2000 - Y2K leap year Saturday'.
+               10  FILLER PIC 9(8) VALUE 20000701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20000630.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-008.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 1900 - Century non-leap year'.
+               10  FILLER PIC 9(8) VALUE 19000701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 19000702.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+      * Non-Canada Day scenarios
+           05  TD-CASE-009.
+               10  FILLER PIC X(50) VALUE 
+                   'Independence Day USA - July 4th'.
+               10  FILLER PIC 9(8) VALUE 20240704.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 20240704.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-010.
+               10  FILLER PIC X(50) VALUE 
+                   'June 30th - Day before Canada Day'.
+               10  FILLER PIC 9(8) VALUE 20240630.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 20240630.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-011.
+               10  FILLER PIC X(50) VALUE 
+                   'July 2nd - Day after Canada Day'.
+               10  FILLER PIC 9(8) VALUE 20240702.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 20240702.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+      * Error scenarios - Invalid dates
+           05  TD-CASE-012.
+               10  FILLER PIC X(50) VALUE 
+                   'Error: Year before Confederation'.
+               10  FILLER PIC 9(8) VALUE 18660701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 00000000.
+               10  FILLER PIC 9(2) VALUE 02.
+               10  FILLER PIC X(40) VALUE 
+                   'Invalid year - must be 1867 or later'.
+           05  TD-CASE-013.
+               10  FILLER PIC X(50) VALUE 
+                   'Error: Invalid month 13'.
+               10  FILLER PIC 9(8) VALUE 20241301.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 00000000.
+               10  FILLER PIC 9(2) VALUE 03.
+               10  FILLER PIC X(40) VALUE 
+                   'Invalid month - must be 01-12'.
+           05  TD-CASE-014.
+               10  FILLER PIC X(50) VALUE 
+                   'Error: Invalid day February 29 non-leap'.
+               10  FILLER PIC 9(8) VALUE 20230229.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 00000000.
+               10  FILLER PIC 9(2) VALUE 04.
+               10  FILLER PIC X(40) VALUE 
+                   'Invalid day for given month and year'.
+           05  TD-CASE-015.
+               10  FILLER PIC X(50) VALUE 
+                   'Error: Invalid day 32 for month'.
+               10  FILLER PIC 9(8) VALUE 20240732.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 00000000.
+               10  FILLER PIC 9(2) VALUE 04.
+               10  FILLER PIC X(40) VALUE 
+                   'Invalid day for given month and year'.
+      * Leap year validation
+           05  TD-CASE-016.
+               10  FILLER PIC X(50) VALUE 
+                   'Valid: February 29 leap year 2024'.
+               10  FILLER PIC 9(8) VALUE 20240229.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 20240229.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-017.
+               10  FILLER PIC X(50) VALUE 
+                   'Valid: February 29 leap year 2000'.
+               10  FILLER PIC 9(8) VALUE 20000229.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 20000229.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-018.
+               10  FILLER PIC X(50) VALUE 
+                   'Error: February 29 non-leap year 1900'.
+               10  FILLER PIC 9(8) VALUE 19000229.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'N'.
+               10  FILLER PIC 9(8) VALUE 00000000.
+               10  FILLER PIC 9(2) VALUE 04.
+               10  FILLER PIC X(40) VALUE 
+                   'Invalid day for given month and year'.
+      * Weekend patterns for multiple years
+           05  TD-CASE-019.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2028 - Saturday pattern'.
+               10  FILLER PIC 9(8) VALUE 20280701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20280630.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+           05  TD-CASE-020.
+               10  FILLER PIC X(50) VALUE 
+                   'Canada Day 2030 - Monday pattern'.
+               10  FILLER PIC 9(8) VALUE 20300701.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC X(1) VALUE 'Y'.
+               10  FILLER PIC 9(8) VALUE 20300701.
+               10  FILLER PIC 9(2) VALUE 00.
+               10  FILLER PIC X(40) VALUE SPACES.
+
+       01  TEST-DATA-ARRAY REDEFINES CANADA-DAY-TEST-DATA-TABLE.
+           05  TEST-CASE OCCURS 20 TIMES.
+               10  TCA-DESCRIPTION         PIC X(50).
+               10  TCA-INPUT-DATE          PIC 9(8).
+               10  TCA-OBSERVANCE-FLAG     PIC X(1).
+               10  TCA-EXP-CANADA-FLAG     PIC X(1).
+               10  TCA-EXP-OBSERVED-DATE   PIC 9(8).
+               10  TCA-EXP-RETURN-CODE     PIC 9(2).
+               10  TCA-EXP-ERROR-MSG       PIC X(40).
+
+      * Test constants
+       01  TEST-CONSTANTS.
+           05  MAX-TEST-CASES              PIC 9(2) VALUE 20.
+           05  TEST-PASSED                 PIC X(4) VALUE 'PASS'.
+           05  TEST-FAILED                 PIC X(4) VALUE 'FAIL'.
diff --git a/canada-day-test.cbl b/canada-day-test.cbl
new file mode 100644
index 0000000..7edeaaf
--- /dev/null
+++ b/canada-day-test.cbl
@@ -0,0 +1,177 @@
+      ******************************************************************
+      * PROGRAM: CANADA-DAY-TEST                                      *
+      * PURPOSE: Test driver for Canada Day determination routine     *
+      * AUTHOR:  Enterprise COBOL Development Team                    *
+      * DATE:    2024                                                 *
+      * VERSION: 1.0                                                  *
+      ******************************************************************
+      * DESCRIPTION:                                                  *
+      * This program demonstrates usage of the CANADA-DAY-CHECK       *
+      * routine with various test scenarios including valid dates,    *
+      * weekend observance, and error conditions.                    *
+      ******************************************************************
+       
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. CANADA-DAY-TEST.
+       
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       SOURCE-COMPUTER. IBM-Z.
+       OBJECT-COMPUTER. IBM-Z.
+       
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       
+      * Test case counter
+       01  WS-TEST-COUNTER                 PIC 9(3) VALUE 0.
+       01  WS-PASS-COUNTER                 PIC 9(3) VALUE 0.
+       01  WS-FAIL-COUNTER                 PIC 9(3) VALUE 0.
+       
+      * Test case data - memory optimized with reusable structure
+       01  WS-CURRENT-TEST-CASE.
+           05  WS-TC-DESC                  PIC X(40).
+           05  WS-TC-INPUT-DATE            PIC 9(8).
+           05  WS-TC-OBSERVANCE            PIC X(1).
+           05  WS-TC-EXP-FLAG              PIC X(1).
+           05  WS-TC-EXP-OBSERVED          PIC 9(8).
+           05  WS-TC-EXP-RC                PIC 9(2).
+
+      * Test data table - reduces memory footprint
+       01  WS-TEST-DATA-TABLE.
+           05  WS-TD-CASE-01.
+               10  FILLER                  PIC X(40) 
+                   VALUE 'Canada Day 2024 - Monday'.
+               10  FILLER                  PIC 9(8) VALUE 20240701.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC 9(8) VALUE 20240701.
+               10  FILLER                  PIC 9(2) VALUE 00.
+           05  WS-TD-CASE-02.
+               10  FILLER                  PIC X(40)
+                   VALUE 'Canada Day 2023 - Saturday'.
+               10  FILLER                  PIC 9(8) VALUE 20230701.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC 9(8) VALUE 20230630.
+               10  FILLER                  PIC 9(2) VALUE 00.
+           05  WS-TD-CASE-03.
+               10  FILLER                  PIC X(40)
+                   VALUE 'Canada Day 2029 - Sunday'.
+               10  FILLER                  PIC 9(8) VALUE 20290701.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC 9(8) VALUE 20290702.
+               10  FILLER                  PIC 9(2) VALUE 00.
+           05  WS-TD-CASE-04.
+               10  FILLER                  PIC X(40)
+                   VALUE 'Not Canada Day - July 4th'.
+               10  FILLER                  PIC 9(8) VALUE 20240704.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC X(1) VALUE 'N'.
+               10  FILLER                  PIC 9(8) VALUE 20240704.
+               10  FILLER                  PIC 9(2) VALUE 00.
+           05  WS-TD-CASE-05.
+               10  FILLER                  PIC X(40)
+                   VALUE 'Invalid year - before Confederation'.
+               10  FILLER                  PIC 9(8) VALUE 18660701.
+               10  FILLER                  PIC X(1) VALUE 'Y'.
+               10  FILLER                  PIC X(1) VALUE 'N'.
+               10  FILLER                  PIC 9(8) VALUE 00000000.
+               10  FILLER                  PIC 9(2) VALUE 02.
+
+       01  WS-TEST-CASE-ARRAY REDEFINES WS-TEST-DATA-TABLE.
+           05  WS-TEST-CASE                OCCURS 5 TIMES.
+               10  WS-TCA-DESC             PIC X(40).
+               10  WS-TCA-INPUT-DATE       PIC 9(8).
+               10  WS-TCA-OBSERVANCE       PIC X(1).
+               10  WS-TCA-EXP-FLAG         PIC X(1).
+               10  WS-TCA-EXP-OBSERVED     PIC 9(8).
+               10  WS-TCA-EXP-RC           PIC 9(2).
+       
+      * Output from called program - reduced size
+       01  WS-OUTPUT-PARAMS.
+           05  WS-CANADA-DAY-FLAG          PIC X(1).
+           05  WS-OBSERVED-DATE            PIC 9(8).
+           05  WS-RETURN-CODE              PIC 9(2).
+           05  WS-ERROR-MESSAGE            PIC X(40).
+
+      * Loop control
+       01  WS-TEST-INDEX                   PIC 9(1).
+       
+      * Display formatting
+       01  WS-DISPLAY-LINE                 PIC X(80).
+       
+       PROCEDURE DIVISION.
+       
+      ******************************************************************
+      * MAIN TEST PROCESSING                                          *
+      ******************************************************************
+       0000-MAIN-PROCESSING.
+           DISPLAY 'CANADA DAY DETERMINATION - TEST SUITE'
+           DISPLAY '======================================='
+           DISPLAY ' '
+           
+           PERFORM VARYING WS-TEST-INDEX FROM 1 BY 1
+                   UNTIL WS-TEST-INDEX > 5
+               PERFORM 1000-RUN-SINGLE-TEST-CASE
+           END-PERFORM
+           
+           PERFORM 9000-DISPLAY-TEST-SUMMARY
+           STOP RUN.
+       
+      ******************************************************************
+      * RUN SINGLE TEST CASE USING ARRAY INDEX                      *
+      ******************************************************************
+       1000-RUN-SINGLE-TEST-CASE.
+           MOVE WS-TEST-CASE(WS-TEST-INDEX) TO WS-CURRENT-TEST-CASE
+           
+           CALL 'CANADA-DAY-CHECK' USING WS-TC-INPUT-DATE
+                                         WS-TC-OBSERVANCE
+                                         WS-CANADA-DAY-FLAG
+                                         WS-OBSERVED-DATE
+                                         WS-RETURN-CODE
+                                         WS-ERROR-MESSAGE
+           
+           PERFORM 2000-VALIDATE-RESULTS.
+       
+      ******************************************************************
+      * VALIDATE TEST RESULTS                                        *
+      ******************************************************************
+       2000-VALIDATE-RESULTS.
+           ADD 1 TO WS-TEST-COUNTER
+           
+           IF WS-CANADA-DAY-FLAG = WS-TC-EXP-FLAG AND
+              WS-OBSERVED-DATE = WS-TC-EXP-OBSERVED AND
+              WS-RETURN-CODE = WS-TC-EXP-RC
+               ADD 1 TO WS-PASS-COUNTER
+               DISPLAY 'Test ' WS-TEST-COUNTER ': PASS - ' WS-TC-DESC
+           ELSE
+               ADD 1 TO WS-FAIL-COUNTER
+               DISPLAY 'Test ' WS-TEST-COUNTER ': FAIL - ' WS-TC-DESC
+               DISPLAY '  Expected: Flag=' WS-TC-EXP-FLAG 
+                       ' Observed=' WS-TC-EXP-OBSERVED 
+                       ' RC=' WS-TC-EXP-RC
+               DISPLAY '  Actual:   Flag=' WS-CANADA-DAY-FLAG 
+                       ' Obs=' WS-OBSERVED-DATE 
+                       ' RC=' WS-RETURN-CODE
+               IF WS-RETURN-CODE NOT = 00
+                   DISPLAY '  Error: ' WS-ERROR-MESSAGE
+               END-IF
+           END-IF
+           DISPLAY ' '.
+       
+      ******************************************************************
+      * DISPLAY TEST SUMMARY                                         *
+      ******************************************************************
+       9000-DISPLAY-TEST-SUMMARY.
+           DISPLAY '======================================='
+           DISPLAY 'TEST SUMMARY:'
+           DISPLAY 'Total Tests: ' WS-TEST-COUNTER
+           DISPLAY 'Passed:      ' WS-PASS-COUNTER  
+           DISPLAY 'Failed:      ' WS-FAIL-COUNTER
+           
+           IF WS-FAIL-COUNTER = 0
+               DISPLAY 'ALL TESTS PASSED!'
+           ELSE
+               DISPLAY 'SOME TESTS FAILED!'
+           END-IF.
diff --git a/prompts/11-holiday-calculation-documentation.md b/prompts/11-holiday-calculation-documentation.md
new file mode 100644
index 0000000..936369b
--- /dev/null
+++ b/prompts/11-holiday-calculation-documentation.md
@@ -0,0 +1,85 @@
+# Holiday Calculation Routine Documentation
+
+Generate comprehensive documentation for this COBOL holiday calculation routine:
+
+[PASTE HOLIDAY CALCULATION CODE]
+
+Create a Markdown document that includes:
+
+## 1. Holiday Overview
+- Holiday name and significance
+- Date calculation rules (fixed date, relative date, lunar calendar, etc.)
+- Historical context and variations
+- Regional or jurisdictional differences
+
+## 2. Business Requirements
+- When the holiday is observed vs. actual date
+- Weekend/weekday observance rules
+- Business impact (payroll, scheduling, operations)
+- Regulatory or compliance considerations
+
+## 3. Technical Implementation
+### Input Parameters
+| Parameter | Type | Length | Description | Valid Values |
+|-----------|------|---------|-------------|--------------|
+
+### Output Parameters
+| Parameter | Type | Length | Description | Valid Values |
+|-----------|------|---------|-------------|--------------|
+
+### Business Rules
+Document each rule with:
+- Rule number and description
+- Code section that implements the rule
+- Example scenarios
+- Edge cases and exceptions
+
+## 4. Algorithm Analysis
+- Step-by-step calculation process
+- Date arithmetic and calendar considerations
+- Leap year handling (if applicable)
+- Century boundary considerations
+- Time zone considerations (if applicable)
+
+## 5. Test Scenarios
+### Standard Cases
+- Current year examples
+- Historical dates
+- Future dates
+
+### Edge Cases
+- Leap years
+- Century boundaries
+- Weekend scenarios
+- Month/year boundaries
+
+### Error Conditions
+- Invalid input formats
+- Out-of-range dates
+- System limitations
+
+## 6. Integration Patterns
+- How this routine fits into larger systems
+- Common calling patterns
+- Batch vs. real-time processing considerations
+- Performance characteristics
+
+## 7. Maintenance Considerations
+- Future changes to holiday rules
+- Regulatory updates
+- System dependencies
+- Migration considerations
+
+## 8. Reference Information
+### Historical Dates for Testing
+Provide at least 10 test dates spanning multiple years including:
+- Known edge cases
+- Weekend scenarios
+- Historical examples
+
+### Related Holidays
+- Holidays with similar calculation patterns
+- Regional variations
+- Dependencies between holidays
+
+Use this template to create comprehensive documentation that serves both technical teams and business stakeholders.
\ No newline at end of file
diff --git a/run-canada-day-tests.sh b/run-canada-day-tests.sh
new file mode 100755
index 0000000..2d0e53e
--- /dev/null
+++ b/run-canada-day-tests.sh
@@ -0,0 +1,91 @@
+#!/bin/bash
+
+# Canada Day Test Suite Runner
+# Compiles and executes all test programs for Canada Day functionality
+
+echo "======================================="
+echo "CANADA DAY TEST SUITE RUNNER"
+echo "======================================="
+echo
+
+# Set up environment
+export COB_CC_FLAGS="-free"
+export COB_LIBRARY_PATH="."
+
+# Colors for output
+RED='\033[0;31m'
+GREEN='\033[0;32m'
+YELLOW='\033[1;33m'
+NC='\033[0m' # No Color
+
+echo "Step 1: Compiling Canada Day Check routine..."
+if cobc -c canada-day-check.cbl; then
+    echo -e "${GREEN}✓ canada-day-check compiled successfully${NC}"
+else
+    echo -e "${RED}✗ Failed to compile canada-day-check${NC}"
+    exit 1
+fi
+
+echo
+echo "Step 2: Compiling Original Test Suite..."
+if cobc -x -o canada-day-test canada-day-test.cbl canada-day-check.o; then
+    echo -e "${GREEN}✓ canada-day-test compiled successfully${NC}"
+else
+    echo -e "${RED}✗ Failed to compile canada-day-test${NC}"
+    exit 1
+fi
+
+echo
+echo "Step 3: Compiling Comprehensive Test Suite..."
+if cobc -x -o canada-day-comprehensive-test canada-day-comprehensive-test.cbl canada-day-check.o; then
+    echo -e "${GREEN}✓ canada-day-comprehensive-test compiled successfully${NC}"
+else
+    echo -e "${RED}✗ Failed to compile canada-day-comprehensive-test${NC}"
+    exit 1
+fi
+
+echo
+echo "======================================="
+echo "RUNNING ORIGINAL TEST SUITE"
+echo "======================================="
+echo
+
+if ./canada-day-test; then
+    echo -e "${GREEN}✓ Original test suite completed${NC}"
+else
+    echo -e "${RED}✗ Original test suite failed${NC}"
+fi
+
+echo
+echo "======================================="
+echo "RUNNING COMPREHENSIVE TEST SUITE"
+echo "======================================="
+echo
+
+if ./canada-day-comprehensive-test; then
+    echo -e "${GREEN}✓ Comprehensive test suite completed${NC}"
+else
+    echo -e "${RED}✗ Comprehensive test suite failed${NC}"
+fi
+
+echo
+echo "======================================="
+echo "TEST SUITE EXECUTION COMPLETE"
+echo "======================================="
+echo
+echo "Test files created:"
+echo "- canada-day-test-data.cpy (Mock test data copybook)"
+echo "- canada-day-comprehensive-test.cbl (Enhanced test suite)"
+echo "- run-canada-day-tests.sh (This test runner script)"
+echo
+echo "Mock data includes:"
+echo "- 20 comprehensive test scenarios"
+echo "- Valid Canada Day dates (weekdays, weekends)"
+echo "- Weekend observance rules testing"
+echo "- Non-Canada Day dates"
+echo "- Error condition testing"
+echo "- Leap year validation"
+echo "- Century boundary testing"
+echo "- Input validation testing"
+echo
+echo "Use this script for regression testing as the code evolves."
\ No newline at end of file