Skip to content

Add AS400 COBOL holiday tracking system for tax calculations #10

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
Copilot wants to merge 3 commits into
base: master
Choose a base branch
from
Draft

Add AS400 COBOL holiday tracking system for tax calculations #10

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
3f28e2a
Initial plan
Copilot Dec 3, 2025
9f1e4e4
Add comprehensive holiday tracking program with tests
Copilot Dec 3, 2025
9cb1978
Remove unused working storage variables
Copilot Dec 3, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
316 changes: 316 additions & 0 deletions AS400/COBOL_examples/Holidays/QCBLLESRC/HOLYTRK01.CBLLE
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,316 @@
*================================================================
* Program: HOLYTRK01 - Holiday Tracking Program
* Purpose: Calculates US Federal Holidays for any year
* Used for tax calculations and business planning
* Author: Development Team
* Date: December 3, 2025
*================================================================
IDENTIFICATION DIVISION.
PROGRAM-ID. HOLYTRK01.
AUTHOR. Development Team.
DATE-WRITTEN. December 3, 2025.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
Copy link

Copilot AI Dec 4, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The DECIMAL-POINT IS COMMA setting changes the decimal point to a comma and the comma to a period in numeric literals. This is typically used for European number formatting conventions. For a US Federal Holiday tracking system, this is unusual and could cause confusion. Consider removing this clause unless there's a specific requirement for European-style numeric formatting.

Suggested change
DECIMAL-POINT IS COMMA.

Copilot uses AI. Check for mistakes.

DATA DIVISION.
WORKING-STORAGE SECTION.

*=Input year from user===========================================
01 WS-INPUT-YEAR PIC 9(4) VALUE ZEROS.
01 WS-INPUT-YEAR-DISPLAY PIC Z(4).

*=Date calculation fields=======================================
01 WS-CALC-DATE.
05 WS-YEAR PIC 9(4).
05 WS-MONTH PIC 9(2).
05 WS-DAY PIC 9(2).

*=Day of week calculation fields================================
01 WS-DAY-OF-WEEK PIC 9(1).
01 WS-DAY-NAME PIC X(9).
01 WS-DAY-OF-YEAR PIC 9(3).

*=Date manipulation fields======================================
01 WS-DATE-NUMERIC PIC 9(8).
01 WS-JAN-01-DATE PIC 9(8).

*=Day name table================================================
01 WS-DAY-TABLE.
05 FILLER PIC X(9) VALUE 'Sunday '.
05 FILLER PIC X(9) VALUE 'Monday '.
05 FILLER PIC X(9) VALUE 'Tuesday '.
05 FILLER PIC X(9) VALUE 'Wednesday'.
05 FILLER PIC X(9) VALUE 'Thursday '.
05 FILLER PIC X(9) VALUE 'Friday '.
05 FILLER PIC X(9) VALUE 'Saturday '.

01 WS-DAY-NAMES REDEFINES WS-DAY-TABLE.
05 WS-DAY-ENTRY PIC X(9) OCCURS 7 TIMES.

*=Working fields for calculations===============================
01 WS-FIRST-DAY-OF-MONTH PIC 9(1).
01 WS-WEEK-COUNT PIC 9(1).
01 WS-TARGET-DAY PIC 9(1).
01 WS-CALCULATED-DAY PIC 9(2).

*=Error handling fields=========================================
01 WS-ERROR-FLAG PIC X(1) VALUE 'N'.
01 WS-CONTINUE-FLAG PIC X(1) VALUE 'Y'.

*=Display formatting fields====================================
01 WS-HOLIDAY-NAME PIC X(30).
01 WS-DATE-DISPLAY PIC X(15).

PROCEDURE DIVISION.

MAIN-PROCEDURE.
DISPLAY ' '.
DISPLAY '================================================'.
DISPLAY ' US FEDERAL HOLIDAY TRACKING SYSTEM'.
DISPLAY ' For Tax Calculation Purposes'.
DISPLAY '================================================'.
DISPLAY ' '.

PERFORM UNTIL WS-CONTINUE-FLAG = 'N'
PERFORM GET-YEAR-INPUT
IF WS-ERROR-FLAG = 'N'
PERFORM DISPLAY-ALL-HOLIDAYS
END-IF
PERFORM ASK-CONTINUE
END-PERFORM.

DISPLAY ' '.
DISPLAY 'Thank you for using Holiday Tracking System!'.
GOBACK.

