IDENTIFICATION DIVISION.
PROGRAM-ID. AR.
AUTHOR. MIKE GALLANT.

* This program will print a Accounts Receivable register up to the current date.
* It will consist of the Account Number, Previous Balance, Total Payments,
* Sales, Credit Charges and calculate Current Balance due.
* It will be sorted by Account ID and provide totals for each field at the end.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER. ALPHA.
OBJECT-COMPUTER. ALPHA.

DATA DIVISION.

WORKING-STORAGE SECTION.

01  HEADING1                           PIC X(27)
    VALUE "SEARTONS CHARGE CARD SYSTEM".

01  HEADING2                           PIC X(28)
    VALUE "ACCOUNTS RECEIVABLE REGISTER".

01  HEADING3.                           
    05  FILLER                         PIC X(07)  VALUE "AS OF: ".
    05  REPORT-YEAR                    PIC X(04).
    05  FILLER                         PIC X      VALUE "-".
    05  REPORT-MONTH                   PIC X(02).
    05  FILLER                         PIC X      VALUE "-".
    05  REPORT-DAY                     PIC X(02).

01  HEADING4                           PIC X(28)
    VALUE "Are You Sure (Yes/No/Exit) :".

01  PRINTING-MESSAGE                   PIC X(28)
    VALUE "Printing . . . . Please Wait".

01  DONE-MESSAGE                       PIC X(18)
    VALUE "Done!  Hit Return:".

01  GO-FLAG                            PIC X    VALUE "N".
    88  OKAY           VALUE "Y".
    88  NOT-OKAY       VALUE "N".

01  CHANGE-FLAG                        PIC X    VALUE "N".
    88  MAKE-CHANGES   VALUE "Y".
    88  NO-CHANGES     VALUE "N".
  
01  SPEC-LEAP-YEAR             PIC 9(02)  VALUE ZEROES. 

COPY "WORKDATE.LIB".

LINKAGE SECTION.

01  PRINT-DATE                 PIC X(10).          
01  PROMPT                     PIC X.

PROCEDURE DIVISION USING PRINT-DATE, PROMPT.
MAINLINE.
    MOVE "Y" TO CHANGE-FLAG.
    PERFORM INITIALIZATION UNTIL NO-CHANGES.    
    EXIT PROGRAM.

INITIALIZATION.
    DISPLAY SPACES LINE 1 ERASE TO END OF SCREEN.
    MOVE "N" TO GO-FLAG.
    COPY "INITDATE.LIB".
    PERFORM GET-TIME-DATE.
    MOVE THE-YEAR TO REPORT-YEAR.
    MOVE THE-MONTH TO REPORT-MONTH.
    MOVE THE-DAY TO REPORT-DAY.
    DISPLAY HEADING1 LINE 3 COLUMN 26.
    DISPLAY HEADING2 LINE 5 COLUMN 26.
    DISPLAY HEADING3 LINE 6 COLUMN 31.
    MOVE REPORT-YEAR TO PRINT-DATE.
    MOVE REPORT-MONTH TO PRINT-DATE(5:2).
    MOVE REPORT-DAY TO PRINT-DATE(7:2).    
    DISPLAY HEADING4 LINE 8 COLUMN 26.
    ACCEPT PROMPT LINE 8 COLUMN 56
        PROTECTED.
    MOVE FUNCTION UPPER-CASE(PROMPT) TO PROMPT.
    IF PROMPT = "Y" OR PROMPT = "E" THEN
        MOVE "N" TO CHANGE-FLAG
    ELSE
        MOVE "Y" TO CHANGE-FLAG
    END-IF.
    IF PROMPT = "Y" THEN
        DISPLAY PRINTING-MESSAGE LINE 13 COLUMN 25.
    
COPY "TIMEDATE.LIB".