Advanced COBOL

Fall 2004

Program Test Data

Connecticut Community Colleges Gateway Community College Student Info System Contact Instructor

Course Home Page

Syllabus

Assignments

Lecture Overviews

The last time this page was updated: 8/12/04

Please bookmark this page and check it weekly for course updates!

Final Assignment

Customers

Picture Clauses

CUSTOMER-NUMBERPIC X(6)
CUSTOMER-NAMEPIC X(20)
CUST-STREET-ADDRESSPIC X(20)
CUST-CITYPIC X(15)
CUST-STATEPIC XX
CUST-ZIPCODEPIC X(5)
CUST-PHONEPIC X(10)

Customer Test Data

AD0001JOHN ADAMS          7 NORTH MAIN STEEET MADISON        WI554465415553636
AR0002JAMES ARTHUR        85 SOUTH BOULEVARD  CHARLESTON     SC335786215559854
BE0001ART BELL            3 PEACHTREE STREET  ATLANTA        GA415234575552648
CH0001GINGER CHARLES      4 HARMS WAYS        DENVER         CO745638795556911
CL0002MABEL FAYE CLARK    66543 DIVISION ST   OMAHA          NE681444025553698
CR0003JIMINY CRICKET      55 DISNEY WAY       ANAHIEM        CA975416545551124
DA0001JEFFERSON DAVIS JR. 99 SOUTH AVENUE     VIRGINIA BEACH VA124572305556687
DW0002FRANCIS DWIGHT      33 MAPLE BROOK ROAD FARGO          ND558748895552254
FR0001BARNEY FRANKS       770 FIFTH AVENUE    NEW YORK       NY025472125558887
GR0001GILBERT GRAPE       44 BEACH BOULEVARD  BISMARK        ND558848895552103
JO0001JOHN JOHNSON        55 SNOWBALL DRIVE   FOND DU LAC    WI549872655555587
LO0001HARRIET LOVELOSS ESQ88765 FIRST AVENUE  NEW HAVEN      CT065112035557788
NE0001PAUL NEUMAN         40 WASHINGTON AVENUEWESTPORT       CT063452035556698
SI0001HOMER SIMPSON       55 LOSER CIRCLE     SPRINGFIELD    NJ087742335554477
ST0002DONALD STEINWAY     76 NORTH SOUTH ROAD LAREMEE        WV226541565551147	

Parts

Picture Clauses

PART-NUMBERPIC 999
PART-NAMEPIC X(20)
UNIT-PRICEPIC 9(4)V99
AMOUNT-ON-HANDPIC 9(5)
REORDER-POINTPIC 99

Test Data

0012 CROSS SUPPORT RACK0149600012350
002AIR FOIL            0020902214565
0043 CROSS SUPPORTS    0175100030010
005BASE LADDER RACK    0173200012060
007CONDUIT HOLDER      0047300561080
008HEAVY DUTY KIT      0036800200025
009ANTI-SKID STRIPS    0030600005450
010CUSTOM FIT RBBR MAT 0168300041060
0112-DRAWER STACK UNIT 0336602004445
0233-DRAWER STACK UNIT 0476900221420
024DOOR STORAGE TRAY   0085700054015
025BOOK RACK           0074900101010
035REEL RACK           0071400015020
037CAB CADDY           0042900500080
039SOLID STATE INVERTER0068800020010
055CAB DESK CUP HOLDER 0015300084530
056CONTOUR BIN SHELVING0139800100125
05730 BIN PANEL        0135900250250
059STEEL HVY DUTY CHEST0324000002515
060PIANO BOX           0498000016515
061KARGO MASTER RACK   0529500014120
089SERVICE BODY RACK   0540800005015
099CARGO ANCHOR        0004601500280
100EASY ADJUST KNOB    0001802400590
101SLIDE STOP          0011954514550
120SLIDE-N-LOCK SYSTEM 0127500065530
134SAVE-A-LOAD CARGOBAR0076500524315
145MASTER PADLOCK #3   0008705400580
166HYDRAULIC ASSIST    0171000005040
167WORK WINCH SINGLE   0045000099165


Tax Table for programming assignment #2 - Chapter 12

I/P record format - right from the book

TAXABLE-INCOME-IN PIC 9(5).
FEDERAL-TAX-IN PIC V999.
STATE-TAX-IN PIC V999.

Total of 20 records in the tax table. Cut and paste into your text editor progrm.

09800040010
12000080020
14000100030
18000110040
20000150050
22000180060
25000190070
28000200080
31000210090
35000220100
38000230110
42000240120
44000250130
48000280140
60000300150
64000320160
68000350170
75000400180
85000500190
95000600200
Last Updated: 8/12/04