GET-YEAR-INPUT SECTION.
MOVE 'N' TO WS-ERROR-FLAG.
DISPLAY ' '.
DISPLAY 'Enter a year (1600-3000): ' WITH NO ADVANCING.
ACCEPT WS-INPUT-YEAR.

*=Validate year range===========================================
IF WS-INPUT-YEAR < 1600 OR WS-INPUT-YEAR > 3000
DISPLAY 'Error: Please enter a year between 1600 and 3000'
MOVE 'Y' TO WS-ERROR-FLAG
ELSE
MOVE WS-INPUT-YEAR TO WS-YEAR
END-IF.

DISPLAY-ALL-HOLIDAYS SECTION.
MOVE WS-INPUT-YEAR TO WS-INPUT-YEAR-DISPLAY.
DISPLAY ' '.
DISPLAY '================================================'.
DISPLAY 'US FEDERAL HOLIDAYS FOR YEAR ' WS-INPUT-YEAR-DISPLAY.
DISPLAY '================================================'.
DISPLAY ' '.

*=New Year's Day (January 1)====================================
MOVE 'New Year''s Day' TO WS-HOLIDAY-NAME.
MOVE 01 TO WS-MONTH.
MOVE 01 TO WS-DAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Martin Luther King Jr. Day (3rd Monday in January)============
MOVE 'Martin Luther King Jr. Day' TO WS-HOLIDAY-NAME.
MOVE 01 TO WS-MONTH.
MOVE 2 TO WS-TARGET-DAY.
MOVE 3 TO WS-WEEK-COUNT.
PERFORM CALCULATE-NTH-WEEKDAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Presidents' Day (3rd Monday in February)======================
MOVE 'Presidents'' Day' TO WS-HOLIDAY-NAME.
MOVE 02 TO WS-MONTH.
MOVE 2 TO WS-TARGET-DAY.
MOVE 3 TO WS-WEEK-COUNT.
PERFORM CALCULATE-NTH-WEEKDAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Memorial Day (Last Monday in May)=============================
MOVE 'Memorial Day' TO WS-HOLIDAY-NAME.
MOVE 05 TO WS-MONTH.
MOVE 2 TO WS-TARGET-DAY.
PERFORM CALCULATE-LAST-WEEKDAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Independence Day (July 4)=====================================
MOVE 'Independence Day' TO WS-HOLIDAY-NAME.
MOVE 07 TO WS-MONTH.
MOVE 04 TO WS-DAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Labor Day (1st Monday in September)===========================
MOVE 'Labor Day' TO WS-HOLIDAY-NAME.
MOVE 09 TO WS-MONTH.
MOVE 2 TO WS-TARGET-DAY.
MOVE 1 TO WS-WEEK-COUNT.
PERFORM CALCULATE-NTH-WEEKDAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Columbus Day (2nd Monday in October)===========================
MOVE 'Columbus Day' TO WS-HOLIDAY-NAME.
MOVE 10 TO WS-MONTH.
MOVE 2 TO WS-TARGET-DAY.
MOVE 2 TO WS-WEEK-COUNT.
PERFORM CALCULATE-NTH-WEEKDAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Veterans Day (November 11)====================================
MOVE 'Veterans Day' TO WS-HOLIDAY-NAME.
MOVE 11 TO WS-MONTH.
MOVE 11 TO WS-DAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Thanksgiving (4th Thursday in November)=======================
MOVE 'Thanksgiving Day' TO WS-HOLIDAY-NAME.
MOVE 11 TO WS-MONTH.
MOVE 5 TO WS-TARGET-DAY.
MOVE 4 TO WS-WEEK-COUNT.
PERFORM CALCULATE-NTH-WEEKDAY.
PERFORM CALCULATE-AND-DISPLAY.

*=Christmas Day (December 25)===================================
MOVE 'Christmas Day' TO WS-HOLIDAY-NAME.
MOVE 12 TO WS-MONTH.
MOVE 25 TO WS-DAY.
PERFORM CALCULATE-AND-DISPLAY.

CALCULATE-NTH-WEEKDAY SECTION.
*=Calculate the Nth occurrence of a specific weekday in a month=
*=WS-TARGET-DAY: 1=Sun, 2=Mon, 3=Tue, 4=Wed, 5=Thu, 6=Fri, 7=Sat
*=WS-WEEK-COUNT: Which occurrence (1st, 2nd, 3rd, etc.)==========

*=Get first day of month========================================
MOVE 01 TO WS-DAY.
MOVE WS-YEAR TO WS-DATE-NUMERIC(1:4).
MOVE WS-MONTH TO WS-DATE-NUMERIC(5:2).
MOVE WS-DAY TO WS-DATE-NUMERIC(7:2).

COMPUTE WS-FIRST-DAY-OF-MONTH =
FUNCTION MOD(
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7) + 1.

*=Calculate which day the Nth occurrence falls on===============
IF WS-TARGET-DAY >= WS-FIRST-DAY-OF-MONTH
COMPUTE WS-CALCULATED-DAY =
WS-TARGET-DAY - WS-FIRST-DAY-OF-MONTH + 1 +
((WS-WEEK-COUNT - 1) * 7)
ELSE
COMPUTE WS-CALCULATED-DAY =
WS-TARGET-DAY - WS-FIRST-DAY-OF-MONTH + 8 +
((WS-WEEK-COUNT - 1) * 7)
END-IF.

MOVE WS-CALCULATED-DAY TO WS-DAY.

CALCULATE-LAST-WEEKDAY SECTION.
*=Calculate the last occurrence of a specific weekday in a month
*=WS-TARGET-DAY: 1=Sun, 2=Mon, 3=Tue, 4=Wed, 5=Thu, 6=Fri, 7=Sat

*=Start with last day of month==================================
EVALUATE WS-MONTH
WHEN 01 MOVE 31 TO WS-DAY
WHEN 02
IF FUNCTION MOD(WS-YEAR, 4) = 0
IF FUNCTION MOD(WS-YEAR, 100) = 0
IF FUNCTION MOD(WS-YEAR, 400) = 0
MOVE 29 TO WS-DAY
ELSE
MOVE 28 TO WS-DAY
END-IF
ELSE
MOVE 29 TO WS-DAY
END-IF
ELSE
MOVE 28 TO WS-DAY
END-IF
WHEN 03 MOVE 31 TO WS-DAY
WHEN 04 MOVE 30 TO WS-DAY
WHEN 05 MOVE 31 TO WS-DAY
WHEN 06 MOVE 30 TO WS-DAY
WHEN 07 MOVE 31 TO WS-DAY
WHEN 08 MOVE 31 TO WS-DAY
WHEN 09 MOVE 30 TO WS-DAY
WHEN 10 MOVE 31 TO WS-DAY
WHEN 11 MOVE 30 TO WS-DAY
WHEN 12 MOVE 31 TO WS-DAY
END-EVALUATE.

*=Work backwards to find the last occurrence====================
PERFORM UNTIL WS-DAY < 1
MOVE WS-YEAR TO WS-DATE-NUMERIC(1:4)
MOVE WS-MONTH TO WS-DATE-NUMERIC(5:2)
MOVE WS-DAY TO WS-DATE-NUMERIC(7:2)

COMPUTE WS-FIRST-DAY-OF-MONTH =
FUNCTION MOD(
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7) + 1

IF WS-FIRST-DAY-OF-MONTH = WS-TARGET-DAY
Comment on lines +244 to +253
Copy link

Copilot AI Dec 4, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The variable name WS-FIRST-DAY-OF-MONTH is misleading in this context. Within the loop at lines 244-258, this variable actually stores the day-of-week for the current day being checked (not the first day of the month). Consider using a more descriptive variable name like WS-CURRENT-DAY-OF-WEEK or add a comment clarifying that this variable is being reused for a different purpose in this section.

Suggested change
PERFORM UNTIL WS-DAY < 1
MOVE WS-YEAR TO WS-DATE-NUMERIC(1:4)
MOVE WS-MONTH TO WS-DATE-NUMERIC(5:2)
MOVE WS-DAY TO WS-DATE-NUMERIC(7:2)
COMPUTE WS-FIRST-DAY-OF-MONTH =
FUNCTION MOD(
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7) + 1
IF WS-FIRST-DAY-OF-MONTH = WS-TARGET-DAY
* Note: WS-CURRENT-DAY-OF-WEEK is used here to store the day-of-week
* for the current day being checked, not the first day of the month.
PERFORM UNTIL WS-DAY < 1
MOVE WS-YEAR TO WS-DATE-NUMERIC(1:4)
MOVE WS-MONTH TO WS-DATE-NUMERIC(5:2)
MOVE WS-DAY TO WS-DATE-NUMERIC(7:2)
COMPUTE WS-CURRENT-DAY-OF-WEEK =
FUNCTION MOD(
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7) + 1
IF WS-CURRENT-DAY-OF-WEEK = WS-TARGET-DAY

Copilot uses AI. Check for mistakes.
EXIT PERFORM
ELSE
SUBTRACT 1 FROM WS-DAY
END-IF
END-PERFORM.

CALCULATE-AND-DISPLAY SECTION.
*=Build date in YYYYMMDD format=================================
MOVE WS-YEAR TO WS-DATE-NUMERIC(1:4).
MOVE WS-MONTH TO WS-DATE-NUMERIC(5:2).
MOVE WS-DAY TO WS-DATE-NUMERIC(7:2).

*=Use intrinsic function to get day of week=====================
*=1=Monday, 2=Tuesday, ..., 7=Sunday===========================
COMPUTE WS-DAY-OF-WEEK =
FUNCTION MOD(
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7) + 1.

*=Adjust for our table (1=Sunday, 2=Monday, etc.)===============
IF WS-DAY-OF-WEEK = 7
MOVE 1 TO WS-DAY-OF-WEEK
ELSE
ADD 1 TO WS-DAY-OF-WEEK
END-IF.
Comment on lines +270 to +277
Copy link

Copilot AI Dec 4, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The day-of-week adjustment logic appears incorrect. The FUNCTION INTEGER-OF-DATE returns values where day 1 = Monday through day 7 = Sunday. After MOD 7 + 1, you get values 1-7 where 1 = Tuesday. The subsequent adjustment tries to shift Sunday (7) to position 1, but this creates an off-by-one error for all other days.

The correct adjustment should be:

COMPUTE WS-DAY-OF-WEEK = 
    FUNCTION MOD(
        FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7).
        
IF WS-DAY-OF-WEEK = 0
    MOVE 7 TO WS-DAY-OF-WEEK
END-IF.

ADD 1 TO WS-DAY-OF-WEEK.

This ensures Monday=2, Tuesday=3, ..., Sunday=1 to match your day name table.

Suggested change
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7) + 1.
*=Adjust for our table (1=Sunday, 2=Monday, etc.)===============
IF WS-DAY-OF-WEEK = 7
MOVE 1 TO WS-DAY-OF-WEEK
ELSE
ADD 1 TO WS-DAY-OF-WEEK
END-IF.
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC), 7).
*=Adjust for our table (1=Sunday, 2=Monday, etc.)===============
IF WS-DAY-OF-WEEK = 0
MOVE 7 TO WS-DAY-OF-WEEK
END-IF.
ADD 1 TO WS-DAY-OF-WEEK.

Copilot uses AI. Check for mistakes.

*=Get day name from table=======================================
MOVE WS-DAY-ENTRY(WS-DAY-OF-WEEK) TO WS-DAY-NAME.

*=Calculate day of year=========================================
MOVE WS-YEAR TO WS-JAN-01-DATE(1:4).
MOVE 01 TO WS-JAN-01-DATE(5:2).
MOVE 01 TO WS-JAN-01-DATE(7:2).

COMPUTE WS-DAY-OF-YEAR =
FUNCTION INTEGER-OF-DATE(WS-DATE-NUMERIC) -
FUNCTION INTEGER-OF-DATE(WS-JAN-01-DATE) + 1.

*=Format date display===========================================
STRING WS-MONTH DELIMITED BY SIZE
'/' DELIMITED BY SIZE
WS-DAY DELIMITED BY SIZE
'/' DELIMITED BY SIZE
WS-YEAR DELIMITED BY SIZE
INTO WS-DATE-DISPLAY
END-STRING.
Comment on lines +292 to +298
Copy link

Copilot AI Dec 4, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

[nitpick] The STRING statement formats date parts (WS-MONTH, WS-DAY) which are PIC 9(2) fields. These will be formatted with leading zeros if the value is less than 10 (e.g., "01" for January, "09" for September). While technically correct, this differs from typical US date formatting which often omits leading zeros (e.g., "1/15/2024" vs "01/15/2024"). Consider whether the leading zeros are desired for the output format.

Copilot uses AI. Check for mistakes.

*=Display holiday information===================================
DISPLAY WS-HOLIDAY-NAME ' - ' WS-DATE-DISPLAY
' (' WS-DAY-NAME ') Day ' WS-DAY-OF-YEAR
' of year'.

ASK-CONTINUE SECTION.
DISPLAY ' '.
DISPLAY 'Check another year? (Y/N): ' WITH NO ADVANCING.
ACCEPT WS-CONTINUE-FLAG.

IF WS-CONTINUE-FLAG = 'y' OR WS-CONTINUE-FLAG = 'Y'
MOVE 'Y' TO WS-CONTINUE-FLAG
ELSE
MOVE 'N' TO WS-CONTINUE-FLAG
END-IF.

END PROGRAM HOLYTRK01.
Loading