Cobol Program 83 Essay Research Paper 001600

Cobol Program 8.3 Essay, Research Paper

0016.00 * COMPILER: MICRO FOCUS

0017.00

0018.00 ENVIRONMENT DIVISION.

0019.00

0020.00 INPUT-OUTPUT SECTION.

0021.00

0022.00 FILE-CONTROL.

0023.00 SELECT ACCOUNTS-REC-FILE

0024.00 ASSIGN TO DISK-CUSTOMER.

0025.00

0026.00 SELECT ACCOUNTS-REC-REGISTER

0027.00 ASSIGN TO PRINTER-QPRINT.

0028.00

0029.00 DATA DIVISION.

0030.00

0031.00 FILE SECTION.

0032.00

0033.00 FD ACCOUNTS-REC-FILE.

0034.00 01 CUSTOMER-RECORD PIC X(80).

0036.00 FD ACCOUNTS-REC-REGISTER.

0037.00 01 ACCOUNTS-REC-LINE-RECORD PIC X(120).

0038.00

0039.00 WORKING-STORAGE SECTION.

0040.00 * Switches

0041.00 01 PROGRAM-SWITCHES.

0042.00 05 S1-END-OF-FILE-SWITCH PIC X.

0043.00 88 S1-END-OF-FILE VALUE “Y”.

0044.00 88 S1-NOT-END-OF-FILE VALUE “N”.

0045.00

0046.00 * Report Control Fields

0047.00 01 RC-REPORT-CONTROLS.

0048.00 05 RC-PAGE-COUNT PIC 9(3).

0049.00 05 RC-LINES-PER-PAGE PIC 9(2) VALUE 54.

0050.00 05 RC-LINES-USED PIC 9(2).

0051.00 05 RC-LINE-SPACING PIC 9(2).

0052.00

0053.00 * Work Areas

0054.00 01 WA-WORK-AREAS.

0055.00 05 WA-DATE-WORK PIC 9(6).

0056.00 05 WA-FINANCE-CHARGE PIC S9(5)V99.

0057.00 05 WA-MINIMUM-PAYMENT-WORK PIC S9(5)V99.

0058.00 05 WA-LATE-CHARGE PIC S9(4)V99.

0059.00 05 WA-NEW-BALANCE PIC S9(6)V99.

0060.00 05 WA-MINIMUM-PAYMENT PIC S9(5)V99.

0061.00

0062.00 01 AC-ACCUMULATORS.

0063.00 05 AC-TOTAL-BALANCE-FORWARD-ACCUM PIC S9(7)V99.

0064.00 05 AC-TOTAL-PAYMENTS-RECVD-ACCUM PIC S9(7)V99.

0065.00 05 AC-TOTAL-FINANCE-CHARGE-ACCUM PIC S9(6)V99.

0066.00 05 AC-TOTAL-LATE-CHARGE-ACCUM PIC S9(5)V99.

0067.00 05 AC-TOTAL-NEW-PURCHASES-ACCUM PIC S9(7)V99.

0068.00 05 AC-TOTAL-NEW-BALANCE-ACCUM PIC S9(7)V99.

0069.00 05 AC-TOTAL-MINIMUM-PAYMENT-ACCUM PIC S9(6)V99.

0070.00

0071.00 * Input Record Definitions

0072.00 01 CR-CUSTOMER-RECORD.

0073.00 05 CR-RECORD-CODE PIC 9(2).

0074.00 05 CR-CUSTOMER-NUMBER PIC 9(5).

0075.00 05 CR-CUSTOMER-NAME PIC X(24).

0076.00 05 PIC X(7).

0077.00 05 CR-BALANCE-FORWARD PIC S9(6)V99.

0078.00 05 CR-NEW-PURCHASES PIC S9(6)V99.

0079.00 05 PIC X(18).

0080.00 05 CR-PAYMENTS-RECEIVED PIC S9(6)V99.

0081.00

0082.00 * Heading Line Definitions

0083.00 01 H1-HEADING-LINE-1.

0084.00 05 PIC X(20) VALUE “ACCOUNTS RECEIVABLE ”

0085.00 05 PIC X(20) VALUE “REGISTER (8-3) ”

0086.00 05 PIC X(20) VALUE ” ”

0087.00 05 PIC X(20) VALUE ” ”

0088.00 05 PIC X(15) VALUE ” RUN DATE “.

0089.00 05 H1-MONTH PIC 9(2).

0090.00 05 PIC X(1) VALUE “/”.

0091.00 05 H1-DAY PIC 9(2).

0092.00 05 PIC X(1) VALUE “/”.

0093.00 05 H1-YEAR PIC 9(2).

0094.00 05 PIC X(9) VALUE ” PAGE “.

0095.00 05 H1-PAGE-NBR PIC ZZ9.

0096.00 05 PIC X(17) VALUE SPACES.

0097.00

0098.00 01 H2-HEADING-LINE-2.

0099.00 05 PIC X(20) VALUE “CUST. ”

0100.00 05 PIC X(20) VALUE ” BALANC”

0101.00 05 PIC X(20) VALUE “E PAYMENTS FIN”

0102.00 05 PIC X(20) VALUE “ANCE LATE NE”

0103.00 05 PIC X(20) VALUE “W NEW ”

0104.00 05 PIC X(20) VALUE “MINIMUM ”

0105.00

0106.00 01 H3-HEADING-LINE-3.

0107.00 05 PIC X(20) VALUE ” NO. CUSTOMER NAM”

0108.00 05 PIC X(20) VALUE “E FORWAR”

0109.00 05 PIC X(20) VALUE “D RECEIVED CH”

0110.00 05 PIC X(20) VALUE “ARGE CHARGE PURCH”

0111.00 05 PIC X(20) VALUE “ASES BALANCE ”

0112.00 05 PIC X(20) VALUE “PAYMENT STATUS ”

0113.00

0114.00 * Print Line Definitions

0115.00 01 AR-ACCOUNTS-REC-LINE.

0116.00 05 AR-CUSTOMER-NUMBER PIC 9(5).

0117.00 05 PIC X(1) VALUE SPACE.

0118.00 05 AR-CUSTOMER-NAME PIC X(24).

0119.00 05 PIC X(1) VALUE SPACE.

0120.00 05 AR-BALANCE-FORWARD PIC ZZZ,ZZZ.99-.

0121.00 05 PIC X(1) VALUE SPACE.

0122.00 05 AR-PAYMENTS-RECEIVED PIC ZZZ,ZZZ.99-.

0123.00 05 PIC X(1) VALUE SPACE.

0124.00 05 AR-FINANCE-CHARGE PIC ZZ,ZZZ.99.

0125.00 05 PIC X(1) VALUE SPACE.

0126.00 05 AR-LATE-CHARGE PIC Z,ZZZ.99.

0127.00 05 PIC X(1) VALUE SPACE.

0128.00 05 AR-NEW-PURCHASES PIC ZZZ,ZZZ.99-.

0129.00 05 PIC X(1) VALUE SPACE.

0130.00 05 AR-NEW-BALANCE PIC ZZZ,ZZZ.99-.

0131.00 05 PIC X(1) VALUE SPACE.

0132.00 05 AR-MINIMUM-PAYMENT PIC ZZ,ZZZ.99.

0133.00 05 PIC X(1) VALUE SPACE.

0134.00 05 AR-ACCOUNT-STATUS PIC X(8).

0135.00

0136.00 * Total Line Definitions

0137.00 01 RT1-TOTAL-LINE.

0138.00 05 PIC X(13) VALUE SPACES

0139.00 05 PIC X(16)

0140.00 VALUE “REPORT TOTALS ”

0141.00 05 RT1-TOTAL-BALANCE-FORWARD PIC Z,ZZZ,ZZZ.99-.

0142.00 05 PIC X(1) VALUE “*”.

0143.00 05 PIC X(11) VALUE SP

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать